(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Wolfram 14.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] NotebookDataLength[ 381361, 9130] NotebookOptionsPosition[ 356610, 8757] NotebookOutlinePosition[ 357039, 8774] CellTagsIndexPosition[ 356996, 8771] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"f1", "="}]], "Input", CellChangeTimes->{ 3.9918496921150837`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ 6f058773310c"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918496892276516`*^9, 3.9918496892324924`*^9}},ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-\ c82e80965ca9"], Cell[BoxData[ RowBox[{"f2", "="}]], "Input", CellChangeTimes->{ 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ 7dc8ec78e5b4"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991849693382303*^9, 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ 623392314869"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ir", "=", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"A1", "*", RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", CellLabel-> "In[316]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], Cell[BoxData["2.3793916761039797`*^-53"], "Output", CellChangeTimes->{3.991339230528511*^9}, CellLabel-> "Out[316]=",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Il", "=", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{ 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ 67189aa511ad"], Cell[BoxData["2.192147584896785`*^-54"], "Output", CellChangeTimes->{3.991339230554512*^9}, CellLabel-> "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ih", "=", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", CellChangeTimes->{{3.991557618917984*^9, 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ 5f01117db38b"], Cell[BoxData["3.508823705223133`*^-54"], "Output", CellChangeTimes->{3.9913392305796223`*^9}, CellLabel-> "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qb3", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", CellLabel-> "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], Cell[BoxData["44.37747929594205`"], "Output", CellChangeTimes->{3.9913392305906105`*^9}, CellLabel-> "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qw3", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", CellLabel-> "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], Cell[BoxData["102.55835649176893`"], "Output", CellChangeTimes->{3.99133923061561*^9}, CellLabel-> "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", CellLabel-> "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], Cell[BoxData["0.5630879721742558`"], "Output", CellChangeTimes->{3.9913392306426105`*^9}, CellLabel-> "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", CellLabel-> "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], Cell[BoxData["1.956498159343112`"], "Output", CellChangeTimes->{3.99133923065361*^9}, CellLabel-> "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", CellLabel-> "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], Cell[BoxData["200.65523570140064`"], "Output", CellChangeTimes->{3.9913392306776104`*^9}, CellLabel-> "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", CellLabel-> "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], Cell[BoxData["24.98842482695703`"], "Output", CellChangeTimes->{3.991339230703802*^9}, CellLabel-> "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], Cell[BoxData["0.01829601703069907`"], "Output", CellChangeTimes->{3.9913392307297993`*^9}, CellLabel-> "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], Cell[BoxData["6.551890985609901`"], "Output", CellChangeTimes->{3.991339230837267*^9}, CellLabel-> "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o2", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], Cell[BoxData["0.00990105610750653`"], "Output", CellChangeTimes->{3.9913392308522797`*^9}, CellLabel-> "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], Cell[BoxData["8.906440683949702`"], "Output", CellChangeTimes->{3.991339230966341*^9}, CellLabel-> "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h1", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], Cell[BoxData["0.6154782275967796`"], "Output", CellChangeTimes->{3.991339230988348*^9}, CellLabel-> "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h2", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], Cell[BoxData["0.3845217724032204`"], "Output", CellChangeTimes->{3.991339231030445*^9}, CellLabel-> "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h3", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}]}], ")"}], "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], Cell[BoxData["0.2366647789511063`"], "Output", CellChangeTimes->{3.991339231060343*^9}, CellLabel-> "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ e24d-bdc4-544ea2d2fbd9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.9918497046469917`*^9},ExpressionUUID->"574b810b-aa4a-d545-b080-\ c44fbe83a713"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 332, 325, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913392310873375`*^9}, CellLabel-> "During evaluation of \ In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ a normalized machine number; precision may be lost.\"", 2, 332, 326, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913392310973415`*^9}, CellLabel-> "During evaluation of \ In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 332, 327, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991339231105339*^9}, CellLabel-> "During evaluation of \ In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 332, 328, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913392311143417`*^9}, CellLabel-> "During evaluation of \ In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], Cell[BoxData["6.551890985609901`"], "Output", CellChangeTimes->{3.9913392346332226`*^9}, CellLabel-> "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.991849710877041*^9},ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-\ 656c90598e75"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 333, 329, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991339234667631*^9}, CellLabel-> "During evaluation of \ In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ a normalized machine number; precision may be lost.\"", 2, 333, 330, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991339234676628*^9}, CellLabel-> "During evaluation of \ In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 333, 331, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991339234685627*^9}, CellLabel-> "During evaluation of \ In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 333, 332, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.99133923469363*^9}, CellLabel-> "During evaluation of \ In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], Cell[BoxData["8.906440683949707`"], "Output", CellChangeTimes->{3.99133923819088*^9}, CellLabel-> "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", RowBox[{"Cos", "[", FractionBox[ RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.991849713921898*^9},ExpressionUUID->"9c540ba7-8bb4-ef46-919c-\ 62296271f174"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee 8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n 13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl 4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA +m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ 7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O 7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu /ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx 8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR 3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I 9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw 2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 /GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb 7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz 9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee 8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n 13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl 4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA +m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ 7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O 7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu /ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx 8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR 3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I 9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw 2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 /GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb 7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz 9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.5986424829233548}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.5986424829233548}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{115.12306105754327`, 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee 8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n 13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl 4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA +m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ 7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O 7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu /ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx 8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR 3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I 9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw 2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 /GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb 7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz 9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.5986424829233548}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.5986424829233548}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.991339493274267*^9}, CellLabel-> "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.991849724783457*^9},ExpressionUUID->"6e33cb28-ef1e-1547-b52d-\ 2171e7786920"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.2261575897868585`*^-267\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 335, 333, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991339493498577*^9}, CellLabel-> "During evaluation of \ In[335]:=",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.273330099721687`*^-279\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 335, 334, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991339493508564*^9}, CellLabel-> "During evaluation of \ In[335]:=",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.013344112917215`*^-290\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 335, 335, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991339493517563*^9}, CellLabel-> "During evaluation of \ In[335]:=",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 335, 336, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991339493525564*^9}, CellLabel-> "During evaluation of \ In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w 4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA 7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb 36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 +p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f 7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp 9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz 83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j 76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO 4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT /6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR 4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U 6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b 6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR 6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF 9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh 7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS +Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU 25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f 5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh 3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St 63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar 5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a +b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w 7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz 8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO 2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ +Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY 1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU 4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ 6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW 59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD 1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY 9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM 8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu 9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK 06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK 7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk 9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w 4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA 7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb 36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 +p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f 7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp 9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz 83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j 76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO 4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT /6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR 4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U 6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b 6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR 6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF 9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh 7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS +Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU 25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f 5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh 3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St 63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar 5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a +b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w 7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz 8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO 2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ +Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY 1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU 4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ 6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW 59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD 1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY 9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM 8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu 9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK 06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK 7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk 9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w 4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA 7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb 36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 +p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f 7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp 9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz 83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j 76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO 4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT /6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR 4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U 6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b 6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR 6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF 9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh 7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS +Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU 25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f 5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh 3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St 63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar 5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a +b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w 7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz 8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO 2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ +Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY 1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU 4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ 6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW 59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD 1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY 9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM 8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu 9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK 06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK 7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk 9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.991340117671425*^9}, CellLabel-> "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] }, Open ]], Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", RowBox[{"{", "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ 2bd9764114a1"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ 0ac982b58a3a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"L", "=", FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", CellChangeTimes->{ 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ 52adca93b0cf"], Cell[BoxData["12.55365498952246`"], "Output", CellChangeTimes->{3.991340544411957*^9}, CellLabel-> "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"L", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ d2b12a49fd20"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 338, 341, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340544611845*^9}, CellLabel-> "During evaluation of \ In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 338, 342, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913405446218624`*^9}, CellLabel-> "During evaluation of \ In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ \"", 2, 338, 343, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340544630844*^9}, CellLabel-> "During evaluation of \ In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 338, 344, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340544639845*^9}, CellLabel-> "During evaluation of \ In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j 8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd 5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf 8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT 7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe 8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm 3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU +23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS 9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh +wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX 9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC 4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ +qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M 6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP 3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY +xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD 3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G +BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv 7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx 8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j 8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd 5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf 8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT 7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe 8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm 3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU +23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS 9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh +wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX 9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC 4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ +qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M 6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP 3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY +xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD 3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G +BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv 7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx 8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j 8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd 5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf 8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT 7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe 8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm 3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU +23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS 9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh +wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX 9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC 4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ +qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M 6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP 3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY +xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD 3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G +BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv 7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx 8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9913408819317417`*^9}, CellLabel-> "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> "In[339]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ \\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ 7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 339, 345, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340881982744*^9}, CellLabel-> "During evaluation of \ In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ \\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ 35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 339, 346, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340881991743*^9}, CellLabel-> "During evaluation of \ In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ \\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ 54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 339, 347, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340882000746*^9}, CellLabel-> "During evaluation of \ In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 339, 348, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340882008745*^9}, CellLabel-> "During evaluation of \ In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], Cell[BoxData["12.553654989521348`"], "Output", CellChangeTimes->{3.9913408882266617`*^9}, CellLabel-> "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "*", RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.9918497473740044`*^9, {3.99184977815234*^9, 3.991849780845421*^9}},ExpressionUUID->"1d118f77-7d68-dd41-b0af-\ 09454f88e7f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 340, 349, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913408882626343`*^9}, CellLabel-> "During evaluation of \ In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ a normalized machine number; precision may be lost.\"", 2, 340, 350, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913408882726326`*^9}, CellLabel-> "During evaluation of \ In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 340, 351, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913408882816315`*^9}, CellLabel-> "During evaluation of \ In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 340, 352, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913408882906322`*^9}, CellLabel-> "During evaluation of \ In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], Cell[BoxData["1.3456729512531673`"], "Output", CellChangeTimes->{3.991340895263792*^9}, CellLabel-> "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918497892022038`*^9, 3.991849792285101*^9}},ExpressionUUID->"c8039063-5f4d-134a-b6ba-\ e19335f7a9f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 341, 353, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340895297941*^9}, CellLabel-> "During evaluation of \ In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ a normalized machine number; precision may be lost.\"", 2, 341, 354, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340895308939*^9}, CellLabel-> "During evaluation of \ In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 341, 355, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340895316965*^9}, CellLabel-> "During evaluation of \ In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 341, 356, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340895324953*^9}, CellLabel-> "During evaluation of \ In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], Cell[BoxData["11.729429210875175`"], "Output", CellChangeTimes->{3.9913409010488796`*^9}, CellLabel-> "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918497964884186`*^9, 3.9918497998504505`*^9}},ExpressionUUID->"a474307a-af78-3040-90ec-\ fb8d284b16bb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 342, 357, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913409010848827`*^9}, CellLabel-> "During evaluation of \ In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ a normalized machine number; precision may be lost.\"", 2, 342, 358, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913409010938797`*^9}, CellLabel-> "During evaluation of \ In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 342, 359, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340901101883*^9}, CellLabel-> "During evaluation of \ In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 342, 360, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913409011098804`*^9}, CellLabel-> "During evaluation of \ In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], Cell[BoxData["21.67464099510054`"], "Output", CellChangeTimes->{3.991340904517517*^9}, CellLabel-> "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.991849803549658*^9, 3.9918498086143265`*^9}},ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-\ f67bfdbd9bc7"], Cell[BoxData["0.0843966342510027`"], "Output", CellChangeTimes->{3.991340904549515*^9}, CellLabel-> "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918501018852215`*^9, 3.991850105557743*^9}, 3.99192470649716*^9},ExpressionUUID->"d104d373-080a-854b-92ff-\ e87abbd4c41c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qb2", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], Cell[BoxData["19.580504093356314`"], "Output", CellChangeTimes->{3.9913409045775146`*^9}, CellLabel-> "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], Cell[BoxData["0.8477067309358528`"], "Output", CellChangeTimes->{3.991340904625164*^9}, CellLabel-> "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], Cell[BoxData["16.598525115055164`"], "Output", CellChangeTimes->{3.9913409046880226`*^9}, CellLabel-> "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], Cell[BoxData["0.021613768236132463`"], "Output", CellChangeTimes->{3.9913409047132187`*^9}, CellLabel-> "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], Cell[BoxData["6.028089553291302`"], "Output", CellChangeTimes->{3.9913409048112164`*^9}, CellLabel-> "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o2", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], Cell[BoxData["0.010798036798660033`"], "Output", CellChangeTimes->{3.991340904825058*^9}, CellLabel-> "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], Cell[BoxData["8.5284977476633`"], "Output", CellChangeTimes->{3.9913409049303207`*^9}, CellLabel-> "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h1", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], Cell[BoxData["0.6154782275967796`"], "Output", CellChangeTimes->{3.991340904948307*^9}, CellLabel-> "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h2", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], Cell[BoxData["0.3845217724032204`"], "Output", CellChangeTimes->{3.991340904981308*^9}, CellLabel-> "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h3", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}]}], ")"}], "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], Cell[BoxData["0.2366647789511063`"], "Output", CellChangeTimes->{3.99134090500931*^9}, CellLabel-> "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.991849824909197*^9},ExpressionUUID->"486d514f-ec65-1e4e-b780-\ 7e9487f745c3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 358, 361, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340905038307*^9}, CellLabel-> "During evaluation of \ In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 358, 362, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340905047306*^9}, CellLabel-> "During evaluation of \ In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 358, 363, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340905056307*^9}, CellLabel-> "During evaluation of \ In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 358, 364, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340905064308*^9}, CellLabel-> "During evaluation of \ In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], Cell[BoxData["6.028089553291301`"], "Output", CellChangeTimes->{3.991340908920454*^9}, CellLabel-> "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.9918498299076843`*^9},ExpressionUUID->"c7144ce5-8356-d548-8854-\ 18c538c3321c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 359, 365, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340908954941*^9}, CellLabel-> "During evaluation of \ In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 359, 366, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340908964924*^9}, CellLabel-> "During evaluation of \ In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 359, 367, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913409089739246`*^9}, CellLabel-> "During evaluation of \ In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 359, 368, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340908981924*^9}, CellLabel-> "During evaluation of \ In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], Cell[BoxData["8.528497747663296`"], "Output", CellChangeTimes->{3.991340912767397*^9}, CellLabel-> "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "1"], RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", RowBox[{"Cos", "[", FractionBox[ RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.991849833066021*^9},ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-\ a45df2eabf0c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv 3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ 1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d 2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo /cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW 35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA 22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A +fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E 2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ 2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf /J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc 9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY /lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ 77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg 2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs /onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia 70x+Lkfh53XZ2uCv/w8uxqIW "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv 3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ 1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d 2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo /cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW 35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA 22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A +fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E 2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ 2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf /J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc 9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY /lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ 77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg 2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs /onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia 70x+Lkfh53XZ2uCv/w8uxqIW "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.42228371308737755`}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.42228371308737755`}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv 3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ 1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d 2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo /cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW 35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA 22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A +fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E 2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ 2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf /J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc 9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY /lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ 77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg 2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs /onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia 70x+Lkfh53XZ2uCv/w8uxqIW "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.42228371308737755`}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.42228371308737755`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9913411752988663`*^9}, CellLabel-> "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.9918498397477245`*^9, 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ 70a15768b745"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 361, 369, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913411755393047`*^9}, CellLabel-> "During evaluation of \ In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 361, 370, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913411755492897`*^9}, CellLabel-> "During evaluation of \ In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 361, 371, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991341175557289*^9}, CellLabel-> "During evaluation of \ In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 361, 372, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913411755664787`*^9}, CellLabel-> "During evaluation of \ In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B 8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp 9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN 62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u 4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y 6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF 0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx 0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY +Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp /Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC 5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk 8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO 6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo /pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx 4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D 0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL /pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B 8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp 9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN 62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u 4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y 6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF 0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx 0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY +Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp /Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC 5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk 8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO 6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo /pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx 4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D 0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL /pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B 8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp 9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN 62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u 4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y 6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF 0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx 0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY +Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp /Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC 5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk 8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO 6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo /pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx 4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D 0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL /pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 15}, {0., 0.1261051971575712}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9913414579436264`*^9}, CellLabel-> "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] }, Open ]], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ 8e8787fb2589"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ \\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ 734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ \"", 2, 365, 381, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913423358439445`*^9}, CellLabel-> "During evaluation of \ In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ \\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ 116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ is too small to represent as a normalized machine number; precision may be \ lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991342335853943*^9}, CellLabel-> "During evaluation of \ In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ \\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ 2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ \\) is too small to represent as a normalized machine number; precision may \ be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991342335861944*^9}, CellLabel-> "During evaluation of \ In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 365, 384, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991342335870945*^9}, CellLabel-> "During evaluation of \ In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], Cell[BoxData["12.5536549879565`"], "Output", CellChangeTimes->{3.9913423425170345`*^9}, CellLabel-> "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "*", RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.99184987967128*^9, 3.9918498857615337`*^9}},ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-\ 30286a178ca1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 366, 385, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913423425545177`*^9}, CellLabel-> "During evaluation of \ In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 366, 386, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991342342564516*^9}, CellLabel-> "During evaluation of \ In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 366, 387, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913423425725136`*^9}, CellLabel-> "During evaluation of \ In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 366, 388, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913423425815163`*^9}, CellLabel-> "During evaluation of \ In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], Cell[BoxData["2.904399821349581`"], "Output", CellChangeTimes->{3.9913423499055786`*^9}, CellLabel-> "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849890499424*^9, 3.9918498944226*^9}},ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 367, 389, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913423499435787`*^9}, CellLabel-> "During evaluation of \ In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 367, 390, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991342349953579*^9}, CellLabel-> "During evaluation of \ In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 367, 391, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913423499625797`*^9}, CellLabel-> "During evaluation of \ In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 367, 392, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913423499715805`*^9}, CellLabel-> "During evaluation of \ In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], Cell[BoxData["9.928941323789857`"], "Output", CellChangeTimes->{3.991342356382967*^9}, CellLabel-> "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918499002266407`*^9, 3.9918499040814323`*^9}},ExpressionUUID->"935796a8-6280-564a-b4d0-\ fc6fb6cd41f8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 368, 393, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991342356420965*^9}, CellLabel-> "During evaluation of \ In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 368, 394, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991342356431965*^9}, CellLabel-> "During evaluation of \ In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ \\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ 6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 368, 395, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991342356441965*^9}, CellLabel-> "During evaluation of \ In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 368, 396, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991342356450968*^9}, CellLabel-> "During evaluation of \ In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], Cell[BoxData["19.874153108015193`"], "Output", CellChangeTimes->{3.9913423600715523`*^9}, CellLabel-> "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.991849908545643*^9, 3.9918499133398113`*^9}},ExpressionUUID->"ee52036b-90c5-e14a-aed9-\ 684ff23ed035"], Cell[BoxData["0.2067571864462191`"], "Output", CellChangeTimes->{3.9913423601046352`*^9}, CellLabel-> "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991849916273302*^9, 3.9918499185334816`*^9}, 3.9919247506818066`*^9},ExpressionUUID->"c6d4a146-4cca-7e4e-b483-\ 85227a6e6b51"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qb1", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], Cell[BoxData["29.129739599983825`"], "Output", CellChangeTimes->{3.9913423601345863`*^9}, CellLabel-> "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], Cell[BoxData["0.6950071373045505`"], "Output", CellChangeTimes->{3.9913423601709976`*^9}, CellLabel-> "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], Cell[BoxData["20.245376929811762`"], "Output", CellChangeTimes->{3.9913423602320137`*^9}, CellLabel-> "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], Cell[BoxData["0.02003459702393596`"], "Output", CellChangeTimes->{3.991342360260002*^9}, CellLabel-> "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], Cell[BoxData["6.261157591052328`"], "Output", CellChangeTimes->{3.9913423603598785`*^9}, CellLabel-> "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o2", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], Cell[BoxData["0.010388932679900494`"], "Output", CellChangeTimes->{3.991342360375868*^9}, CellLabel-> "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], Cell[BoxData["8.694797556550151`"], "Output", CellChangeTimes->{3.991342360471882*^9}, CellLabel-> "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h1", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], Cell[BoxData["0.6154782275967796`"], "Output", CellChangeTimes->{3.991342360486868*^9}, CellLabel-> "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h2", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], Cell[BoxData["0.3845217724032204`"], "Output", CellChangeTimes->{3.9913423605138645`*^9}, CellLabel-> "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h3", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}]}], ")"}], "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], Cell[BoxData["0.2366647789511063`"], "Output", CellChangeTimes->{3.9913423605448647`*^9}, CellLabel-> "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.991849936863495*^9},ExpressionUUID->"6b25ec99-ae49-ec4d-9652-\ 65328572e509"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ a normalized machine number; precision may be lost.\"", 2, 384, 397, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991342360571863*^9}, CellLabel-> "During evaluation of \ In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 384, 398, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913423605818653`*^9}, CellLabel-> "During evaluation of \ In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 384, 399, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913423605898647`*^9}, CellLabel-> "During evaluation of \ In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 384, 400, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913423605988636`*^9}, CellLabel-> "During evaluation of \ In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], Cell[BoxData["6.261157591052324`"], "Output", CellChangeTimes->{3.9913423642473736`*^9}, CellLabel-> "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.991849940282545*^9},ExpressionUUID->"3e2baf62-fab9-eb41-8de7-\ aa229443ac14"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ a normalized machine number; precision may be lost.\"", 2, 385, 401, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991342364284378*^9}, CellLabel-> "During evaluation of \ In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 385, 402, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913423642935734`*^9}, CellLabel-> "During evaluation of \ In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 385, 403, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991342364302574*^9}, CellLabel-> "During evaluation of \ In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 385, 404, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913423643105717`*^9}, CellLabel-> "During evaluation of \ In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], Cell[BoxData["8.694797556550144`"], "Output", CellChangeTimes->{3.9913423679416714`*^9}, CellLabel-> "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "1"], RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", RowBox[{"Cos", "[", FractionBox[ RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.991849946138607*^9},ExpressionUUID->"725c3011-bda9-4c42-96ce-\ 9a77a5dc787c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk 7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i 4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr 1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc 8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc 2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf 7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L 3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb +yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj 9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy 53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz 2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz 5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk 7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i 4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr 1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc 8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc 2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf 7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L 3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb +yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj 9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy 53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz 2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz 5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.5012481131960849}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.5012481131960849}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk 7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i 4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr 1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc 8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc 2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf 7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L 3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb +yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj 9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy 53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz 2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz 5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.5012481131960849}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.5012481131960849}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.991342629715925*^9}, CellLabel-> "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.991849950722357*^9, 3.9918499540026855`*^9}},ExpressionUUID->"1ea503b1-33a1-2744-a92d-\ 2e1269faf5ed"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.03396961278019`*^-273\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 387, 405, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913426299467087`*^9}, CellLabel-> "During evaluation of \ In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 387, 406, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991342629956772*^9}, CellLabel-> "During evaluation of \ In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 387, 407, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991342629966284*^9}, CellLabel-> "During evaluation of \ In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 387, 408, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913426299753895`*^9}, CellLabel-> "During evaluation of \ In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU 6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj 7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk 3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y 9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet /VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK 8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF 5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl 9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ 04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo +ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi 4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M 5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj 66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca +FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy +x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU 6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj 7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk 3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y 9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet /VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK 8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF 5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl 9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ 04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo +ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi 4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M 5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj 66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca +FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy +x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU 6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj 7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk 3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y 9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet /VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK 8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF 5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl 9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ 04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo +ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi 4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M 5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj 66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca +FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy +x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9913429049348164`*^9}, CellLabel-> "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] }, Open ]], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ 25a7a01bdd8f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ \\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ 35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 391, 417, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913437636167164`*^9}, CellLabel-> "During evaluation of \ In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ \\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ 54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 391, 418, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991343763625717*^9}, CellLabel-> "During evaluation of \ In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ \\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ 734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ \"", 2, 391, 419, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991343763634718*^9}, CellLabel-> "During evaluation of \ In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 391, 420, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991343763643717*^9}, CellLabel-> "During evaluation of \ In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], Cell[BoxData["12.55365498945131`"], "Output", CellChangeTimes->{3.991343769962549*^9}, CellLabel-> "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "*", RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918499777649403`*^9, 3.9918499820026073`*^9}},ExpressionUUID->"97b28b29-5d04-5c42-a0e8-\ 93b70f20e7f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ a normalized machine number; precision may be lost.\"", 2, 392, 421, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991343769999645*^9}, CellLabel-> "During evaluation of \ In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 392, 422, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913437700095463`*^9}, CellLabel-> "During evaluation of \ In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 392, 423, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991343770018547*^9}, CellLabel-> "During evaluation of \ In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 392, 424, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913437700265465`*^9}, CellLabel-> "During evaluation of \ In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], Cell[BoxData["2.1234790234082306`"], "Output", CellChangeTimes->{3.9913437771602173`*^9}, CellLabel-> "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918499862910366`*^9, 3.991849989300226*^9}},ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-\ cdce838d9efe"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ a normalized machine number; precision may be lost.\"", 2, 393, 425, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913437771982174`*^9}, CellLabel-> "During evaluation of \ In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 393, 426, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913437772082157`*^9}, CellLabel-> "During evaluation of \ In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 393, 427, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.99134377721661*^9}, CellLabel-> "During evaluation of \ In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 393, 428, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913437772256165`*^9}, CellLabel-> "During evaluation of \ In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], Cell[BoxData["10.711562421053975`"], "Output", CellChangeTimes->{3.991343783589731*^9}, CellLabel-> "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849992549782*^9, 3.9918499952553864`*^9}},ExpressionUUID->"0794d062-69d5-0a45-936e-\ 533b19d33de6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ a normalized machine number; precision may be lost.\"", 2, 394, 429, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913437836316223`*^9}, CellLabel-> "During evaluation of \ In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 394, 430, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913437836416245`*^9}, CellLabel-> "During evaluation of \ In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 394, 431, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991343783649622*^9}, CellLabel-> "During evaluation of \ In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 394, 432, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913437836576347`*^9}, CellLabel-> "During evaluation of \ In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], Cell[BoxData["20.656774205279326`"], "Output", CellChangeTimes->{3.9913437870822353`*^9}, CellLabel-> "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.9918500011025047`*^9, 3.9918500053803673`*^9}},ExpressionUUID->"95c56266-e4d3-624e-89c1-\ cedeeeb0247a"], Cell[BoxData["0.14275466609450368`"], "Output", CellChangeTimes->{3.991343787117275*^9}, CellLabel-> "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] }, Open ]] }, WindowSize->{718.5, 729.75}, WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, CellContext->Notebook, FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", StyleDefinitions->"Default.nb", ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], Cell[706, 26, 156, 3, 28, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], Cell[865, 31, 147, 4, 28, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], Cell[1015, 37, 152, 3, 28, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ Cell[1192, 44, 1301, 43, 113, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], Cell[2496, 89, 176, 3, 32, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] }, Open ]], Cell[CellGroupData[{ Cell[2709, 97, 908, 31, 56, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], Cell[3620, 130, 175, 3, 32, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] }, Open ]], Cell[CellGroupData[{ Cell[3832, 138, 887, 30, 56, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], Cell[4722, 170, 177, 3, 32, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] }, Open ]], Cell[CellGroupData[{ Cell[4936, 178, 558, 19, 52, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], Cell[5497, 199, 172, 3, 32, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] }, Open ]], Cell[CellGroupData[{ Cell[5706, 207, 651, 22, 52, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], Cell[6360, 231, 170, 3, 32, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] }, Open ]], Cell[CellGroupData[{ Cell[6567, 239, 170, 5, 56, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], Cell[6740, 246, 173, 3, 32, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] }, Open ]], Cell[CellGroupData[{ Cell[6950, 254, 170, 5, 55, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], Cell[7123, 261, 169, 3, 70, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] }, Open ]], Cell[CellGroupData[{ Cell[7329, 269, 181, 5, 70, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], Cell[7513, 276, 173, 3, 70, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] }, Open ]], Cell[CellGroupData[{ Cell[7723, 284, 181, 5, 70, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], Cell[7907, 291, 170, 3, 70, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] }, Open ]], Cell[CellGroupData[{ Cell[8114, 299, 6055, 185, 70, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], Cell[14172, 486, 174, 3, 70, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] }, Open ]], Cell[CellGroupData[{ Cell[14383, 494, 368, 9, 70, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], Cell[14754, 505, 170, 3, 70, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] }, Open ]], Cell[CellGroupData[{ Cell[14961, 513, 6122, 187, 70, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], Cell[21086, 702, 174, 3, 70, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] }, Open ]], Cell[CellGroupData[{ Cell[21297, 710, 368, 9, 70, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], Cell[21668, 721, 170, 3, 70, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] }, Open ]], Cell[CellGroupData[{ Cell[21875, 729, 2663, 88, 70, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], Cell[24541, 819, 171, 3, 70, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] }, Open ]], Cell[CellGroupData[{ Cell[24749, 827, 2603, 85, 70, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], Cell[27355, 914, 171, 3, 70, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] }, Open ]], Cell[CellGroupData[{ Cell[27563, 922, 3712, 118, 70, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], Cell[31278, 1042, 171, 3, 70, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] }, Open ]], Cell[31464, 1048, 138, 3, 70, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], Cell[CellGroupData[{ Cell[31627, 1055, 2054, 59, 70, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], Cell[33684, 1116, 566, 12, 70, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], Cell[34253, 1130, 569, 12, 70, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], Cell[34825, 1144, 570, 12, 70, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], Cell[35398, 1158, 458, 10, 70, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], Cell[35859, 1170, 172, 3, 70, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] }, Open ]], Cell[CellGroupData[{ Cell[36068, 1178, 2052, 59, 70, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], Cell[38123, 1239, 564, 12, 70, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], Cell[38690, 1253, 567, 12, 70, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], Cell[39260, 1267, 570, 12, 70, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], Cell[39833, 1281, 455, 10, 70, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], Cell[40291, 1293, 169, 3, 70, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] }, Open ]], Cell[CellGroupData[{ Cell[40497, 1301, 1936, 53, 70, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], Cell[42436, 1356, 19983, 375, 70, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] }, Open ]], Cell[CellGroupData[{ Cell[62456, 1736, 2092, 60, 70, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], Cell[64551, 1798, 501, 11, 70, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], Cell[65055, 1811, 503, 11, 70, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], Cell[65561, 1824, 506, 11, 70, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], Cell[66070, 1837, 456, 10, 70, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], Cell[66529, 1849, 41581, 727, 70, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] }, Open ]], Cell[108125, 2579, 232, 6, 70, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], Cell[108360, 2587, 209, 5, 70, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], Cell[CellGroupData[{ Cell[108594, 2596, 217, 7, 70, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], Cell[108814, 2605, 170, 3, 70, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] }, Open ]], Cell[CellGroupData[{ Cell[109021, 2613, 1814, 53, 70, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], Cell[110838, 2668, 506, 11, 70, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], Cell[111347, 2681, 512, 11, 70, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], Cell[111862, 2694, 509, 11, 70, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], Cell[112374, 2707, 456, 10, 70, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], Cell[112833, 2719, 22336, 412, 70, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] }, Open ]], Cell[CellGroupData[{ Cell[135206, 3136, 1616, 48, 70, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], Cell[136825, 3186, 584, 12, 70, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], Cell[137412, 3200, 588, 12, 70, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], Cell[138003, 3214, 591, 12, 70, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], Cell[138597, 3228, 456, 10, 70, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], Cell[139056, 3240, 173, 3, 70, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] }, Open ]], Cell[CellGroupData[{ Cell[139266, 3248, 2274, 65, 70, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], Cell[141543, 3315, 566, 12, 70, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], Cell[142112, 3329, 569, 12, 70, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], Cell[142684, 3343, 572, 12, 70, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], Cell[143259, 3357, 458, 10, 70, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], Cell[143720, 3369, 171, 3, 70, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] }, Open ]], Cell[CellGroupData[{ Cell[143928, 3377, 2221, 64, 70, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], Cell[146152, 3443, 564, 12, 70, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], Cell[146719, 3457, 567, 12, 70, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], Cell[147289, 3471, 570, 12, 70, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], Cell[147862, 3485, 456, 10, 70, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], Cell[148321, 3497, 173, 3, 70, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] }, Open ]], Cell[CellGroupData[{ Cell[148531, 3505, 2223, 64, 70, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], Cell[150757, 3571, 566, 12, 70, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], Cell[151326, 3585, 569, 12, 70, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], Cell[151898, 3599, 570, 12, 70, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], Cell[152471, 3613, 458, 10, 70, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], Cell[152932, 3625, 170, 3, 70, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] }, Open ]], Cell[CellGroupData[{ Cell[153139, 3633, 213, 6, 70, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], Cell[153355, 3641, 171, 3, 70, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] }, Open ]], Cell[153541, 3647, 244, 5, 70, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], Cell[CellGroupData[{ Cell[153810, 3656, 558, 19, 70, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], Cell[154371, 3677, 173, 3, 70, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] }, Open ]], Cell[CellGroupData[{ Cell[154581, 3685, 170, 5, 70, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], Cell[154754, 3692, 171, 3, 70, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] }, Open ]], Cell[CellGroupData[{ Cell[154962, 3700, 181, 5, 70, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], Cell[155146, 3707, 173, 3, 70, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] }, Open ]], Cell[CellGroupData[{ Cell[155356, 3715, 6055, 185, 70, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], Cell[161414, 3902, 175, 3, 70, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] }, Open ]], Cell[CellGroupData[{ Cell[161626, 3910, 368, 9, 70, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], Cell[161997, 3921, 172, 3, 70, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] }, Open ]], Cell[CellGroupData[{ Cell[162206, 3929, 6122, 187, 70, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], Cell[168331, 4118, 173, 3, 70, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] }, Open ]], Cell[CellGroupData[{ Cell[168541, 4126, 368, 9, 70, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], Cell[168912, 4137, 170, 3, 70, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] }, Open ]], Cell[CellGroupData[{ Cell[169119, 4145, 2663, 88, 70, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], Cell[171785, 4235, 171, 3, 70, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] }, Open ]], Cell[CellGroupData[{ Cell[171993, 4243, 2603, 85, 70, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], Cell[174599, 4330, 171, 3, 70, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] }, Open ]], Cell[CellGroupData[{ Cell[174807, 4338, 3712, 118, 70, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], Cell[178522, 4458, 170, 3, 70, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] }, Open ]], Cell[CellGroupData[{ Cell[178729, 4466, 2052, 59, 70, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], Cell[180784, 4527, 573, 12, 70, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], Cell[181360, 4541, 577, 12, 70, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], Cell[181940, 4555, 580, 12, 70, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], Cell[182523, 4569, 456, 10, 70, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], Cell[182982, 4581, 170, 3, 70, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] }, Open ]], Cell[CellGroupData[{ Cell[183189, 4589, 2054, 59, 70, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], Cell[185246, 4650, 573, 12, 70, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], Cell[185822, 4664, 577, 12, 70, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], Cell[186402, 4678, 582, 12, 70, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], Cell[186987, 4692, 456, 10, 70, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], Cell[187446, 4704, 170, 3, 70, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] }, Open ]], Cell[CellGroupData[{ Cell[187653, 4712, 2028, 55, 70, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], Cell[189684, 4769, 20422, 382, 70, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] }, Open ]], Cell[CellGroupData[{ Cell[210143, 5156, 2120, 60, 70, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], Cell[212266, 5218, 502, 11, 70, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], Cell[212771, 5231, 506, 11, 70, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], Cell[213280, 5244, 505, 11, 70, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], Cell[213788, 5257, 458, 10, 70, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], Cell[214249, 5269, 22288, 412, 70, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] }, Open ]], Cell[236552, 5684, 209, 5, 70, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], Cell[CellGroupData[{ Cell[236786, 5693, 1616, 48, 70, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], Cell[238405, 5743, 595, 12, 70, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], Cell[239003, 5757, 595, 12, 70, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], Cell[239601, 5771, 599, 12, 70, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], Cell[240203, 5785, 456, 10, 70, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], Cell[240662, 5797, 171, 3, 70, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] }, Open ]], Cell[CellGroupData[{ Cell[240870, 5805, 2248, 64, 70, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], Cell[243121, 5871, 575, 12, 70, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], Cell[243699, 5885, 577, 12, 70, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], Cell[244279, 5899, 582, 12, 70, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], Cell[244864, 5913, 458, 10, 70, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], Cell[245325, 5925, 172, 3, 70, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] }, Open ]], Cell[CellGroupData[{ Cell[245534, 5933, 2215, 63, 70, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], Cell[247752, 5998, 575, 12, 70, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], Cell[248330, 6012, 577, 12, 70, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], Cell[248910, 6026, 582, 12, 70, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], Cell[249495, 6040, 458, 10, 70, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], Cell[249956, 6052, 170, 3, 70, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] }, Open ]], Cell[CellGroupData[{ Cell[250163, 6060, 2223, 64, 70, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], Cell[252389, 6126, 573, 12, 70, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], Cell[252965, 6140, 577, 12, 70, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], Cell[253545, 6154, 580, 12, 70, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], Cell[254128, 6168, 456, 10, 70, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], Cell[254587, 6180, 173, 3, 70, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] }, Open ]], Cell[CellGroupData[{ Cell[254797, 6188, 213, 6, 70, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], Cell[255013, 6196, 173, 3, 70, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] }, Open ]], Cell[255201, 6202, 247, 5, 70, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], Cell[CellGroupData[{ Cell[255473, 6211, 558, 19, 70, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], Cell[256034, 6232, 173, 3, 70, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] }, Open ]], Cell[CellGroupData[{ Cell[256244, 6240, 170, 5, 70, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], Cell[256417, 6247, 173, 3, 70, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] }, Open ]], Cell[CellGroupData[{ Cell[256627, 6255, 181, 5, 70, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], Cell[256811, 6262, 173, 3, 70, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] }, Open ]], Cell[CellGroupData[{ Cell[257021, 6270, 6055, 185, 70, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], Cell[263079, 6457, 172, 3, 70, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] }, Open ]], Cell[CellGroupData[{ Cell[263288, 6465, 368, 9, 70, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], Cell[263659, 6476, 172, 3, 70, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] }, Open ]], Cell[CellGroupData[{ Cell[263868, 6484, 6122, 187, 70, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], Cell[269993, 6673, 173, 3, 70, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] }, Open ]], Cell[CellGroupData[{ Cell[270203, 6681, 368, 9, 70, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], Cell[270574, 6692, 170, 3, 70, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] }, Open ]], Cell[CellGroupData[{ Cell[270781, 6700, 2663, 88, 70, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], Cell[273447, 6790, 171, 3, 70, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] }, Open ]], Cell[CellGroupData[{ Cell[273655, 6798, 2603, 85, 70, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], Cell[276261, 6885, 173, 3, 70, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] }, Open ]], Cell[CellGroupData[{ Cell[276471, 6893, 3712, 118, 70, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], Cell[280186, 7013, 173, 3, 70, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] }, Open ]], Cell[CellGroupData[{ Cell[280396, 7021, 2052, 59, 70, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], Cell[282451, 7082, 568, 12, 70, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], Cell[283022, 7096, 573, 12, 70, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], Cell[283598, 7110, 576, 12, 70, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], Cell[284177, 7124, 458, 10, 70, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], Cell[284638, 7136, 172, 3, 70, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] }, Open ]], Cell[CellGroupData[{ Cell[284847, 7144, 2052, 59, 70, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], Cell[286902, 7205, 568, 12, 70, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], Cell[287473, 7219, 573, 12, 70, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], Cell[288049, 7233, 574, 12, 70, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], Cell[288626, 7247, 458, 10, 70, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], Cell[289087, 7259, 172, 3, 70, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] }, Open ]], Cell[CellGroupData[{ Cell[289296, 7267, 2028, 55, 70, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], Cell[291327, 7324, 20375, 384, 70, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] }, Open ]], Cell[CellGroupData[{ Cell[311739, 7713, 2118, 60, 70, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], Cell[313860, 7775, 501, 11, 70, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], Cell[314364, 7788, 503, 11, 70, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], Cell[314870, 7801, 506, 11, 70, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], Cell[315379, 7814, 458, 10, 70, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], Cell[315840, 7826, 22161, 409, 70, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] }, Open ]], Cell[338016, 8238, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], Cell[CellGroupData[{ Cell[338250, 8247, 1616, 48, 70, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], Cell[339869, 8297, 590, 12, 70, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], Cell[340462, 8311, 589, 12, 70, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], Cell[341054, 8325, 593, 12, 70, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], Cell[341650, 8339, 456, 10, 70, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], Cell[342109, 8351, 170, 3, 70, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] }, Open ]], Cell[CellGroupData[{ Cell[342316, 8359, 2251, 64, 70, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], Cell[344570, 8425, 568, 12, 70, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], Cell[345141, 8439, 573, 12, 70, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], Cell[345717, 8453, 574, 12, 70, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], Cell[346294, 8467, 458, 10, 70, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], Cell[346755, 8479, 173, 3, 70, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] }, Open ]], Cell[CellGroupData[{ Cell[346965, 8487, 2221, 64, 70, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], Cell[349189, 8553, 570, 12, 70, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], Cell[349762, 8567, 573, 12, 70, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], Cell[350338, 8581, 573, 12, 70, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], Cell[350914, 8595, 458, 10, 70, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], Cell[351375, 8607, 171, 3, 70, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] }, Open ]], Cell[CellGroupData[{ Cell[351583, 8615, 2221, 64, 70, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], Cell[353807, 8681, 570, 12, 70, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], Cell[354380, 8695, 573, 12, 70, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], Cell[354956, 8709, 574, 12, 70, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], Cell[355533, 8723, 458, 10, 70, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], Cell[355994, 8735, 173, 3, 70, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] }, Open ]], Cell[CellGroupData[{ Cell[356204, 8743, 215, 6, 70, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], Cell[356422, 8751, 172, 3, 70, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] }, Open ]] } ] *) (* End of internal cache information *)