(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Wolfram 14.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] NotebookDataLength[ 569020, 14282] NotebookOptionsPosition[ 528338, 13640] NotebookOutlinePosition[ 528792, 13658] CellTagsIndexPosition[ 528749, 13655] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d", "=", "3"}]], "Input", CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9},ExpressionUUID->"05f0731c-d41f-bc4e-b3a5-\ fe37ee9edd84"], Cell[BoxData["3"], "Output", CellChangeTimes->{3.991320420900818*^9}, CellLabel->"Out[46]=",ExpressionUUID->"59710435-e1fd-814a-bd23-6a3a082f9166"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A", "=", "236"}]], "Input", CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, 3.99179303935478*^9}},ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-\ b91fdc1bbe34"], Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, 3.9917123683710194`*^9}}, CellLabel-> "Out[374]=",ExpressionUUID->"127d1f92-fab0-c143-b7a7-1a3639c70287"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A1", "="}]], "Input", CellChangeTimes->{3.9917123636954575`*^9, 3.9917930477498703`*^9},ExpressionUUID->"93a900cf-d755-b944-921b-\ a609f0a955d2"], Cell[BoxData["58"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, 3.9917123684317207`*^9}}, CellLabel-> "Out[375]=",ExpressionUUID->"04807396-80ba-9d48-9880-d5034affbebb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, CellLabel-> "In[365]:=",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9}, CellLabel-> "Out[365]=",ExpressionUUID->"c9b1aca0-8c57-7841-9f47-4065e42d1be9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a2", "=", RowBox[{"a1", "-", RowBox[{"0.015", "*", FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", CellLabel-> "In[366]:=",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], Cell[BoxData["0.5484745762711865`"], "Output", CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9}, CellLabel-> "Out[366]=",ExpressionUUID->"d140ea6a-5556-4549-9162-53cd65902074"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", CellLabel-> "In[367]:=",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9}, CellLabel-> "Out[367]=",ExpressionUUID->"1945b47e-8242-f141-8f24-145573b8d035"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"R01", "=", RowBox[{"1.16", "*", SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, CellLabel-> "In[368]:=",ExpressionUUID->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], Cell[BoxData["5.876324542157027`"], "Output", CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9}, CellLabel-> "Out[368]=",ExpressionUUID->"7a1a8da1-0bcf-b54b-9fee-cefa315cdb2f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"R02", "=", RowBox[{"1.16", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", CellLabel-> "In[369]:=",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], Cell[BoxData["5.489843249749507`"], "Output", CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9}, CellLabel-> "Out[369]=",ExpressionUUID->"20ba6663-ffc2-0e44-9f42-439485fbc707"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b1", "="}]], "Input", CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9},ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], Cell[BoxData["0.420231827681518`"], "Output", CellChangeTimes->{3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, 3.991712407248003*^9}, CellLabel-> "Out[376]=",ExpressionUUID->"c1cb754b-dcac-584d-b97e-790bbfb09804"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b2", "="}]], "Input", CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9},ExpressionUUID->"2d27be30-fef3-4449-b748-\ 886004fbb723"], Cell[BoxData["0.787931405657569`"], "Output", CellChangeTimes->{3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, 3.9917124073213234`*^9}, CellLabel-> "Out[377]=",ExpressionUUID->"8ccd1fe7-b42d-e94a-8f21-428102053d08"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", CellLabel-> "In[372]:=",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9}, CellLabel-> "Out[372]=",ExpressionUUID->"9028d520-a386-4d42-869d-0525c235b913"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", CellLabel-> "In[373]:=",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9}, CellLabel-> "Out[373]=",ExpressionUUID->"d0265467-59e4-be49-a64b-8c82690d7968"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"w1", "=", FractionBox[ RowBox[{"1", "-", FractionBox[ RowBox[{"b1", "*", "b1"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b1", "*", SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]]}]}], RowBox[{"1", "-", FractionBox[ RowBox[{"b1", "*", "b1"}], RowBox[{"4", "\[Pi]"}]], "-", RowBox[{"b1", "*", SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", CellLabel-> "In[231]:=",ExpressionUUID->"44764fb1-9da1-4d4e-a570-89126d15f894"], Cell[BoxData["1.4975864418719793`"], "Output", CellChangeTimes->{3.9913197863028755`*^9, 3.991707968406042*^9}, CellLabel-> "Out[231]=",ExpressionUUID->"eaa05129-f525-ae46-856a-3848d0f71fe6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"w2", "=", FractionBox[ RowBox[{"1", "-", FractionBox[ RowBox[{"b2", "*", "b2"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b2", "*", SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]]}]}], RowBox[{"1", "-", FractionBox[ RowBox[{"b2", "*", "b2"}], RowBox[{"4", "\[Pi]"}]], "-", RowBox[{"b2", "*", SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", CellLabel-> "In[232]:=",ExpressionUUID->"3281618b-d4a7-c942-98be-b78c0b986321"], Cell[BoxData["2.555495302485258`"], "Output", CellChangeTimes->{3.9913197864610195`*^9, 3.9917079684291363`*^9}, CellLabel-> "Out[232]=",ExpressionUUID->"38460700-3d9d-1443-a45f-7e5ee1ac1e65"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c11", "=", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"R02", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b2", "*", "b2"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b2", "*", SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"]}]}], ")"}], "*", RowBox[{"(", RowBox[{ SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], RowBox[{ RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b1", "*", "b1"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b1", "*", SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", SuperscriptBox["w2", "2"]}], "+", RowBox[{"R02", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b2", "*", "b2"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b2", "*", SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", CellLabel-> "In[234]:=",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], Cell[BoxData["0.686923100169971`"], "Output", CellChangeTimes->{3.991319786533783*^9, 3.991707968457081*^9}, CellLabel-> "Out[234]=",ExpressionUUID->"6fb0963d-5264-7b48-8d3a-ac1aa2bee48f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c12", "=", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"R02", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b2", "*", "b2"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b2", "*", SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["w2", "2"]}], ")"}]}], RowBox[{ RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b1", "*", "b1"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b1", "*", SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", SuperscriptBox["w2", "2"]}], "+", RowBox[{"R02", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b2", "*", "b2"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b2", "*", SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]], "Input", CellLabel-> "In[235]:=",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], Cell[BoxData[ RowBox[{"-", "0.4218526400906269`"}]], "Output", CellChangeTimes->{3.991319786540777*^9, 3.9917079684650364`*^9}, CellLabel-> "Out[235]=",ExpressionUUID->"22af3164-9ad3-3a45-a446-4f30ebbff819"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c21", "=", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b1", "*", "b1"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b1", "*", SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["w1", "2"]}], ")"}]}], RowBox[{ RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b1", "*", "b1"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b1", "*", SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", SuperscriptBox["w2", "2"]}], "+", RowBox[{"R02", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b2", "*", "b2"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b2", "*", SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]], "Input", CellLabel-> "In[236]:=",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], Cell[BoxData[ RowBox[{"-", "0.08278118592697929`"}]], "Output", CellChangeTimes->{3.9913197865777817`*^9, 3.9917079684860363`*^9}, CellLabel-> "Out[236]=",ExpressionUUID->"cf644e36-3735-454b-b2f7-d6dcd3b19eee"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c22", "=", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b1", "*", "b1"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b1", "*", SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", RowBox[{"d", "*", SuperscriptBox["w1", "2"]}]}], ")"}], "*", RowBox[{"(", RowBox[{ SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], RowBox[{ RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b1", "*", "b1"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b1", "*", SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", SuperscriptBox["w2", "2"]}], "+", RowBox[{"R02", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b2", "*", "b2"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b2", "*", SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", CellLabel-> "In[237]:=",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], Cell[BoxData["0.2980016292909601`"], "Output", CellChangeTimes->{3.9913197866129*^9, 3.9917079684940376`*^9}, CellLabel-> "Out[237]=",ExpressionUUID->"1e5d103c-a3a6-3140-b337-734998937fb4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellLabel-> "In[238]:=",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], Cell[BoxData["300"], "Output", CellChangeTimes->{3.991319786620775*^9, 3.9917079685140343`*^9}, CellLabel-> "Out[238]=",ExpressionUUID->"26bf3ba6-95f3-0440-9e98-89c65d588c67"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", CellChangeTimes->{3.9918430951178913`*^9}, CellLabel-> "In[239]:=",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{3.991319786657793*^9, 3.991707968535036*^9}, CellLabel-> "Out[239]=",ExpressionUUID->"22e230e6-b8cd-524e-8e84-86b886e1db44"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", CellLabel-> "In[240]:=",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{3.9913197866657925`*^9, 3.9917079685410557`*^9}, CellLabel-> "Out[240]=",ExpressionUUID->"6d784a11-3113-334a-bc65-848d44a8e331"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, CellLabel-> "In[241]:=",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{3.9913197866996*^9, 3.991707968561041*^9}, CellLabel-> "Out[241]=",ExpressionUUID->"f304ab94-42d1-9641-9e04-2b925b4673f0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", CellLabel-> "In[242]:=",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{3.9913197867406044`*^9, 3.9917079685810375`*^9}, CellLabel-> "Out[242]=",ExpressionUUID->"2be55f72-e139-c147-8f9f-866d807a59c6"] }, Open ]], Cell[BoxData[ RowBox[{"Z1", "="}]], "Input", CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9},ExpressionUUID->"6e10280b-ebb3-f646-bb1d-\ 00a00fc0ed1c"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}},ExpressionUUID->"b89c6b57-db32-1742-8cc6-\ 85b9a16d9dd6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Z2", "=", RowBox[{"92", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { 3.991644237125025*^9, 3.991644237304865*^9}}, CellLabel-> "In[244]:=",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], Cell[BoxData["42"], "Output", CellChangeTimes->{3.9913197867928696`*^9, 3.991707968608036*^9}, CellLabel-> "Out[244]=",ExpressionUUID->"e6c6682a-cb21-c743-b88d-fc73cf3db099"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, CellLabel-> "In[245]:=",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], Cell[BoxData["106"], "Output", CellChangeTimes->{3.991319786827894*^9, 3.9917079686284103`*^9}, CellLabel-> "Out[245]=",ExpressionUUID->"3e510172-ed35-5148-a7f8-03fff81b2ea8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Din", "=", RowBox[{"fin", "+", RowBox[{"ffin", "*", FractionBox[ RowBox[{"A1", "-", RowBox[{"2", "*", "Z1"}]}], "A1"], "*", FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", CellLabel-> "In[246]:=",ExpressionUUID->"7ab41717-55b0-584a-809f-945d0d693a80"], Cell[BoxData["0.11011611030478954`"], "Output", CellChangeTimes->{3.9913197868648605`*^9, 3.9917079686354065`*^9}, CellLabel-> "Out[246]=",ExpressionUUID->"759e5be1-9cfd-ce46-9dc4-752b81633c5e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dex", "=", RowBox[{"fex", "+", RowBox[{"ffex", "*", FractionBox[ RowBox[{"A1", "-", RowBox[{"2", "*", "Z1"}]}], "A1"], "*", FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", CellLabel-> "In[247]:=",ExpressionUUID->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], Cell[BoxData[ RowBox[{"-", "2.5641364296081277`"}]], "Output", CellChangeTimes->{3.9913197868718567`*^9, 3.991707968658518*^9}, CellLabel-> "Out[247]=",ExpressionUUID->"b5bf1cf3-0246-5048-8e42-9650cc3d9e60"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"R00", "=", RowBox[{ RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b1", "*", "b1"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b1", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"R02", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b2", "*", "b2"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b2", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], "+", "d"}]}]], "Input", CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}},ExpressionUUID->"622e209c-a48d-e442-88d4-\ 31c1022a52c8"], Cell[BoxData["18.93801245170691`"], "Output", CellChangeTimes->{3.9913197869068584`*^9, 3.991707968678421*^9}, CellLabel-> "Out[248]=",ExpressionUUID->"580d9f26-e956-3547-8bc2-58d4d8b3ac06"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, CellLabel-> "In[249]:=",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], Cell[BoxData["300"], "Output", CellChangeTimes->{3.991319786940857*^9, 3.9917079686854057`*^9}, CellLabel-> "Out[249]=",ExpressionUUID->"46c953a3-0a25-be49-9ded-c3190caa374e"] }, Open ]], Cell[BoxData[ RowBox[{"v1", "="}]], "Input", CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.991793106556059*^9},ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-\ 94e32bbe2818"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}},ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-\ 4b5b928d8058"], Cell[BoxData[ RowBox[{"n1", "="}]], "Input", CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, 3.991793107839529*^9},ExpressionUUID->"59432052-36a9-0e4a-b136-\ b5ef6e1cf7dc"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}},ExpressionUUID->"7620191d-049f-d749-807c-\ ff7994d2bf64"], Cell[BoxData[ RowBox[{"vv1", "="}]], "Input", CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, 3.991793108990593*^9},ExpressionUUID->"2838c52a-e621-824e-8a28-\ 6ddd911b4320"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}},ExpressionUUID->"42e257a2-6901-9d4f-a831-\ 1954f32e9186"], Cell[BoxData[ RowBox[{"nn1", "="}]], "Input", CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, 3.9917931103354855`*^9},ExpressionUUID->"26236e3a-fdac-eb4e-a22f-\ 56d02cebcf41"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}},ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-\ cdd040915619"], Cell[BoxData[ RowBox[{"v2", "="}]], "Input", CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991717006317978*^9, 3.9917931115739956`*^9},ExpressionUUID->"02fa1476-84ef-ac4d-a088-\ 22546d6249ff"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}},ExpressionUUID->"5841a374-f07b-3948-b1fb-\ c9f1f2e2508c"], Cell[BoxData[ RowBox[{"n2", "="}]], "Input", CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917170151233826`*^9, 3.9917931128910503`*^9},ExpressionUUID->"2fad32fe-2323-a247-8df8-\ 53787ce8fe84"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}},ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-\ 65c9268fc5eb"], Cell[BoxData[ RowBox[{"vv2", "="}]], "Input", CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9},ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-\ 1d0e115472c2"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}},ExpressionUUID->"dfb148c5-f80e-3f46-b88b-\ 570a723a95bc"], Cell[BoxData[ RowBox[{"nn2", "="}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.991793116134735*^9},ExpressionUUID->"db5cb55e-0710-c147-81f4-\ 1d5b600a6284"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}},ExpressionUUID->"bc012921-2f5f-014d-9378-\ a2fad1ed7321"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U31", "=", RowBox[{"C0", "*", "b2", "*", "b2", "*", FractionBox[ RowBox[{"R02", "*", "R02"}], "2"], "*", RowBox[{"(", RowBox[{ RowBox[{"v2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", "a1", ")"}], "*", RowBox[{"(", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", RowBox[{"v2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"Coth", "[", FractionBox["R01", "a1"], "]"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", RowBox[{"vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", "nn2", ")"}], "*", RowBox[{"(", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", RowBox[{"vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Coth", "[", FractionBox["R2", "nn2"], "]"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ")"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", RowBox[{"2", "*", "vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Coth", "[", FractionBox["R2", "nn2"], "]"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ")"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", RowBox[{"vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"Coth", "[", FractionBox["R02", "nn2"], "]"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", RowBox[{"Dex", "*", "v2", "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], CellLabel-> "In[258]:=",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], Cell[BoxData["2.125171289585548`"], "Output", CellChangeTimes->{3.991319787430073*^9, 3.991707979950527*^9}, CellLabel-> "Out[258]=",ExpressionUUID->"61f08cc0-39fa-db4e-9b24-7599ef30de22"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U33", "=", RowBox[{"C0", "*", "b1", "*", "b1", "*", FractionBox[ RowBox[{"R01", "*", "R01"}], "2"], "*", RowBox[{"(", RowBox[{ RowBox[{"vv1", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", "nn1", ")"}], "*", RowBox[{"(", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", StyleBox[ RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], ")"}]}], "-", RowBox[{"vv1", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"Coth", "[", FractionBox["R01", "nn1"], "]"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", StyleBox[ RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], "-", RowBox[{"vv1", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Coth", "[", FractionBox["R1", "nn1"], "]"}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ")"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", StyleBox[ RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], "-", RowBox[{"2", "*", "vv1", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Coth", "[", FractionBox["R1", "nn1"], "]"}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ")"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", StyleBox[ RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], "+", RowBox[{"v1", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", "a2", ")"}], "*", RowBox[{"(", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", StyleBox[ RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], ")"}]}], "-", RowBox[{"v1", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"Coth", "[", FractionBox["R02", "a2"], "]"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", StyleBox[ RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], "+", RowBox[{"Dex", "*", "v1", "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", StyleBox[ RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, CellLabel-> "In[259]:=",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], Cell[BoxData["0.17070935194563583`"], "Output", CellChangeTimes->{3.991319787574972*^9, 3.9917079908393784`*^9}, CellLabel-> "Out[259]=",ExpressionUUID->"5871324b-d5fe-804e-99ed-0d282d51f6f8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U32", "=", RowBox[{"C0", "*", "b1", "*", "b2", "*", FractionBox[ RowBox[{"R01", "*", "R02"}], "1"], "*", RowBox[{"(", RowBox[{ RowBox[{"vv1", "*", "v2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", "nn1", ")"}], "*", RowBox[{"(", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", RowBox[{"vv1", "*", "v2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"Coth", "[", FractionBox["R01", "nn1"], "]"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", RowBox[{"vv1", "*", "v2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Coth", "[", FractionBox["R1", "nn1"], "]"}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ")"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", RowBox[{"v1", "*", "vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", "n2", ")"}], "*", RowBox[{"(", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", RowBox[{"v1", "*", "vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"Coth", "[", FractionBox["R02", "n2"], "]"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", RowBox[{"v1", "*", "vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Coth", "[", FractionBox["R2", "n2"], "]"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ")"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", RowBox[{"v2", "*", "v1", "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, CellLabel-> "In[260]:=",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], Cell[BoxData[ RowBox[{"-", "34.511403639297946`"}]], "Output", CellChangeTimes->{3.991319787641424*^9, 3.991707995240637*^9}, CellLabel-> "Out[260]=",ExpressionUUID->"69e00e78-0c26-1440-9a3a-e94f8a3d4436"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U41", "=", RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", FractionBox[ RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", RowBox[{"(", RowBox[{ RowBox[{"vv1", "*", "v2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", "nn1", ")"}], "*", RowBox[{"(", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", RowBox[{"vv1", "*", "v2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"Coth", "[", FractionBox["R01", "nn1"], "]"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", RowBox[{"vv1", "*", "v2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Coth", "[", FractionBox["R1", "nn1"], "]"}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ")"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", RowBox[{"v1", "*", "vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", "n2", ")"}], "*", RowBox[{"(", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", RowBox[{"v1", "*", "vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"Coth", "[", FractionBox["R02", "n2"], "]"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", RowBox[{"2", "*", "v1", "*", "vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Coth", "[", FractionBox["R2", "n2"], "]"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ")"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", RowBox[{"v1", "*", "vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Coth", "[", FractionBox["R2", "n2"], "]"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ")"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", RowBox[{"v2", "*", "v1", "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> "In[261]:=",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], Cell[BoxData[ RowBox[{"-", "83.07900804214765`"}]], "Output", CellChangeTimes->{3.991319787711939*^9, 3.991707999380541*^9}, CellLabel-> "Out[261]=",ExpressionUUID->"dd600f43-aeda-474e-adc2-ff73bb8ee0d1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U42", "=", RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", FractionBox[ RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", RowBox[{"(", RowBox[{ RowBox[{"vv1", "*", "v2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", "nn1", ")"}], "*", RowBox[{"(", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", RowBox[{"vv1", "*", "v2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"Coth", "[", FractionBox["R01", "nn1"], "]"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", RowBox[{"2", "*", "vv1", "*", "v2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Coth", "[", FractionBox["R1", "nn1"], "]"}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ")"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", RowBox[{"vv1", "*", "v2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Coth", "[", FractionBox["R1", "nn1"], "]"}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ")"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", RowBox[{"v1", "*", "vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", "n2", ")"}], "*", RowBox[{"(", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", RowBox[{"v1", "*", "vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"Coth", "[", FractionBox["R02", "n2"], "]"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", RowBox[{"v1", "*", "vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Coth", "[", FractionBox["R2", "n2"], "]"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ")"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", RowBox[{"v2", "*", "v1", "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> "In[262]:=",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], Cell[BoxData[ RowBox[{"-", "41.56826179685921`"}]], "Output", CellChangeTimes->{3.9913197877723045`*^9, 3.991708001954468*^9}, CellLabel-> "Out[262]=",ExpressionUUID->"55f1a542-9da5-9645-bb46-2c5c04b109ce"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U51", "=", RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", FractionBox[ RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", RowBox[{"(", RowBox[{ RowBox[{"vv1", "*", "v2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", "nn1", ")"}], "*", RowBox[{"(", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", RowBox[{"vv1", "*", "v2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"Coth", "[", FractionBox["R01", "nn1"], "]"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", RowBox[{"2", "*", "vv1", "*", "v2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Coth", "[", FractionBox["R1", "nn1"], "]"}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ")"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", RowBox[{"vv1", "*", "v2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Coth", "[", FractionBox["R1", "nn1"], "]"}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ")"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", RowBox[{"v1", "*", "vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", "n2", ")"}], "*", RowBox[{"(", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", RowBox[{"v1", "*", "vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"Coth", "[", FractionBox["R02", "n2"], "]"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", RowBox[{"2", "*", "v1", "*", "vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Coth", "[", FractionBox["R2", "n2"], "]"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ")"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", RowBox[{"v1", "*", "vv2", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Coth", "[", FractionBox["R2", "n2"], "]"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ")"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", RowBox[{"v2", "*", "v1", "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R1"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], RowBox[{"r", "*", RowBox[{"Sinh", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", RowBox[{"Sin", "[", RowBox[{"r", "*", "R2"}], "]"}], "*", RowBox[{"Coth", "[", RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", RowBox[{"Cos", "[", RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", FractionBox[ RowBox[{"Sin", "[", RowBox[{"r", "*", "R00"}], "]"}], RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", RowBox[{"{", RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "->", "R02"}]}], ",", RowBox[{"{", RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "->", "R01"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> "In[263]:=",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], Cell[BoxData[ RowBox[{"-", "203.43164082674423`"}]], "Output", CellChangeTimes->{3.991319787833355*^9, 3.9917080040838356`*^9}, CellLabel-> "Out[263]=",ExpressionUUID->"3fbd24dd-e646-2c48-80cb-2c0e68ae3396"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", CellLabel-> "In[265]:=",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.9913204210013676`*^9, 3.991708067458639*^9}, CellLabel-> "Out[265]=",ExpressionUUID->"eddf556b-7952-114f-ad19-61212135319f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", CellLabel-> "In[266]:=",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.9913204210355663`*^9, 3.9917080674805565`*^9}, CellLabel-> "Out[266]=",ExpressionUUID->"925a31aa-9bd4-ec4b-918d-44895a7ffa06"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"-", "3"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox["5", RowBox[{"4", "\[Pi]"}]], "*", SuperscriptBox["c11", "2"], RowBox[{"(", RowBox[{ RowBox[{"2", "U33"}], "+", "U32", "+", RowBox[{ SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], RowBox[{"(", RowBox[{ RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", RowBox[{ FractionBox["5", RowBox[{"4", "\[Pi]"}]], "*", SuperscriptBox["c21", "2"], RowBox[{"(", RowBox[{ RowBox[{"2", "U31"}], "+", "U32", "+", RowBox[{ SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], RowBox[{"(", RowBox[{ RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> "In[267]:=",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], Cell[BoxData["172.12502478909397`"], "Output", CellChangeTimes->{3.991320421068556*^9, 3.9917080675026455`*^9}, CellLabel-> "Out[267]=",ExpressionUUID->"ef896caa-532b-1c47-88e1-148365496222"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["15", RowBox[{"4", "\[Pi]"}]]}], RowBox[{"(", RowBox[{ RowBox[{"c11", "*", "c12", RowBox[{"(", RowBox[{ RowBox[{"2", "U33"}], "+", "U32", "+", RowBox[{ SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], RowBox[{"(", RowBox[{ RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", RowBox[{"c21", "*", "c22", RowBox[{"(", RowBox[{ RowBox[{"2", "U31"}], "+", "U32", "+", RowBox[{ SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], RowBox[{"(", RowBox[{ RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> "In[268]:=",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], Cell[BoxData[ RowBox[{"-", "113.59821940674647`"}]], "Output", CellChangeTimes->{3.991320421098543*^9, 3.991708067510544*^9}, CellLabel-> "Out[268]=",ExpressionUUID->"0b7394b6-aa08-c14b-b2d8-582ab7ec833b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"-", "3"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox["5", RowBox[{"4", "\[Pi]"}]], "*", SuperscriptBox["c22", "2"], RowBox[{"(", RowBox[{ RowBox[{"2", "U31"}], "+", "U32", "+", RowBox[{ SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], RowBox[{"(", RowBox[{ RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", RowBox[{ FractionBox["5", RowBox[{"4", "\[Pi]"}]], "*", SuperscriptBox["c12", "2"], RowBox[{"(", RowBox[{ RowBox[{"2", "U33"}], "+", "U32", "+", RowBox[{ SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], RowBox[{"(", RowBox[{ RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> "In[269]:=",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], Cell[BoxData["98.17642406365678`"], "Output", CellChangeTimes->{3.9913204211275444`*^9, 3.9917080675337753`*^9}, CellLabel-> "Out[269]=",ExpressionUUID->"5fcaa46c-385d-4040-80a1-54f36d41ad5a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", CellLabel-> "In[270]:=",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], Cell[BoxData["0.686923100169971`"], "Output", CellChangeTimes->{3.9913204211385536`*^9, 3.991708067540825*^9}, CellLabel-> "Out[270]=",ExpressionUUID->"6afc707f-6b3a-f54b-88b4-614c0ceb18fc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", CellLabel-> "In[271]:=",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], Cell[BoxData[ RowBox[{"-", "0.4218526400906269`"}]], "Output", CellChangeTimes->{3.9913204211683464`*^9, 3.991708067561775*^9}, CellLabel-> "Out[271]=",ExpressionUUID->"99e4c659-a451-4146-a9de-ef890867f12e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", CellLabel-> "In[272]:=",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], Cell[BoxData[ RowBox[{"-", "0.08278118592697929`"}]], "Output", CellChangeTimes->{3.991320421199068*^9, 3.9917080675837746`*^9}, CellLabel-> "Out[272]=",ExpressionUUID->"25a55a1d-e64a-4748-a151-0527c259a866"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", CellLabel-> "In[273]:=",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], Cell[BoxData["0.2980016292909601`"], "Output", CellChangeTimes->{3.991320421228037*^9, 3.9917080675917854`*^9}, CellLabel-> "Out[273]=",ExpressionUUID->"871d7b0c-b914-3d4a-95d8-f4a3e193bd06"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", CellLabel-> "In[274]:=",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], Cell[BoxData["1.4975864418719793`"], "Output", CellChangeTimes->{3.9913204212585373`*^9, 3.991708067612774*^9}, CellLabel-> "Out[274]=",ExpressionUUID->"0c5e1508-483e-e945-9c69-fc92813d991f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", CellLabel-> "In[275]:=",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], Cell[BoxData["2.555495302485258`"], "Output", CellChangeTimes->{3.9913204212884274`*^9, 3.991708067619776*^9}, CellLabel-> "Out[275]=",ExpressionUUID->"e1360dcb-c05f-6341-afea-fa85f3ff2ec0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"-", "3"}], FractionBox[ RowBox[{"Z1", "*", "Z2", "*", "1.44"}], SuperscriptBox["R00", "3"]], SuperscriptBox["R01", "2"], "*", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox[ FractionBox["9", RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", CellLabel-> "In[276]:=",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], Cell[BoxData[ RowBox[{"-", "10.231164697136627`"}]], "Output", CellChangeTimes->{3.9913204213185234`*^9, 3.991708067640772*^9}, CellLabel-> "Out[276]=",ExpressionUUID->"e6a85d91-dd27-b74d-9965-4b613c74d080"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"-", "3"}], FractionBox[ RowBox[{"Z1", "*", "Z2", "*", "1.44"}], SuperscriptBox["R00", "3"]], SuperscriptBox["R02", "2"], "*", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox[ FractionBox["9", RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", CellLabel-> "In[277]:=",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], Cell[BoxData[ RowBox[{"-", "26.106849154646998`"}]], "Output", CellChangeTimes->{3.991320421349531*^9, 3.991708067662775*^9}, CellLabel-> "Out[277]=",ExpressionUUID->"79fd6291-2776-3c4c-884e-ac4ed87b9bb3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BBB11", "=", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"(", RowBox[{ RowBox[{ SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", RowBox[{ FractionBox["5", RowBox[{"4", "\[Pi]"}]], "*", SuperscriptBox["c11", "2"], RowBox[{"(", RowBox[{ RowBox[{"2", "U33"}], "+", "U32", "+", RowBox[{ SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], RowBox[{"(", RowBox[{ RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", RowBox[{ FractionBox["5", RowBox[{"4", "\[Pi]"}]], "*", SuperscriptBox["c21", "2"], RowBox[{"(", RowBox[{ RowBox[{"2", "U31"}], "+", "U32", "+", RowBox[{ SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], RowBox[{"(", RowBox[{ RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"3", FractionBox[ RowBox[{"Z1", "*", "Z2", "*", "1.44"}], SuperscriptBox["R00", "3"]], SuperscriptBox["R01", "2"], "*", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox[ FractionBox["9", RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", CellLabel-> "In[278]:=",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], Cell[BoxData["161.89386009195735`"], "Output", CellChangeTimes->{3.9913204213784294`*^9, 3.991708067669775*^9}, CellLabel-> "Out[278]=",ExpressionUUID->"9c6da0f7-fcb9-3249-8504-9107c35ce968"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BBB12", "=", RowBox[{ RowBox[{"-", FractionBox["15", RowBox[{"4", "\[Pi]"}]]}], RowBox[{"(", RowBox[{ RowBox[{"c11", "*", "c12", RowBox[{"(", RowBox[{ RowBox[{"2", "U33"}], "+", "U32", "+", RowBox[{ SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], RowBox[{"(", RowBox[{ RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", RowBox[{"c21", "*", "c22", RowBox[{"(", RowBox[{ RowBox[{"2", "U31"}], "+", "U32", "+", RowBox[{ SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], RowBox[{"(", RowBox[{ RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", CellLabel-> "In[279]:=",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], Cell[BoxData[ RowBox[{"-", "113.59821940674647`"}]], "Output", CellChangeTimes->{3.9913204213904285`*^9, 3.991708067690773*^9}, CellLabel-> "Out[279]=",ExpressionUUID->"e1b55829-8366-1647-927f-356a51dbcc7d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BBB22", "=", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"(", RowBox[{ RowBox[{ SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", RowBox[{ FractionBox["5", RowBox[{"4", "\[Pi]"}]], "*", SuperscriptBox["c22", "2"], RowBox[{"(", RowBox[{ RowBox[{"2", "U31"}], "+", "U32", "+", RowBox[{ SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], RowBox[{"(", RowBox[{ RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ FractionBox["5", RowBox[{"4", "\[Pi]"}]], "*", SuperscriptBox["c12", "2"], RowBox[{"(", RowBox[{ RowBox[{"2", "U33"}], "+", "U32", "+", RowBox[{ SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], RowBox[{"(", RowBox[{ RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"3", FractionBox[ RowBox[{"Z1", "*", "Z2", "*", "1.44"}], SuperscriptBox["R00", "3"]], SuperscriptBox["R02", "2"], "*", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox[ FractionBox["9", RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", CellLabel-> "In[280]:=",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], Cell[BoxData["72.06957490900979`"], "Output", CellChangeTimes->{3.991320421419428*^9, 3.991708067697775*^9}, CellLabel-> "Out[280]=",ExpressionUUID->"c67e7b02-609b-c14e-9940-0d393db14863"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Kb", "=", RowBox[{ RowBox[{"(", "BBB11", ")"}], "+", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"5", "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"R02", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"5", "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], ")"}], "*", RowBox[{"(", "BBB12", ")"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"5", "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"R02", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"5", "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", CellLabel-> "In[281]:=",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], Cell[BoxData["18.449895895311947`"], "Output", CellChangeTimes->{3.9913204214494324`*^9, 3.9917080677197742`*^9}, CellLabel-> "Out[281]=",ExpressionUUID->"39d5b2d2-060f-c047-9ad5-a617d92b3bfe"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Kw", "=", RowBox[{ RowBox[{"(", "BBB11", ")"}], "-", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"5", "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"R02", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"5", "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], ")"}], "*", RowBox[{"(", "BBB12", ")"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"5", "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"R02", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"5", "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", CellLabel-> "In[282]:=",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], Cell[BoxData["415.25946300708097`"], "Output", CellChangeTimes->{3.991320421481529*^9, 3.991708067726776*^9}, CellLabel-> "Out[282]=",ExpressionUUID->"f76a0198-0356-d543-bd9e-8d5e983db4d0"] }, Open ]], Cell[BoxData[ RowBox[{"f1", "="}]], "Input", CellChangeTimes->{3.991708306458519*^9, 3.991793259431082*^9},ExpressionUUID->"3ae683e0-3adf-504a-90dd-\ 615dd0a61fd8"], Cell[BoxData[ RowBox[{"f2", "="}]], "Input", CellChangeTimes->{{3.991708314438408*^9, 3.9917083191838818`*^9}, 3.9917932613989296`*^9},ExpressionUUID->"4fc0783d-23dd-314f-a326-\ 64b7548d9620"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ir", "=", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"A1", "*", RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", CellLabel-> "In[285]:=",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], Cell[BoxData["2.1312101525350907`*^-53"], "Output", CellChangeTimes->{3.99132042156752*^9, 3.991708376806082*^9}, CellLabel-> "Out[285]=",ExpressionUUID->"456d9a39-7fba-f04d-ad3f-598301b07b7b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Il", "=", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellLabel-> "In[286]:=",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], Cell[BoxData["1.4858228808851638`*^-54"], "Output", CellChangeTimes->{3.99132042159643*^9, 3.9917083768301735`*^9}, CellLabel-> "Out[286]=",ExpressionUUID->"c5999e66-1e94-f648-b31f-23089615bdad"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ih", "=", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", CellLabel-> "In[287]:=",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], Cell[BoxData["2.6038386215415245`*^-54"], "Output", CellChangeTimes->{3.9913204216085243`*^9, 3.99170837683708*^9}, CellLabel-> "Out[287]=",ExpressionUUID->"9eb71c6d-5365-6346-92d2-98d5e0de79b8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qb2", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> "In[670]:=",ExpressionUUID->"8aa9d08b-8eaf-d24c-8d70-f4347a6f878e"], Cell[BoxData["20.232611751799567`"], "Output", CellChangeTimes->{ 3.991323706886154*^9, 3.9917089973478775`*^9, 3.9920860582546215`*^9, 3.992086268464361*^9, 3.992086312066765*^9, 3.9920865713192253`*^9, 3.992086602134493*^9, 3.9920866682814503`*^9, {3.992086776768282*^9, 3.99208680410137*^9}, 3.992091247458048*^9, {3.992091392660454*^9, 3.992091446805294*^9}, {3.9920915031404457`*^9, 3.992091522601553*^9}, { 3.9920915619364376`*^9, 3.9920915885645847`*^9}}, CellLabel-> "Out[670]=",ExpressionUUID->"5de7561a-c835-3849-9551-bb5f09fb8931"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qw2", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellChangeTimes->{3.992086162437586*^9}, CellLabel-> "In[671]:=",ExpressionUUID->"1ca7586b-91ab-db43-8f6b-ae28116e89ea"], Cell[BoxData["61.811743284264836`"], "Output", CellChangeTimes->{ 3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9, 3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9, 3.992086668289461*^9, {3.992086776775297*^9, 3.9920868041333256`*^9}, 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, 3.992091588571615*^9}}, CellLabel-> "Out[671]=",ExpressionUUID->"beba7504-d2e1-a34b-a313-c333191940c0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> "In[672]:=",ExpressionUUID->"bf24e662-fae9-a44f-8e27-55a893ce4fbf"], Cell[BoxData["2.078701539535334`"], "Output", CellChangeTimes->{ 3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9, 3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9, 3.992086602164238*^9, 3.9920866683116226`*^9, {3.9920867767991753`*^9, 3.9920868041580334`*^9}, 3.9920912474925404`*^9, {3.9920913926935654`*^9, 3.992091446837303*^9}, {3.9920915031795254`*^9, 3.992091522629343*^9}, { 3.9920915619686337`*^9, 3.992091588596325*^9}}, CellLabel-> "Out[672]=",ExpressionUUID->"3254ddb1-51d7-0c4b-935d-057c3f1d76a2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw2"]]}]], "Input", CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, CellLabel-> "In[673]:=",ExpressionUUID->"d937b18c-e29d-2f43-8938-d6d6f836399a"], Cell[BoxData["5.12428714806174`"], "Output", CellChangeTimes->{ 3.991320421726494*^9, 3.9917083769120636`*^9, 3.992086312117838*^9, 3.99208657136524*^9, 3.9920866021953373`*^9, 3.9920866683231354`*^9, { 3.9920867768061504`*^9, 3.9920868041630306`*^9}, 3.992091247522402*^9, { 3.992091392715067*^9, 3.9920914468593006`*^9}, {3.992091503202347*^9, 3.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}}, CellLabel-> "Out[673]=",ExpressionUUID->"d7d09352-2c05-664e-adfe-6b091391fe65"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", CellChangeTimes->{3.992086167409481*^9}, CellLabel-> "In[674]:=",ExpressionUUID->"9c8cf087-9405-ba4c-848c-2560561a15d9"], Cell[BoxData["316.7411217108498`"], "Output", CellChangeTimes->{ 3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9, 3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9, 3.9920866683466625`*^9, {3.9920867768341465`*^9, 3.9920868041850357`*^9}, 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, 3.9920915886284447`*^9}}, CellLabel-> "Out[674]=",ExpressionUUID->"b02669f8-f1a8-2943-9a89-7343edcc9853"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> "In[675]:=",ExpressionUUID->"39cadd0c-531d-8643-b58f-32602fc9b322"], Cell[BoxData["42.05756119728645`"], "Output", CellChangeTimes->{ 3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9, 3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9, 3.99208660222736*^9, 3.9920866683701725`*^9, {3.9920867768552227`*^9, 3.992086804192051*^9}, 3.9920912475547256`*^9, {3.9920913927436028`*^9, 3.992091446891386*^9}, {3.9920915032325726`*^9, 3.992091522664852*^9}, { 3.992091562006651*^9, 3.992091588636162*^9}}, CellLabel-> "Out[675]=",ExpressionUUID->"11285b94-1266-8642-a7e7-e61a093e4602"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[676]:=",ExpressionUUID->"63e87b25-79d4-3346-a596-4a114e4195fc"], Cell[BoxData["0.007069898460535921`"], "Output", CellChangeTimes->{ 3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9, 3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9, 3.992086602254381*^9, {3.992086776882221*^9, 3.9920868042180786`*^9}, 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, 3.992091588657053*^9}}, CellLabel-> "Out[676]=",ExpressionUUID->"f1652c1d-aa3a-2e42-9d4c-3e1f3c9ac5f6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[677]:=",ExpressionUUID->"e28c4c0a-4368-b445-b1ea-6ff4edd41335"], Cell[BoxData["10.539945190547895`"], "Output", CellChangeTimes->{ 3.991323707203314*^9, 3.991708997556095*^9, 3.99208606078174*^9, 3.992086270465349*^9, 3.9920863122235165`*^9, 3.992086602309389*^9, { 3.9920867769392548`*^9, 3.9920868042750893`*^9}, 3.992091250499668*^9, { 3.9920913928462048`*^9, 3.9920914469749584`*^9}, {3.992091503316616*^9, 3.9920915227624416`*^9}, {3.9920915621031647`*^9, 3.9920915887305927`*^9}}, CellLabel-> "Out[677]=",ExpressionUUID->"e77bd64f-d028-c642-9f71-6c1fd3581451"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{ "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], "]"}]], "Input", CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { 3.9920869541635437`*^9, 3.992086954848522*^9}}, CellLabel-> "In[678]:=",ExpressionUUID->"7c3953e4-2c3b-6941-a7e4-314ec1ea37f2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qb3", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", CellLabel-> "In[288]:=",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], Cell[BoxData["33.673965872471406`"], "Output", CellChangeTimes->{3.991320421637537*^9, 3.991708376860197*^9}, CellLabel-> "Out[288]=",ExpressionUUID->"e8f70513-a98e-5149-b026-a7013fc48e0c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qw3", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellLabel-> "In[289]:=",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], Cell[BoxData["49.795622284896666`"], "Output", CellChangeTimes->{3.9913204216685333`*^9, 3.9917083768681793`*^9}, CellLabel-> "Out[289]=",ExpressionUUID->"2a9bace2-5f5b-7543-922b-1957e9dc2125"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", CellLabel-> "In[290]:=",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], Cell[BoxData["0.7402012706407647`"], "Output", CellChangeTimes->{3.991320421698473*^9, 3.9917083768895397`*^9}, CellLabel-> "Out[290]=",ExpressionUUID->"0d20a6b5-4f71-d74e-954e-f8bfcf13bd0b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", CellLabel-> "In[291]:=",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], Cell[BoxData["2.8877805501281797`"], "Output", CellChangeTimes->{3.991320421726494*^9, 3.9917083769120636`*^9}, CellLabel-> "Out[291]=",ExpressionUUID->"01e40b86-a95b-f949-a695-ad5f540daad8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", CellLabel-> "In[292]:=",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], Cell[BoxData["143.79882951585392`"], "Output", CellChangeTimes->{3.9913204217554817`*^9, 3.9917083769190636`*^9}, CellLabel-> "Out[292]=",ExpressionUUID->"2e2424d7-7799-2b4b-95bc-ae946b4fd8fb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", CellLabel-> "In[293]:=",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], Cell[BoxData["24.92551232631708`"], "Output", CellChangeTimes->{3.9913204217855225`*^9, 3.9917083769420624`*^9}, CellLabel-> "Out[293]=",ExpressionUUID->"9ddda7ea-20b5-c94f-837f-207ee8178e7d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[294]:=",ExpressionUUID->"290356b5-801a-1742-8269-ff0ab0e7a72f"], Cell[BoxData["0.022775763954669258`"], "Output", CellChangeTimes->{3.9913204218154297`*^9, 3.991708376966078*^9}, CellLabel-> "Out[294]=",ExpressionUUID->"0e578c05-2e2b-ad42-9d2d-9ecb09bd5cc3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[295]:=",ExpressionUUID->"637830a9-4b17-0d47-8e69-3e6d73475803"], Cell[BoxData["5.872303105605972`"], "Output", CellChangeTimes->{3.991320422776104*^9, 3.9917083773418655`*^9}, CellLabel-> "Out[295]=",ExpressionUUID->"299177f1-f9a1-af41-9869-28085ee90f1a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o2", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[296]:=",ExpressionUUID->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], Cell[BoxData["0.012016705373490482`"], "Output", CellChangeTimes->{3.9913204229248886`*^9, 3.9917083773678513`*^9}, CellLabel-> "Out[296]=",ExpressionUUID->"b5e1d2db-7bc1-604a-ba8a-cce145044a0c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[297]:=",ExpressionUUID->"87d3f053-a210-4945-9497-51f3b35fe58a"], Cell[BoxData["8.084482663469702`"], "Output", CellChangeTimes->{3.9913204230053368`*^9, 3.9917083774558525`*^9}, CellLabel-> "Out[297]=",ExpressionUUID->"b3f6384f-9a37-5a49-8ec0-84b634cd8349"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h1", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[298]:=",ExpressionUUID->"407f3978-d419-be4a-9b05-517d07c044f1"], Cell[BoxData["0.6366880535214177`"], "Output", CellChangeTimes->{3.9913204230393543`*^9, 3.9917083774798565`*^9}, CellLabel-> "Out[298]=",ExpressionUUID->"c9e066e9-48dc-834a-bf61-59f21edf20c9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h2", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[299]:=",ExpressionUUID->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], Cell[BoxData["0.36331194647858245`"], "Output", CellChangeTimes->{3.9913204230728855`*^9, 3.9917083775008526`*^9}, CellLabel-> "Out[299]=",ExpressionUUID->"949c6939-8996-5843-bd4e-a0723aa0e87c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h3", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}]}], ")"}], "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> "In[300]:=",ExpressionUUID->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], Cell[BoxData["0.23131637602452607`"], "Output", CellChangeTimes->{3.9913204231038837`*^9, 3.9917083775258636`*^9}, CellLabel-> "Out[300]=",ExpressionUUID->"05eb4440-df71-e44f-97f3-da78599dccf8"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.991972340255615*^9, 3.9919723414591656`*^9}, { 3.99197238607337*^9, 3.991972394033249*^9}},ExpressionUUID->"c3247e8e-1dc6-bd47-b085-\ 4abc2b2cf1d2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.991795120812044*^9},ExpressionUUID->"9522bfa2-96cd-564e-b4a1-\ 30bc1fcf4125"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.1594055013876604`*^-216\\\", \ \\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ 31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ machine number; precision may be lost.\"", 2, 301, 87, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9}, CellLabel-> "During evaluation of \ In[301]:=",ExpressionUUID->"f4680526-8058-9849-befb-e4865d4a563d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.273492597284871`*^-222\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 301, 88, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775622177`*^9}, CellLabel-> "During evaluation of \ In[301]:=",ExpressionUUID->"7b3f9a5b-c904-9f45-ae40-f6aa2ea578f0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.3945594807927957`*^-227\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 301, 89, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913204231548862`*^9, 3.991708377570215*^9}, CellLabel-> "During evaluation of \ In[301]:=",ExpressionUUID->"9bd14fe4-b3cf-b14f-aa97-5dbc5cb6202b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 301, 90, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775782185`*^9}, CellLabel-> "During evaluation of \ In[301]:=",ExpressionUUID->"0ca94a44-b20e-a647-bf17-c07f630a5f3a"], Cell[BoxData["5.872303105605971`"], "Output", CellChangeTimes->{3.9913204260017204`*^9, 3.9917083806494102`*^9}, CellLabel-> "Out[301]=",ExpressionUUID->"65e8c927-2c63-a142-8aad-58bf978b2bc7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.991795125308359*^9},ExpressionUUID->"61b1cdf2-7f57-2647-9828-\ 9108456d2e21"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.1594055013876604`*^-216\\\", \ \\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ 31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ machine number; precision may be lost.\"", 2, 302, 91, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9}, CellLabel-> "During evaluation of \ In[302]:=",ExpressionUUID->"b3d3c42c-aed0-694c-a56a-81f4b82612ba"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.273492597284871`*^-222\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 302, 92, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913204262354183`*^9, 3.991708380758997*^9}, CellLabel-> "During evaluation of \ In[302]:=",ExpressionUUID->"2f7fcf78-2597-fc4e-9012-4d1e9a86bcce"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.3945594807927957`*^-227\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 302, 93, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913204262354183`*^9, 3.9917083807669945`*^9}, CellLabel-> "During evaluation of \ In[302]:=",ExpressionUUID->"3c4bf69d-6c7d-de4b-8920-9ad57cb702e9"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 302, 94, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913204262354183`*^9, 3.991708380774996*^9}, CellLabel-> "During evaluation of \ In[302]:=",ExpressionUUID->"04907cc7-b066-4045-b082-0e8636e44a75"], Cell[BoxData["8.084482663469705`"], "Output", CellChangeTimes->{3.991320428882721*^9, 3.991708383647377*^9}, CellLabel-> "Out[302]=",ExpressionUUID->"4dba64ce-42d0-7643-94bc-f9c2e73c58e7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", RowBox[{"Cos", "[", FractionBox[ RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9917951318268585`*^9},ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-\ abe222e3c5e2"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN 42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu 2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g 9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI /WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 /EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan 67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM 6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN 0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a v816fiUGr+eg0YII9v8BEOUgTQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN 42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu 2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g 9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI /WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 /EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan 67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM 6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN 0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a v816fiUGr+eg0YII9v8BEOUgTQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.7142433994369213}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.7142433994369213}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{91.80048673422974, 202.74756866009872`}, {-11.626778089982832`, 5.710721910017167}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN 42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu 2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g 9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI /WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 /EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan 67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM 6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN 0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a v816fiUGr+eg0YII9v8BEOUgTQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.7142433994369213}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.7142433994369213}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 180}, {0.7142433994369197, 1.372243180027523}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9913206956809444`*^9}, CellLabel->"Out[85]=",ExpressionUUID->"53a037b2-adfa-594a-9d2f-46330d412a4e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9917947276636543`*^9, 3.991795135217745*^9},ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-\ 71283b73bfa7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[RowBox[{\\\"8.853605365191904`*^-261\\\", \ \\\"+\\\", RowBox[{\\\"1.2742895118713662`*^-259\\\", \\\" \\\", \\\"\ \[ImaginaryI]\\\"}]}], \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 533, 172, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9}, CellLabel-> "During evaluation of \ In[533]:=",ExpressionUUID->"158b1701-392e-9148-a6e6-d78d21579b25"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"-\\\", \ FractionBox[RowBox[{\\\"1.150081977526622`*^-269\\\", \\\"-\\\", \ RowBox[{\\\"8.13735877285888`*^-270\\\", \\\" \\\", \ \\\"\[ImaginaryI]\\\"}]}], \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]}]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ \"", 2, 533, 173, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991320696298666*^9, 3.991714940260538*^9}, CellLabel-> "During evaluation of \ In[533]:=",ExpressionUUID->"b196af72-2471-f945-b15f-a1f22b679776"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"-\\\", \ FractionBox[RowBox[{\\\"1.4259413851482453`*^-279\\\", \\\"+\\\", \ RowBox[{\\\"6.174183281740049`*^-280\\\", \\\" \\\", \ \\\"\[ImaginaryI]\\\"}]}], \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]}]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ \"", 2, 533, 174, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991320696298666*^9, 3.991714940269535*^9}, CellLabel-> "During evaluation of \ In[533]:=",ExpressionUUID->"89243bac-60d4-3b49-89bd-2c48c2d7c0d6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 533, 175, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991320696298666*^9, 3.9917149402775383`*^9}, CellLabel-> "During evaluation of \ In[533]:=",ExpressionUUID->"c3addd05-515c-5541-aadb-feb07a5771c1"], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{3.9913218813523655`*^9, 3.991716043222481*^9}, CellLabel-> "Out[533]=",ExpressionUUID->"7bfc15da-d63d-7f47-833d-9017b6cff41e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", RowBox[{"{", "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, 3.9917953263701286`*^9},ExpressionUUID->"60c27e2c-7c95-1e4a-ab78-\ 642e76a08b0b"], Cell[BoxData[ GraphicsBox[{{}, InterpretationBox[{ TagBox[ TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> { Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[2]], Directive[ RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[2]], Directive[ RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[2]], Directive[ RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[2]], Directive[ RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[2]], Directive[ RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[2]], Directive[ RGBColor[1, 0.75, 0], AbsoluteThickness[2]], Directive[ RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[2]], Directive[ RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[2]], Directive[ RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[2]], Directive[ RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[2]], Directive[ RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[2]], Directive[ RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[2]], Directive[ RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 52.}, {0, 0.120683}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9917148467316074`*^9}, CellLabel-> "Out[529]=",ExpressionUUID->"cc3ebc6e-15ee-8a47-b0d6-52da3e7b0833"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { 3.991795329890896*^9, 3.99179533223897*^9}},ExpressionUUID->"7b17964f-3903-af4c-a72d-\ 552615ef4a37"], Cell[BoxData[ TemplateBox[{ "Show", "gcomb", "\"Could not combine the graphics objects in \ \\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ List[List[None, None], List[None, None]]], Rule[FrameTicks, \ List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ \\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ \"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ 52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, CellLabel-> "During evaluation of \ In[532]:=",ExpressionUUID->"63142347-0535-0246-bb25-8a2a2b48d7ca"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x130", ",", GraphicsBox[{{}, InterpretationBox[{ TagBox[ TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> { Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[2]], Directive[ RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[2]], Directive[ RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[2]], Directive[ RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[2]], Directive[ RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[2]], Directive[ RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[2]], Directive[ RGBColor[1, 0.75, 0], AbsoluteThickness[2]], Directive[ RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[2]], Directive[ RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[2]], Directive[ RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[2]], Directive[ RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[2]], Directive[ RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[2]], Directive[ RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[2]], Directive[ RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 52.}, {0, 0.120683}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]}], "]"}]], "Output", CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, CellLabel-> "Out[532]=",ExpressionUUID->"2ddcecd6-64a5-6e48-8c61-882e10c0065a"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"L", "=", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"Cw", "*", "\[Pi]"}], ")"}]}], ")"}]}]}]], "Input", CellChangeTimes->{ 3.9917953353381157`*^9},ExpressionUUID->"982133ce-0d36-4d45-a387-\ ff35350b5cb9"], Cell[BoxData["10.627292063383525`"], "Output", CellChangeTimes->{3.9913229040054893`*^9, 3.9917087761038074`*^9}, CellLabel-> "Out[303]=",ExpressionUUID->"bf4aa3c8-c644-2f48-80dc-1b5d3e2169d4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"L", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.991795437556492*^9},ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-\ edfd6d6a25f8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 338, 341, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340544611845*^9}, CellLabel-> "During evaluation of \ In[338]:=",ExpressionUUID->"b35d0e82-bb6d-3542-ab8b-ccb436f9a8d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 338, 342, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913405446218624`*^9}, CellLabel-> "During evaluation of \ In[338]:=",ExpressionUUID->"5ff9501d-78d7-7141-a437-5dd9f758c909"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ \"", 2, 338, 343, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340544630844*^9}, CellLabel-> "During evaluation of \ In[338]:=",ExpressionUUID->"0c4bed13-3785-d84a-8693-17cc81ace1e2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 338, 344, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991340544639845*^9}, CellLabel-> "During evaluation of \ In[338]:=",ExpressionUUID->"371084ac-a371-9848-9c63-34bb732ea61a"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j 8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd 5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf 8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT 7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe 8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm 3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU +23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS 9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh +wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX 9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC 4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ +qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M 6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP 3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY +xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD 3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G +BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv 7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx 8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j 8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd 5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf 8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT 7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe 8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm 3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU +23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS 9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh +wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX 9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC 4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ +qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M 6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP 3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY +xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD 3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G +BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv 7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx 8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j 8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd 5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf 8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT 7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe 8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm 3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU +23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS 9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh +wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX 9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC 4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ +qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M 6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP 3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY +xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD 3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G +BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv 7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx 8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9913408819317417`*^9}, CellLabel-> "Out[338]=",ExpressionUUID->"498a6190-c65d-fd44-a483-d79a44a15949"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> "In[305]:=",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.309715528933026`*^-184\\\", \ \\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ 7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 305, 99, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9}, CellLabel-> "During evaluation of \ In[305]:=",ExpressionUUID->"f6942d2b-1935-ce45-9eba-1218d93c5fe3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.907153735473414`*^-188\\\", \ \\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ 35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 305, 100, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991323664732767*^9, 3.991708903419855*^9}, CellLabel-> "During evaluation of \ In[305]:=",ExpressionUUID->"167a8bf3-70f7-1c4e-96cc-24c67ead632a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.0425594616274893`*^-191\\\", \ \\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ 54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 305, 101, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991323664732767*^9, 3.99170890342688*^9}, CellLabel-> "During evaluation of \ In[305]:=",ExpressionUUID->"038f97d9-5635-d243-bc57-4be91e08fd14"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 305, 102, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991323664732767*^9, 3.991708903434841*^9}, CellLabel-> "During evaluation of \ In[305]:=",ExpressionUUID->"f7ddd7d6-d715-2149-9192-e6e54f994bf9"], Cell[BoxData["10.627292063383527`"], "Output", CellChangeTimes->{3.9913236764669056`*^9, 3.991708909801548*^9}, CellLabel-> "Out[305]=",ExpressionUUID->"4fea8a21-ea7c-524f-ad6d-9d8516601f03"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "*", RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9917953473881397`*^9, 3.9917953498651447`*^9}, 3.991795392697935*^9},ExpressionUUID->"3915107a-86d9-0f46-b139-\ 986db5ca6b3b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.1594055013876604`*^-216\\\", \ \\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ 31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ machine number; precision may be lost.\"", 2, 306, 103, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9}, CellLabel-> "During evaluation of \ In[306]:=",ExpressionUUID->"dae61f02-18ea-a447-aa9a-3c4085f2c9f9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.273492597284871`*^-222\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 306, 104, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913236765399036`*^9, 3.9917089098605328`*^9}, CellLabel-> "During evaluation of \ In[306]:=",ExpressionUUID->"bd9df418-5c98-8c4b-942b-69cfdd942ea2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.3945594807927957`*^-227\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 306, 105, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913236765399036`*^9, 3.9917089098695354`*^9}, CellLabel-> "During evaluation of \ In[306]:=",ExpressionUUID->"b05bbe77-656b-3542-8f6f-f51eeb980d5e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 306, 106, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913236765399036`*^9, 3.991708909877537*^9}, CellLabel-> "During evaluation of \ In[306]:=",ExpressionUUID->"aef425fc-a2ce-1843-8bef-20a06a28cc20"], Cell[BoxData["0.2260739757151122`"], "Output", CellChangeTimes->{3.9913236883162384`*^9, 3.991708915455509*^9}, CellLabel-> "Out[306]=",ExpressionUUID->"8a69f3e4-efcf-6249-8505-a6b5d11b9f54"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991795355482418*^9, 3.991795359037939*^9}},ExpressionUUID->"f3705611-962a-7d49-8494-\ 287e0d1eefa8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.1594055013876604`*^-216\\\", \ \\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ 31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ machine number; precision may be lost.\"", 2, 307, 107, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9}, CellLabel-> "During evaluation of \ In[307]:=",ExpressionUUID->"5e178919-9cf0-ac45-87b2-eaf189f9416b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.273492597284871`*^-222\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 307, 108, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.99132368839011*^9, 3.9917089155044937`*^9}, CellLabel-> "During evaluation of \ In[307]:=",ExpressionUUID->"c8c43206-f2bb-ab48-9546-3aed8ebd1dcd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.3945594807927957`*^-227\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 307, 109, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.99132368839011*^9, 3.991708915514496*^9}, CellLabel-> "During evaluation of \ In[307]:=",ExpressionUUID->"c958a03d-0c1b-c74b-a9f2-bb628b87f1a7"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 307, 110, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.99132368839011*^9, 3.991708915523493*^9}, CellLabel-> "During evaluation of \ In[307]:=",ExpressionUUID->"6f03fbd5-dcac-9c41-9119-2c9486f681e2"], Cell[BoxData["9.422377094778273`"], "Output", CellChangeTimes->{3.9913236988049507`*^9, 3.9917089191072826`*^9}, CellLabel-> "Out[307]=",ExpressionUUID->"507fbc8b-c1fa-0f44-8dbb-3f1ee1226052"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991795365232689*^9, 3.991795367348419*^9}},ExpressionUUID->"1c2bb25c-a24b-4143-a03c-\ 8699409c5ef4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.1594055013876604`*^-216\\\", \ \\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ 31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ machine number; precision may be lost.\"", 2, 308, 111, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9}, CellLabel-> "During evaluation of \ In[308]:=",ExpressionUUID->"f14e1821-d6f6-9748-a381-88bb6ed09b0f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.273492597284871`*^-222\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 308, 112, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991323698915848*^9, 3.9917089191482677`*^9}, CellLabel-> "During evaluation of \ In[308]:=",ExpressionUUID->"831dbe9b-2d94-8949-9905-b6299cd5cfbb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"3.3945594807927957`*^-227\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 308, 113, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991323698915848*^9, 3.9917089191572685`*^9}, CellLabel-> "During evaluation of \ In[308]:=",ExpressionUUID->"b74c2d50-6b92-524d-9a2f-0df31e0a5942"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 308, 114, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991323698915848*^9, 3.9917089191662655`*^9}, CellLabel-> "During evaluation of \ In[308]:=",ExpressionUUID->"d2b87ee4-3849-3848-8231-476288e5e8a5"], Cell[BoxData["17.858625133306074`"], "Output", CellChangeTimes->{3.991323706795576*^9, 3.991708921519884*^9}, CellLabel-> "Out[308]=",ExpressionUUID->"1f9599fe-acbe-c146-bf37-8492663797c4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.991795377777033*^9, 3.9917953861610203`*^9}},ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-\ b2cb4ed5c458"], Cell[BoxData["0.017427950615406845`"], "Output", CellChangeTimes->{3.991323706858589*^9, 3.9917089215598965`*^9}, CellLabel-> "Out[309]=",ExpressionUUID->"5b12bbb1-2534-c04f-9206-3fa4c528fbbc"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991795400313652*^9, 3.991795402535782*^9}, 3.9919235486175213`*^9},ExpressionUUID->"f1e753e6-7de9-0b47-aa25-\ 47e49d9ceac1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qb2", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> "In[312]:=",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], Cell[BoxData["13.728880586425175`"], "Output", CellChangeTimes->{3.991323706886154*^9, 3.9917089973478775`*^9}, CellLabel-> "Out[312]=",ExpressionUUID->"98ae9ddb-8318-674e-80c9-7e140dcac1b0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> "In[314]:=",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], Cell[BoxData["1.159256117025567`"], "Output", CellChangeTimes->{3.9913237069236546`*^9, 3.9917089973924427`*^9}, CellLabel-> "Out[314]=",ExpressionUUID->"73a9f922-95ea-2b43-bf67-74680f371172"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> "In[317]:=",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], Cell[BoxData["15.91528879972694`"], "Output", CellChangeTimes->{3.9913237069753113`*^9, 3.99170899744343*^9}, CellLabel-> "Out[317]=",ExpressionUUID->"981c6b4f-3ed8-234c-af7f-12febe378c99"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[318]:=",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], Cell[BoxData["0.02865649962164857`"], "Output", CellChangeTimes->{3.991323707000412*^9, 3.991708997465433*^9}, CellLabel-> "Out[318]=",ExpressionUUID->"a7e2294b-e75d-4747-b07f-caeec25593bb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[319]:=",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], Cell[BoxData["5.235201118822964`"], "Output", CellChangeTimes->{3.991323707203314*^9, 3.991708997556095*^9}, CellLabel-> "Out[319]=",ExpressionUUID->"39075a12-e1b0-dd45-bb8f-a5cf418898ce"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o2", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[320]:=",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], Cell[BoxData["0.013475770149867995`"], "Output", CellChangeTimes->{3.9913237072224197`*^9, 3.9917089975825768`*^9}, CellLabel-> "Out[320]=",ExpressionUUID->"080dedf4-608b-784c-8095-92f61780909f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[321]:=",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], Cell[BoxData["7.634281035327282`"], "Output", CellChangeTimes->{3.991323707432623*^9, 3.991708997674572*^9}, CellLabel-> "Out[321]=",ExpressionUUID->"a5e88e9c-1ebc-a943-922b-32e11652b414"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h1", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[322]:=",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], Cell[BoxData["0.6366880535214177`"], "Output", CellChangeTimes->{3.9913237074497375`*^9, 3.9917089977023544`*^9}, CellLabel-> "Out[322]=",ExpressionUUID->"89a45800-1a51-ff40-8231-4f1dbc8bf045"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h2", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[323]:=",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], Cell[BoxData["0.36331194647858245`"], "Output", CellChangeTimes->{3.991323707467621*^9, 3.991708997725395*^9}, CellLabel-> "Out[323]=",ExpressionUUID->"8227fe2a-0032-8f43-8d97-0ae8dad9a493"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h3", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}]}], ")"}], "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> "In[324]:=",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], Cell[BoxData["0.23131637602452607`"], "Output", CellChangeTimes->{3.991323707488617*^9, 3.9917089977477455`*^9}, CellLabel-> "Out[324]=",ExpressionUUID->"dcd656ae-1e68-194a-83cc-3a21431e11fa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.99179485681155*^9},ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 325, 115, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9}, CellLabel-> "During evaluation of \ In[325]:=",ExpressionUUID->"35f9fd51-3342-bd4a-a255-ef6f0342c244"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 325, 116, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913237075117207`*^9, 3.991708997783745*^9}, CellLabel-> "During evaluation of \ In[325]:=",ExpressionUUID->"37eadcc8-b14a-e743-8e0a-c2ed5bf94bef"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 325, 117, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913237075117207`*^9, 3.9917089977927303`*^9}, CellLabel-> "During evaluation of \ In[325]:=",ExpressionUUID->"81d41f16-030a-e24b-b732-f8816d863b10"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 325, 118, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913237075117207`*^9, 3.991708997801733*^9}, CellLabel-> "During evaluation of \ In[325]:=",ExpressionUUID->"81c06ac5-a0a8-7344-a9ed-db535505b5ba"], Cell[BoxData["5.235201118822954`"], "Output", CellChangeTimes->{3.9913237161181736`*^9, 3.991709001238739*^9}, CellLabel-> "Out[325]=",ExpressionUUID->"bec50fae-ff8e-b342-8dc1-e0f019aca06c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.99179697882374*^9},ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 326, 119, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9}, CellLabel-> "During evaluation of \ In[326]:=",ExpressionUUID->"b24ec752-691b-9e46-9e12-41426d5a1496"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 326, 120, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913237161871567`*^9, 3.991709001294739*^9}, CellLabel-> "During evaluation of \ In[326]:=",ExpressionUUID->"976838b0-e209-5643-abb9-346ac4cbdf93"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 326, 121, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913237161871567`*^9, 3.991709001302742*^9}, CellLabel-> "During evaluation of \ In[326]:=",ExpressionUUID->"358b771e-09d7-964c-8b93-703e5579bb7f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 326, 122, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913237161871567`*^9, 3.991709001311737*^9}, CellLabel-> "During evaluation of \ In[326]:=",ExpressionUUID->"dc495a5d-d258-0641-8f11-30570c0a20cf"], Cell[BoxData["7.634281035327276`"], "Output", CellChangeTimes->{3.991323724852854*^9, 3.9917090047631493`*^9}, CellLabel-> "Out[326]=",ExpressionUUID->"f421afac-42a5-c84a-9348-c5e090b0f190"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "1"], RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", RowBox[{"Cos", "[", FractionBox[ RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9918466101881027`*^9},ExpressionUUID->"00de6621-4f9e-8a45-8ea8-\ edabb8e777e0"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv 3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ 1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d 2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo /cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW 35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA 22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A +fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E 2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ 2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf /J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc 9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY /lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ 77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg 2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs /onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia 70x+Lkfh53XZ2uCv/w8uxqIW "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv 3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ 1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d 2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo /cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW 35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA 22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A +fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E 2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ 2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf /J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc 9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY /lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ 77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg 2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs /onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia 70x+Lkfh53XZ2uCv/w8uxqIW "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.42228371308737755`}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.42228371308737755`}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv 3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ 1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d 2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo /cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW 35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA 22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A +fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E 2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ 2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf /J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc 9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY /lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ 77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg 2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs /onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia 70x+Lkfh53XZ2uCv/w8uxqIW "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.42228371308737755`}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.42228371308737755`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9913411752988663`*^9}, CellLabel-> "Out[360]=",ExpressionUUID->"982443ca-3c49-3842-942f-56dbbe6e860e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.99179699111117*^9, 3.991797003874716*^9}},ExpressionUUID->"f5360edc-957d-9f48-b8b4-\ 746fa181d4a5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 112, 45, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991324246104725*^9}, CellLabel-> "During evaluation of \ In[112]:=",ExpressionUUID->"16f95f8d-163b-784d-a7d4-d9be610470a4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.877419838456823`*^-281\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 112, 46, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913242461217346`*^9}, CellLabel-> "During evaluation of \ In[112]:=",ExpressionUUID->"668c7d88-6569-8648-b105-a03fa8ae5c99"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.990320554242227`*^-292\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 112, 47, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913242461427383`*^9}, CellLabel-> "During evaluation of \ In[112]:=",ExpressionUUID->"ebfa0449-48eb-8345-a082-4900c9d8a835"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 112, 48, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991324246159645*^9}, CellLabel-> "During evaluation of \ In[112]:=",ExpressionUUID->"54d7d346-3c8b-ea45-a47e-efd92955cab4"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T 4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O +QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i 2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq 6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en 6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv 857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l 49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU /fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz 056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm 0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx 4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg 5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D 2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb 32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r 4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH 99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn 4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T 4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O +QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i 2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq 6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en 6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv 857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l 49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU /fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz 056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm 0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx 4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg 5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D 2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb 32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r 4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH 99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn 4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T 4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O +QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i 2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq 6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en 6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv 857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l 49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU /fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz 056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm 0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx 4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg 5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D 2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb 32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r 4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH 99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn 4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.991324915847246*^9}, CellLabel-> "Out[112]=",ExpressionUUID->"ec297bd0-74ba-874e-beda-39d943d34a34"] }, Open ]], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.991797019894987*^9, 3.99179702451466*^9}},ExpressionUUID->"b422dcab-ec5f-5543-9fba-\ aafac96e937c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> "In[328]:=",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"9.938169890743013`*^-175\\\", \ \\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ 734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ \"", 2, 328, 123, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9}, CellLabel-> "During evaluation of \ In[328]:=",ExpressionUUID->"4237e138-f145-b443-83e0-43390364f340"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"5.17889047361004`*^-178\\\", \ \\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ 116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ is too small to represent as a normalized machine number; precision may be \ lost.\"", 2, 328, 124, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265068365192`*^9, 3.991709170478571*^9}, CellLabel-> "During evaluation of \ In[328]:=",ExpressionUUID->"f1817fe7-de7f-424a-8c32-fd6eb18ad55d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.6987772228196017`*^-181\\\", \ \\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ 2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ \\) is too small to represent as a normalized machine number; precision may \ be lost.\"", 2, 328, 125, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704865704`*^9}, CellLabel-> "During evaluation of \ In[328]:=",ExpressionUUID->"d01422f2-ac30-d647-9174-416a2de0acdd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 328, 126, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704955845`*^9}, CellLabel-> "During evaluation of \ In[328]:=",ExpressionUUID->"1cc939d5-2041-e346-853b-0da1f5d3fdb3"], Cell[BoxData["10.62729206338334`"], "Output", CellChangeTimes->{3.991326513010317*^9, 3.991709175908993*^9}, CellLabel-> "Out[328]=",ExpressionUUID->"be53344f-c49c-d340-8fe2-187c78764ee3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "*", RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9917970149184284`*^9, 3.991797037687023*^9}},ExpressionUUID->"2e239e43-8455-8947-be70-\ b8e43bbe859a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 329, 127, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9}, CellLabel-> "During evaluation of \ In[329]:=",ExpressionUUID->"376bc77a-50fd-0d47-9681-2bc434722c43"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 329, 128, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265130447063`*^9, 3.991709175973011*^9}, CellLabel-> "During evaluation of \ In[329]:=",ExpressionUUID->"2efa0725-97f0-1746-a14f-4d0ef984c116"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 329, 129, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265130447063`*^9, 3.991709175983019*^9}, CellLabel-> "During evaluation of \ In[329]:=",ExpressionUUID->"3247c80e-edc6-e745-8fee-5b551559a9ce"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 329, 130, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265130447063`*^9, 3.9917091759920235`*^9}, CellLabel-> "During evaluation of \ In[329]:=",ExpressionUUID->"5e6cbab7-7762-ef49-bbd5-8d0e64879c32"], Cell[BoxData["1.1698825507998156`"], "Output", CellChangeTimes->{3.9913265201819115`*^9, 3.9917091805041294`*^9}, CellLabel-> "Out[329]=",ExpressionUUID->"14e4c193-7d63-6f44-b586-9c58b6278944"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9917970412382812`*^9, 3.991797045066601*^9}},ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-\ 39037ee79c0a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 330, 131, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9}, CellLabel-> "During evaluation of \ In[330]:=",ExpressionUUID->"b53712a8-b3d6-1f4e-8898-5e6ce60da8c7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 330, 132, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991326520216116*^9, 3.9917091805532475`*^9}, CellLabel-> "During evaluation of \ In[330]:=",ExpressionUUID->"5dee7001-7024-b140-89a6-01103fff2a2b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 330, 133, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991326520216116*^9, 3.9917091805632515`*^9}, CellLabel-> "During evaluation of \ In[330]:=",ExpressionUUID->"f711f4eb-2b29-5047-8426-bced102f0fee"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 330, 134, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991326520216116*^9, 3.9917091805722485`*^9}, CellLabel-> "During evaluation of \ In[330]:=",ExpressionUUID->"b2bdb7ab-4d79-044f-8a69-305a4f35a1be"], Cell[BoxData["7.488766577772476`"], "Output", CellChangeTimes->{3.9913265264075394`*^9, 3.9917091848753357`*^9}, CellLabel-> "Out[330]=",ExpressionUUID->"635433e0-898b-ef4f-97c3-27cb9c864fdc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9917970522453213`*^9, 3.991797055966772*^9}},ExpressionUUID->"867b2dc8-7ef3-234b-80bd-\ e701484a92f5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 331, 135, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9}, CellLabel-> "During evaluation of \ In[331]:=",ExpressionUUID->"5521676c-b5e4-1145-b679-3dc06940bc52"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 331, 136, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849253387`*^9}, CellLabel-> "During evaluation of \ In[331]:=",ExpressionUUID->"88c4b1ae-962d-3b4a-a9c8-1101d0b0bcfc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ \\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ 4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 331, 137, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849343395`*^9}, CellLabel-> "During evaluation of \ In[331]:=",ExpressionUUID->"56a57c6b-07a8-f146-b18a-9a7e9cc34f3a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 331, 138, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265264435444`*^9, 3.99170918494335*^9}, CellLabel-> "During evaluation of \ In[331]:=",ExpressionUUID->"ec38de78-337d-2648-bf83-eb09a46b18b3"], Cell[BoxData["15.925014616300276`"], "Output", CellChangeTimes->{3.9913265299431496`*^9, 3.9917091876094093`*^9}, CellLabel-> "Out[331]=",ExpressionUUID->"b1693ef0-2cab-0142-884b-588173786ea2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.991797060470949*^9, 3.9917970642464314`*^9}},ExpressionUUID->"b1cee125-11a3-8a43-b076-\ a72829d187d3"], Cell[BoxData["0.10712656920120021`"], "Output", CellChangeTimes->{3.991326529975149*^9, 3.991709187637409*^9}, CellLabel-> "Out[332]=",ExpressionUUID->"0df6ed8f-8670-fa47-923c-919d6c136038"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.99179708384041*^9, 3.991797089031517*^9}, 3.991923586725128*^9},ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-\ f61f4036bef1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qb1", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> "In[334]:=",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], Cell[BoxData["20.157626483814337`"], "Output", CellChangeTimes->{3.9913265300040226`*^9, 3.9917092389246387`*^9}, CellLabel-> "Out[334]=",ExpressionUUID->"c881c11d-abad-0d49-99e0-f303d09aef0a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> "In[336]:=",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], Cell[BoxData["0.9567032806265168`"], "Output", CellChangeTimes->{3.991326530052025*^9, 3.991709238967621*^9}, CellLabel-> "Out[336]=",ExpressionUUID->"9caa35c4-53d8-fa45-a312-698f5ed5b1e5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> "In[339]:=",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], Cell[BoxData["19.284867386709134`"], "Output", CellChangeTimes->{3.9913265300922585`*^9, 3.9917092390388947`*^9}, CellLabel-> "Out[339]=",ExpressionUUID->"833d0ac6-4c09-d440-8bc3-d5df9ca76865"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[340]:=",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], Cell[BoxData["0.02613308078261745`"], "Output", CellChangeTimes->{3.9913265301172295`*^9, 3.991709239061901*^9}, CellLabel-> "Out[340]=",ExpressionUUID->"0382a191-ad63-844a-8759-086853e23ce5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[341]:=",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], Cell[BoxData["5.482133853543194`"], "Output", CellChangeTimes->{3.991326530210228*^9, 3.991709239151787*^9}, CellLabel-> "Out[341]=",ExpressionUUID->"219c4b04-20e8-3f41-8e84-a455d4da6bdc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o2", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> "In[342]:=",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], Cell[BoxData["0.012890445116466177`"], "Output", CellChangeTimes->{3.9913265302252293`*^9, 3.991709239183817*^9}, CellLabel-> "Out[342]=",ExpressionUUID->"b204ec83-ad19-5349-8b02-7defd6db0df8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> "In[343]:=",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], Cell[BoxData["7.805684323619363`"], "Output", CellChangeTimes->{3.9913265303172264`*^9, 3.9917092392730465`*^9}, CellLabel-> "Out[343]=",ExpressionUUID->"c15b8bac-d390-9f42-a7c0-c761ed162cd9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h1", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[344]:=",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], Cell[BoxData["0.6366880535214177`"], "Output", CellChangeTimes->{3.9913265303292294`*^9, 3.9917092392950573`*^9}, CellLabel-> "Out[344]=",ExpressionUUID->"c7904c57-9026-5d42-a13c-7cf9c291f02e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h2", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> "In[345]:=",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], Cell[BoxData["0.36331194647858245`"], "Output", CellChangeTimes->{3.991326530340416*^9, 3.9917092393180447`*^9}, CellLabel-> "Out[345]=",ExpressionUUID->"07fee721-d71d-e947-a10f-a3d491f5375c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h3", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}]}], ")"}], "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> "In[346]:=",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], Cell[BoxData["0.23131637602452607`"], "Output", CellChangeTimes->{3.991326530367384*^9, 3.9917092393410416`*^9}, CellLabel-> "Out[346]=",ExpressionUUID->"61d2bf74-dc83-444c-9d85-173366eb4115"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.9917970976395664`*^9},ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-\ 9f444415254b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 347, 139, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9}, CellLabel-> "During evaluation of \ In[347]:=",ExpressionUUID->"0c8f7a0d-d84f-5048-ba48-794ef1d00127"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ a normalized machine number; precision may be lost.\"", 2, 347, 140, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265303923836`*^9, 3.991709239377041*^9}, CellLabel-> "During evaluation of \ In[347]:=",ExpressionUUID->"e0f5c7bd-1699-2c49-bf84-66232a770396"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 347, 141, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393860435`*^9}, CellLabel-> "During evaluation of \ In[347]:=",ExpressionUUID->"650d4e60-de9d-c448-9e55-c9a2ff3adfbd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 347, 142, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393950424`*^9}, CellLabel-> "During evaluation of \ In[347]:=",ExpressionUUID->"02aaa7f6-e3fa-f246-ae96-c2637dc36a8a"], Cell[BoxData["5.482133853543194`"], "Output", CellChangeTimes->{3.9913265339749985`*^9, 3.991709242710472*^9}, CellLabel-> "Out[347]=",ExpressionUUID->"e85ac070-0188-1a40-a36b-aa73ff8bf583"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.991797103207548*^9},ExpressionUUID->"11801718-69ec-bf4e-86d8-\ e9949dfbcff4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 348, 143, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9}, CellLabel-> "During evaluation of \ In[348]:=",ExpressionUUID->"92fdcdbe-704c-8643-ac44-6336f3afd685"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ a normalized machine number; precision may be lost.\"", 2, 348, 144, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427604694`*^9}, CellLabel-> "During evaluation of \ In[348]:=",ExpressionUUID->"22fb307d-fe2e-4e40-aecb-68b60c56d53f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 348, 145, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427704697`*^9}, CellLabel-> "During evaluation of \ In[348]:=",ExpressionUUID->"fe4891cd-9e5e-304f-b8fa-b9a722a2b0ed"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 348, 146, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427794952`*^9}, CellLabel-> "During evaluation of \ In[348]:=",ExpressionUUID->"3700feb7-ec5c-144b-8683-e9364219ca8f"], Cell[BoxData["7.805684323619356`"], "Output", CellChangeTimes->{3.9913265375649567`*^9, 3.991709245963009*^9}, CellLabel-> "Out[348]=",ExpressionUUID->"8b9d1dc2-78af-9e49-aad9-8e9bc3b553be"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "1"], RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", RowBox[{"Cos", "[", FractionBox[ RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9918466101881027`*^9},ExpressionUUID->"8fb4818f-77bf-6445-8230-\ c17265c2e6e9"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv 3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ 1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d 2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo /cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW 35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA 22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A +fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E 2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ 2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf /J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc 9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY /lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ 77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg 2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs /onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia 70x+Lkfh53XZ2uCv/w8uxqIW "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv 3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ 1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d 2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo /cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW 35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA 22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A +fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E 2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ 2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf /J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc 9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY /lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ 77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg 2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs /onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia 70x+Lkfh53XZ2uCv/w8uxqIW "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.42228371308737755`}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.42228371308737755`}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv 3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ 1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d 2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo /cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW 35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA 22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A +fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E 2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ 2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf /J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc 9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY /lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ 77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg 2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs /onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia 70x+Lkfh53XZ2uCv/w8uxqIW "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0.42228371308737755`}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.42228371308737755`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9913411752988663`*^9}, CellLabel-> "Out[360]=",ExpressionUUID->"e447a546-4e4c-eb42-b69e-2528d5182b13"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.9917971087080173`*^9, 3.9917971122297535`*^9}},ExpressionUUID->"4d882d59-3e42-1040-97a9-\ 33dddc2b9855"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ \\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 138, 81, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991326773051552*^9}, CellLabel-> "During evaluation of \ In[138]:=",ExpressionUUID->"20149181-1e2c-4b41-b02e-304cc98619fd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"8.450949205829742`*^-278\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 138, 82, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913267730605392`*^9}, CellLabel-> "During evaluation of \ In[138]:=",ExpressionUUID->"44ce87a6-827a-304b-86da-3cdac8e926dc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"2.4109778485455803`*^-289\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 138, 83, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913267730685368`*^9}, CellLabel-> "During evaluation of \ In[138]:=",ExpressionUUID->"b6629f6a-df4e-5a42-a25e-15825d979765"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 138, 84, 24483298974280422597, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991326773076536*^9}, CellLabel-> "During evaluation of \ In[138]:=",ExpressionUUID->"5b7f13bb-27ba-5041-8f22-5700d1dce8b8"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq 1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa 3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf 9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t 1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW 9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY 6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj 6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT 7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi +Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u +pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx 0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v 8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ +V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx 6WkevnFqfy3DCYX/A6WEJbo= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq 1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa 3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf 9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t 1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW 9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY 6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj 6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT 7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi +Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u +pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx 0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v 8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ +V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx 6WkevnFqfy3DCYX/A6WEJbo= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq 1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa 3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf 9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t 1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW 9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY 6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj 6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT 7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi +Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u +pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx 0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v 8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ +V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx 6WkevnFqfy3DCYX/A6WEJbo= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.991327033758711*^9}, CellLabel-> "Out[138]=",ExpressionUUID->"ed04804c-1f60-394e-87d4-29e6f5f16859"] }, Open ]], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.9917971206132183`*^9, 3.9917971229936733`*^9}},ExpressionUUID->"715f943f-d061-fa48-bb45-\ 20a62a80a7df"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> "In[350]:=",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.1387495820703128`*^-176\\\", \ \\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ 35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 350, 147, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9}, CellLabel-> "During evaluation of \ In[350]:=",ExpressionUUID->"47145e38-56d2-404b-b2c9-a4c6bd4713fc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.041608798521609`*^-180\\\", \ \\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ 54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", 2, 350, 148, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711906605`*^9}, CellLabel-> "During evaluation of \ In[350]:=",ExpressionUUID->"c894df32-367b-2344-a42a-d2aaa61a6442"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.4344331657703033`*^-183\\\", \ \\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ 734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ \"", 2, 350, 149, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913279097599506`*^9, 3.99170937119866*^9}, CellLabel-> "During evaluation of \ In[350]:=",ExpressionUUID->"dd94c528-2deb-d443-8dc9-050571e0f325"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 350, 150, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913279097599506`*^9, 3.991709371206663*^9}, CellLabel-> "During evaluation of \ In[350]:=",ExpressionUUID->"23602150-0799-1542-bae7-7ae74cb1ca39"], Cell[BoxData["10.627292063383521`"], "Output", CellChangeTimes->{3.9913279159698696`*^9, 3.9917093778765774`*^9}, CellLabel-> "Out[350]=",ExpressionUUID->"283063f8-35c9-364f-a699-de6e0a543cf7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "*", RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9917971275265427`*^9, 3.991797131794855*^9}},ExpressionUUID->"9b45c184-4df7-db4d-adb2-\ 01f19f0f15b0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 351, 151, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9}, CellLabel-> "During evaluation of \ In[351]:=",ExpressionUUID->"a788a2f4-d4f1-2443-8afb-75cfb56de955"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ a normalized machine number; precision may be lost.\"", 2, 351, 152, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991327916008396*^9, 3.991709377927576*^9}, CellLabel-> "During evaluation of \ In[351]:=",ExpressionUUID->"be132617-3a6c-7243-9ffe-8f7551dfb0f4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 351, 153, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991327916008396*^9, 3.9917093779375763`*^9}, CellLabel-> "During evaluation of \ In[351]:=",ExpressionUUID->"0d46806c-287f-8f45-adf8-aa98d149c28b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 351, 154, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991327916008396*^9, 3.9917093779455757`*^9}, CellLabel-> "During evaluation of \ In[351]:=",ExpressionUUID->"7c6c4499-aad8-2745-a278-f3d39e8c21d9"], Cell[BoxData["0.7070855058258385`"], "Output", CellChangeTimes->{3.991327922931429*^9, 3.99170938241395*^9}, CellLabel-> "Out[351]=",ExpressionUUID->"9d6b69a4-8782-c54e-b077-f0b89827acb9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9917971357813015`*^9, 3.991797138809105*^9}},ExpressionUUID->"00ca455f-f3f6-2c4f-8927-\ 9e8c2d28dafd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 352, 155, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9}, CellLabel-> "During evaluation of \ In[352]:=",ExpressionUUID->"58cce6cc-55d6-8447-b0af-98545f6e8b94"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ a normalized machine number; precision may be lost.\"", 2, 352, 156, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824649506`*^9}, CellLabel-> "During evaluation of \ In[352]:=",ExpressionUUID->"a8dc6fa7-2ffc-a94c-acac-c04ec7ca9ce4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 352, 157, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824741554`*^9}, CellLabel-> "During evaluation of \ In[352]:=",ExpressionUUID->"9072d850-7d12-7542-9452-001fb3ad3caa"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 352, 158, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9913279229664307`*^9, 3.991709382483162*^9}, CellLabel-> "During evaluation of \ In[352]:=",ExpressionUUID->"5b507f90-a99e-494e-8b83-58443f9760dd"] }, Open ]], Cell[BoxData[ RowBox[{"8.211884331115483`", " "}]], "Input", CellChangeTimes->{{3.9917094784975224`*^9, 3.991709478503729*^9}},ExpressionUUID->"8cac9b30-e121-024d-91d3-\ cf92fd4a988a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9917971437506504`*^9, 3.991797147210884*^9}},ExpressionUUID->"b454660a-890c-f24b-923b-\ 563bff174231"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 353, 159, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9}, CellLabel-> "During evaluation of \ In[353]:=",ExpressionUUID->"8119867f-f85f-364e-8254-1ef6052311fc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ a normalized machine number; precision may be lost.\"", 2, 353, 160, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991327928854006*^9, 3.991709386619932*^9}, CellLabel-> "During evaluation of \ In[353]:=",ExpressionUUID->"c0c54d2a-f8dc-8e40-838e-476f912b22f3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ as a normalized machine number; precision may be lost.\"", 2, 353, 161, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991327928854006*^9, 3.9917093866289444`*^9}, CellLabel-> "During evaluation of \ In[353]:=",ExpressionUUID->"02b3b0aa-3c27-2340-a0f3-fddaabda96cb"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 353, 162, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.991327928854006*^9, 3.9917093866369305`*^9}, CellLabel-> "During evaluation of \ In[353]:=",ExpressionUUID->"34c92b2b-5689-2d44-aa86-39776cc9979f"], Cell[BoxData["16.648132369643353`"], "Output", CellChangeTimes->{3.9913279320131683`*^9, 3.9917093893412666`*^9}, CellLabel-> "Out[353]=",ExpressionUUID->"2b7d55d3-b0f9-2446-a1be-cbacdaca9c16"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.9917971542239857`*^9, 3.9917971576817684`*^9}},ExpressionUUID->"673f44c9-71c5-b64a-9ddb-\ ff434e6a2570"], Cell[BoxData["0.06047387015151299`"], "Output", CellChangeTimes->{3.9913279320452003`*^9, 3.9917093893762684`*^9}, CellLabel-> "Out[354]=",ExpressionUUID->"16796d12-1b0d-d745-b4a7-59e302a2c068"] }, Open ]] }, WindowSize->{718.5, 729.75}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, CellContext->Notebook, Magnification:>0.8 Inherited, FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", StyleDefinitions->"Default.nb", ExpressionUUID->"3e00b719-7d57-4247-80f9-54af9e03f9d1" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[576, 22, 229, 5, 22, "Input",ExpressionUUID->"05f0731c-d41f-bc4e-b3a5-fe37ee9edd84"], Cell[808, 29, 149, 2, 25, "Output",ExpressionUUID->"59710435-e1fd-814a-bd23-6a3a082f9166"] }, Open ]], Cell[CellGroupData[{ Cell[994, 36, 279, 5, 22, "Input",ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-b91fdc1bbe34"], Cell[1276, 43, 236, 5, 25, "Output",ExpressionUUID->"127d1f92-fab0-c143-b7a7-1a3639c70287"] }, Open ]], Cell[CellGroupData[{ Cell[1549, 53, 173, 4, 22, "Input",ExpressionUUID->"93a900cf-d755-b944-921b-a609f0a955d2"], Cell[1725, 59, 233, 5, 25, "Output",ExpressionUUID->"04807396-80ba-9d48-9880-d5034affbebb"] }, Open ]], Cell[CellGroupData[{ Cell[1995, 69, 180, 4, 22, "Input",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], Cell[2178, 75, 206, 4, 25, "Output",ExpressionUUID->"c9b1aca0-8c57-7841-9f47-4065e42d1be9"] }, Open ]], Cell[CellGroupData[{ Cell[2421, 84, 262, 8, 35, "Input",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], Cell[2686, 94, 224, 4, 25, "Output",ExpressionUUID->"d140ea6a-5556-4549-9162-53cd65902074"] }, Open ]], Cell[CellGroupData[{ Cell[2947, 103, 136, 3, 22, "Input",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], Cell[3086, 108, 210, 4, 25, "Output",ExpressionUUID->"1945b47e-8242-f141-8f24-145573b8d035"] }, Open ]], Cell[CellGroupData[{ Cell[3333, 117, 281, 7, 22, "Input",ExpressionUUID->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], Cell[3617, 126, 223, 4, 25, "Output",ExpressionUUID->"7a1a8da1-0bcf-b54b-9fee-cefa315cdb2f"] }, Open ]], Cell[CellGroupData[{ Cell[3877, 135, 262, 8, 22, "Input",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], Cell[4142, 145, 221, 4, 25, "Output",ExpressionUUID->"20ba6663-ffc2-0e44-9f42-439485fbc707"] }, Open ]], Cell[CellGroupData[{ Cell[4400, 154, 168, 3, 22, "Input",ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], Cell[4571, 159, 241, 4, 25, "Output",ExpressionUUID->"c1cb754b-dcac-584d-b97e-790bbfb09804"] }, Open ]], Cell[CellGroupData[{ Cell[4849, 168, 171, 4, 22, "Input",ExpressionUUID->"2d27be30-fef3-4449-b748-886004fbb723"], Cell[5023, 174, 242, 4, 25, "Output",ExpressionUUID->"8ccd1fe7-b42d-e94a-8f21-428102053d08"] }, Open ]], Cell[CellGroupData[{ Cell[5302, 183, 133, 3, 22, "Input",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], Cell[5438, 188, 204, 4, 25, "Output",ExpressionUUID->"9028d520-a386-4d42-869d-0525c235b913"] }, Open ]], Cell[CellGroupData[{ Cell[5679, 197, 133, 3, 22, "Input",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], Cell[5815, 202, 203, 4, 25, "Output",ExpressionUUID->"d0265467-59e4-be49-a64b-8c82690d7968"] }, Open ]], Cell[CellGroupData[{ Cell[6055, 211, 561, 20, 65, "Input",ExpressionUUID->"44764fb1-9da1-4d4e-a570-89126d15f894"], Cell[6619, 233, 195, 3, 25, "Output",ExpressionUUID->"eaa05129-f525-ae46-856a-3848d0f71fe6"] }, Open ]], Cell[CellGroupData[{ Cell[6851, 241, 561, 20, 65, "Input",ExpressionUUID->"3281618b-d4a7-c942-98be-b78c0b986321"], Cell[7415, 263, 196, 3, 25, "Output",ExpressionUUID->"38460700-3d9d-1443-a45f-7e5ee1ac1e65"] }, Open ]], Cell[CellGroupData[{ Cell[7648, 271, 1496, 49, 65, "Input",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], Cell[9147, 322, 192, 3, 25, "Output",ExpressionUUID->"6fb0963d-5264-7b48-8d3a-ac1aa2bee48f"] }, Open ]], Cell[CellGroupData[{ Cell[9376, 330, 1335, 45, 65, "Input",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], Cell[10714, 377, 212, 4, 25, "Output",ExpressionUUID->"22af3164-9ad3-3a45-a446-4f30ebbff819"] }, Open ]], Cell[CellGroupData[{ Cell[10963, 386, 1335, 45, 65, "Input",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], Cell[12301, 433, 215, 4, 25, "Output",ExpressionUUID->"cf644e36-3735-454b-b2f7-d6dcd3b19eee"] }, Open ]], Cell[CellGroupData[{ Cell[12553, 442, 1496, 49, 65, "Input",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], Cell[14052, 493, 193, 3, 25, "Output",ExpressionUUID->"1e5d103c-a3a6-3140-b337-734998937fb4"] }, Open ]], Cell[CellGroupData[{ Cell[14282, 501, 135, 3, 22, "Input",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], Cell[14420, 506, 179, 3, 25, "Output",ExpressionUUID->"26bf3ba6-95f3-0440-9e98-89c65d588c67"] }, Open ]], Cell[CellGroupData[{ Cell[14636, 514, 181, 4, 22, "Input",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], Cell[14820, 520, 179, 3, 25, "Output",ExpressionUUID->"22e230e6-b8cd-524e-8e84-86b886e1db44"] }, Open ]], Cell[CellGroupData[{ Cell[15036, 528, 138, 3, 22, "Input",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], Cell[15177, 533, 183, 3, 25, "Output",ExpressionUUID->"6d784a11-3113-334a-bc65-848d44a8e331"] }, Open ]], Cell[CellGroupData[{ Cell[15397, 541, 223, 5, 22, "Input",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], Cell[15623, 548, 194, 4, 25, "Output",ExpressionUUID->"f304ab94-42d1-9641-9e04-2b925b4673f0"] }, Open ]], Cell[CellGroupData[{ Cell[15854, 557, 138, 3, 22, "Input",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], Cell[15995, 562, 183, 3, 25, "Output",ExpressionUUID->"2be55f72-e139-c147-8f9f-866d807a59c6"] }, Open ]], Cell[16193, 568, 250, 5, 22, "Input",ExpressionUUID->"6e10280b-ebb3-f646-bb1d-00a00fc0ed1c"], Cell[16446, 575, 154, 3, 22, "Input",ExpressionUUID->"b89c6b57-db32-1742-8cc6-85b9a16d9dd6"], Cell[CellGroupData[{ Cell[16625, 582, 275, 6, 22, "Input",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], Cell[16903, 590, 178, 3, 25, "Output",ExpressionUUID->"e6c6682a-cb21-c743-b88d-fc73cf3db099"] }, Open ]], Cell[CellGroupData[{ Cell[17118, 598, 223, 5, 22, "Input",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], Cell[17344, 605, 179, 3, 25, "Output",ExpressionUUID->"3e510172-ed35-5148-a7f8-03fff81b2ea8"] }, Open ]], Cell[CellGroupData[{ Cell[17560, 613, 354, 11, 35, "Input",ExpressionUUID->"7ab41717-55b0-584a-809f-945d0d693a80"], Cell[17917, 626, 198, 3, 25, "Output",ExpressionUUID->"759e5be1-9cfd-ce46-9dc4-752b81633c5e"] }, Open ]], Cell[CellGroupData[{ Cell[18152, 634, 354, 11, 35, "Input",ExpressionUUID->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], Cell[18509, 647, 212, 4, 25, "Output",ExpressionUUID->"b5bf1cf3-0246-5048-8e42-9650cc3d9e60"] }, Open ]], Cell[CellGroupData[{ Cell[18758, 656, 973, 27, 92, "Input",ExpressionUUID->"622e209c-a48d-e442-88d4-31c1022a52c8"], Cell[19734, 685, 194, 3, 25, "Output",ExpressionUUID->"580d9f26-e956-3547-8bc2-58d4d8b3ac06"] }, Open ]], Cell[CellGroupData[{ Cell[19965, 693, 203, 4, 22, "Input",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], Cell[20171, 699, 179, 3, 25, "Output",ExpressionUUID->"46c953a3-0a25-be49-9ded-c3190caa374e"] }, Open ]], Cell[20365, 705, 224, 5, 22, "Input",ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-94e32bbe2818"], Cell[20592, 712, 156, 3, 22, "Input",ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-4b5b928d8058"], Cell[20751, 717, 270, 5, 22, "Input",ExpressionUUID->"59432052-36a9-0e4a-b136-b5ef6e1cf7dc"], Cell[21024, 724, 154, 3, 22, "Input",ExpressionUUID->"7620191d-049f-d749-807c-ff7994d2bf64"], Cell[21181, 729, 271, 5, 22, "Input",ExpressionUUID->"2838c52a-e621-824e-8a28-6ddd911b4320"], Cell[21455, 736, 156, 3, 22, "Input",ExpressionUUID->"42e257a2-6901-9d4f-a831-1954f32e9186"], Cell[21614, 741, 275, 5, 22, "Input",ExpressionUUID->"26236e3a-fdac-eb4e-a22f-56d02cebcf41"], Cell[21892, 748, 156, 3, 22, "Input",ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-cdd040915619"], Cell[22051, 753, 224, 5, 22, "Input",ExpressionUUID->"02fa1476-84ef-ac4d-a088-22546d6249ff"], Cell[22278, 760, 154, 3, 22, "Input",ExpressionUUID->"5841a374-f07b-3948-b1fb-c9f1f2e2508c"], Cell[22435, 765, 226, 5, 22, "Input",ExpressionUUID->"2fad32fe-2323-a247-8df8-53787ce8fe84"], Cell[22664, 772, 152, 3, 22, "Input",ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-65c9268fc5eb"], Cell[22819, 777, 251, 5, 22, "Input",ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-1d0e115472c2"], Cell[23073, 784, 156, 3, 22, "Input",ExpressionUUID->"dfb148c5-f80e-3f46-b88b-570a723a95bc"], Cell[23232, 789, 196, 4, 22, "Input",ExpressionUUID->"db5cb55e-0710-c147-81f4-1d5b600a6284"], Cell[23431, 795, 152, 3, 22, "Input",ExpressionUUID->"bc012921-2f5f-014d-9378-a2fad1ed7321"], Cell[CellGroupData[{ Cell[23608, 802, 19813, 486, 1553, "Input",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], Cell[43424, 1290, 192, 3, 25, "Output",ExpressionUUID->"61f08cc0-39fa-db4e-9b24-7599ef30de22"] }, Open ]], Cell[CellGroupData[{ Cell[43653, 1298, 19752, 490, 1579, "Input",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], Cell[63408, 1790, 196, 3, 25, "Output",ExpressionUUID->"5871324b-d5fe-804e-99ed-0d282d51f6f8"] }, Open ]], Cell[CellGroupData[{ Cell[63641, 1798, 19752, 484, 1572, "Input",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], Cell[83396, 2284, 210, 4, 25, "Output",ExpressionUUID->"69e00e78-0c26-1440-9a3a-e94f8a3d4436"] }, Open ]], Cell[CellGroupData[{ Cell[83643, 2293, 22538, 554, 1766, "Input",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], Cell[106184, 2849, 209, 4, 25, "Output",ExpressionUUID->"dd600f43-aeda-474e-adc2-ff73bb8ee0d1"] }, Open ]], Cell[CellGroupData[{ Cell[106430, 2858, 22539, 554, 1773, "Input",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], Cell[128972, 3414, 211, 4, 25, "Output",ExpressionUUID->"55f1a542-9da5-9645-bb46-2c5c04b109ce"] }, Open ]], Cell[CellGroupData[{ Cell[129220, 3423, 25495, 627, 1984, "Input",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], Cell[154718, 4052, 212, 4, 25, "Output",ExpressionUUID->"3fbd24dd-e646-2c48-80cb-2c0e68ae3396"] }, Open ]], Cell[CellGroupData[{ Cell[154967, 4061, 134, 3, 22, "Input",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], Cell[155104, 4066, 177, 3, 25, "Output",ExpressionUUID->"eddf556b-7952-114f-ad19-61212135319f"] }, Open ]], Cell[CellGroupData[{ Cell[155318, 4074, 134, 3, 22, "Input",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], Cell[155455, 4079, 179, 3, 25, "Output",ExpressionUUID->"925a31aa-9bd4-ec4b-918d-44895a7ffa06"] }, Open ]], Cell[CellGroupData[{ Cell[155671, 4087, 1148, 40, 46, "Input",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], Cell[156822, 4129, 195, 3, 25, "Output",ExpressionUUID->"ef896caa-532b-1c47-88e1-148365496222"] }, Open ]], Cell[CellGroupData[{ Cell[157054, 4137, 1045, 36, 46, "Input",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], Cell[158102, 4175, 210, 4, 25, "Output",ExpressionUUID->"0b7394b6-aa08-c14b-b2d8-582ab7ec833b"] }, Open ]], Cell[CellGroupData[{ Cell[158349, 4184, 1148, 40, 46, "Input",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], Cell[159500, 4226, 196, 3, 25, "Output",ExpressionUUID->"5fcaa46c-385d-4040-80a1-54f36d41ad5a"] }, Open ]], Cell[CellGroupData[{ Cell[159733, 4234, 112, 2, 22, "Input",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], Cell[159848, 4238, 194, 3, 25, "Output",ExpressionUUID->"6afc707f-6b3a-f54b-88b4-614c0ceb18fc"] }, Open ]], Cell[CellGroupData[{ Cell[160079, 4246, 112, 2, 22, "Input",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], Cell[160194, 4250, 212, 4, 25, "Output",ExpressionUUID->"99e4c659-a451-4146-a9de-ef890867f12e"] }, Open ]], Cell[CellGroupData[{ Cell[160443, 4259, 112, 2, 22, "Input",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], Cell[160558, 4263, 213, 4, 25, "Output",ExpressionUUID->"25a55a1d-e64a-4748-a151-0527c259a866"] }, Open ]], Cell[CellGroupData[{ Cell[160808, 4272, 112, 2, 22, "Input",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], Cell[160923, 4276, 195, 3, 25, "Output",ExpressionUUID->"871d7b0c-b914-3d4a-95d8-f4a3e193bd06"] }, Open ]], Cell[CellGroupData[{ Cell[161155, 4284, 111, 2, 22, "Input",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], Cell[161269, 4288, 195, 3, 25, "Output",ExpressionUUID->"0c5e1508-483e-e945-9c69-fc92813d991f"] }, Open ]], Cell[CellGroupData[{ Cell[161501, 4296, 111, 2, 22, "Input",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], Cell[161615, 4300, 194, 3, 25, "Output",ExpressionUUID->"e1360dcb-c05f-6341-afea-fa85f3ff2ec0"] }, Open ]], Cell[CellGroupData[{ Cell[161846, 4308, 501, 17, 46, "Input",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], Cell[162350, 4327, 212, 4, 25, "Output",ExpressionUUID->"e6a85d91-dd27-b74d-9965-4b613c74d080"] }, Open ]], Cell[CellGroupData[{ Cell[162599, 4336, 501, 17, 46, "Input",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], Cell[163103, 4355, 210, 4, 25, "Output",ExpressionUUID->"79fd6291-2776-3c4c-884e-ac4ed87b9bb3"] }, Open ]], Cell[CellGroupData[{ Cell[163350, 4364, 1792, 61, 109, "Input",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], Cell[165145, 4427, 195, 3, 25, "Output",ExpressionUUID->"9c6da0f7-fcb9-3249-8504-9107c35ce968"] }, Open ]], Cell[CellGroupData[{ Cell[165377, 4435, 1105, 37, 64, "Input",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], Cell[166485, 4474, 212, 4, 25, "Output",ExpressionUUID->"e1b55829-8366-1647-927f-356a51dbcc7d"] }, Open ]], Cell[CellGroupData[{ Cell[166734, 4483, 1822, 62, 90, "Input",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], Cell[168559, 4547, 192, 3, 25, "Output",ExpressionUUID->"c67e7b02-609b-c14e-9940-0d393db14863"] }, Open ]], Cell[CellGroupData[{ Cell[168788, 4555, 2503, 78, 72, "Input",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], Cell[171294, 4635, 197, 3, 25, "Output",ExpressionUUID->"39d5b2d2-060f-c047-9ad5-a617d92b3bfe"] }, Open ]], Cell[CellGroupData[{ Cell[171528, 4643, 2503, 78, 72, "Input",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], Cell[174034, 4723, 193, 3, 25, "Output",ExpressionUUID->"f76a0198-0356-d543-bd9e-8d5e983db4d0"] }, Open ]], Cell[174242, 4729, 169, 4, 22, "Input",ExpressionUUID->"3ae683e0-3adf-504a-90dd-615dd0a61fd8"], Cell[174414, 4735, 198, 4, 22, "Input",ExpressionUUID->"4fc0783d-23dd-314f-a326-64b7548d9620"], Cell[CellGroupData[{ Cell[174637, 4743, 1301, 43, 39, "Input",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], Cell[175941, 4788, 197, 3, 25, "Output",ExpressionUUID->"456d9a39-7fba-f04d-ad3f-598301b07b7b"] }, Open ]], Cell[CellGroupData[{ Cell[176175, 4796, 838, 28, 46, "Input",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], Cell[177016, 4826, 199, 3, 25, "Output",ExpressionUUID->"c5999e66-1e94-f648-b31f-23089615bdad"] }, Open ]], Cell[CellGroupData[{ Cell[177252, 4834, 893, 31, 46, "Input",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], Cell[178148, 4867, 199, 3, 25, "Output",ExpressionUUID->"9eb71c6d-5365-6346-92d2-98d5e0de79b8"] }, Open ]], Cell[CellGroupData[{ Cell[178384, 4875, 558, 19, 42, "Input",ExpressionUUID->"8aa9d08b-8eaf-d24c-8d70-f4347a6f878e"], Cell[178945, 4896, 567, 9, 25, "Output",ExpressionUUID->"5de7561a-c835-3849-9551-bb5f09fb8931"] }, Open ]], Cell[CellGroupData[{ Cell[179549, 4910, 665, 22, 42, "Input",ExpressionUUID->"1ca7586b-91ab-db43-8f6b-ae28116e89ea"], Cell[180217, 4934, 554, 9, 25, "Output",ExpressionUUID->"beba7504-d2e1-a34b-a313-c333191940c0"] }, Open ]], Cell[CellGroupData[{ Cell[180808, 4948, 170, 5, 46, "Input",ExpressionUUID->"bf24e662-fae9-a44f-8e27-55a893ce4fbf"], Cell[180981, 4955, 577, 9, 25, "Output",ExpressionUUID->"3254ddb1-51d7-0c4b-935d-057c3f1d76a2"] }, Open ]], Cell[CellGroupData[{ Cell[181595, 4969, 236, 6, 45, "Input",ExpressionUUID->"d937b18c-e29d-2f43-8938-d6d6f836399a"], Cell[181834, 4977, 514, 8, 25, "Output",ExpressionUUID->"d7d09352-2c05-664e-adfe-6b091391fe65"] }, Open ]], Cell[CellGroupData[{ Cell[182385, 4990, 223, 6, 35, "Input",ExpressionUUID->"9c8cf087-9405-ba4c-848c-2560561a15d9"], Cell[182611, 4998, 549, 9, 25, "Output",ExpressionUUID->"b02669f8-f1a8-2943-9a89-7343edcc9853"] }, Open ]], Cell[CellGroupData[{ Cell[183197, 5012, 181, 5, 35, "Input",ExpressionUUID->"39cadd0c-531d-8643-b58f-32602fc9b322"], Cell[183381, 5019, 567, 9, 25, "Output",ExpressionUUID->"11285b94-1266-8642-a7e7-e61a093e4602"] }, Open ]], Cell[CellGroupData[{ Cell[183985, 5033, 6055, 185, 310, "Input",ExpressionUUID->"63e87b25-79d4-3346-a596-4a114e4195fc"], Cell[190043, 5220, 548, 9, 25, "Output",ExpressionUUID->"f1652c1d-aa3a-2e42-9d4c-3e1f3c9ac5f6"] }, Open ]], Cell[CellGroupData[{ Cell[190628, 5234, 368, 9, 33, "Input",ExpressionUUID->"e28c4c0a-4368-b445-b1ea-6ff4edd41335"], Cell[190999, 5245, 521, 8, 25, "Output",ExpressionUUID->"e77bd64f-d028-c642-9f71-6c1fd3581451"] }, Open ]], Cell[191535, 5256, 492, 10, 34, "Input",ExpressionUUID->"7c3953e4-2c3b-6941-a7e4-314ec1ea37f2"], Cell[CellGroupData[{ Cell[192052, 5270, 558, 19, 42, "Input",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], Cell[192613, 5291, 193, 3, 25, "Output",ExpressionUUID->"e8f70513-a98e-5149-b026-a7013fc48e0c"] }, Open ]], Cell[CellGroupData[{ Cell[192843, 5299, 623, 21, 42, "Input",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], Cell[193469, 5322, 197, 3, 25, "Output",ExpressionUUID->"2a9bace2-5f5b-7543-922b-1957e9dc2125"] }, Open ]], Cell[CellGroupData[{ Cell[193703, 5330, 170, 5, 46, "Input",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], Cell[193876, 5337, 195, 3, 25, "Output",ExpressionUUID->"0d20a6b5-4f71-d74e-954e-f8bfcf13bd0b"] }, Open ]], Cell[CellGroupData[{ Cell[194108, 5345, 170, 5, 45, "Input",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], Cell[194281, 5352, 195, 3, 25, "Output",ExpressionUUID->"01e40b86-a95b-f949-a695-ad5f540daad8"] }, Open ]], Cell[CellGroupData[{ Cell[194513, 5360, 181, 5, 35, "Input",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], Cell[194697, 5367, 197, 3, 25, "Output",ExpressionUUID->"2e2424d7-7799-2b4b-95bc-ae946b4fd8fb"] }, Open ]], Cell[CellGroupData[{ Cell[194931, 5375, 181, 5, 35, "Input",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], Cell[195115, 5382, 196, 3, 25, "Output",ExpressionUUID->"9ddda7ea-20b5-c94f-837f-207ee8178e7d"] }, Open ]], Cell[CellGroupData[{ Cell[195348, 5390, 6055, 185, 310, "Input",ExpressionUUID->"290356b5-801a-1742-8269-ff0ab0e7a72f"], Cell[201406, 5577, 197, 3, 25, "Output",ExpressionUUID->"0e578c05-2e2b-ad42-9d2d-9ecb09bd5cc3"] }, Open ]], Cell[CellGroupData[{ Cell[201640, 5585, 368, 9, 33, "Input",ExpressionUUID->"637830a9-4b17-0d47-8e69-3e6d73475803"], Cell[202011, 5596, 194, 3, 25, "Output",ExpressionUUID->"299177f1-f9a1-af41-9869-28085ee90f1a"] }, Open ]], Cell[CellGroupData[{ Cell[202242, 5604, 6122, 187, 353, "Input",ExpressionUUID->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], Cell[208367, 5793, 199, 3, 25, "Output",ExpressionUUID->"b5e1d2db-7bc1-604a-ba8a-cce145044a0c"] }, Open ]], Cell[CellGroupData[{ Cell[208603, 5801, 368, 9, 33, "Input",ExpressionUUID->"87d3f053-a210-4945-9497-51f3b35fe58a"], Cell[208974, 5812, 196, 3, 25, "Output",ExpressionUUID->"b3f6384f-9a37-5a49-8ec0-84b634cd8349"] }, Open ]], Cell[CellGroupData[{ Cell[209207, 5820, 2663, 88, 135, "Input",ExpressionUUID->"407f3978-d419-be4a-9b05-517d07c044f1"], Cell[211873, 5910, 197, 3, 25, "Output",ExpressionUUID->"c9e066e9-48dc-834a-bf61-59f21edf20c9"] }, Open ]], Cell[CellGroupData[{ Cell[212107, 5918, 2603, 85, 135, "Input",ExpressionUUID->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], Cell[214713, 6005, 198, 3, 25, "Output",ExpressionUUID->"949c6939-8996-5843-bd4e-a0723aa0e87c"] }, Open ]], Cell[CellGroupData[{ Cell[214948, 6013, 3712, 118, 197, "Input",ExpressionUUID->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], Cell[218663, 6133, 198, 3, 25, "Output",ExpressionUUID->"05eb4440-df71-e44f-97f3-da78599dccf8"] }, Open ]], Cell[218876, 6139, 257, 6, 34, "Input",ExpressionUUID->"c3247e8e-1dc6-bd47-b085-4abc2b2cf1d2"], Cell[CellGroupData[{ Cell[219158, 6149, 2052, 59, 92, "Input",ExpressionUUID->"9522bfa2-96cd-564e-b4a1-30bc1fcf4125"], Cell[221213, 6210, 580, 12, 50, "Message",ExpressionUUID->"f4680526-8058-9849-befb-e4865d4a563d"], Cell[221796, 6224, 582, 12, 50, "Message",ExpressionUUID->"7b3f9a5b-c904-9f45-ae40-f6aa2ea578f0"], Cell[222381, 6238, 584, 12, 50, "Message",ExpressionUUID->"9bd14fe4-b3cf-b14f-aa97-5dbc5cb6202b"], Cell[222968, 6252, 481, 10, 20, "Message",ExpressionUUID->"0ca94a44-b20e-a647-bf17-c07f630a5f3a"], Cell[223452, 6264, 196, 3, 25, "Output",ExpressionUUID->"65e8c927-2c63-a142-8aad-58bf978b2bc7"] }, Open ]], Cell[CellGroupData[{ Cell[223685, 6272, 2052, 59, 92, "Input",ExpressionUUID->"61b1cdf2-7f57-2647-9828-9108456d2e21"], Cell[225740, 6333, 578, 12, 50, "Message",ExpressionUUID->"b3d3c42c-aed0-694c-a56a-81f4b82612ba"], Cell[226321, 6347, 580, 12, 50, "Message",ExpressionUUID->"2f7fcf78-2597-fc4e-9012-4d1e9a86bcce"], Cell[226904, 6361, 586, 12, 50, "Message",ExpressionUUID->"3c4bf69d-6c7d-de4b-8920-9ad57cb702e9"], Cell[227493, 6375, 479, 10, 20, "Message",ExpressionUUID->"04907cc7-b066-4045-b082-0e8636e44a75"], Cell[227975, 6387, 192, 3, 25, "Output",ExpressionUUID->"4dba64ce-42d0-7643-94bc-f9c2e73c58e7"] }, Open ]], Cell[CellGroupData[{ Cell[228204, 6395, 1938, 53, 69, "Input",ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-abe222e3c5e2"], Cell[230145, 6450, 20226, 378, 191, "Output",ExpressionUUID->"53a037b2-adfa-594a-9d2f-46330d412a4e"] }, Open ]], Cell[CellGroupData[{ Cell[250408, 6833, 2116, 60, 92, "Input",ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-71283b73bfa7"], Cell[252527, 6895, 632, 13, 50, "Message",ExpressionUUID->"158b1701-392e-9148-a6e6-d78d21579b25"], Cell[253162, 6910, 654, 14, 50, "Message",ExpressionUUID->"b196af72-2471-f945-b15f-a1f22b679776"], Cell[253819, 6926, 658, 14, 50, "Message",ExpressionUUID->"89243bac-60d4-3b49-89bd-2c48c2d7c0d6"], Cell[254480, 6942, 480, 10, 20, "Message",ExpressionUUID->"c3addd05-515c-5541-aadb-feb07a5771c1"], Cell[254963, 6954, 184, 3, 25, "Output",ExpressionUUID->"7bfc15da-d63d-7f47-833d-9017b6cff41e"] }, Open ]], Cell[CellGroupData[{ Cell[255184, 6962, 327, 7, 34, "Input",ExpressionUUID->"60c27e2c-7c95-1e4a-ab78-642e76a08b0b"], Cell[255514, 6971, 9707, 222, 192, "Output",ExpressionUUID->"cc3ebc6e-15ee-8a47-b0d6-52da3e7b0833"] }, Open ]], Cell[CellGroupData[{ Cell[265258, 7198, 257, 6, 34, "Input",ExpressionUUID->"7b17964f-3903-af4c-a72d-552615ef4a37"], Cell[265518, 7206, 2580, 42, 70, "Message",ExpressionUUID->"63142347-0535-0246-bb25-8a2a2b48d7ca"], Cell[268101, 7250, 10201, 227, 70, "Output",ExpressionUUID->"2ddcecd6-64a5-6e48-8c61-882e10c0065a"] }, Closed]], Cell[CellGroupData[{ Cell[278339, 7482, 301, 10, 32, "Input",ExpressionUUID->"982133ce-0d36-4d45-a387-ff35350b5cb9"], Cell[278643, 7494, 197, 3, 25, "Output",ExpressionUUID->"bf4aa3c8-c644-2f48-80dc-1b5d3e2169d4"] }, Open ]], Cell[CellGroupData[{ Cell[278877, 7502, 1814, 53, 92, "Input",ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-edfd6d6a25f8"], Cell[280694, 7557, 506, 11, 50, "Message",ExpressionUUID->"b35d0e82-bb6d-3542-ab8b-ccb436f9a8d8"], Cell[281203, 7570, 512, 11, 50, "Message",ExpressionUUID->"5ff9501d-78d7-7141-a437-5dd9f758c909"], Cell[281718, 7583, 509, 11, 50, "Message",ExpressionUUID->"0c4bed13-3785-d84a-8693-17cc81ace1e2"], Cell[282230, 7596, 456, 10, 20, "Message",ExpressionUUID->"371084ac-a371-9848-9c63-34bb732ea61a"], Cell[282689, 7608, 22336, 412, 187, "Output",ExpressionUUID->"498a6190-c65d-fd44-a483-d79a44a15949"] }, Open ]], Cell[CellGroupData[{ Cell[305062, 8025, 1616, 48, 69, "Input",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], Cell[306681, 8075, 603, 12, 53, "Message",ExpressionUUID->"f6942d2b-1935-ce45-9eba-1218d93c5fe3"], Cell[307287, 8089, 609, 12, 53, "Message",ExpressionUUID->"167a8bf3-70f7-1c4e-96cc-24c67ead632a"], Cell[307899, 8103, 612, 12, 53, "Message",ExpressionUUID->"038f97d9-5635-d243-bc57-4be91e08fd14"], Cell[308514, 8117, 478, 10, 20, "Message",ExpressionUUID->"f7ddd7d6-d715-2149-9192-e6e54f994bf9"], Cell[308995, 8129, 195, 3, 25, "Output",ExpressionUUID->"4fea8a21-ea7c-524f-ad6d-9d8516601f03"] }, Open ]], Cell[CellGroupData[{ Cell[309227, 8137, 2274, 64, 131, "Input",ExpressionUUID->"3915107a-86d9-0f46-b139-986db5ca6b3b"], Cell[311504, 8203, 579, 12, 50, "Message",ExpressionUUID->"dae61f02-18ea-a447-aa9a-3c4085f2c9f9"], Cell[312086, 8217, 583, 12, 50, "Message",ExpressionUUID->"bd9df418-5c98-8c4b-942b-69cfdd942ea2"], Cell[312672, 8231, 587, 12, 50, "Message",ExpressionUUID->"b05bbe77-656b-3542-8f6f-f51eeb980d5e"], Cell[313262, 8245, 480, 10, 20, "Message",ExpressionUUID->"aef425fc-a2ce-1843-8bef-20a06a28cc20"], Cell[313745, 8257, 195, 3, 25, "Output",ExpressionUUID->"8a69f3e4-efcf-6249-8505-a6b5d11b9f54"] }, Open ]], Cell[CellGroupData[{ Cell[313977, 8265, 2219, 64, 131, "Input",ExpressionUUID->"f3705611-962a-7d49-8494-287e0d1eefa8"], Cell[316199, 8331, 578, 12, 50, "Message",ExpressionUUID->"5e178919-9cf0-ac45-87b2-eaf189f9416b"], Cell[316780, 8345, 580, 12, 50, "Message",ExpressionUUID->"c8c43206-f2bb-ab48-9546-3aed8ebd1dcd"], Cell[317363, 8359, 582, 12, 50, "Message",ExpressionUUID->"c958a03d-0c1b-c74b-a9f2-bb628b87f1a7"], Cell[317948, 8373, 477, 10, 20, "Message",ExpressionUUID->"6f03fbd5-dcac-9c41-9119-2c9486f681e2"], Cell[318428, 8385, 196, 3, 25, "Output",ExpressionUUID->"507fbc8b-c1fa-0f44-8dbb-3f1ee1226052"] }, Open ]], Cell[CellGroupData[{ Cell[318661, 8393, 2219, 64, 131, "Input",ExpressionUUID->"1c2bb25c-a24b-4143-a03c-8699409c5ef4"], Cell[320883, 8459, 577, 12, 50, "Message",ExpressionUUID->"f14e1821-d6f6-9748-a381-88bb6ed09b0f"], Cell[321463, 8473, 581, 12, 50, "Message",ExpressionUUID->"831dbe9b-2d94-8949-9905-b6299cd5cfbb"], Cell[322047, 8487, 585, 12, 50, "Message",ExpressionUUID->"b74c2d50-6b92-524d-9a2f-0df31e0a5942"], Cell[322635, 8501, 480, 10, 20, "Message",ExpressionUUID->"d2b87ee4-3849-3848-8231-476288e5e8a5"], Cell[323118, 8513, 193, 3, 25, "Output",ExpressionUUID->"1f9599fe-acbe-c146-bf37-8492663797c4"] }, Open ]], Cell[CellGroupData[{ Cell[323348, 8521, 213, 6, 38, "Input",ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-b2cb4ed5c458"], Cell[323564, 8529, 197, 3, 25, "Output",ExpressionUUID->"5b12bbb1-2534-c04f-9206-3fa4c528fbbc"] }, Open ]], Cell[323776, 8535, 245, 5, 34, "Input",ExpressionUUID->"f1e753e6-7de9-0b47-aa25-47e49d9ceac1"], Cell[CellGroupData[{ Cell[324046, 8544, 558, 19, 42, "Input",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], Cell[324607, 8565, 195, 3, 25, "Output",ExpressionUUID->"98ae9ddb-8318-674e-80c9-7e140dcac1b0"] }, Open ]], Cell[CellGroupData[{ Cell[324839, 8573, 170, 5, 46, "Input",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], Cell[325012, 8580, 196, 3, 25, "Output",ExpressionUUID->"73a9f922-95ea-2b43-bf67-74680f371172"] }, Open ]], Cell[CellGroupData[{ Cell[325245, 8588, 181, 5, 35, "Input",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], Cell[325429, 8595, 193, 3, 25, "Output",ExpressionUUID->"981c6b4f-3ed8-234c-af7f-12febe378c99"] }, Open ]], Cell[CellGroupData[{ Cell[325659, 8603, 6055, 185, 310, "Input",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], Cell[331717, 8790, 194, 3, 25, "Output",ExpressionUUID->"a7e2294b-e75d-4747-b07f-caeec25593bb"] }, Open ]], Cell[CellGroupData[{ Cell[331948, 8798, 368, 9, 33, "Input",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], Cell[332319, 8809, 192, 3, 25, "Output",ExpressionUUID->"39075a12-e1b0-dd45-bb8f-a5cf418898ce"] }, Open ]], Cell[CellGroupData[{ Cell[332548, 8817, 6122, 187, 353, "Input",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], Cell[338673, 9006, 199, 3, 25, "Output",ExpressionUUID->"080dedf4-608b-784c-8095-92f61780909f"] }, Open ]], Cell[CellGroupData[{ Cell[338909, 9014, 368, 9, 33, "Input",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], Cell[339280, 9025, 192, 3, 25, "Output",ExpressionUUID->"a5e88e9c-1ebc-a943-922b-32e11652b414"] }, Open ]], Cell[CellGroupData[{ Cell[339509, 9033, 2663, 88, 135, "Input",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], Cell[342175, 9123, 197, 3, 25, "Output",ExpressionUUID->"89a45800-1a51-ff40-8231-4f1dbc8bf045"] }, Open ]], Cell[CellGroupData[{ Cell[342409, 9131, 2603, 85, 135, "Input",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], Cell[345015, 9218, 194, 3, 25, "Output",ExpressionUUID->"8227fe2a-0032-8f43-8d97-0ae8dad9a493"] }, Open ]], Cell[CellGroupData[{ Cell[345246, 9226, 3712, 118, 197, "Input",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], Cell[348961, 9346, 196, 3, 25, "Output",ExpressionUUID->"dcd656ae-1e68-194a-83cc-3a21431e11fa"] }, Open ]], Cell[CellGroupData[{ Cell[349194, 9354, 2049, 58, 92, "Input",ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], Cell[351246, 9414, 594, 12, 50, "Message",ExpressionUUID->"35f9fd51-3342-bd4a-a255-ef6f0342c244"], Cell[351843, 9428, 597, 12, 50, "Message",ExpressionUUID->"37eadcc8-b14a-e743-8e0a-c2ed5bf94bef"], Cell[352443, 9442, 604, 12, 69, "Message",ExpressionUUID->"81d41f16-030a-e24b-b732-f8816d863b10"], Cell[353050, 9456, 480, 10, 20, "Message",ExpressionUUID->"81c06ac5-a0a8-7344-a9ed-db535505b5ba"], Cell[353533, 9468, 194, 3, 25, "Output",ExpressionUUID->"bec50fae-ff8e-b342-8dc1-e0f019aca06c"] }, Open ]], Cell[CellGroupData[{ Cell[353764, 9476, 2049, 58, 92, "Input",ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], Cell[355816, 9536, 594, 12, 50, "Message",ExpressionUUID->"b24ec752-691b-9e46-9e12-41426d5a1496"], Cell[356413, 9550, 597, 12, 50, "Message",ExpressionUUID->"976838b0-e209-5643-abb9-346ac4cbdf93"], Cell[357013, 9564, 602, 12, 69, "Message",ExpressionUUID->"358b771e-09d7-964c-8b93-703e5579bb7f"], Cell[357618, 9578, 480, 10, 20, "Message",ExpressionUUID->"dc495a5d-d258-0641-8f11-30570c0a20cf"], Cell[358101, 9590, 194, 3, 25, "Output",ExpressionUUID->"f421afac-42a5-c84a-9348-c5e090b0f190"] }, Open ]], Cell[CellGroupData[{ Cell[358332, 9598, 2030, 55, 54, "Input",ExpressionUUID->"00de6621-4f9e-8a45-8ea8-edabb8e777e0"], Cell[360365, 9655, 20422, 382, 189, "Output",ExpressionUUID->"982443ca-3c49-3842-942f-56dbbe6e860e"] }, Open ]], Cell[CellGroupData[{ Cell[380824, 10042, 2115, 60, 92, "Input",ExpressionUUID->"f5360edc-957d-9f48-b8b4-746fa181d4a5"], Cell[382942, 10104, 499, 11, 33, "Message",ExpressionUUID->"16f95f8d-163b-784d-a7d4-d9be610470a4"], Cell[383444, 10117, 504, 11, 33, "Message",ExpressionUUID->"668c7d88-6569-8648-b105-a03fa8ae5c99"], Cell[383951, 10130, 507, 11, 50, "Message",ExpressionUUID->"ebfa0449-48eb-8345-a082-4900c9d8a835"], Cell[384461, 10143, 455, 10, 20, "Message",ExpressionUUID->"54d7d346-3c8b-ea45-a47e-efd92955cab4"], Cell[384919, 10155, 22381, 415, 188, "Output",ExpressionUUID->"ec297bd0-74ba-874e-beda-39d943d34a34"] }, Open ]], Cell[407315, 10573, 206, 5, 34, "Input",ExpressionUUID->"b422dcab-ec5f-5543-9fba-aafac96e937c"], Cell[CellGroupData[{ Cell[407546, 10582, 1616, 48, 69, "Input",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], Cell[409165, 10632, 618, 12, 53, "Message",ExpressionUUID->"4237e138-f145-b443-83e0-43390364f340"], Cell[409786, 10646, 618, 12, 53, "Message",ExpressionUUID->"f1817fe7-de7f-424a-8c32-fd6eb18ad55d"], Cell[410407, 10660, 626, 12, 53, "Message",ExpressionUUID->"d01422f2-ac30-d647-9174-416a2de0acdd"], Cell[411036, 10674, 482, 10, 20, "Message",ExpressionUUID->"1cc939d5-2041-e346-853b-0da1f5d3fdb3"], Cell[411521, 10686, 192, 3, 25, "Output",ExpressionUUID->"be53344f-c49c-d340-8fe2-187c78764ee3"] }, Open ]], Cell[CellGroupData[{ Cell[411750, 10694, 2249, 64, 131, "Input",ExpressionUUID->"2e239e43-8455-8947-be70-b8e43bbe859a"], Cell[414002, 10760, 594, 12, 50, "Message",ExpressionUUID->"376bc77a-50fd-0d47-9681-2bc434722c43"], Cell[414599, 10774, 597, 12, 50, "Message",ExpressionUUID->"2efa0725-97f0-1746-a14f-4d0ef984c116"], Cell[415199, 10788, 602, 12, 69, "Message",ExpressionUUID->"3247c80e-edc6-e745-8fee-5b551559a9ce"], Cell[415804, 10802, 482, 10, 20, "Message",ExpressionUUID->"5e6cbab7-7762-ef49-bbd5-8d0e64879c32"], Cell[416289, 10814, 197, 3, 25, "Output",ExpressionUUID->"14e4c193-7d63-6f44-b586-9c58b6278944"] }, Open ]], Cell[CellGroupData[{ Cell[416523, 10822, 2221, 64, 131, "Input",ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-39037ee79c0a"], Cell[418747, 10888, 592, 12, 50, "Message",ExpressionUUID->"b53712a8-b3d6-1f4e-8898-5e6ce60da8c7"], Cell[419342, 10902, 597, 12, 50, "Message",ExpressionUUID->"5dee7001-7024-b140-89a6-01103fff2a2b"], Cell[419942, 10916, 602, 12, 69, "Message",ExpressionUUID->"f711f4eb-2b29-5047-8426-bced102f0fee"], Cell[420547, 10930, 480, 10, 20, "Message",ExpressionUUID->"b2bdb7ab-4d79-044f-8a69-305a4f35a1be"], Cell[421030, 10942, 196, 3, 25, "Output",ExpressionUUID->"635433e0-898b-ef4f-97c3-27cb9c864fdc"] }, Open ]], Cell[CellGroupData[{ Cell[421263, 10950, 2221, 64, 131, "Input",ExpressionUUID->"867b2dc8-7ef3-234b-80bd-e701484a92f5"], Cell[423487, 11016, 596, 12, 50, "Message",ExpressionUUID->"5521676c-b5e4-1145-b679-3dc06940bc52"], Cell[424086, 11030, 599, 12, 50, "Message",ExpressionUUID->"88c4b1ae-962d-3b4a-a9c8-1101d0b0bcfc"], Cell[424688, 11044, 604, 12, 69, "Message",ExpressionUUID->"56a57c6b-07a8-f146-b18a-9a7e9cc34f3a"], Cell[425295, 11058, 479, 10, 20, "Message",ExpressionUUID->"ec38de78-337d-2648-bf83-eb09a46b18b3"], Cell[425777, 11070, 197, 3, 25, "Output",ExpressionUUID->"b1693ef0-2cab-0142-884b-588173786ea2"] }, Open ]], Cell[CellGroupData[{ Cell[426011, 11078, 213, 6, 38, "Input",ExpressionUUID->"b1cee125-11a3-8a43-b076-a72829d187d3"], Cell[426227, 11086, 194, 3, 25, "Output",ExpressionUUID->"0df6ed8f-8670-fa47-923c-919d6c136038"] }, Open ]], Cell[426436, 11092, 242, 5, 34, "Input",ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-f61f4036bef1"], Cell[CellGroupData[{ Cell[426703, 11101, 558, 19, 42, "Input",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], Cell[427264, 11122, 197, 3, 25, "Output",ExpressionUUID->"c881c11d-abad-0d49-99e0-f303d09aef0a"] }, Open ]], Cell[CellGroupData[{ Cell[427498, 11130, 170, 5, 46, "Input",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], Cell[427671, 11137, 193, 3, 25, "Output",ExpressionUUID->"9caa35c4-53d8-fa45-a312-698f5ed5b1e5"] }, Open ]], Cell[CellGroupData[{ Cell[427901, 11145, 181, 5, 35, "Input",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], Cell[428085, 11152, 197, 3, 25, "Output",ExpressionUUID->"833d0ac6-4c09-d440-8bc3-d5df9ca76865"] }, Open ]], Cell[CellGroupData[{ Cell[428319, 11160, 6055, 185, 310, "Input",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], Cell[434377, 11347, 196, 3, 25, "Output",ExpressionUUID->"0382a191-ad63-844a-8759-086853e23ce5"] }, Open ]], Cell[CellGroupData[{ Cell[434610, 11355, 368, 9, 33, "Input",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], Cell[434981, 11366, 192, 3, 25, "Output",ExpressionUUID->"219c4b04-20e8-3f41-8e84-a455d4da6bdc"] }, Open ]], Cell[CellGroupData[{ Cell[435210, 11374, 6122, 187, 353, "Input",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], Cell[441335, 11563, 197, 3, 25, "Output",ExpressionUUID->"b204ec83-ad19-5349-8b02-7defd6db0df8"] }, Open ]], Cell[CellGroupData[{ Cell[441569, 11571, 368, 9, 33, "Input",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], Cell[441940, 11582, 196, 3, 25, "Output",ExpressionUUID->"c15b8bac-d390-9f42-a7c0-c761ed162cd9"] }, Open ]], Cell[CellGroupData[{ Cell[442173, 11590, 2663, 88, 135, "Input",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], Cell[444839, 11680, 197, 3, 25, "Output",ExpressionUUID->"c7904c57-9026-5d42-a13c-7cf9c291f02e"] }, Open ]], Cell[CellGroupData[{ Cell[445073, 11688, 2603, 85, 135, "Input",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], Cell[447679, 11775, 196, 3, 25, "Output",ExpressionUUID->"07fee721-d71d-e947-a10f-a3d491f5375c"] }, Open ]], Cell[CellGroupData[{ Cell[447912, 11783, 3712, 118, 197, "Input",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], Cell[451627, 11903, 196, 3, 25, "Output",ExpressionUUID->"61d2bf74-dc83-444c-9d85-173366eb4115"] }, Open ]], Cell[CellGroupData[{ Cell[451860, 11911, 2054, 59, 92, "Input",ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-9f444415254b"], Cell[453917, 11972, 589, 12, 50, "Message",ExpressionUUID->"0c8f7a0d-d84f-5048-ba48-794ef1d00127"], Cell[454509, 11986, 591, 12, 50, "Message",ExpressionUUID->"e0f5c7bd-1699-2c49-bf84-66232a770396"], Cell[455103, 12000, 597, 12, 50, "Message",ExpressionUUID->"650d4e60-de9d-c448-9e55-c9a2ff3adfbd"], Cell[455703, 12014, 482, 10, 20, "Message",ExpressionUUID->"02aaa7f6-e3fa-f246-ae96-c2637dc36a8a"], Cell[456188, 12026, 194, 3, 25, "Output",ExpressionUUID->"e85ac070-0188-1a40-a36b-aa73ff8bf583"] }, Open ]], Cell[CellGroupData[{ Cell[456419, 12034, 2052, 59, 92, "Input",ExpressionUUID->"11801718-69ec-bf4e-86d8-e9949dfbcff4"], Cell[458474, 12095, 589, 12, 50, "Message",ExpressionUUID->"92fdcdbe-704c-8643-ac44-6336f3afd685"], Cell[459066, 12109, 593, 12, 50, "Message",ExpressionUUID->"22fb307d-fe2e-4e40-aecb-68b60c56d53f"], Cell[459662, 12123, 597, 12, 50, "Message",ExpressionUUID->"fe4891cd-9e5e-304f-b8fa-b9a722a2b0ed"], Cell[460262, 12137, 482, 10, 20, "Message",ExpressionUUID->"3700feb7-ec5c-144b-8683-e9364219ca8f"], Cell[460747, 12149, 194, 3, 25, "Output",ExpressionUUID->"8b9d1dc2-78af-9e49-aad9-8e9bc3b553be"] }, Open ]], Cell[CellGroupData[{ Cell[460978, 12157, 2030, 55, 54, "Input",ExpressionUUID->"8fb4818f-77bf-6445-8230-c17265c2e6e9"], Cell[463011, 12214, 20422, 382, 189, "Output",ExpressionUUID->"e447a546-4e4c-eb42-b69e-2528d5182b13"] }, Open ]], Cell[CellGroupData[{ Cell[483470, 12601, 2120, 60, 92, "Input",ExpressionUUID->"4d882d59-3e42-1040-97a9-33dddc2b9855"], Cell[485593, 12663, 496, 11, 33, "Message",ExpressionUUID->"20149181-1e2c-4b41-b02e-304cc98619fd"], Cell[486092, 12676, 501, 11, 33, "Message",ExpressionUUID->"44ce87a6-827a-304b-86da-3cdac8e926dc"], Cell[486596, 12689, 505, 11, 33, "Message",ExpressionUUID->"b6629f6a-df4e-5a42-a25e-15825d979765"], Cell[487104, 12702, 455, 10, 20, "Message",ExpressionUUID->"5b7f13bb-27ba-5041-8f22-5700d1dce8b8"], Cell[487562, 12714, 21721, 403, 187, "Output",ExpressionUUID->"ed04804c-1f60-394e-87d4-29e6f5f16859"] }, Open ]], Cell[509298, 13120, 211, 5, 34, "Input",ExpressionUUID->"715f943f-d061-fa48-bb45-20a62a80a7df"], Cell[CellGroupData[{ Cell[509534, 13129, 1616, 48, 69, "Input",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], Cell[511153, 13179, 614, 12, 53, "Message",ExpressionUUID->"47145e38-56d2-404b-b2c9-a4c6bd4713fc"], Cell[511770, 13193, 616, 12, 53, "Message",ExpressionUUID->"c894df32-367b-2344-a42a-d2aaa61a6442"], Cell[512389, 13207, 616, 12, 53, "Message",ExpressionUUID->"dd94c528-2deb-d443-8dc9-050571e0f325"], Cell[513008, 13221, 480, 10, 20, "Message",ExpressionUUID->"23602150-0799-1542-bae7-7ae74cb1ca39"], Cell[513491, 13233, 197, 3, 25, "Output",ExpressionUUID->"283063f8-35c9-364f-a699-de6e0a543cf7"] }, Open ]], Cell[CellGroupData[{ Cell[513725, 13241, 2249, 64, 131, "Input",ExpressionUUID->"9b45c184-4df7-db4d-adb2-01f19f0f15b0"], Cell[515977, 13307, 585, 12, 70, "Message",ExpressionUUID->"a788a2f4-d4f1-2443-8afb-75cfb56de955"], Cell[516565, 13321, 589, 12, 70, "Message",ExpressionUUID->"be132617-3a6c-7243-9ffe-8f7551dfb0f4"], Cell[517157, 13335, 595, 12, 70, "Message",ExpressionUUID->"0d46806c-287f-8f45-adf8-aa98d149c28b"], Cell[517755, 13349, 480, 10, 70, "Message",ExpressionUUID->"7c6c4499-aad8-2745-a278-f3d39e8c21d9"], Cell[518238, 13361, 192, 3, 70, "Output",ExpressionUUID->"9d6b69a4-8782-c54e-b077-f0b89827acb9"] }, Open ]], Cell[CellGroupData[{ Cell[518467, 13369, 2221, 64, 70, "Input",ExpressionUUID->"00ca455f-f3f6-2c4f-8927-9e8c2d28dafd"], Cell[520691, 13435, 589, 12, 70, "Message",ExpressionUUID->"58cce6cc-55d6-8447-b0af-98545f6e8b94"], Cell[521283, 13449, 593, 12, 70, "Message",ExpressionUUID->"a8dc6fa7-2ffc-a94c-acac-c04ec7ca9ce4"], Cell[521879, 13463, 597, 12, 70, "Message",ExpressionUUID->"9072d850-7d12-7542-9452-001fb3ad3caa"], Cell[522479, 13477, 480, 10, 70, "Message",ExpressionUUID->"5b507f90-a99e-494e-8b83-58443f9760dd"] }, Open ]], Cell[522974, 13490, 189, 4, 70, "Input",ExpressionUUID->"8cac9b30-e121-024d-91d3-cf92fd4a988a"], Cell[CellGroupData[{ Cell[523188, 13498, 2221, 64, 70, "Input",ExpressionUUID->"b454660a-890c-f24b-923b-563bff174231"], Cell[525412, 13564, 584, 12, 70, "Message",ExpressionUUID->"8119867f-f85f-364e-8254-1ef6052311fc"], Cell[525999, 13578, 589, 12, 70, "Message",ExpressionUUID->"c0c54d2a-f8dc-8e40-838e-476f912b22f3"], Cell[526591, 13592, 595, 12, 70, "Message",ExpressionUUID->"02b3b0aa-3c27-2340-a0f3-fddaabda96cb"], Cell[527189, 13606, 480, 10, 70, "Message",ExpressionUUID->"34c92b2b-5689-2d44-aa86-39776cc9979f"], Cell[527672, 13618, 197, 3, 70, "Output",ExpressionUUID->"2b7d55d3-b0f9-2446-a1be-cbacdaca9c16"] }, Open ]], Cell[CellGroupData[{ Cell[527906, 13626, 215, 6, 70, "Input",ExpressionUUID->"673f44c9-71c5-b64a-9ddb-ff434e6a2570"], Cell[528124, 13634, 198, 3, 70, "Output",ExpressionUUID->"16796d12-1b0d-d745-b4a7-59e302a2c068"] }, Open ]] } ] *)