(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Wolfram 14.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] NotebookDataLength[ 443558, 10292] NotebookOptionsPosition[ 419104, 9917] NotebookOutlinePosition[ 419528, 9934] CellTagsIndexPosition[ 419485, 9931] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"f1", "="}]], "Input", CellChangeTimes->{ 3.9918469322950954`*^9},ExpressionUUID->"7c3e9316-835f-9e4b-9a49-\ 3b4d17d5ac6f"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991846933466057*^9, 3.991846933469059*^9}},ExpressionUUID->"583d3f2a-de58-8142-9cfe-\ a0e52258d17f"], Cell[BoxData[ RowBox[{"f2", "="}]], "Input", CellChangeTimes->{ 3.9918469351421127`*^9},ExpressionUUID->"20139eb5-401a-4b4a-9fa1-\ 5ac66a5ce03b"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918469363719063`*^9, 3.991846936376911*^9}},ExpressionUUID->"8f81c5bb-6006-6b49-93bb-\ 3460180e6492"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ir", "=", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"A1", "*", RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", CellLabel-> "In[399]:=",ExpressionUUID->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], Cell[BoxData["2.3793916761039797`*^-53"], "Output", CellChangeTimes->{3.9913437871842365`*^9}, CellLabel-> "Out[399]=",ExpressionUUID->"eee3e6f5-bf54-104d-aacb-1c5d9bb3da72"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Il", "=", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{ 3.991557655438551*^9, {3.991558360387518*^9, 3.991558363336605*^9}},ExpressionUUID->"c6441294-7eb2-2949-9da6-\ 67254244512f"], Cell[BoxData["8.839304777809617`*^-55"], "Output", CellChangeTimes->{3.9913437872132397`*^9}, CellLabel-> "Out[400]=",ExpressionUUID->"586d096a-2b7f-5a48-8ed7-66293c7d553c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ih", "=", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", CellChangeTimes->{{3.9915576595317745`*^9, 3.9915576617156334`*^9}, 3.991558357640812*^9},ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-\ 68faf6ac59e1"], Cell[BoxData["2.0384594858915346`*^-54"], "Output", CellChangeTimes->{3.9913437872412376`*^9}, CellLabel-> "Out[401]=",ExpressionUUID->"1ae1e3cd-cafb-3f45-96d4-d224b94de140"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qb3", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", CellLabel-> "In[402]:=",ExpressionUUID->"9284744b-e118-014c-8926-3a51fd91c939"], Cell[BoxData["27.24865368249903`"], "Output", CellChangeTimes->{3.9913437872672386`*^9}, CellLabel-> "Out[402]=",ExpressionUUID->"b31939a9-5d35-324a-8d19-2eccc9ab2e0c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qw3", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", CellLabel-> "In[403]:=",ExpressionUUID->"1aab4741-497a-9845-8d77-820f63cb5555"], Cell[BoxData["47.62007062351`"], "Output", CellChangeTimes->{3.991343787279253*^9}, CellLabel-> "Out[403]=",ExpressionUUID->"ea6f6b0c-3057-e14d-9c39-2b31eb0f9621"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", CellLabel-> "In[404]:=",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], Cell[BoxData["0.718596406513947`"], "Output", CellChangeTimes->{3.9913437873062572`*^9}, CellLabel-> "Out[404]=",ExpressionUUID->"bbbfe046-4dd1-6242-9bee-c0b76bc74cb2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", CellLabel-> "In[405]:=",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], Cell[BoxData["2.8712430196956706`"], "Output", CellChangeTimes->{3.9913437873353844`*^9}, CellLabel-> "Out[405]=",ExpressionUUID->"fcfc958d-7982-7143-ba12-796e90324801"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", CellLabel-> "In[406]:=",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], Cell[BoxData["136.72879537516795`"], "Output", CellChangeTimes->{3.991343787361582*^9}, CellLabel-> "Out[406]=",ExpressionUUID->"a7a34d03-2368-c24b-95db-201f96c75648"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", CellLabel-> "In[407]:=",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], Cell[BoxData["19.58078461858683`"], "Output", CellChangeTimes->{3.9913437873734856`*^9}, CellLabel-> "Out[407]=",ExpressionUUID->"97bb7b25-6ae9-8d4d-86be-4c22b9038464"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[408]:=",ExpressionUUID->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], Cell[BoxData["0.03116264120310575`"], "Output", CellChangeTimes->{3.9913437874002857`*^9}, CellLabel-> "Out[408]=",ExpressionUUID->"5427a866-023c-174b-9e6d-fbf8b8e707a5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[409]:=",ExpressionUUID->"c7e96eeb-d934-e843-a9c0-226435d03e38"], Cell[BoxData["5.020278507983894`"], "Output", CellChangeTimes->{3.9913437875033875`*^9}, CellLabel-> "Out[409]=",ExpressionUUID->"0d169b1a-2d1c-7b44-8942-0f9754dbfde4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o2", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[410]:=",ExpressionUUID->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], Cell[BoxData["0.011613560908040731`"], "Output", CellChangeTimes->{3.9913437875342865`*^9}, CellLabel-> "Out[410]=",ExpressionUUID->"234d4d05-30cf-8546-8a4c-8e92b174dd54"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[411]:=",ExpressionUUID->"344c5706-3a8a-754a-b4da-5866eb210a38"], Cell[BoxData["8.223604958038852`"], "Output", CellChangeTimes->{3.9913437876352882`*^9}, CellLabel-> "Out[411]=",ExpressionUUID->"04e9f189-3e04-ae43-be68-86210fdb22c2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h1", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[412]:=",ExpressionUUID->"39da6bde-a34a-f944-af17-b87c664ce50c"], Cell[BoxData["0.6975316474635891`"], "Output", CellChangeTimes->{3.991343787650694*^9}, CellLabel-> "Out[412]=",ExpressionUUID->"0cadffd6-f139-f648-ad7f-793752291569"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h2", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[413]:=",ExpressionUUID->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], Cell[BoxData["0.3024683525364109`"], "Output", CellChangeTimes->{3.9913437876776943`*^9}, CellLabel-> "Out[413]=",ExpressionUUID->"4e20a900-1f64-424e-9fdb-3d89088a0768"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h3", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}]}], ")"}], "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> "In[414]:=",ExpressionUUID->"ddf61768-a227-c447-bfc3-df30c7b64565"], Cell[BoxData["0.21098124825032033`"], "Output", CellChangeTimes->{3.9913437877049465`*^9}, CellLabel-> "Out[414]=",ExpressionUUID->"068ebb27-1be5-6c40-8bf8-2f0268f5216d"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0a12571c-0d3c-\ 324d-9fb1-59d5c707bb07"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.991846957646223*^9},ExpressionUUID->"61186e9c-fdd7-7943-9937-\ 691e3ab971c8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 415, 433, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913437877189426`*^9}, CellLabel-> "During evaluation of \ In[415]:=",ExpressionUUID->"3bfa23d6-b5a3-e944-a9bb-ca6e68d969fe"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 415, 434, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991343787730139*^9}, CellLabel-> "During evaluation of \ In[415]:=",ExpressionUUID->"b8fe04c8-adbe-0e49-b84c-7c9b51bb8636"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 415, 435, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913437877381363`*^9}, CellLabel-> "During evaluation of \ In[415]:=",ExpressionUUID->"427779f4-4b28-5543-9a01-503bd7cdf693"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 415, 436, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991343787747137*^9}, CellLabel-> "During evaluation of \ In[415]:=",ExpressionUUID->"f6221017-7213-3b49-a432-06b611d306e1"], Cell[BoxData["5.020278507983898`"], "Output", CellChangeTimes->{3.991343791131052*^9}, CellLabel-> "Out[415]=",ExpressionUUID->"8ac7cd76-8447-3745-aaee-2af284a32577"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.9918469611416626`*^9},ExpressionUUID->"9256a2f6-45c2-e140-bcdd-\ 85d8e1970f4a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 416, 437, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913437911686516`*^9}, CellLabel-> "During evaluation of \ In[416]:=",ExpressionUUID->"2a7e3aab-a746-1146-b27a-e663e8cd1152"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 416, 438, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.99134379117865*^9}, CellLabel-> "During evaluation of \ In[416]:=",ExpressionUUID->"7b5059be-83df-794a-9d63-d309a35a2ce1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 416, 439, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913437911866493`*^9}, CellLabel-> "During evaluation of \ In[416]:=",ExpressionUUID->"53abd70a-2c4f-7046-be11-447ced8cdefb"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 416, 440, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913437911946507`*^9}, CellLabel-> "During evaluation of \ In[416]:=",ExpressionUUID->"64cbc54f-20f2-ce4f-b6f2-0ea91eeb179c"], Cell[BoxData["8.223604958038848`"], "Output", CellChangeTimes->{3.991343794599764*^9}, CellLabel-> "Out[416]=",ExpressionUUID->"bd8591b1-ba8a-6b40-b518-84bec35d20f2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", RowBox[{"Cos", "[", FractionBox[ RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.991846968477251*^9},ExpressionUUID->"2543960d-965e-7a4e-aecb-\ 694d21d63061"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf 41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE 5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz 2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf 81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE 965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q 12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd 7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 /oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS 8X7ZCUqv+v+2j8xX "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf 41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE 5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz 2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf 81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE 965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q 12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd 7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 /oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS 8X7ZCUqv+v+2j8xX "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.7504249066936067}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.7504249066936067}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{115.12306105754324`, 253.30690491292427`}, {-15.402138689748767`, 5.769736310251233}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf 41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE 5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz 2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf 81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE 965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q 12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd 7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 /oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS 8X7ZCUqv+v+2j8xX "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.7504249066936067}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.7504249066936067}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 180}, {0.7504249066936051, 1.313047485013753}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9913440619685707`*^9}, CellLabel-> "Out[417]=",ExpressionUUID->"609377ee-fc16-7c4a-9e56-8f28efda1b3b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.991846972527668*^9, 3.9918469897830563`*^9}},ExpressionUUID->"e19ad739-7d82-2c45-9f2a-\ a1d24bf6372a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 418, 441, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913440621885586`*^9}, CellLabel-> "During evaluation of \ In[418]:=",ExpressionUUID->"108a1881-cb0d-bd45-a774-02403dfdab8d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 418, 442, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913440621975574`*^9}, CellLabel-> "During evaluation of \ In[418]:=",ExpressionUUID->"fb491355-d244-9746-9ef1-167761fef655"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.599262146182568`*^-296\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 418, 443, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991344062205559*^9}, CellLabel-> "During evaluation of \ In[418]:=",ExpressionUUID->"a75a12d7-3727-3447-b8ef-6f1b5b957750"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 418, 444, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.99134406221356*^9}, CellLabel-> "During evaluation of \ In[418]:=",ExpressionUUID->"5a45253c-33f9-ee48-80d9-da0679c1ba8a"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ 494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn 5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF 7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ +1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN 3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV 7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD 55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK +Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK +fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em 6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb 6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg 7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn 9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy 8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt 06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E 97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z +FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i 3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv +isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu 2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k 7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO 8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK +5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz 95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn 0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx 5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc 0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO /joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF 6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A 9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg 7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC 1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy 0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG /aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c 4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st /KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp 13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F 4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha +OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM 4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo 9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl 5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j 1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg 75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu 8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK 74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW 38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 /KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 +VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg 9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM xZ+NDXq9HfXOhZcGEP8DWaJNdQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ 494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn 5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF 7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ +1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN 3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV 7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD 55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK +Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK +fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em 6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb 6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg 7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn 9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy 8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt 06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E 97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z +FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i 3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv +isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu 2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k 7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO 8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK +5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz 95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn 0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx 5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc 0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO /joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF 6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A 9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg 7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC 1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy 0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG /aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c 4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st /KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp 13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F 4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha +OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM 4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo 9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl 5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j 1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg 75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu 8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK 74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW 38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 /KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 +VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg 9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM xZ+NDXq9HfXOhZcGEP8DWaJNdQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ 494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn 5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF 7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ +1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN 3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV 7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD 55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK +Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK +fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em 6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb 6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg 7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn 9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy 8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt 06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E 97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z +FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i 3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv +isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu 2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k 7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO 8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK +5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz 95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn 0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx 5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc 0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO /joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF 6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A 9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg 7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC 1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy 0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG /aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c 4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st /KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp 13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F 4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha +OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM 4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo 9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl 5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j 1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg 75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu 8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK 74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW 38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 /KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 +VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg 9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM xZ+NDXq9HfXOhZcGEP8DWaJNdQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.99134491550045*^9}, CellLabel-> "Out[418]=",ExpressionUUID->"3fb98a86-5ada-4149-bdd3-377ee3650435"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", RowBox[{"{", "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, 3.9917953263701286`*^9},ExpressionUUID->"0442afd4-ab7e-8942-9b0e-\ e14520d1eea3"], Cell[BoxData[ GraphicsBox[{{}, InterpretationBox[{ TagBox[ TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> { Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[2]], Directive[ RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[2]], Directive[ RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[2]], Directive[ RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[2]], Directive[ RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[2]], Directive[ RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[2]], Directive[ RGBColor[1, 0.75, 0], AbsoluteThickness[2]], Directive[ RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[2]], Directive[ RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[2]], Directive[ RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[2]], Directive[ RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[2]], Directive[ RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[2]], Directive[ RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[2]], Directive[ RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 52.}, {0, 0.120683}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9917148467316074`*^9}, CellLabel-> "Out[529]=",ExpressionUUID->"997db581-4738-a842-88e4-b1aa3e4c74be"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { 3.991795329890896*^9, 3.99179533223897*^9}},ExpressionUUID->"9478c59b-a5b4-1043-afe6-\ 75ae56a5fd89"], Cell[BoxData[ TemplateBox[{ "Show", "gcomb", "\"Could not combine the graphics objects in \ \\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ List[List[None, None], List[None, None]]], Rule[FrameTicks, \ List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ \\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ \"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ 52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, CellLabel-> "During evaluation of \ In[532]:=",ExpressionUUID->"353dc940-eaf1-f54e-96b3-c89d28ca1091"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x130", ",", GraphicsBox[{{}, InterpretationBox[{ TagBox[ TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> { Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[2]], Directive[ RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[2]], Directive[ RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[2]], Directive[ RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[2]], Directive[ RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[2]], Directive[ RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[2]], Directive[ RGBColor[1, 0.75, 0], AbsoluteThickness[2]], Directive[ RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[2]], Directive[ RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[2]], Directive[ RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[2]], Directive[ RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[2]], Directive[ RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[2]], Directive[ RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[2]], Directive[ RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 52.}, {0, 0.120683}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]}], "]"}]], "Output", CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, CellLabel-> "Out[532]=",ExpressionUUID->"5849f411-23c3-1f49-9ddc-70ae5bfac752"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"L130", "=", FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", CellLabel-> "In[420]:=",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], Cell[BoxData["10.362747935330784`"], "Output", CellChangeTimes->{3.9913453868532257`*^9}, CellLabel-> "Out[420]=",ExpressionUUID->"856c94f8-a219-f048-b225-011837a6e00a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"L130", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellLabel-> "In[421]:=",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 421, 449, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991345387062414*^9}, CellLabel-> "During evaluation of \ In[421]:=",ExpressionUUID->"814ee749-2cde-7245-9b7e-69b30787da15"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 421, 450, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991345387076412*^9}, CellLabel-> "During evaluation of \ In[421]:=",ExpressionUUID->"af05aa14-ccc3-9040-b043-2aa272509b41"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ \"", 2, 421, 451, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991345387088339*^9}, CellLabel-> "During evaluation of \ In[421]:=",ExpressionUUID->"c8d85ed0-fe8f-c945-af5e-55ea809c674a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 421, 452, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913453870973415`*^9}, CellLabel-> "During evaluation of \ In[421]:=",ExpressionUUID->"320c3ecd-1b7b-6744-991f-5112ad4520bf"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi 4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw 2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY /nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z 20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC +3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW 221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp +zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e 7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs 6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA 2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK /HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ 497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg 8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS 9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu +7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN 8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D 3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP 8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz 0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T 7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ 8VF94vJg1Az+B+ielp4= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi 4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw 2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY /nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z 20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC +3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW 221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp +zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e 7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs 6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA 2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK /HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ 497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg 8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS 9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu +7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN 8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D 3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP 8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz 0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T 7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ 8VF94vJg1Az+B+ielp4= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi 4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw 2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY /nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z 20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC +3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW 221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp +zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e 7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs 6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA 2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK /HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ 497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg 8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS 9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu +7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN 8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D 3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP 8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz 0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T 7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ 8VF94vJg1Az+B+ielp4= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 30}, {0., 0.07335635796919572}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9913457856953163`*^9}, CellLabel-> "Out[421]=",ExpressionUUID->"03e3bbb2-7d95-6f47-8763-c6796c705c92"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> "In[422]:=",ExpressionUUID->"3d764097-ec6b-e749-9f31-cab8832af315"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ \\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ 7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 422, 453, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991345785749161*^9}, CellLabel-> "During evaluation of \ In[422]:=",ExpressionUUID->"a4ce5518-811f-8349-a17b-d2bf1297144e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ \\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ 35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 422, 454, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991345785759161*^9}, CellLabel-> "During evaluation of \ In[422]:=",ExpressionUUID->"f5111cd7-2c56-5e45-8f8e-8a05bf9b95a2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ \\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ 54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 422, 455, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991345785767502*^9}, CellLabel-> "During evaluation of \ In[422]:=",ExpressionUUID->"38176049-5d0a-d741-93c1-c658e0a1af06"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 422, 456, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913457857765007`*^9}, CellLabel-> "During evaluation of \ In[422]:=",ExpressionUUID->"d16a134c-2a3f-da45-9fb2-6550e1a86488"], Cell[BoxData["10.362747935330768`"], "Output", CellChangeTimes->{3.991345792196575*^9}, CellLabel-> "Out[422]=",ExpressionUUID->"2f22685f-8c37-684f-9766-884eff532552"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "*", RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991847002744938*^9, 3.9918470078833466`*^9}},ExpressionUUID->"94c81ca6-5acf-1648-b9d8-\ a303cc71dab7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 423, 457, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991345792232563*^9}, CellLabel-> "During evaluation of \ In[423]:=",ExpressionUUID->"4ed16eac-aa41-bc43-949b-97ab0e84980a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 423, 458, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991345792242544*^9}, CellLabel-> "During evaluation of \ In[423]:=",ExpressionUUID->"90cf97c3-411e-6d4b-bad4-f62835c46e4c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 423, 459, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913457922505417`*^9}, CellLabel-> "During evaluation of \ In[423]:=",ExpressionUUID->"f57ff7ba-dfca-eb44-912d-da23358d49ca"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 423, 460, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913457922595577`*^9}, CellLabel-> "During evaluation of \ In[423]:=",ExpressionUUID->"b9781b1e-c411-054b-ac86-e24155108e57"], Cell[BoxData["0.32136877427435395`"], "Output", CellChangeTimes->{3.991345799137081*^9}, CellLabel-> "Out[423]=",ExpressionUUID->"597cf6d6-a43f-8b49-bc71-101a9cb09e95"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918470141153297`*^9, 3.991847018285223*^9}},ExpressionUUID->"d789fb78-c161-1741-b7b8-\ 90fa3d585b38"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 424, 461, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913457991730843`*^9}, CellLabel-> "During evaluation of \ In[424]:=",ExpressionUUID->"42c57f6e-4641-0f42-b0dd-b86a5ad2dfe9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 424, 462, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913457991830807`*^9}, CellLabel-> "During evaluation of \ In[424]:=",ExpressionUUID->"d128fb64-8fa5-1e4d-a5ed-889242afc70f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 424, 463, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991345799191578*^9}, CellLabel-> "During evaluation of \ In[424]:=",ExpressionUUID->"b905e7eb-c247-1242-a8bc-aaa9779d376e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 424, 464, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913457992005787`*^9}, CellLabel-> "During evaluation of \ In[424]:=",ExpressionUUID->"fc538907-32f5-a34f-9b6b-76d90e786319"], Cell[BoxData["6.886509882261309`"], "Output", CellChangeTimes->{3.991345804559931*^9}, CellLabel-> "Out[424]=",ExpressionUUID->"de957708-f977-9848-9f79-7201648cd385"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918470289577656`*^9, 3.99184703187117*^9}},ExpressionUUID->"98f8448c-bc27-4646-9fd2-\ f2c22cf9b4d2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 425, 465, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913458046014442`*^9}, CellLabel-> "During evaluation of \ In[425]:=",ExpressionUUID->"cc7d691e-f34a-f24f-9ae8-91d0fac0de8f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 425, 466, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913458046114445`*^9}, CellLabel-> "During evaluation of \ In[425]:=",ExpressionUUID->"e2a59359-7911-7442-a0f3-73fa99ebe8ee"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 425, 467, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991345804619444*^9}, CellLabel-> "During evaluation of \ In[425]:=",ExpressionUUID->"191c175a-4a14-3f4a-aca6-3833ea4390d8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 425, 468, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913458046274433`*^9}, CellLabel-> "During evaluation of \ In[425]:=",ExpressionUUID->"e149580c-1c12-0145-b9d5-38404db9a3ce"], Cell[BoxData["18.478556086442907`"], "Output", CellChangeTimes->{3.991345807954506*^9}, CellLabel-> "Out[425]=",ExpressionUUID->"497174af-5058-2544-9743-796d2255db6b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.991847036891796*^9, 3.9918470411375484`*^9}},ExpressionUUID->"c0718b2f-c4a4-934b-afa0-\ c67e8ff1bd9c"], Cell[BoxData["0.028488532115740543`"], "Output", CellChangeTimes->{3.991345807987507*^9}, CellLabel-> "Out[426]=",ExpressionUUID->"e7135af2-919e-634d-88c2-bc305d038b62"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991847043896475*^9, 3.991847046265915*^9}, 3.991923721144022*^9},ExpressionUUID->"73fa861d-79d1-6043-8b49-\ ac6d11636734"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qb2", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> "In[428]:=",ExpressionUUID->"6c38f559-2389-4242-bc4d-38979252b0b4"], Cell[BoxData["8.947947137013426`"], "Output", CellChangeTimes->{3.991345808020666*^9}, CellLabel-> "Out[428]=",ExpressionUUID->"fea30492-36d2-7045-88cc-aae9158fb839"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> "In[430]:=",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], Cell[BoxData["1.2539951617800844`"], "Output", CellChangeTimes->{3.9913458080616665`*^9}, CellLabel-> "Out[430]=",ExpressionUUID->"e81ecb9b-5a01-e843-870e-5e384d1e28cc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> "In[433]:=",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], Cell[BoxData["11.220682417678793`"], "Output", CellChangeTimes->{3.991345808188246*^9}, CellLabel-> "Out[433]=",ExpressionUUID->"43bb0088-17d8-d048-a253-fc8b6be59a68"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[434]:=",ExpressionUUID->"79eeca66-2446-f741-8700-944472de348f"], Cell[BoxData["0.04214145338799881`"], "Output", CellChangeTimes->{3.991345808220566*^9}, CellLabel-> "Out[434]=",ExpressionUUID->"338ae54a-64ed-994b-af22-96a296166408"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[435]:=",ExpressionUUID->"9790a07a-bad8-674c-aada-41e3d20aeff5"], Cell[BoxData["4.317080886816563`"], "Output", CellChangeTimes->{3.9913458083195686`*^9}, CellLabel-> "Out[435]=",ExpressionUUID->"e206cd3a-25d4-eb48-899a-45dd7defc5fe"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o2", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[436]:=",ExpressionUUID->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], Cell[BoxData["0.012862376162526763`"], "Output", CellChangeTimes->{3.991345808334568*^9}, CellLabel-> "Out[436]=",ExpressionUUID->"a5cbfc1b-c447-724b-a144-ad8475ce711a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[437]:=",ExpressionUUID->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], Cell[BoxData["7.814196669618258`"], "Output", CellChangeTimes->{3.991345808432392*^9}, CellLabel-> "Out[437]=",ExpressionUUID->"6f6d3be7-a8ef-df41-96c9-fca809317a9d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h1", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[438]:=",ExpressionUUID->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], Cell[BoxData["0.6975316474635891`"], "Output", CellChangeTimes->{3.991345808448488*^9}, CellLabel-> "Out[438]=",ExpressionUUID->"e1c5a778-dccd-8443-98b9-732ae795c2ac"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h2", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[439]:=",ExpressionUUID->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], Cell[BoxData["0.3024683525364109`"], "Output", CellChangeTimes->{3.9913458084773808`*^9}, CellLabel-> "Out[439]=",ExpressionUUID->"4063f10b-c9dc-f24d-8ad2-77cf2302aa5c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h3", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}]}], ")"}], "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> "In[440]:=",ExpressionUUID->"46415a4e-0839-a640-a9be-83fc8d482c42"], Cell[BoxData["0.21098124825032033`"], "Output", CellChangeTimes->{3.9913458085134735`*^9}, CellLabel-> "Out[440]=",ExpressionUUID->"fa8f93a6-4eb6-b44c-a934-4b4d3f7a051e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.991847118583315*^9},ExpressionUUID->"33a64b79-213d-c445-8c32-\ 436b16263096"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 441, 469, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913458085463753`*^9}, CellLabel-> "During evaluation of \ In[441]:=",ExpressionUUID->"88717102-665c-9946-ac95-81e91596f1a3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 441, 470, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913458085563755`*^9}, CellLabel-> "During evaluation of \ In[441]:=",ExpressionUUID->"fef05ccf-1889-484a-ad95-0ed0a53f85b4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ \\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ 7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 441, 471, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991345808564377*^9}, CellLabel-> "During evaluation of \ In[441]:=",ExpressionUUID->"c1de584c-2f89-774b-b751-1278ba9a8d1f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 441, 472, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913458085733776`*^9}, CellLabel-> "During evaluation of \ In[441]:=",ExpressionUUID->"24f5f743-5338-9641-885e-a4948c5c9d6e"], Cell[BoxData["4.317080886816564`"], "Output", CellChangeTimes->{3.9913458125059433`*^9}, CellLabel-> "Out[441]=",ExpressionUUID->"e0668815-ad18-f946-aefd-da0b1916d420"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.9918471223197117`*^9},ExpressionUUID->"a558e928-6d30-db4d-81da-\ 8e12b46e0cf1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 442, 473, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991345812542961*^9}, CellLabel-> "During evaluation of \ In[442]:=",ExpressionUUID->"52373f6a-60b2-bf48-9785-d2499fa543af"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 442, 474, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991345812552984*^9}, CellLabel-> "During evaluation of \ In[442]:=",ExpressionUUID->"1ff9836d-6279-2340-8080-e305c05b649e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ \\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ 7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 442, 475, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.99134581256196*^9}, CellLabel-> "During evaluation of \ In[442]:=",ExpressionUUID->"983d828c-78d1-1441-bba2-2e64fa6b8f6f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 442, 476, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991345812570959*^9}, CellLabel-> "During evaluation of \ In[442]:=",ExpressionUUID->"dd795d07-bc4f-2b40-8351-e980cc967c15"], Cell[BoxData["7.8141966696182585`"], "Output", CellChangeTimes->{3.991345816415531*^9}, CellLabel-> "Out[442]=",ExpressionUUID->"17c8f52c-8091-bf41-b7c9-160a5315608c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "1"], RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", RowBox[{"Cos", "[", FractionBox[ RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9918471264328136`*^9},ExpressionUUID->"c2f625be-331c-a24f-ad5b-\ 6daaa9131a45"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu 7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U 1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj 3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx 5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD 6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia 12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya 0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX 7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v +j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj 3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo 8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp 4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F 8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo 5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu 7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U 1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj 3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx 5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD 6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia 12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya 0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX 7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v +j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj 3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo 8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp 4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F 8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo 5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.4834141591801878}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.4834141591801878}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu 7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U 1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj 3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx 5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD 6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia 12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya 0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX 7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v +j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj 3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo 8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp 4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F 8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo 5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.4834141591801878}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.4834141591801878}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9913460797739086`*^9}, CellLabel-> "Out[443]=",ExpressionUUID->"7a9be15e-f600-1b49-a731-c78d88a43ea5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9918471776293755`*^9, {3.9918474259081*^9, 3.991847426207552*^9}},ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-\ 88bfd4c0e0d2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.7282513679946418`*^-262\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 444, 477, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991346080016945*^9}, CellLabel-> "During evaluation of \ In[444]:=",ExpressionUUID->"fcd06738-edc8-474f-b579-5c8fba66d5d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 444, 478, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991346080026985*^9}, CellLabel-> "During evaluation of \ In[444]:=",ExpressionUUID->"9de7c9a4-4b93-0b4f-9a25-4f1d7917ab21"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 444, 479, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913460800358925`*^9}, CellLabel-> "During evaluation of \ In[444]:=",ExpressionUUID->"03ef6a33-8701-ef42-bc6a-4a21f0a09522"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 444, 480, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991346080043894*^9}, CellLabel-> "During evaluation of \ In[444]:=",ExpressionUUID->"038a3a74-0bc1-c44d-9c90-bf60eda4a7bc"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx /f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu +ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo 7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk +8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ 8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv 40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw 00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA 3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY 8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ 6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW /AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU +iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q 3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb 3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV 6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV 7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR 17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J 2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN 5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh 9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb 3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E 8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf 2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ 1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y /2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX 3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP 3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx /f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu +ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo 7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk +8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ 8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv 40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw 00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA 3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY 8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ 6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW /AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU +iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q 3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb 3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV 6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV 7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR 17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J 2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN 5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh 9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb 3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E 8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf 2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ 1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y /2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX 3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP 3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx /f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu +ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo 7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk +8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ 8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv 40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw 00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA 3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY 8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ 6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW /AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU +iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q 3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb 3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV 6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV 7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR 17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J 2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN 5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh 9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb 3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E 8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf 2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ 1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y /2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX 3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP 3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 15}, {0., 0.1760850255633475}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9913465524249306`*^9}, CellLabel-> "Out[444]=",ExpressionUUID->"1c17de43-a886-0b4f-ac6b-9644b9c88ec7"] }, Open ]], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"b4bea72a-7a20-\ da43-afca-38c9d924f08e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> "In[448]:=",ExpressionUUID->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ \\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ 116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ is too small to represent as a normalized machine number; precision may be \ lost.\"", 2, 448, 489, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991347571140808*^9}, CellLabel-> "During evaluation of \ In[448]:=",ExpressionUUID->"f479187b-9eda-204a-88bb-4f36ab0a2712"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ \\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ 2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ \\) is too small to represent as a normalized machine number; precision may \ be lost.\"", 2, 448, 490, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913475711508217`*^9}, CellLabel-> "During evaluation of \ In[448]:=",ExpressionUUID->"f832b030-dfa8-5847-8a8e-714d29039227"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ \\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ 2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ \"]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913475711592274`*^9}, CellLabel-> "During evaluation of \ In[448]:=",ExpressionUUID->"c86ba442-eaba-9f46-8c0c-52b951d5bfb0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 448, 492, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913475711683846`*^9}, CellLabel-> "During evaluation of \ In[448]:=",ExpressionUUID->"dc6d10bb-5f0b-8545-9e40-4768fde2dbc1"], Cell[BoxData["10.362747935330763`"], "Output", CellChangeTimes->{3.991347578228073*^9}, CellLabel-> "Out[448]=",ExpressionUUID->"7d6c1b18-ad7f-3448-8021-ab5886691637"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "*", RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918472030801735`*^9, 3.9918472073134327`*^9}},ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-\ 9e266c1ec152"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 449, 493, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991347578265545*^9}, CellLabel-> "During evaluation of \ In[449]:=",ExpressionUUID->"01da16e0-14b6-bf48-a829-a262126159db"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 449, 494, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991347578275551*^9}, CellLabel-> "During evaluation of \ In[449]:=",ExpressionUUID->"4bf24ca6-4e30-e94a-be43-cf8e5608fc87"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ \\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ 7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 449, 495, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913475782835484`*^9}, CellLabel-> "During evaluation of \ In[449]:=",ExpressionUUID->"006741fa-e30f-4b44-972c-035fe0e9a3bf"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 449, 496, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913475782930756`*^9}, CellLabel-> "During evaluation of \ In[449]:=",ExpressionUUID->"cf218763-64fa-3446-a7cd-1c601e3a0059"], Cell[BoxData["1.4359199941844076`"], "Output", CellChangeTimes->{3.9913475858902473`*^9}, CellLabel-> "Out[449]=",ExpressionUUID->"65c43bde-9dc5-1442-ba50-c6fa98b8835b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918472136550217`*^9, 3.9918472163537464`*^9}},ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-\ 46a9d151a60a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 450, 497, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913475859272156`*^9}, CellLabel-> "During evaluation of \ In[450]:=",ExpressionUUID->"592083af-558d-0641-832e-e27a751915bd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 450, 498, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991347585937319*^9}, CellLabel-> "During evaluation of \ In[450]:=",ExpressionUUID->"66370498-e112-fa4b-a8af-1fcc4f9e1213"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ \\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ 7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 450, 499, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913475859463177`*^9}, CellLabel-> "During evaluation of \ In[450]:=",ExpressionUUID->"84900485-cd47-2c49-9717-bd11f4470d4b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 450, 500, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913475859543304`*^9}, CellLabel-> "During evaluation of \ In[450]:=",ExpressionUUID->"07a10e89-58d6-6b49-8cb3-9461aae3594b"], Cell[BoxData["5.09241659576143`"], "Output", CellChangeTimes->{3.9913475931276417`*^9}, CellLabel-> "Out[450]=",ExpressionUUID->"82e8998a-3c72-6247-9df9-94b065408465"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918472906473484`*^9, 3.9918472935952396`*^9}},ExpressionUUID->"36639f46-66ce-b34a-8a89-\ e422f177de00"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 451, 501, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.99134759316485*^9}, CellLabel-> "During evaluation of \ In[451]:=",ExpressionUUID->"fda4f669-ecf2-4d4e-b48b-3afcc84ca1c4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 451, 502, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991347593173849*^9}, CellLabel-> "During evaluation of \ In[451]:=",ExpressionUUID->"36a981e6-ab0a-6c43-9d36-e415d38164fb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ \\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ 7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 451, 503, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991347593182852*^9}, CellLabel-> "During evaluation of \ In[451]:=",ExpressionUUID->"4b3aecb3-626b-d84a-940e-7ff8608fd52c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 451, 504, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913475931908703`*^9}, CellLabel-> "During evaluation of \ In[451]:=",ExpressionUUID->"8319d34b-55d1-094b-9206-d0c33b2abbd6"], Cell[BoxData["16.684462799943017`"], "Output", CellChangeTimes->{3.9913475973006153`*^9}, CellLabel-> "Out[451]=",ExpressionUUID->"c60c830d-34c5-f541-b310-49552ac2034c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.991847296668375*^9, 3.991847300654911*^9}},ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-\ 20d331e64105"], Cell[BoxData["0.15578016747845222`"], "Output", CellChangeTimes->{3.991347597341627*^9}, CellLabel-> "Out[452]=",ExpressionUUID->"278ae42a-5de9-444e-9245-d09cf8d28509"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.99184730319516*^9, 3.991847305889347*^9}, 3.991923738541313*^9},ExpressionUUID->"bb206cb0-d23b-e24e-876b-\ f9f1b2cbe57a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qb1", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> "In[454]:=",ExpressionUUID->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], Cell[BoxData["12.368532070745184`"], "Output", CellChangeTimes->{3.991347597372614*^9}, CellLabel-> "Out[454]=",ExpressionUUID->"8f491dd5-7bfd-b341-b43c-c3a9d183ce9d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> "In[456]:=",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], Cell[BoxData["1.0665924029125342`"], "Output", CellChangeTimes->{3.991347597428034*^9}, CellLabel-> "Out[456]=",ExpressionUUID->"b9d3b5de-b2b7-e44d-bc5c-44767d89cf65"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> "In[459]:=",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], Cell[BoxData["13.192182341836848`"], "Output", CellChangeTimes->{3.9913475974971066`*^9}, CellLabel-> "Out[459]=",ExpressionUUID->"6b8a7f35-f691-844e-aeda-7cce2cf01b4d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[460]:=",ExpressionUUID->"78b2a753-17fc-484f-a953-d278346207ad"], Cell[BoxData["0.038908834568544604`"], "Output", CellChangeTimes->{3.991347597528105*^9}, CellLabel-> "Out[460]=",ExpressionUUID->"4011df14-d624-cf4c-ba4a-7e4d30ff836f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[461]:=",ExpressionUUID->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], Cell[BoxData["4.492838724335521`"], "Output", CellChangeTimes->{3.9913475976441536`*^9}, CellLabel-> "Out[461]=",ExpressionUUID->"d4677fbf-c75c-ca43-b340-204087aa8c86"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o2", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[462]:=",ExpressionUUID->"75baa02d-f77e-e542-9519-8afd2f729182"], Cell[BoxData["0.012544276227890849`"], "Output", CellChangeTimes->{3.991347597671173*^9}, CellLabel-> "Out[462]=",ExpressionUUID->"57c3e5a5-34bb-e842-b4a4-6bfbe7fe997b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[463]:=",ExpressionUUID->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], Cell[BoxData["7.912653285153153`"], "Output", CellChangeTimes->{3.9913475977705975`*^9}, CellLabel-> "Out[463]=",ExpressionUUID->"dc513bc7-ae9a-0043-ae49-195b0da7d4ae"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h1", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[464]:=",ExpressionUUID->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], Cell[BoxData["0.6975316474635891`"], "Output", CellChangeTimes->{3.9913475977856007`*^9}, CellLabel-> "Out[464]=",ExpressionUUID->"8d685ee2-dc72-774b-bbc8-778682e632d2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h2", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[465]:=",ExpressionUUID->"482f62c1-da9c-ae43-adda-68c26afa85d0"], Cell[BoxData["0.3024683525364109`"], "Output", CellChangeTimes->{3.991347597813669*^9}, CellLabel-> "Out[465]=",ExpressionUUID->"c69ac66b-aa24-cb4d-9510-bfa972119e6b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h3", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}]}], ")"}], "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> "In[466]:=",ExpressionUUID->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], Cell[BoxData["0.21098124825032033`"], "Output", CellChangeTimes->{3.9913475978426323`*^9}, CellLabel-> "Out[466]=",ExpressionUUID->"1c470c55-d28c-4543-be1f-6a28be0ba400"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.991847320104244*^9},ExpressionUUID->"61630af4-ce16-4645-bd89-\ fd67d7ba48d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 467, 505, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991347597872814*^9}, CellLabel-> "During evaluation of \ In[467]:=",ExpressionUUID->"43a2687a-b1fe-f34f-89ff-c066d808b1f9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 467, 506, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913475978828144`*^9}, CellLabel-> "During evaluation of \ In[467]:=",ExpressionUUID->"4af47df9-8236-7241-95f9-152813b1879a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 467, 507, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991347597891815*^9}, CellLabel-> "During evaluation of \ In[467]:=",ExpressionUUID->"6b7cc034-1771-4d40-a1be-6400e7b80609"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 467, 508, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991347597900812*^9}, CellLabel-> "During evaluation of \ In[467]:=",ExpressionUUID->"3f4e0008-1259-8f45-ad63-fd8d4329e9ae"], Cell[BoxData["4.492838724335523`"], "Output", CellChangeTimes->{3.9913476018505497`*^9}, CellLabel-> "Out[467]=",ExpressionUUID->"e57330fd-c13c-984d-8ddc-a0b641a07ec3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.991847326557415*^9},ExpressionUUID->"b8324bb7-c44f-6342-bd59-\ 920c679e8136"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 468, 509, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913476018885117`*^9}, CellLabel-> "During evaluation of \ In[468]:=",ExpressionUUID->"29405dbd-598a-ef40-a6b1-6fd2363b1575"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 468, 510, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.99134760189851*^9}, CellLabel-> "During evaluation of \ In[468]:=",ExpressionUUID->"ad96af95-7997-6e4b-bb29-aba6a927545b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 468, 511, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913476019065113`*^9}, CellLabel-> "During evaluation of \ In[468]:=",ExpressionUUID->"bbc2b8eb-1cbf-044c-9f8a-9437e2069bad"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 468, 512, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913476019158936`*^9}, CellLabel-> "During evaluation of \ In[468]:=",ExpressionUUID->"153f64f2-c43c-3945-815f-e938e8bf1d5a"], Cell[BoxData["7.912653285153152`"], "Output", CellChangeTimes->{3.9913476058912296`*^9}, CellLabel-> "Out[468]=",ExpressionUUID->"cd0f4614-a592-5544-b5ef-4fad0c35ca7c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "1"], RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", RowBox[{"Cos", "[", FractionBox[ RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9918473312384872`*^9},ExpressionUUID->"a8eb6c66-2550-3146-b69f-\ 2cd48e2cafc8"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud 1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D 6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x 1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp 0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb /FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn 27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO 3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ +ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE 1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI 9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo 7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W +uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th /o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t +1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX wTw= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud 1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D 6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x 1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp 0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb /FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn 27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO 3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ +ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE 1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI 9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo 7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W +uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th /o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t +1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX wTw= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.5511670383120088}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.5511670383120088}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud 1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D 6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x 1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp 0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb /FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn 27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO 3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ +ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE 1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI 9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo 7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W +uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th /o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t +1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX wTw= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.5511670383120088}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.5511670383120088}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.991347865018469*^9}, CellLabel-> "Out[469]=",ExpressionUUID->"fde4983c-8a31-cc4e-87c4-d107fc324654"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9918473358384743`*^9, {3.9918474091630096`*^9, 3.9918474093563137`*^9}},ExpressionUUID->"29fc72a2-353e-bf42-8947-\ 0608fa83191a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.458740908982352`*^-268\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 470, 513, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913478652482224`*^9}, CellLabel-> "During evaluation of \ In[470]:=",ExpressionUUID->"02febf10-3e5e-7c4e-a0cc-5555abda60b9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.7391049816418008`*^-279\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 470, 514, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913478652572174`*^9}, CellLabel-> "During evaluation of \ In[470]:=",ExpressionUUID->"6d9e5c2e-5d6c-ee42-9183-8e53cad47804"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.230095503809359`*^-290\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 470, 515, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913478652662163`*^9}, CellLabel-> "During evaluation of \ In[470]:=",ExpressionUUID->"b36a228f-868c-ba41-aa49-f11f9ef30d38"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 470, 516, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991347865275215*^9}, CellLabel-> "During evaluation of \ In[470]:=",ExpressionUUID->"9512baf9-a3b8-4d40-ba0e-e787bd767c9e"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH /49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B 1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs +TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T 3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ 2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu 1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX 7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE 9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD 69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu 6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD 5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl 9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O 03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg 5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo 9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH /49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B 1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs +TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T 3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ 2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu 1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX 7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE 9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD 69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu 6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD 5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl 9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O 03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg 5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo 9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{117.9605728938093, 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH /49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B 1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs +TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T 3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ 2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu 1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX 7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE 9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD 69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu 6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD 5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl 9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O 03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg 5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo 9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9913483238131485`*^9}, CellLabel-> "Out[470]=",ExpressionUUID->"1d2e0852-2fc7-f64d-be49-84b2bbb91a03"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { 3.991795329890896*^9, 3.99179533223897*^9}},ExpressionUUID->"dbee741a-c3af-b241-a21b-\ 4f79ecc0fe0c"], Cell[BoxData[ TemplateBox[{ "Show", "gcomb", "\"Could not combine the graphics objects in \ \\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ List[List[None, None], List[None, None]]], Rule[FrameTicks, \ List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ \\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ \"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ 52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, CellLabel-> "During evaluation of \ In[532]:=",ExpressionUUID->"c1403781-7b8e-e44e-8424-5627a40af393"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x130", ",", GraphicsBox[{{}, InterpretationBox[{ TagBox[ TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> { Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[2]], Directive[ RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[2]], Directive[ RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[2]], Directive[ RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[2]], Directive[ RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[2]], Directive[ RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[2]], Directive[ RGBColor[1, 0.75, 0], AbsoluteThickness[2]], Directive[ RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[2]], Directive[ RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[2]], Directive[ RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[2]], Directive[ RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[2]], Directive[ RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[2]], Directive[ RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[2]], Directive[ RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 52.}, {0, 0.120683}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]}], "]"}]], "Output", CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, CellLabel-> "Out[532]=",ExpressionUUID->"bb69f29d-f206-9444-bd72-890d9136c90d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ UUID->"0a506e45-082d-6641-9693-c99384fc0ac2"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "a616c950-333c-c34e-b37c-e912edc150ff"], Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"5e38a489-6451-064f-b86a-c8e93d83815c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "*", RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918473569283657`*^9, 3.991847361118864*^9}},ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-\ 733ef0de97b0"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "e36a792d-6d34-e344-80e0-65db5822f94f"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "0dfefdcd-d1b3-8f47-b86d-c0f72147cb73"], Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"8272fc8d-2aef-284d-85ad-5d09a4d55c26"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991847365260393*^9, 3.991847368101671*^9}},ExpressionUUID->"b5bf5915-d0df-a045-96bd-\ 1dffa35c1421"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "69e9eac8-2173-184e-8807-5fd844762da7"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "baaf252e-485c-b643-a22f-956a9ee4c418"], Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"8828a790-0478-5f4d-95d9-3a6a0e7217e5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.99184737148876*^9, 3.9918473756828785`*^9}},ExpressionUUID->"0f4fb648-c81c-bf44-8487-\ 747d613813fd"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "51550cf4-6c37-c443-851d-569d8808cf04"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "d7f343d4-811d-2f43-8fb6-ccefbdc3518f"], Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"7a1f905d-9581-5744-a98c-76e2b1fb25bb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.9918473798697987`*^9, 3.991847383988016*^9}},ExpressionUUID->"2d256a7e-c4c8-f746-8004-\ 9b6b43692a68"], Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"59ec06ef-9d4f-1d47-8ac6-5acc72d626ee"] }, Open ]] }, WindowSize->{718.5, 729.75}, WindowMargins->{{Automatic, 0}, {Automatic, 0}}, CellContext->Notebook, FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", StyleDefinitions->"Default.nb", ExpressionUUID->"0a22498a-17e0-084c-99f4-08fa56dfe4d0" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"7c3e9316-835f-9e4b-9a49-3b4d17d5ac6f"], Cell[706, 26, 152, 3, 28, "Input",ExpressionUUID->"583d3f2a-de58-8142-9cfe-a0e52258d17f"], Cell[861, 31, 149, 4, 28, "Input",ExpressionUUID->"20139eb5-401a-4b4a-9fa1-5ac66a5ce03b"], Cell[1013, 37, 154, 3, 28, "Input",ExpressionUUID->"8f81c5bb-6006-6b49-93bb-3460180e6492"], Cell[CellGroupData[{ Cell[1192, 44, 1301, 43, 113, "Input",ExpressionUUID->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], Cell[2496, 89, 178, 3, 32, "Output",ExpressionUUID->"eee3e6f5-bf54-104d-aacb-1c5d9bb3da72"] }, Open ]], Cell[CellGroupData[{ Cell[2711, 97, 907, 30, 56, "Input",ExpressionUUID->"c6441294-7eb2-2949-9da6-67254244512f"], Cell[3621, 129, 177, 3, 32, "Output",ExpressionUUID->"586d096a-2b7f-5a48-8ed7-66293c7d553c"] }, Open ]], Cell[CellGroupData[{ Cell[3835, 137, 963, 32, 56, "Input",ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-68faf6ac59e1"], Cell[4801, 171, 178, 3, 32, "Output",ExpressionUUID->"1ae1e3cd-cafb-3f45-96d4-d224b94de140"] }, Open ]], Cell[CellGroupData[{ Cell[5016, 179, 558, 19, 52, "Input",ExpressionUUID->"9284744b-e118-014c-8926-3a51fd91c939"], Cell[5577, 200, 172, 3, 32, "Output",ExpressionUUID->"b31939a9-5d35-324a-8d19-2eccc9ab2e0c"] }, Open ]], Cell[CellGroupData[{ Cell[5786, 208, 651, 22, 52, "Input",ExpressionUUID->"1aab4741-497a-9845-8d77-820f63cb5555"], Cell[6440, 232, 167, 3, 32, "Output",ExpressionUUID->"ea6f6b0c-3057-e14d-9c39-2b31eb0f9621"] }, Open ]], Cell[CellGroupData[{ Cell[6644, 240, 170, 5, 56, "Input",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], Cell[6817, 247, 172, 3, 32, "Output",ExpressionUUID->"bbbfe046-4dd1-6242-9bee-c0b76bc74cb2"] }, Open ]], Cell[CellGroupData[{ Cell[7026, 255, 170, 5, 55, "Input",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], Cell[7199, 262, 173, 3, 32, "Output",ExpressionUUID->"fcfc958d-7982-7143-ba12-796e90324801"] }, Open ]], Cell[CellGroupData[{ Cell[7409, 270, 181, 5, 43, "Input",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], Cell[7593, 277, 171, 3, 32, "Output",ExpressionUUID->"a7a34d03-2368-c24b-95db-201f96c75648"] }, Open ]], Cell[CellGroupData[{ Cell[7801, 285, 181, 5, 43, "Input",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], Cell[7985, 292, 172, 3, 32, "Output",ExpressionUUID->"97bb7b25-6ae9-8d4d-86be-4c22b9038464"] }, Open ]], Cell[CellGroupData[{ Cell[8194, 300, 6055, 185, 498, "Input",ExpressionUUID->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], Cell[14252, 487, 174, 3, 32, "Output",ExpressionUUID->"5427a866-023c-174b-9e6d-fbf8b8e707a5"] }, Open ]], Cell[CellGroupData[{ Cell[14463, 495, 368, 9, 42, "Input",ExpressionUUID->"c7e96eeb-d934-e843-a9c0-226435d03e38"], Cell[14834, 506, 172, 3, 32, "Output",ExpressionUUID->"0d169b1a-2d1c-7b44-8942-0f9754dbfde4"] }, Open ]], Cell[CellGroupData[{ Cell[15043, 514, 6122, 187, 500, "Input",ExpressionUUID->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], Cell[21168, 703, 175, 3, 32, "Output",ExpressionUUID->"234d4d05-30cf-8546-8a4c-8e92b174dd54"] }, Open ]], Cell[CellGroupData[{ Cell[21380, 711, 368, 9, 42, "Input",ExpressionUUID->"344c5706-3a8a-754a-b4da-5866eb210a38"], Cell[21751, 722, 172, 3, 32, "Output",ExpressionUUID->"04e9f189-3e04-ae43-be68-86210fdb22c2"] }, Open ]], Cell[CellGroupData[{ Cell[21960, 730, 2663, 88, 187, "Input",ExpressionUUID->"39da6bde-a34a-f944-af17-b87c664ce50c"], Cell[24626, 820, 171, 3, 32, "Output",ExpressionUUID->"0cadffd6-f139-f648-ad7f-793752291569"] }, Open ]], Cell[CellGroupData[{ Cell[24834, 828, 2603, 85, 165, "Input",ExpressionUUID->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], Cell[27440, 915, 173, 3, 32, "Output",ExpressionUUID->"4e20a900-1f64-424e-9fdb-3d89088a0768"] }, Open ]], Cell[CellGroupData[{ Cell[27650, 923, 3712, 118, 348, "Input",ExpressionUUID->"ddf61768-a227-c447-bfc3-df30c7b64565"], Cell[31365, 1043, 174, 3, 70, "Output",ExpressionUUID->"068ebb27-1be5-6c40-8bf8-2f0268f5216d"] }, Open ]], Cell[31554, 1049, 138, 3, 70, "Input",ExpressionUUID->"0a12571c-0d3c-324d-9fb1-59d5c707bb07"], Cell[CellGroupData[{ Cell[31717, 1056, 2052, 59, 70, "Input",ExpressionUUID->"61186e9c-fdd7-7943-9937-691e3ab971c8"], Cell[33772, 1117, 559, 12, 70, "Message",ExpressionUUID->"3bfa23d6-b5a3-e944-a9bb-ca6e68d969fe"], Cell[34334, 1131, 560, 12, 70, "Message",ExpressionUUID->"b8fe04c8-adbe-0e49-b84c-7c9b51bb8636"], Cell[34897, 1145, 565, 12, 70, "Message",ExpressionUUID->"427779f4-4b28-5543-9a01-503bd7cdf693"], Cell[35465, 1159, 456, 10, 70, "Message",ExpressionUUID->"f6221017-7213-3b49-a432-06b611d306e1"], Cell[35924, 1171, 170, 3, 70, "Output",ExpressionUUID->"8ac7cd76-8447-3745-aaee-2af284a32577"] }, Open ]], Cell[CellGroupData[{ Cell[36131, 1179, 2054, 59, 70, "Input",ExpressionUUID->"9256a2f6-45c2-e140-bcdd-85d8e1970f4a"], Cell[38188, 1240, 559, 12, 70, "Message",ExpressionUUID->"2a7e3aab-a746-1146-b27a-e663e8cd1152"], Cell[38750, 1254, 559, 12, 70, "Message",ExpressionUUID->"7b5059be-83df-794a-9d63-d309a35a2ce1"], Cell[39312, 1268, 565, 12, 70, "Message",ExpressionUUID->"53abd70a-2c4f-7046-be11-447ced8cdefb"], Cell[39880, 1282, 458, 10, 70, "Message",ExpressionUUID->"64cbc54f-20f2-ce4f-b6f2-0ea91eeb179c"], Cell[40341, 1294, 170, 3, 70, "Output",ExpressionUUID->"bd8591b1-ba8a-6b40-b518-84bec35d20f2"] }, Open ]], Cell[CellGroupData[{ Cell[40548, 1302, 1936, 53, 70, "Input",ExpressionUUID->"2543960d-965e-7a4e-aecb-694d21d63061"], Cell[42487, 1357, 20196, 379, 70, "Output",ExpressionUUID->"609377ee-fc16-7c4a-9e56-8f28efda1b3b"] }, Open ]], Cell[CellGroupData[{ Cell[62720, 1741, 2118, 60, 70, "Input",ExpressionUUID->"e19ad739-7d82-2c45-9f2a-a1d24bf6372a"], Cell[64841, 1803, 503, 11, 70, "Message",ExpressionUUID->"108a1881-cb0d-bd45-a774-02403dfdab8d"], Cell[65347, 1816, 505, 11, 70, "Message",ExpressionUUID->"fb491355-d244-9746-9ef1-167761fef655"], Cell[65855, 1829, 506, 11, 70, "Message",ExpressionUUID->"a75a12d7-3727-3447-b8ef-6f1b5b957750"], Cell[66364, 1842, 455, 10, 70, "Message",ExpressionUUID->"5a45253c-33f9-ee48-80d9-da0679c1ba8a"], Cell[66822, 1854, 55770, 961, 70, "Output",ExpressionUUID->"3fb98a86-5ada-4149-bdd3-377ee3650435"] }, Open ]], Cell[CellGroupData[{ Cell[122629, 2820, 327, 7, 70, "Input",ExpressionUUID->"0442afd4-ab7e-8942-9b0e-e14520d1eea3"], Cell[122959, 2829, 9707, 222, 70, "Output",ExpressionUUID->"997db581-4738-a842-88e4-b1aa3e4c74be"] }, Open ]], Cell[CellGroupData[{ Cell[132703, 3056, 257, 6, 70, "Input",ExpressionUUID->"9478c59b-a5b4-1043-afe6-75ae56a5fd89"], Cell[132963, 3064, 2580, 42, 70, "Message",ExpressionUUID->"353dc940-eaf1-f54e-96b3-c89d28ca1091"], Cell[135546, 3108, 10201, 227, 70, "Output",ExpressionUUID->"5849f411-23c3-1f49-9ddc-70ae5bfac752"] }, Open ]], Cell[CellGroupData[{ Cell[145784, 3340, 199, 6, 70, "Input",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], Cell[145986, 3348, 173, 3, 70, "Output",ExpressionUUID->"856c94f8-a219-f048-b225-011837a6e00a"] }, Open ]], Cell[CellGroupData[{ Cell[146196, 3356, 1798, 52, 70, "Input",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], Cell[147997, 3410, 506, 11, 70, "Message",ExpressionUUID->"814ee749-2cde-7245-9b7e-69b30787da15"], Cell[148506, 3423, 508, 11, 70, "Message",ExpressionUUID->"af05aa14-ccc3-9040-b043-2aa272509b41"], Cell[149017, 3436, 509, 11, 70, "Message",ExpressionUUID->"c8d85ed0-fe8f-c945-af5e-55ea809c674a"], Cell[149529, 3449, 458, 10, 70, "Message",ExpressionUUID->"320c3ecd-1b7b-6744-991f-5112ad4520bf"], Cell[149990, 3461, 24818, 454, 70, "Output",ExpressionUUID->"03e3bbb2-7d95-6f47-8763-c6796c705c92"] }, Open ]], Cell[CellGroupData[{ Cell[174845, 3920, 1616, 48, 70, "Input",ExpressionUUID->"3d764097-ec6b-e749-9f31-cab8832af315"], Cell[176464, 3970, 582, 12, 70, "Message",ExpressionUUID->"a4ce5518-811f-8349-a17b-d2bf1297144e"], Cell[177049, 3984, 588, 12, 70, "Message",ExpressionUUID->"f5111cd7-2c56-5e45-8f8e-8a05bf9b95a2"], Cell[177640, 3998, 590, 12, 70, "Message",ExpressionUUID->"38176049-5d0a-d741-93c1-c658e0a1af06"], Cell[178233, 4012, 458, 10, 70, "Message",ExpressionUUID->"d16a134c-2a3f-da45-9fb2-6550e1a86488"], Cell[178694, 4024, 171, 3, 70, "Output",ExpressionUUID->"2f22685f-8c37-684f-9766-884eff532552"] }, Open ]], Cell[CellGroupData[{ Cell[178902, 4032, 2249, 64, 70, "Input",ExpressionUUID->"94c81ca6-5acf-1648-b9d8-a303cc71dab7"], Cell[181154, 4098, 557, 12, 70, "Message",ExpressionUUID->"4ed16eac-aa41-bc43-949b-97ab0e84980a"], Cell[181714, 4112, 560, 12, 70, "Message",ExpressionUUID->"90cf97c3-411e-6d4b-bad4-f62835c46e4c"], Cell[182277, 4126, 565, 12, 70, "Message",ExpressionUUID->"f57ff7ba-dfca-eb44-912d-da23358d49ca"], Cell[182845, 4140, 458, 10, 70, "Message",ExpressionUUID->"b9781b1e-c411-054b-ac86-e24155108e57"], Cell[183306, 4152, 172, 3, 70, "Output",ExpressionUUID->"597cf6d6-a43f-8b49-bc71-101a9cb09e95"] }, Open ]], Cell[CellGroupData[{ Cell[183515, 4160, 2221, 64, 70, "Input",ExpressionUUID->"d789fb78-c161-1741-b7b8-90fa3d585b38"], Cell[185739, 4226, 559, 12, 70, "Message",ExpressionUUID->"42c57f6e-4641-0f42-b0dd-b86a5ad2dfe9"], Cell[186301, 4240, 562, 12, 70, "Message",ExpressionUUID->"d128fb64-8fa5-1e4d-a5ed-889242afc70f"], Cell[186866, 4254, 563, 12, 70, "Message",ExpressionUUID->"b905e7eb-c247-1242-a8bc-aaa9779d376e"], Cell[187432, 4268, 458, 10, 70, "Message",ExpressionUUID->"fc538907-32f5-a34f-9b6b-76d90e786319"], Cell[187893, 4280, 170, 3, 70, "Output",ExpressionUUID->"de957708-f977-9848-9f79-7201648cd385"] }, Open ]], Cell[CellGroupData[{ Cell[188100, 4288, 2220, 64, 70, "Input",ExpressionUUID->"98f8448c-bc27-4646-9fd2-f2c22cf9b4d2"], Cell[190323, 4354, 559, 12, 70, "Message",ExpressionUUID->"cc7d691e-f34a-f24f-9ae8-91d0fac0de8f"], Cell[190885, 4368, 562, 12, 70, "Message",ExpressionUUID->"e2a59359-7911-7442-a0f3-73fa99ebe8ee"], Cell[191450, 4382, 563, 12, 70, "Message",ExpressionUUID->"191c175a-4a14-3f4a-aca6-3833ea4390d8"], Cell[192016, 4396, 458, 10, 70, "Message",ExpressionUUID->"e149580c-1c12-0145-b9d5-38404db9a3ce"], Cell[192477, 4408, 171, 3, 70, "Output",ExpressionUUID->"497174af-5058-2544-9743-796d2255db6b"] }, Open ]], Cell[CellGroupData[{ Cell[192685, 4416, 213, 6, 70, "Input",ExpressionUUID->"c0718b2f-c4a4-934b-afa0-c67e8ff1bd9c"], Cell[192901, 4424, 173, 3, 70, "Output",ExpressionUUID->"e7135af2-919e-634d-88c2-bc305d038b62"] }, Open ]], Cell[193089, 4430, 243, 5, 70, "Input",ExpressionUUID->"73fa861d-79d1-6043-8b49-ac6d11636734"], Cell[CellGroupData[{ Cell[193357, 4439, 558, 19, 70, "Input",ExpressionUUID->"6c38f559-2389-4242-bc4d-38979252b0b4"], Cell[193918, 4460, 170, 3, 70, "Output",ExpressionUUID->"fea30492-36d2-7045-88cc-aae9158fb839"] }, Open ]], Cell[CellGroupData[{ Cell[194125, 4468, 170, 5, 70, "Input",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], Cell[194298, 4475, 173, 3, 70, "Output",ExpressionUUID->"e81ecb9b-5a01-e843-870e-5e384d1e28cc"] }, Open ]], Cell[CellGroupData[{ Cell[194508, 4483, 181, 5, 70, "Input",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], Cell[194692, 4490, 171, 3, 70, "Output",ExpressionUUID->"43bb0088-17d8-d048-a253-fc8b6be59a68"] }, Open ]], Cell[CellGroupData[{ Cell[194900, 4498, 6055, 185, 70, "Input",ExpressionUUID->"79eeca66-2446-f741-8700-944472de348f"], Cell[200958, 4685, 172, 3, 70, "Output",ExpressionUUID->"338ae54a-64ed-994b-af22-96a296166408"] }, Open ]], Cell[CellGroupData[{ Cell[201167, 4693, 368, 9, 70, "Input",ExpressionUUID->"9790a07a-bad8-674c-aada-41e3d20aeff5"], Cell[201538, 4704, 172, 3, 70, "Output",ExpressionUUID->"e206cd3a-25d4-eb48-899a-45dd7defc5fe"] }, Open ]], Cell[CellGroupData[{ Cell[201747, 4712, 6122, 187, 70, "Input",ExpressionUUID->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], Cell[207872, 4901, 173, 3, 70, "Output",ExpressionUUID->"a5cbfc1b-c447-724b-a144-ad8475ce711a"] }, Open ]], Cell[CellGroupData[{ Cell[208082, 4909, 368, 9, 70, "Input",ExpressionUUID->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], Cell[208453, 4920, 170, 3, 70, "Output",ExpressionUUID->"6f6d3be7-a8ef-df41-96c9-fca809317a9d"] }, Open ]], Cell[CellGroupData[{ Cell[208660, 4928, 2663, 88, 70, "Input",ExpressionUUID->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], Cell[211326, 5018, 171, 3, 70, "Output",ExpressionUUID->"e1c5a778-dccd-8443-98b9-732ae795c2ac"] }, Open ]], Cell[CellGroupData[{ Cell[211534, 5026, 2603, 85, 70, "Input",ExpressionUUID->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], Cell[214140, 5113, 173, 3, 70, "Output",ExpressionUUID->"4063f10b-c9dc-f24d-8ad2-77cf2302aa5c"] }, Open ]], Cell[CellGroupData[{ Cell[214350, 5121, 3712, 118, 70, "Input",ExpressionUUID->"46415a4e-0839-a640-a9be-83fc8d482c42"], Cell[218065, 5241, 174, 3, 70, "Output",ExpressionUUID->"fa8f93a6-4eb6-b44c-a934-4b4d3f7a051e"] }, Open ]], Cell[CellGroupData[{ Cell[218276, 5249, 2052, 59, 70, "Input",ExpressionUUID->"33a64b79-213d-c445-8c32-436b16263096"], Cell[220331, 5310, 579, 12, 70, "Message",ExpressionUUID->"88717102-665c-9946-ac95-81e91596f1a3"], Cell[220913, 5324, 582, 12, 70, "Message",ExpressionUUID->"fef05ccf-1889-484a-ad95-0ed0a53f85b4"], Cell[221498, 5338, 584, 12, 70, "Message",ExpressionUUID->"c1de584c-2f89-774b-b751-1278ba9a8d1f"], Cell[222085, 5352, 458, 10, 70, "Message",ExpressionUUID->"24f5f743-5338-9641-885e-a4948c5c9d6e"], Cell[222546, 5364, 172, 3, 70, "Output",ExpressionUUID->"e0668815-ad18-f946-aefd-da0b1916d420"] }, Open ]], Cell[CellGroupData[{ Cell[222755, 5372, 2054, 59, 70, "Input",ExpressionUUID->"a558e928-6d30-db4d-81da-8e12b46e0cf1"], Cell[224812, 5433, 577, 12, 70, "Message",ExpressionUUID->"52373f6a-60b2-bf48-9785-d2499fa543af"], Cell[225392, 5447, 580, 12, 70, "Message",ExpressionUUID->"1ff9836d-6279-2340-8080-e305c05b649e"], Cell[225975, 5461, 583, 12, 70, "Message",ExpressionUUID->"983d828c-78d1-1441-bba2-2e64fa6b8f6f"], Cell[226561, 5475, 456, 10, 70, "Message",ExpressionUUID->"dd795d07-bc4f-2b40-8351-e980cc967c15"], Cell[227020, 5487, 171, 3, 70, "Output",ExpressionUUID->"17c8f52c-8091-bf41-b7c9-160a5315608c"] }, Open ]], Cell[CellGroupData[{ Cell[227228, 5495, 2030, 55, 70, "Input",ExpressionUUID->"c2f625be-331c-a24f-ad5b-6daaa9131a45"], Cell[229261, 5552, 20493, 384, 70, "Output",ExpressionUUID->"7a9be15e-f600-1b49-a731-c78d88a43ea5"] }, Open ]], Cell[CellGroupData[{ Cell[249791, 5941, 2142, 61, 70, "Input",ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-88bfd4c0e0d2"], Cell[251936, 6004, 501, 11, 70, "Message",ExpressionUUID->"fcd06738-edc8-474f-b579-5c8fba66d5d8"], Cell[252440, 6017, 504, 11, 70, "Message",ExpressionUUID->"9de7c9a4-4b93-0b4f-9a25-4f1d7917ab21"], Cell[252947, 6030, 508, 11, 70, "Message",ExpressionUUID->"03ef6a33-8701-ef42-bc6a-4a21f0a09522"], Cell[253458, 6043, 456, 10, 70, "Message",ExpressionUUID->"038a3a74-0bc1-c44d-9c90-bf60eda4a7bc"], Cell[253917, 6055, 31462, 562, 70, "Output",ExpressionUUID->"1c17de43-a886-0b4f-ac6b-9644b9c88ec7"] }, Open ]], Cell[285394, 6620, 138, 3, 70, "Input",ExpressionUUID->"b4bea72a-7a20-da43-afca-38c9d924f08e"], Cell[CellGroupData[{ Cell[285557, 6627, 1616, 48, 70, "Input",ExpressionUUID->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], Cell[287176, 6677, 596, 12, 70, "Message",ExpressionUUID->"f479187b-9eda-204a-88bb-4f36ab0a2712"], Cell[287775, 6691, 602, 12, 70, "Message",ExpressionUUID->"f832b030-dfa8-5847-8a8e-714d29039227"], Cell[288380, 6705, 605, 12, 70, "Message",ExpressionUUID->"c86ba442-eaba-9f46-8c0c-52b951d5bfb0"], Cell[288988, 6719, 458, 10, 70, "Message",ExpressionUUID->"dc6d10bb-5f0b-8545-9e40-4768fde2dbc1"], Cell[289449, 6731, 171, 3, 70, "Output",ExpressionUUID->"7d6c1b18-ad7f-3448-8021-ab5886691637"] }, Open ]], Cell[CellGroupData[{ Cell[289657, 6739, 2251, 64, 70, "Input",ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-9e266c1ec152"], Cell[291911, 6805, 577, 12, 70, "Message",ExpressionUUID->"01da16e0-14b6-bf48-a829-a262126159db"], Cell[292491, 6819, 580, 12, 70, "Message",ExpressionUUID->"4bf24ca6-4e30-e94a-be43-cf8e5608fc87"], Cell[293074, 6833, 586, 12, 70, "Message",ExpressionUUID->"006741fa-e30f-4b44-972c-035fe0e9a3bf"], Cell[293663, 6847, 458, 10, 70, "Message",ExpressionUUID->"cf218763-64fa-3446-a7cd-1c601e3a0059"], Cell[294124, 6859, 173, 3, 70, "Output",ExpressionUUID->"65c43bde-9dc5-1442-ba50-c6fa98b8835b"] }, Open ]], Cell[CellGroupData[{ Cell[294334, 6867, 2223, 64, 70, "Input",ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-46a9d151a60a"], Cell[296560, 6933, 579, 12, 70, "Message",ExpressionUUID->"592083af-558d-0641-832e-e27a751915bd"], Cell[297142, 6947, 580, 12, 70, "Message",ExpressionUUID->"66370498-e112-fa4b-a8af-1fcc4f9e1213"], Cell[297725, 6961, 586, 12, 70, "Message",ExpressionUUID->"84900485-cd47-2c49-9717-bd11f4470d4b"], Cell[298314, 6975, 458, 10, 70, "Message",ExpressionUUID->"07a10e89-58d6-6b49-8cb3-9461aae3594b"], Cell[298775, 6987, 171, 3, 70, "Output",ExpressionUUID->"82e8998a-3c72-6247-9df9-94b065408465"] }, Open ]], Cell[CellGroupData[{ Cell[298983, 6995, 2223, 64, 70, "Input",ExpressionUUID->"36639f46-66ce-b34a-8a89-e422f177de00"], Cell[301209, 7061, 576, 12, 70, "Message",ExpressionUUID->"fda4f669-ecf2-4d4e-b48b-3afcc84ca1c4"], Cell[301788, 7075, 580, 12, 70, "Message",ExpressionUUID->"36a981e6-ab0a-6c43-9d36-e415d38164fb"], Cell[302371, 7089, 584, 12, 70, "Message",ExpressionUUID->"4b3aecb3-626b-d84a-940e-7ff8608fd52c"], Cell[302958, 7103, 458, 10, 70, "Message",ExpressionUUID->"8319d34b-55d1-094b-9206-d0c33b2abbd6"], Cell[303419, 7115, 173, 3, 70, "Output",ExpressionUUID->"c60c830d-34c5-f541-b310-49552ac2034c"] }, Open ]], Cell[CellGroupData[{ Cell[303629, 7123, 211, 6, 70, "Input",ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-20d331e64105"], Cell[303843, 7131, 172, 3, 70, "Output",ExpressionUUID->"278ae42a-5de9-444e-9245-d09cf8d28509"] }, Open ]], Cell[304030, 7137, 242, 5, 70, "Input",ExpressionUUID->"bb206cb0-d23b-e24e-876b-f9f1b2cbe57a"], Cell[CellGroupData[{ Cell[304297, 7146, 558, 19, 70, "Input",ExpressionUUID->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], Cell[304858, 7167, 171, 3, 70, "Output",ExpressionUUID->"8f491dd5-7bfd-b341-b43c-c3a9d183ce9d"] }, Open ]], Cell[CellGroupData[{ Cell[305066, 7175, 170, 5, 70, "Input",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], Cell[305239, 7182, 171, 3, 70, "Output",ExpressionUUID->"b9d3b5de-b2b7-e44d-bc5c-44767d89cf65"] }, Open ]], Cell[CellGroupData[{ Cell[305447, 7190, 181, 5, 70, "Input",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], Cell[305631, 7197, 173, 3, 70, "Output",ExpressionUUID->"6b8a7f35-f691-844e-aeda-7cce2cf01b4d"] }, Open ]], Cell[CellGroupData[{ Cell[305841, 7205, 6055, 185, 70, "Input",ExpressionUUID->"78b2a753-17fc-484f-a953-d278346207ad"], Cell[311899, 7392, 173, 3, 70, "Output",ExpressionUUID->"4011df14-d624-cf4c-ba4a-7e4d30ff836f"] }, Open ]], Cell[CellGroupData[{ Cell[312109, 7400, 368, 9, 70, "Input",ExpressionUUID->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], Cell[312480, 7411, 172, 3, 70, "Output",ExpressionUUID->"d4677fbf-c75c-ca43-b340-204087aa8c86"] }, Open ]], Cell[CellGroupData[{ Cell[312689, 7419, 6122, 187, 70, "Input",ExpressionUUID->"75baa02d-f77e-e542-9519-8afd2f729182"], Cell[318814, 7608, 173, 3, 70, "Output",ExpressionUUID->"57c3e5a5-34bb-e842-b4a4-6bfbe7fe997b"] }, Open ]], Cell[CellGroupData[{ Cell[319024, 7616, 368, 9, 70, "Input",ExpressionUUID->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], Cell[319395, 7627, 172, 3, 70, "Output",ExpressionUUID->"dc513bc7-ae9a-0043-ae49-195b0da7d4ae"] }, Open ]], Cell[CellGroupData[{ Cell[319604, 7635, 2663, 88, 70, "Input",ExpressionUUID->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], Cell[322270, 7725, 173, 3, 70, "Output",ExpressionUUID->"8d685ee2-dc72-774b-bbc8-778682e632d2"] }, Open ]], Cell[CellGroupData[{ Cell[322480, 7733, 2603, 85, 70, "Input",ExpressionUUID->"482f62c1-da9c-ae43-adda-68c26afa85d0"], Cell[325086, 7820, 171, 3, 70, "Output",ExpressionUUID->"c69ac66b-aa24-cb4d-9510-bfa972119e6b"] }, Open ]], Cell[CellGroupData[{ Cell[325294, 7828, 3712, 118, 70, "Input",ExpressionUUID->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], Cell[329009, 7948, 174, 3, 70, "Output",ExpressionUUID->"1c470c55-d28c-4543-be1f-6a28be0ba400"] }, Open ]], Cell[CellGroupData[{ Cell[329220, 7956, 2052, 59, 70, "Input",ExpressionUUID->"61630af4-ce16-4645-bd89-fd67d7ba48d8"], Cell[331275, 8017, 574, 12, 70, "Message",ExpressionUUID->"43a2687a-b1fe-f34f-89ff-c066d808b1f9"], Cell[331852, 8031, 580, 12, 70, "Message",ExpressionUUID->"4af47df9-8236-7241-95f9-152813b1879a"], Cell[332435, 8045, 580, 12, 70, "Message",ExpressionUUID->"6b7cc034-1771-4d40-a1be-6400e7b80609"], Cell[333018, 8059, 456, 10, 70, "Message",ExpressionUUID->"3f4e0008-1259-8f45-ad63-fd8d4329e9ae"], Cell[333477, 8071, 172, 3, 70, "Output",ExpressionUUID->"e57330fd-c13c-984d-8ddc-a0b641a07ec3"] }, Open ]], Cell[CellGroupData[{ Cell[333686, 8079, 2052, 59, 70, "Input",ExpressionUUID->"b8324bb7-c44f-6342-bd59-920c679e8136"], Cell[335741, 8140, 576, 12, 70, "Message",ExpressionUUID->"29405dbd-598a-ef40-a6b1-6fd2363b1575"], Cell[336320, 8154, 577, 12, 70, "Message",ExpressionUUID->"ad96af95-7997-6e4b-bb29-aba6a927545b"], Cell[336900, 8168, 582, 12, 70, "Message",ExpressionUUID->"bbc2b8eb-1cbf-044c-9f8a-9437e2069bad"], Cell[337485, 8182, 458, 10, 70, "Message",ExpressionUUID->"153f64f2-c43c-3945-815f-e938e8bf1d5a"], Cell[337946, 8194, 172, 3, 70, "Output",ExpressionUUID->"cd0f4614-a592-5544-b5ef-4fad0c35ca7c"] }, Open ]], Cell[CellGroupData[{ Cell[338155, 8202, 2030, 55, 70, "Input",ExpressionUUID->"a8eb6c66-2550-3146-b69f-2cd48e2cafc8"], Cell[340188, 8259, 20021, 378, 70, "Output",ExpressionUUID->"fde4983c-8a31-cc4e-87c4-d107fc324654"] }, Open ]], Cell[CellGroupData[{ Cell[360246, 8642, 2148, 61, 70, "Input",ExpressionUUID->"29fc72a2-353e-bf42-8947-0608fa83191a"], Cell[362397, 8705, 502, 11, 70, "Message",ExpressionUUID->"02febf10-3e5e-7c4e-a0cc-5555abda60b9"], Cell[362902, 8718, 506, 11, 70, "Message",ExpressionUUID->"6d9e5c2e-5d6c-ee42-9183-8e53cad47804"], Cell[363411, 8731, 508, 11, 70, "Message",ExpressionUUID->"b36a228f-868c-ba41-aa49-f11f9ef30d38"], Cell[363922, 8744, 456, 10, 70, "Message",ExpressionUUID->"9512baf9-a3b8-4d40-ba0e-e787bd767c9e"], Cell[364381, 8756, 30015, 538, 70, "Output",ExpressionUUID->"1d2e0852-2fc7-f64d-be49-84b2bbb91a03"] }, Open ]], Cell[CellGroupData[{ Cell[394433, 9299, 257, 6, 70, "Input",ExpressionUUID->"dbee741a-c3af-b241-a21b-4f79ecc0fe0c"], Cell[394693, 9307, 2580, 42, 70, "Message",ExpressionUUID->"c1403781-7b8e-e44e-8424-5627a40af393"], Cell[397276, 9351, 10201, 227, 70, "Output",ExpressionUUID->"bb69f29d-f206-9444-bd72-890d9136c90d"] }, Open ]], Cell[CellGroupData[{ Cell[407514, 9583, 1590, 47, 70, "Input",ExpressionUUID->"0a506e45-082d-6641-9693-c99384fc0ac2"], Cell[409107, 9632, 342, 6, 70, "Message",ExpressionUUID->"a616c950-333c-c34e-b37c-e912edc150ff"], Cell[409452, 9640, 101, 0, 70, "Output",ExpressionUUID->"5e38a489-6451-064f-b86a-c8e93d83815c"] }, Open ]], Cell[CellGroupData[{ Cell[409590, 9645, 2249, 64, 70, "Input",ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-733ef0de97b0"], Cell[411842, 9711, 342, 6, 70, "Message",ExpressionUUID->"e36a792d-6d34-e344-80e0-65db5822f94f"], Cell[412187, 9719, 342, 6, 70, "Message",ExpressionUUID->"0dfefdcd-d1b3-8f47-b86d-c0f72147cb73"], Cell[412532, 9727, 101, 0, 70, "Output",ExpressionUUID->"8272fc8d-2aef-284d-85ad-5d09a4d55c26"] }, Open ]], Cell[CellGroupData[{ Cell[412670, 9732, 2219, 64, 70, "Input",ExpressionUUID->"b5bf5915-d0df-a045-96bd-1dffa35c1421"], Cell[414892, 9798, 342, 6, 70, "Message",ExpressionUUID->"69e9eac8-2173-184e-8807-5fd844762da7"], Cell[415237, 9806, 342, 6, 70, "Message",ExpressionUUID->"baaf252e-485c-b643-a22f-956a9ee4c418"], Cell[415582, 9814, 100, 0, 70, "Output",ExpressionUUID->"8828a790-0478-5f4d-95d9-3a6a0e7217e5"] }, Open ]], Cell[CellGroupData[{ Cell[415719, 9819, 2220, 64, 70, "Input",ExpressionUUID->"0f4fb648-c81c-bf44-8487-747d613813fd"], Cell[417942, 9885, 342, 6, 70, "Message",ExpressionUUID->"51550cf4-6c37-c443-851d-569d8808cf04"], Cell[418287, 9893, 342, 6, 70, "Message",ExpressionUUID->"d7f343d4-811d-2f43-8fb6-ccefbdc3518f"], Cell[418632, 9901, 101, 0, 70, "Output",ExpressionUUID->"7a1f905d-9581-5744-a98c-76e2b1fb25bb"] }, Open ]], Cell[CellGroupData[{ Cell[418770, 9906, 213, 6, 70, "Input",ExpressionUUID->"2d256a7e-c4c8-f746-8004-9b6b43692a68"], Cell[418986, 9914, 102, 0, 70, "Output",ExpressionUUID->"59ec06ef-9d4f-1d47-8ac6-5acc72d626ee"] }, Open ]] } ] *) (* End of internal cache information *)