(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Wolfram 14.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] NotebookDataLength[ 399174, 9347] NotebookOptionsPosition[ 375132, 8983] NotebookOutlinePosition[ 375544, 9000] CellTagsIndexPosition[ 375501, 8997] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"f1", "="}]], "Input", CellFrame->{{0, 0}, {0, 0}}, CellChangeTimes->{3.991849227197853*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], Cell[BoxData[ RowBox[{"f2", "="}]], "Input", CellFrame->{{0, 0}, {0, 0}}, CellChangeTimes->{3.9918492290557346`*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ir", "=", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"A1", "*", RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", CellLabel-> "In[233]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], Cell[BoxData["2.3793916761039797`*^-53"], "Output", CellChangeTimes->{3.9913335367025833`*^9}, CellLabel-> "Out[233]=",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Il", "=", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{ 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ fcd932c3b663"], Cell[BoxData["5.020725113795862`*^-55"], "Output", CellChangeTimes->{3.991333536726557*^9}, CellLabel-> "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ih", "=", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", CellChangeTimes->{{3.991557595005127*^9, 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ 23b66397f1fd"], Cell[BoxData["1.871372642785671`*^-54"], "Output", CellChangeTimes->{3.9913335367515736`*^9}, CellLabel-> "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qb3", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", CellLabel-> "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], Cell[BoxData["25.178011816139865`"], "Output", CellChangeTimes->{3.9913335367605553`*^9}, CellLabel-> "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qw3", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellLabel-> "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], Cell[BoxData["31.32034821453639`"], "Output", CellChangeTimes->{3.991333536783556*^9}, CellLabel-> "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", CellLabel-> "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], Cell[BoxData["0.7475613664925793`"], "Output", CellChangeTimes->{3.9913335367915726`*^9}, CellLabel-> "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", CellLabel-> "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], Cell[BoxData["3.5403946764909393`"], "Output", CellChangeTimes->{3.99133353681583*^9}, CellLabel-> "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", CellLabel-> "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], Cell[BoxData["110.88639408458714`"], "Output", CellChangeTimes->{3.991333536826782*^9}, CellLabel-> "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", CellLabel-> "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], Cell[BoxData["18.822108918839827`"], "Output", CellChangeTimes->{3.9913335368508377`*^9}, CellLabel-> "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], Cell[BoxData["0.042044960793272385`"], "Output", CellChangeTimes->{3.9913335368758316`*^9}, CellLabel-> "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], Cell[BoxData["4.322031867849089`"], "Output", CellChangeTimes->{3.991333536973074*^9}, CellLabel-> "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o2", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], Cell[BoxData["0.011395075201487413`"], "Output", CellChangeTimes->{3.9913335369870644`*^9}, CellLabel-> "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], Cell[BoxData["8.302069082299768`"], "Output", CellChangeTimes->{3.9913335370800858`*^9}, CellLabel-> "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h1", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], Cell[BoxData["0.7884625602161153`"], "Output", CellChangeTimes->{3.9913335370930634`*^9}, CellLabel-> "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h2", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], Cell[BoxData["0.21153743978388478`"], "Output", CellChangeTimes->{3.991333537118065*^9}, CellLabel-> "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h3", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}]}], ")"}], "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], Cell[BoxData["0.16678935135356415`"], "Output", CellChangeTimes->{3.9913335371420746`*^9}, CellLabel-> "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ 5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.991849241512779*^9},ExpressionUUID->"738a48f3-b38c-f441-aec4-\ 53babaa73a14"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ \\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ \"]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 249, 217, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913335371540604`*^9}, CellLabel-> "During evaluation of \ In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ \\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ \\\"]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 249, 218, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913335371630745`*^9}, CellLabel-> "During evaluation of \ In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ \\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ 000\\\"]\\) is too small to represent as a normalized machine number; \ precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913335371710587`*^9}, CellLabel-> "During evaluation of \ In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 249, 220, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.99133353717906*^9}, CellLabel-> "During evaluation of \ In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], Cell[BoxData["4.322031867849086`"], "Output", CellChangeTimes->{3.9913335399194164`*^9}, CellLabel-> "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.9918492463930817`*^9},ExpressionUUID->"86c33485-ed26-8f49-b3d0-\ 7d040d3b48f0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ \\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ \"]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 250, 221, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913335399544125`*^9}, CellLabel-> "During evaluation of \ In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ \\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ \\\"]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 250, 222, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913335399644184`*^9}, CellLabel-> "During evaluation of \ In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ \\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ 000\\\"]\\) is too small to represent as a normalized machine number; \ precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991333539972414*^9}, CellLabel-> "During evaluation of \ In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 250, 224, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991333539979416*^9}, CellLabel-> "During evaluation of \ In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], Cell[BoxData["8.302069082299772`"], "Output", CellChangeTimes->{3.991333542631773*^9}, CellLabel-> "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", RowBox[{"Cos", "[", FractionBox[ RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9918492535482903`*^9},ExpressionUUID->"f373fe4f-940c-0842-9236-\ 63ec36d318ad"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI 7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju 0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw 6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ 4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm 5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw 6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc 6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r 2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj 9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot /i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb 3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI 7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju 0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw 6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ 4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm 5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw 6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc 6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r 2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj 9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot /i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb 3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.9887929549829141}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.9887929549829141}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI 7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju 0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw 6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ 4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm 5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw 6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc 6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r 2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj 9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot /i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb 3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.9887929549829141}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.9887929549829141}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.991333813212965*^9}, CellLabel-> "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.991849261714945*^9},ExpressionUUID->"24fa5db0-1063-354a-bd60-\ c117a27ff3e1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.0784227471040894`*^-281\\\", \ \\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 252, 225, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991333813432829*^9}, CellLabel-> "During evaluation of \ In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.9214123648785273`*^-295\\\", \ \\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 252, 226, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991333813442087*^9}, CellLabel-> "During evaluation of \ In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ \\\"9.614868462060315`*^-8\\\"}], \\\")\\\"}], \\\"44\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 252, 227, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991333813450123*^9}, CellLabel-> "During evaluation of \ In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 252, 228, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991333813469118*^9}, CellLabel-> "During evaluation of \ In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz 61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR 7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf 6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC /emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m 5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ +65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR 7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz /lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ /Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl /5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR 4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn 90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN 2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA 8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa 34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL 0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX 62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ /RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo 85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi 6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck +xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN /WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E 1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq 6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU 0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O 0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB /jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK 4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA 1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ /UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q /DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm 1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP 59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs 6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd 4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t 0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ 6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS 4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 +j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F 3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 /iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv 50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W 7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A 87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT 5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa 8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F +lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 +a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC 9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV 7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc 9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs 2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s 6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv /7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE 43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU 0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO 2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn 7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw 18hpWOkpIP0PtXjCHw== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz 61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR 7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf 6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC /emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m 5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ +65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR 7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz /lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ /Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl /5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR 4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn 90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN 2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA 8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa 34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL 0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX 62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ /RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo 85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi 6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck +xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN /WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E 1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq 6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU 0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O 0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB /jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK 4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA 1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ /UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q /DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm 1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP 59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs 6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd 4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t 0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ 6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS 4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 +j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F 3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 /iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv 50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W 7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A 87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT 5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa 8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F +lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 +a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC 9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV 7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc 9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs 2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s 6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv /7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE 43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU 0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO 2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn 7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw 18hpWOkpIP0PtXjCHw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz 61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR 7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf 6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC /emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m 5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ +65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR 7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz /lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ /Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl /5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR 4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn 90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN 2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA 8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa 34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL 0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX 62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ /RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo 85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi 6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck +xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN /WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E 1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq 6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU 0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O 0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB /jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK 4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA 1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ /UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q /DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm 1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP 59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs 6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd 4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t 0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ 6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS 4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 +j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F 3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 /iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv 50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W 7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A 87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT 5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa 8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F +lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 +a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC 9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV 7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc 9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs 2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s 6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv /7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE 43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU 0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO 2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn 7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw 18hpWOkpIP0PtXjCHw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.991334471589432*^9}, CellLabel-> "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] }, Open ]], Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", RowBox[{"{", "}"}], "]"}]}]], "Input", CellFrame->{{0, 0}, {0, 0}}, CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ f16397f0b922"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"L", "=", FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", CellChangeTimes->{ 3.9918492800964603`*^9},ExpressionUUID->"9051a5e3-bb9f-d941-bcca-\ 598d0b6835be"], Cell[BoxData["9.33220071900516`"], "Output", CellChangeTimes->{3.991334803166374*^9}, CellLabel-> "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"L", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ 4a8a16073236"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 255, 233, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.99133480336051*^9}, CellLabel-> "During evaluation of \ In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 255, 234, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991334803369583*^9}, CellLabel-> "During evaluation of \ In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 255, 235, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991334803378134*^9}, CellLabel-> "During evaluation of \ In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 255, 236, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991334803386196*^9}, CellLabel-> "During evaluation of \ In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN 7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E 8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja 6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr /i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm 7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD 2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz 0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 +SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi 88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs 7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E 0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX 8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy +LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD 2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR 6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb 7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv 5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP 9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j 9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm 4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj 7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD +0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v +NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR 8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT 78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf 1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are 1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy 7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN 7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E 8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja 6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr /i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm 7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD 2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz 0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 +SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi 88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs 7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E 0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX 8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy +LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD 2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR 6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb 7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv 5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP 9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j 9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm 4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj 7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD +0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v +NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR 8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT 78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf 1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are 1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy 7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN 7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E 8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja 6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr /i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm 7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD 2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz 0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 +SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi 88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs 7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E 0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX 8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy +LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD 2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR 6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb 7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv 5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP 9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j 9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm 4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj 7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD +0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v +NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR 8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT 78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf 1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are 1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy 7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 30}, {0., 0.08145702771151381}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.991335257344549*^9}, CellLabel-> "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> "In[256]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.39639867535232`*^-188\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 256, 237, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991335257395241*^9}, CellLabel-> "During evaluation of \ In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.342395211692676`*^-192\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 256, 238, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913352574052296`*^9}, CellLabel-> "During evaluation of \ In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.1800384500947783`*^-195\\\", \ \\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ 7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 256, 239, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991335257413231*^9}, CellLabel-> "During evaluation of \ In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 256, 240, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913352574212303`*^9}, CellLabel-> "During evaluation of \ In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], Cell[BoxData["9.332200719005158`"], "Output", CellChangeTimes->{3.991335263670042*^9}, CellLabel-> "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "*", RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849285445259*^9, 3.991849289419262*^9}},ExpressionUUID->"6f0ad284-4db3-da47-b8dc-\ 45830eedfe9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ \\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ \"]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 257, 241, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991335263710146*^9}, CellLabel-> "During evaluation of \ In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ \\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ \\\"]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 257, 242, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913352637201557`*^9}, CellLabel-> "During evaluation of \ In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ \\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ 000\\\"]\\) is too small to represent as a normalized machine number; \ precision may be lost.\"", 2, 257, 243, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991335263728153*^9}, CellLabel-> "During evaluation of \ In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 257, 244, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913352637361546`*^9}, CellLabel-> "During evaluation of \ In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], Cell[BoxData["0.00046079539931050297`"], "Output", CellChangeTimes->{3.991335268779545*^9}, CellLabel-> "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849293744112*^9, 3.9918492959939384`*^9}},ExpressionUUID->"b2dda819-6f34-5c49-bc62-\ 303d815946e5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ \\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ \"]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 258, 245, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991335268812542*^9}, CellLabel-> "During evaluation of \ In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ \\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ \\\"]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 258, 246, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991335268822542*^9}, CellLabel-> "During evaluation of \ In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ \\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ 000\\\"]\\) is too small to represent as a normalized machine number; \ precision may be lost.\"", 2, 258, 247, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991335268831545*^9}, CellLabel-> "During evaluation of \ In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 258, 248, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913352688395576`*^9}, CellLabel-> "During evaluation of \ In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], Cell[BoxData["5.104103620353258`"], "Output", CellChangeTimes->{3.991335272704685*^9}, CellLabel-> "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918492993108063`*^9, 3.991849303274454*^9}},ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-\ 1a175f609f7d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ \\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ \"]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 259, 249, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913352727386665`*^9}, CellLabel-> "During evaluation of \ In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ \\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ \\\"]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 259, 250, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913352727476673`*^9}, CellLabel-> "During evaluation of \ In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ \\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ 000\\\"]\\) is too small to represent as a normalized machine number; \ precision may be lost.\"", 2, 259, 251, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913352727556705`*^9}, CellLabel-> "During evaluation of \ In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 259, 252, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913352727636833`*^9}, CellLabel-> "During evaluation of \ In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], Cell[BoxData["18.832858301324727`"], "Output", CellChangeTimes->{3.991335275154251*^9}, CellLabel-> "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.9918493065908413`*^9, 3.9918493103344364`*^9}},ExpressionUUID->"69dd09d9-152e-3e4d-9517-\ 4de4791db2f4"], Cell[BoxData["0.00004699917922538678`"], "Output", CellChangeTimes->{3.991335275186266*^9}, CellLabel-> "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991849314761318*^9, 3.9918493173333225`*^9}, 3.991924798063732*^9},ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-\ 749729cd7104"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qb2", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellChangeTimes->{{3.99312673568116*^9, 3.993126746164192*^9}}, CellLabel-> "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], Cell[BoxData["5.744985073726737`"], "Output", CellChangeTimes->{3.9913352752142563`*^9}, CellLabel-> "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], Cell[BoxData["1.564995573098557`"], "Output", CellChangeTimes->{3.9913352752482567`*^9}, CellLabel-> "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], Cell[BoxData["8.990876207899632`"], "Output", CellChangeTimes->{3.9913352753089123`*^9}, CellLabel-> "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], Cell[BoxData["0.07167004636648908`"], "Output", CellChangeTimes->{3.9913352753341656`*^9}, CellLabel-> "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], Cell[BoxData["3.3103666491187544`"], "Output", CellChangeTimes->{3.9913352754296722`*^9}, CellLabel-> "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o2", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], Cell[BoxData["0.012832691268660865`"], "Output", CellChangeTimes->{3.9913352754426765`*^9}, CellLabel-> "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], Cell[BoxData["7.823229443917166`"], "Output", CellChangeTimes->{3.991335275540678*^9}, CellLabel-> "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h1", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], Cell[BoxData["0.7884625602161153`"], "Output", CellChangeTimes->{3.9913352755566807`*^9}, CellLabel-> "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h2", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], Cell[BoxData["0.21153743978388478`"], "Output", CellChangeTimes->{3.991335275581682*^9}, CellLabel-> "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h3", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}]}], ")"}], "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], Cell[BoxData["0.16678935135356415`"], "Output", CellChangeTimes->{3.9913352756087036`*^9}, CellLabel-> "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.991849332835844*^9},ExpressionUUID->"d6aa822f-4140-174a-8e29-\ c889dba5c0d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 275, 253, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991335275636673*^9}, CellLabel-> "During evaluation of \ In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 275, 254, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913352756456738`*^9}, CellLabel-> "During evaluation of \ In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 275, 255, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913352756546745`*^9}, CellLabel-> "During evaluation of \ In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 275, 256, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991335275662676*^9}, CellLabel-> "During evaluation of \ In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], Cell[BoxData["3.3103666491187513`"], "Output", CellChangeTimes->{3.991335279487499*^9}, CellLabel-> "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.9918493361354027`*^9},ExpressionUUID->"46f3f057-22eb-c143-af7a-\ 23ddab00799c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 276, 257, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991335279522499*^9}, CellLabel-> "During evaluation of \ In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 276, 258, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991335279532501*^9}, CellLabel-> "During evaluation of \ In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 276, 259, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913352795405006`*^9}, CellLabel-> "During evaluation of \ In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 276, 260, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913352795487957`*^9}, CellLabel-> "During evaluation of \ In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], Cell[BoxData["7.82322944391716`"], "Output", CellChangeTimes->{3.991335283631424*^9}, CellLabel-> "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "1"], RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", RowBox[{"Cos", "[", FractionBox[ RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9918494105860615`*^9},ExpressionUUID->"0137ed47-cd78-284a-910a-\ 31d165f1571c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg 4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E 17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ 1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF 0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 /P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP /aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE /SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 /J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp 0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF 8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V 5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs 5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg 4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E 17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ 1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF 0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 /P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP /aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE /SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 /J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp 0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF 8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V 5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs 5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.6152015704378887}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.6152015704378887}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg 4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E 17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ 1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF 0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 /P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP /aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE /SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 /J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp 0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF 8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V 5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs 5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.6152015704378887}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.6152015704378887}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9913355426284504`*^9}, CellLabel-> "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] }, Open ]], Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9918494141657047`*^9, {3.991849451432905*^9, 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ d4884962c12d"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ ef47-aa8c-99f282e3d6d3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> "In[282]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.443621462424051`*^-173\\\", \ \\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ 734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ \"", 2, 282, 273, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991337269930374*^9}, CellLabel-> "During evaluation of \ In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.352709009016139`*^-176\\\", \ \\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ 116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ is too small to represent as a normalized machine number; precision may be \ lost.\"", 2, 282, 274, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913372699413757`*^9}, CellLabel-> "During evaluation of \ In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.488155146821548`*^-180\\\", \ \\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ 2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ \\) is too small to represent as a normalized machine number; precision may \ be lost.\"", 2, 282, 275, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991337269949375*^9}, CellLabel-> "During evaluation of \ In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 282, 276, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913372699573765`*^9}, CellLabel-> "During evaluation of \ In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], Cell[BoxData["9.332200719005147`"], "Output", CellChangeTimes->{3.9913372766841774`*^9}, CellLabel-> "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "*", RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918494640512295`*^9, 3.991849468375696*^9}},ExpressionUUID->"53e25fab-b431-cc42-a467-\ e4dea0353ed0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 283, 277, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913372767181473`*^9}, CellLabel-> "During evaluation of \ In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 283, 278, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913372767281475`*^9}, CellLabel-> "During evaluation of \ In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 283, 279, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913372767351475`*^9}, CellLabel-> "During evaluation of \ In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 283, 280, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991337276743145*^9}, CellLabel-> "During evaluation of \ In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], Cell[BoxData["0.5406905105605413`"], "Output", CellChangeTimes->{3.991337284091696*^9}, CellLabel-> "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918494737320137`*^9, 3.9918494774550457`*^9}},ExpressionUUID->"b18c819e-620a-d449-97d6-\ 547e3a6fa152"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 284, 281, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991337284131695*^9}, CellLabel-> "During evaluation of \ In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 284, 282, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991337284142767*^9}, CellLabel-> "During evaluation of \ In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 284, 283, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991337284150778*^9}, CellLabel-> "During evaluation of \ In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 284, 284, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913372841597614`*^9}, CellLabel-> "During evaluation of \ In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], Cell[BoxData["2.9943030245183917`"], "Output", CellChangeTimes->{3.9913372907074146`*^9}, CellLabel-> "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849482271084*^9, 3.9918494852683945`*^9}},ExpressionUUID->"22ab74c7-5916-9440-9d7d-\ c3e0f6ab8836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 285, 285, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991337290744484*^9}, CellLabel-> "During evaluation of \ In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 285, 286, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991337290753483*^9}, CellLabel-> "During evaluation of \ In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 285, 287, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913372907615204`*^9}, CellLabel-> "During evaluation of \ In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 285, 288, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.99133729076952*^9}, CellLabel-> "During evaluation of \ In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], Cell[BoxData["16.72305770548981`"], "Output", CellChangeTimes->{3.991337294569908*^9}, CellLabel-> "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.9918494889040737`*^9, 3.9918494971484394`*^9}},ExpressionUUID->"f9c66987-c237-7a40-a006-\ e20e260dbdcb"], Cell[BoxData["0.07640873836855284`"], "Output", CellChangeTimes->{3.9913372946009064`*^9}, CellLabel-> "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918495000311985`*^9, 3.9918495029810333`*^9}, 3.9919248636163254`*^9},ExpressionUUID->"770a9ed7-7938-9e48-be64-\ c31719ef3a6b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qb1", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], Cell[BoxData["7.13574266196526`"], "Output", CellChangeTimes->{3.991337294629921*^9}, CellLabel-> "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], Cell[BoxData["1.4042291233212119`"], "Output", CellChangeTimes->{3.9913372946629753`*^9}, CellLabel-> "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], Cell[BoxData["10.020217662457247`"], "Output", CellChangeTimes->{3.9913372947367725`*^9}, CellLabel-> "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], Cell[BoxData["0.06674599726273667`"], "Output", CellChangeTimes->{3.9913372947513313`*^9}, CellLabel-> "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], Cell[BoxData["3.430301770911147`"], "Output", CellChangeTimes->{3.9913372948636913`*^9}, CellLabel-> "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o2", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], Cell[BoxData["0.01266539131451536`"], "Output", CellChangeTimes->{3.991337294877693*^9}, CellLabel-> "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], Cell[BoxData["7.874729317258519`"], "Output", CellChangeTimes->{3.991337294976324*^9}, CellLabel-> "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h1", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], Cell[BoxData["0.7884625602161153`"], "Output", CellChangeTimes->{3.9913372950022793`*^9}, CellLabel-> "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h2", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], Cell[BoxData["0.21153743978388478`"], "Output", CellChangeTimes->{3.991337295013279*^9}, CellLabel-> "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h3", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}]}], ")"}], "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], Cell[BoxData["0.16678935135356415`"], "Output", CellChangeTimes->{3.991337295041279*^9}, CellLabel-> "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.991849517192892*^9},ExpressionUUID->"55d51961-97f2-ed4d-8bf8-\ 8a461d652ab4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 301, 289, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913372950662746`*^9}, CellLabel-> "During evaluation of \ In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 301, 290, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991337295076277*^9}, CellLabel-> "During evaluation of \ In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 301, 291, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913372950842743`*^9}, CellLabel-> "During evaluation of \ In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 301, 292, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913372950922775`*^9}, CellLabel-> "During evaluation of \ In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], Cell[BoxData["3.430301770911144`"], "Output", CellChangeTimes->{3.991337298790371*^9}, CellLabel-> "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.991849520751028*^9},ExpressionUUID->"9704b9d3-b449-2144-9970-\ 6a7de047241d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 302, 293, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913372988243732`*^9}, CellLabel-> "During evaluation of \ In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 302, 294, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913372988343716`*^9}, CellLabel-> "During evaluation of \ In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 302, 295, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913372988425922`*^9}, CellLabel-> "During evaluation of \ In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 302, 296, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913372988505898`*^9}, CellLabel-> "During evaluation of \ In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], Cell[BoxData["7.87472931725852`"], "Output", CellChangeTimes->{3.991337302457178*^9}, CellLabel-> "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "1"], RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", RowBox[{"Cos", "[", FractionBox[ RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.991849523511486*^9},ExpressionUUID->"0fd90636-7592-fc40-bf9d-\ ae1cb915c656"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex 5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm 79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey /ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN +5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai 0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe 0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf //8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU 01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o 8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC 6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V 9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm +TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ 4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex 5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm 79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey /ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN +5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai 0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe 0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf //8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU 01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o 8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC 6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V 9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm +TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ 4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.663943982390173}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.663943982390173}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex 5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm 79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey /ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN +5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai 0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe 0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf //8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU 01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o 8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC 6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V 9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm +TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ 4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.663943982390173}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.663943982390173}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.991337564416748*^9}, CellLabel-> "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9918495265156612`*^9, {3.991849580574194*^9, 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ ac84cb8f4d66"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 304, 297, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991337564646551*^9}, CellLabel-> "During evaluation of \ In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 304, 298, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913375646565304`*^9}, CellLabel-> "During evaluation of \ In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 304, 299, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913375646656475`*^9}, CellLabel-> "During evaluation of \ In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 304, 300, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913375646736584`*^9}, CellLabel-> "During evaluation of \ In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A 1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw +0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep 5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT +jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax 9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ 8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q 4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU 0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA 0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES 2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb 5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN +dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ 8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N 1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw 7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ 71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H 7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq 2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h +tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc 5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH 1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK 3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD 25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue 2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo 2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk 4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o 0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs 76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj 6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT /wN9xxCi "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A 1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw +0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep 5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT +jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax 9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ 8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q 4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU 0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA 0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES 2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb 5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN +dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ 8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N 1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw 7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ 71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H 7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq 2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h +tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc 5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH 1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK 3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD 25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue 2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo 2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk 4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o 0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs 76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj 6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT /wN9xxCi "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A 1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw +0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep 5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT +jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax 9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ 8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q 4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU 0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA 0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES 2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb 5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN +dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ 8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N 1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw 7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ 71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H 7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq 2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h +tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc 5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH 1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK 3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD 25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue 2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo 2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk 4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o 0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs 76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj 6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT /wN9xxCi "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9913381496467495`*^9}, CellLabel-> "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] }, Open ]], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ 5c3b93725916"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> "In[308]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.611115182999938`*^-175\\\", \ \\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ 54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 308, 309, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.99133920579224*^9}, CellLabel-> "During evaluation of \ In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.5007447195984937`*^-178\\\", \ \\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ 734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ \"", 2, 308, 310, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913392058022385`*^9}, CellLabel-> "During evaluation of \ In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.1145242877114216`*^-181\\\", \ \\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ 116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ is too small to represent as a normalized machine number; precision may be \ lost.\"", 2, 308, 311, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991339205811241*^9}, CellLabel-> "During evaluation of \ In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 308, 312, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913392058197193`*^9}, CellLabel-> "During evaluation of \ In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], Cell[BoxData["9.33220071900515`"], "Output", CellChangeTimes->{3.9913392124888554`*^9}, CellLabel-> "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "*", RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849547748472*^9, 3.9918495528702526`*^9}},ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-\ 0895c02ffd8f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 309, 313, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913392125258827`*^9}, CellLabel-> "During evaluation of \ In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 309, 314, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991339212535879*^9}, CellLabel-> "During evaluation of \ In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 309, 315, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913392125438805`*^9}, CellLabel-> "During evaluation of \ In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 309, 316, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913392125518837`*^9}, CellLabel-> "During evaluation of \ In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], Cell[BoxData["0.41157157699018565`"], "Output", CellChangeTimes->{3.9913392196090164`*^9}, CellLabel-> "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918495568340263`*^9, 3.991849559359928*^9}},ExpressionUUID->"57976ffc-56f1-604b-8519-\ bead95265db8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 310, 317, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913392196440163`*^9}, CellLabel-> "During evaluation of \ In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 310, 318, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913392196535416`*^9}, CellLabel-> "During evaluation of \ In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 310, 319, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991339219661541*^9}, CellLabel-> "During evaluation of \ In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 310, 320, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991339219670542*^9}, CellLabel-> "During evaluation of \ In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], Cell[BoxData["3.215201591157595`"], "Output", CellChangeTimes->{3.9913392268711624`*^9}, CellLabel-> "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849563755764*^9, 3.991849566543682*^9}},ExpressionUUID->"cfa37210-3ae7-3f49-b290-\ f19508c6d2f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 311, 321, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991339226907137*^9}, CellLabel-> "During evaluation of \ In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 311, 322, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991339226917137*^9}, CellLabel-> "During evaluation of \ In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 311, 323, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913392269251385`*^9}, CellLabel-> "During evaluation of \ In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 311, 324, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913392269341373`*^9}, CellLabel-> "During evaluation of \ In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], Cell[BoxData["16.94395627212904`"], "Output", CellChangeTimes->{3.9913392304284153`*^9}, CellLabel-> "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.991849569404436*^9, 3.991849573855135*^9}},ExpressionUUID->"7457b456-6d32-5b44-9679-\ 346c5f5ac532"], Cell[BoxData["0.05576142449710889`"], "Output", CellChangeTimes->{3.9913392304624157`*^9}, CellLabel-> "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] }, Open ]] }, WindowSize->{1440, 792}, WindowMargins->{{0, Automatic}, {0, Automatic}}, CellContext->Notebook, FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", StyleDefinitions->"Default.nb", ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[554, 20, 213, 5, 45, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], Cell[770, 27, 215, 5, 45, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], Cell[CellGroupData[{ Cell[1010, 36, 1301, 43, 48, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], Cell[2314, 81, 178, 3, 33, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] }, Open ]], Cell[CellGroupData[{ Cell[2529, 89, 910, 31, 58, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], Cell[3442, 122, 175, 3, 33, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] }, Open ]], Cell[CellGroupData[{ Cell[3654, 130, 885, 30, 58, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], Cell[4542, 162, 177, 3, 33, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] }, Open ]], Cell[CellGroupData[{ Cell[4756, 170, 558, 19, 51, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], Cell[5317, 191, 173, 3, 33, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] }, Open ]], Cell[CellGroupData[{ Cell[5527, 199, 623, 21, 51, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], Cell[6153, 222, 170, 3, 33, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] }, Open ]], Cell[CellGroupData[{ Cell[6360, 230, 170, 5, 55, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], Cell[6533, 237, 173, 3, 33, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] }, Open ]], Cell[CellGroupData[{ Cell[6743, 245, 170, 5, 54, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], Cell[6916, 252, 170, 3, 33, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] }, Open ]], Cell[CellGroupData[{ Cell[7123, 260, 181, 5, 43, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], Cell[7307, 267, 171, 3, 33, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] }, Open ]], Cell[CellGroupData[{ Cell[7515, 275, 181, 5, 43, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], Cell[7699, 282, 173, 3, 33, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] }, Open ]], Cell[CellGroupData[{ Cell[7909, 290, 6055, 185, 195, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], Cell[13967, 477, 175, 3, 33, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] }, Open ]], Cell[CellGroupData[{ Cell[14179, 485, 368, 9, 41, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], Cell[14550, 496, 170, 3, 33, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] }, Open ]], Cell[CellGroupData[{ Cell[14757, 504, 6122, 187, 195, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], Cell[20882, 693, 175, 3, 33, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] }, Open ]], Cell[CellGroupData[{ Cell[21094, 701, 368, 9, 41, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], Cell[21465, 712, 172, 3, 33, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] }, Open ]], Cell[CellGroupData[{ Cell[21674, 720, 2663, 88, 115, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], Cell[24340, 810, 173, 3, 33, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] }, Open ]], Cell[CellGroupData[{ Cell[24550, 818, 2603, 85, 115, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], Cell[27156, 905, 172, 3, 33, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] }, Open ]], Cell[CellGroupData[{ Cell[27365, 913, 3712, 118, 172, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], Cell[31080, 1033, 174, 3, 33, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] }, Open ]], Cell[31269, 1039, 138, 3, 29, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ Cell[31432, 1046, 2052, 59, 92, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], Cell[33487, 1107, 524, 11, 38, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], Cell[34014, 1120, 526, 11, 38, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], Cell[34543, 1133, 530, 11, 38, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], Cell[35076, 1146, 455, 10, 26, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], Cell[35534, 1158, 172, 3, 33, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] }, Open ]], Cell[CellGroupData[{ Cell[35743, 1166, 2054, 59, 92, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], Cell[37800, 1227, 524, 11, 38, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], Cell[38327, 1240, 526, 11, 38, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], Cell[38856, 1253, 528, 11, 38, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], Cell[39387, 1266, 456, 10, 26, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], Cell[39846, 1278, 170, 3, 33, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] }, Open ]], Cell[CellGroupData[{ Cell[40053, 1286, 1938, 53, 67, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], Cell[41994, 1341, 19994, 375, 229, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] }, Open ]], Cell[CellGroupData[{ Cell[62025, 1721, 2092, 60, 92, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], Cell[64120, 1783, 490, 11, 38, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], Cell[64613, 1796, 493, 11, 38, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], Cell[65109, 1809, 508, 11, 26, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], Cell[65620, 1822, 456, 10, 26, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], Cell[66079, 1834, 61603, 1057, 232, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] }, Open ]], Cell[127697, 2894, 298, 7, 45, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], Cell[127998, 2903, 209, 5, 29, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], Cell[CellGroupData[{ Cell[128232, 2912, 217, 7, 47, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], Cell[128452, 2921, 169, 3, 33, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] }, Open ]], Cell[CellGroupData[{ Cell[128658, 2929, 1816, 53, 92, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], Cell[130477, 2984, 502, 11, 38, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], Cell[130982, 2997, 506, 11, 38, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], Cell[131491, 3010, 509, 11, 38, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], Cell[132003, 3023, 456, 10, 26, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], Cell[132462, 3035, 28560, 514, 232, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] }, Open ]], Cell[CellGroupData[{ Cell[161059, 3554, 1616, 48, 67, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], Cell[162678, 3604, 576, 12, 38, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], Cell[163257, 3618, 582, 12, 38, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], Cell[163842, 3632, 584, 12, 38, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], Cell[164429, 3646, 458, 10, 26, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], Cell[164890, 3658, 170, 3, 33, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] }, Open ]], Cell[CellGroupData[{ Cell[165097, 3666, 2247, 64, 62, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], Cell[167347, 3732, 522, 11, 38, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], Cell[167872, 3745, 526, 11, 38, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], Cell[168401, 3758, 528, 11, 38, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], Cell[168932, 3771, 458, 10, 26, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], Cell[169393, 3783, 175, 3, 33, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] }, Open ]], Cell[CellGroupData[{ Cell[169605, 3791, 2221, 64, 62, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], Cell[171829, 3857, 522, 11, 38, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], Cell[172354, 3870, 524, 11, 38, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], Cell[172881, 3883, 528, 11, 38, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], Cell[173412, 3896, 458, 10, 26, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], Cell[173873, 3908, 170, 3, 33, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] }, Open ]], Cell[CellGroupData[{ Cell[174080, 3916, 2221, 64, 62, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], Cell[176304, 3982, 524, 11, 38, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], Cell[176831, 3995, 526, 11, 38, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], Cell[177360, 4008, 530, 11, 38, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], Cell[177893, 4021, 458, 10, 26, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], Cell[178354, 4033, 171, 3, 33, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] }, Open ]], Cell[CellGroupData[{ Cell[178562, 4041, 215, 6, 46, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], Cell[178780, 4049, 175, 3, 33, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] }, Open ]], Cell[178970, 4055, 245, 5, 29, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ Cell[179240, 4064, 623, 20, 51, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], Cell[179866, 4086, 172, 3, 33, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] }, Open ]], Cell[CellGroupData[{ Cell[180075, 4094, 170, 5, 55, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], Cell[180248, 4101, 172, 3, 33, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] }, Open ]], Cell[CellGroupData[{ Cell[180457, 4109, 181, 5, 43, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], Cell[180641, 4116, 172, 3, 33, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] }, Open ]], Cell[CellGroupData[{ Cell[180850, 4124, 6055, 185, 195, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], Cell[186908, 4311, 174, 3, 33, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] }, Open ]], Cell[CellGroupData[{ Cell[187119, 4319, 368, 9, 41, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], Cell[187490, 4330, 173, 3, 33, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] }, Open ]], Cell[CellGroupData[{ Cell[187700, 4338, 6122, 187, 195, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], Cell[193825, 4527, 175, 3, 33, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] }, Open ]], Cell[CellGroupData[{ Cell[194037, 4535, 368, 9, 41, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], Cell[194408, 4546, 170, 3, 33, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] }, Open ]], Cell[CellGroupData[{ Cell[194615, 4554, 2663, 88, 115, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], Cell[197281, 4644, 173, 3, 33, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] }, Open ]], Cell[CellGroupData[{ Cell[197491, 4652, 2603, 85, 115, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], Cell[200097, 4739, 172, 3, 33, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] }, Open ]], Cell[CellGroupData[{ Cell[200306, 4747, 3712, 118, 172, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], Cell[204021, 4867, 174, 3, 33, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] }, Open ]], Cell[CellGroupData[{ Cell[204232, 4875, 2052, 59, 92, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], Cell[206287, 4936, 574, 12, 38, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], Cell[206864, 4950, 580, 12, 38, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], Cell[207447, 4964, 582, 12, 38, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], Cell[208032, 4978, 456, 10, 26, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], Cell[208491, 4990, 171, 3, 33, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] }, Open ]], Cell[CellGroupData[{ Cell[208699, 4998, 2054, 59, 92, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], Cell[210756, 5059, 574, 12, 26, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], Cell[211333, 5073, 578, 12, 26, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], Cell[211914, 5087, 582, 12, 26, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], Cell[212499, 5101, 458, 10, 26, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], Cell[212960, 5113, 169, 3, 33, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] }, Open ]], Cell[CellGroupData[{ Cell[213166, 5121, 2030, 55, 51, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], Cell[215199, 5178, 20326, 381, 238, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] }, Open ]], Cell[235540, 5562, 2144, 61, 92, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], Cell[237687, 5625, 138, 3, 29, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], Cell[CellGroupData[{ Cell[237850, 5632, 1616, 48, 67, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], Cell[239469, 5682, 592, 12, 38, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], Cell[240064, 5696, 597, 12, 38, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], Cell[240664, 5710, 599, 12, 38, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], Cell[241266, 5724, 458, 10, 26, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], Cell[241727, 5736, 172, 3, 33, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] }, Open ]], Cell[CellGroupData[{ Cell[241936, 5744, 2249, 64, 62, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], Cell[244188, 5810, 576, 12, 38, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], Cell[244767, 5824, 580, 12, 38, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], Cell[245350, 5838, 582, 12, 38, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], Cell[245935, 5852, 456, 10, 26, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], Cell[246394, 5864, 171, 3, 33, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] }, Open ]], Cell[CellGroupData[{ Cell[246602, 5872, 2223, 64, 62, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], Cell[248828, 5938, 574, 12, 38, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], Cell[249405, 5952, 578, 12, 38, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], Cell[249986, 5966, 580, 12, 38, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], Cell[250569, 5980, 458, 10, 26, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], Cell[251030, 5992, 173, 3, 33, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] }, Open ]], Cell[CellGroupData[{ Cell[251240, 6000, 2221, 64, 62, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], Cell[253464, 6066, 574, 12, 38, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], Cell[254041, 6080, 578, 12, 38, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], Cell[254622, 6094, 582, 12, 38, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], Cell[255207, 6108, 455, 10, 26, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], Cell[255665, 6120, 170, 3, 33, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] }, Open ]], Cell[CellGroupData[{ Cell[255872, 6128, 215, 6, 46, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], Cell[256090, 6136, 174, 3, 33, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] }, Open ]], Cell[256279, 6142, 249, 5, 29, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ Cell[256553, 6151, 558, 19, 51, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], Cell[257114, 6172, 169, 3, 33, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] }, Open ]], Cell[CellGroupData[{ Cell[257320, 6180, 170, 5, 55, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], Cell[257493, 6187, 173, 3, 33, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] }, Open ]], Cell[CellGroupData[{ Cell[257703, 6195, 181, 5, 43, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], Cell[257887, 6202, 173, 3, 33, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] }, Open ]], Cell[CellGroupData[{ Cell[258097, 6210, 6055, 185, 195, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], Cell[264155, 6397, 174, 3, 33, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] }, Open ]], Cell[CellGroupData[{ Cell[264366, 6405, 368, 9, 41, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], Cell[264737, 6416, 172, 3, 33, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] }, Open ]], Cell[CellGroupData[{ Cell[264946, 6424, 6122, 187, 195, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], Cell[271071, 6613, 172, 3, 33, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] }, Open ]], Cell[CellGroupData[{ Cell[271280, 6621, 368, 9, 41, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], Cell[271651, 6632, 170, 3, 33, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] }, Open ]], Cell[CellGroupData[{ Cell[271858, 6640, 2663, 88, 115, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], Cell[274524, 6730, 173, 3, 33, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] }, Open ]], Cell[CellGroupData[{ Cell[274734, 6738, 2603, 85, 115, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], Cell[277340, 6825, 172, 3, 33, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] }, Open ]], Cell[CellGroupData[{ Cell[277549, 6833, 3712, 118, 172, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], Cell[281264, 6953, 172, 3, 33, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] }, Open ]], Cell[CellGroupData[{ Cell[281473, 6961, 2052, 59, 92, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], Cell[283528, 7022, 573, 12, 38, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], Cell[284104, 7036, 573, 12, 38, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], Cell[284680, 7050, 579, 12, 38, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], Cell[285262, 7064, 458, 10, 26, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], Cell[285723, 7076, 170, 3, 33, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] }, Open ]], Cell[CellGroupData[{ Cell[285930, 7084, 2052, 59, 92, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], Cell[287985, 7145, 573, 12, 38, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], Cell[288561, 7159, 575, 12, 38, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], Cell[289139, 7173, 579, 12, 38, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], Cell[289721, 7187, 458, 10, 26, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], Cell[290182, 7199, 169, 3, 33, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] }, Open ]], Cell[CellGroupData[{ Cell[290388, 7207, 2028, 55, 51, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], Cell[292419, 7264, 20296, 381, 236, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] }, Open ]], Cell[CellGroupData[{ Cell[312752, 7650, 2146, 61, 92, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], Cell[314901, 7713, 500, 11, 38, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], Cell[315404, 7726, 505, 11, 38, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], Cell[315912, 7739, 509, 11, 38, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], Cell[316424, 7752, 458, 10, 26, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], Cell[316885, 7764, 39609, 697, 232, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] }, Open ]], Cell[356509, 8464, 209, 5, 29, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], Cell[CellGroupData[{ Cell[356743, 8473, 1616, 48, 67, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], Cell[358362, 8523, 589, 12, 38, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], Cell[358954, 8537, 595, 12, 38, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], Cell[359552, 8551, 596, 12, 38, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], Cell[360151, 8565, 458, 10, 26, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], Cell[360612, 8577, 171, 3, 33, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] }, Open ]], Cell[CellGroupData[{ Cell[360820, 8585, 2249, 64, 62, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], Cell[363072, 8651, 573, 12, 38, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], Cell[363648, 8665, 573, 12, 38, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], Cell[364224, 8679, 579, 12, 38, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], Cell[364806, 8693, 458, 10, 26, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], Cell[365267, 8705, 174, 3, 70, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] }, Open ]], Cell[CellGroupData[{ Cell[365478, 8713, 2221, 64, 70, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], Cell[367702, 8779, 573, 12, 70, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], Cell[368278, 8793, 575, 12, 70, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], Cell[368856, 8807, 577, 12, 70, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], Cell[369436, 8821, 456, 10, 70, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], Cell[369895, 8833, 172, 3, 70, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] }, Open ]], Cell[CellGroupData[{ Cell[370104, 8841, 2219, 64, 70, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], Cell[372326, 8907, 571, 12, 70, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], Cell[372900, 8921, 573, 12, 70, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], Cell[373476, 8935, 579, 12, 70, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], Cell[374058, 8949, 458, 10, 70, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], Cell[374519, 8961, 172, 3, 70, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] }, Open ]], Cell[CellGroupData[{ Cell[374728, 8969, 211, 6, 70, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], Cell[374942, 8977, 174, 3, 70, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] }, Open ]] } ] *)