(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Wolfram 14.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] NotebookDataLength[ 293237, 8992] NotebookOptionsPosition[ 268807, 8617] NotebookOutlinePosition[ 269261, 8635] CellTagsIndexPosition[ 269218, 8632] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"f1", "="}]], "Input", CellChangeTimes->{ 3.991847456288412*^9},ExpressionUUID->"02c50ee4-f89d-e84b-babb-\ c4951c25ae7a"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991847457119114*^9, 3.991847457122698*^9}},ExpressionUUID->"a3744ee1-3657-ed40-afd1-\ ad7c272f2bae"], Cell[BoxData[ RowBox[{"f2", "="}]], "Input", CellChangeTimes->{ 3.9918474584496803`*^9},ExpressionUUID->"fea443da-bb80-5942-940a-\ 8bd97c50a7b3"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918474591039295`*^9, 3.9918474591064377`*^9}},ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-\ a33659ac7670"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ir", "=", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"A1", "*", RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input",ExpressionUUID->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"d2a98016-4c83-3943-8fb1-133b89183d61"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Il", "=", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{ 3.9915577064670105`*^9, {3.9915584375659084`*^9, 3.9915584522049637`*^9}},ExpressionUUID->"f4d1663f-2f7d-a640-9003-\ 22515624ffcb"], Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"25b3586e-dddb-8148-8247-2a53a0816ad5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ih", "=", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", CellChangeTimes->{{3.991557709328657*^9, 3.991557711123291*^9}, 3.9915584476498585`*^9},ExpressionUUID->"85637b45-1c33-1f4e-90c3-\ 07deba1b9b3a"], Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"c7915de2-f678-2240-8907-4f119bfb9ca2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qb3", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"8f97c456-7671-\ cb44-95b8-323a276088fe"], Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c28337c4-580d-004c-bc3c-26abc607c115"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qw3", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ ssionUUID->"e2507f75-9610-1346-854c-33db9330e900"], Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"eca6de54-61a8-eb4b-9203-3f4b34d3dfbd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"148e44ba-fb40-0e42-\ 959d-44858270229f"], Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"0fa81d47-3764-044a-bf93-ee5d1211e37a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"0c021142-f067-b94a-\ bf73-69c3aa281aca"], Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"f8ee43a7-a683-0f4c-8e84-b8ddc45a142b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"827e3da4-\ 16db-854c-89ad-c94762d57459"], Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"3013ddc9-2d77-3941-8182-c74c4e917958"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"9149adf7-\ 16ac-794c-81f7-04a88d48bdc9"], Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"69944b55-6116-8240-914e-d57996010b53"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"14dc1278-8ac3-2246-\ 90ef-ba23d2bdffaa"], Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"10e3cc8a-ad3e-4e41-ba26-c1acab07fa26"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"6c632312-\ 3007-0b42-93b3-6c1b961afeb6"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "606843ec-0d7b-f541-9ba3-5b67b435945d"], Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"859b213d-5319-f746-82ea-75944d21baab"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o2", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"60d1b3b3-12f2-2644-\ 8ed8-788b5437fdfb"], Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"b3e0a85b-a4aa-ef42-9511-fc38e8dcde9a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"8bbc8f7a-\ f751-794c-9337-a97f1bdae578"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "390798a4-00bb-054f-8ee2-e80440f44497"], Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"ae91cf0f-72ea-5348-859e-dc6121354f77"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h1", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input",ExpressionUUID->"9338c89c-67a3-6e41-be9a-\ 1cf34020b040"], Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"d0d3835d-fdd0-8c42-8864-83afb328c4cf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h2", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input",ExpressionUUID->"ae8d22a0-13a2-9d41-b648-\ 0faf6caf2253"], Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"751398e6-9533-bb47-8958-7a1def21254b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h3", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}]}], ")"}], "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"7d419d4a-7a13-\ e94d-beb1-cf3b1cd962e0"], Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"1aeb1149-722c-dc42-812b-49cc813a09fb"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"5ded2365-6100-\ 7b43-ad8b-c1b09dc62d32"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.991847477953953*^9},ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-\ 81ac5c3a022e"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "2ce305f1-c638-b640-9e67-d7f6ae2bda61"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "b0af1054-fb47-e740-95af-24928a790ba1"], Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"66158712-c3f0-e64f-90ca-4bc93914d109"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.991847481589756*^9},ExpressionUUID->"2e2efe37-106e-8a4d-98e1-\ c6d073c59256"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "ddbb5dc1-4246-b141-8007-17d96bea04a9"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "1cbe63d8-1cf3-164a-9de9-78e410d01cd1"], Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"4bc5c73f-64dd-7843-be37-b49a7d1b54f0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", RowBox[{"Cos", "[", FractionBox[ RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.991847486086582*^9},ExpressionUUID->"5ef8c446-ea46-eb49-90ca-\ 5a9d2703a626"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "ce9fdda1-e376-7b48-b042-8c3b4f405fcb"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "66a78cc9-892b-204f-b904-4d54d4d3ebd0"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "77cccd91-6a05-1146-b314-0aa4f406152c"], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], ":", " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ suppressed during this calculation. \ \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ \\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ "Message",ExpressionUUID->"72ad5b3e-6607-7741-ad4a-54927ade8695"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.00529101 -2.67879 2.97603 [ [.15608 .28474 -6 -9 ] [.15608 .28474 6 0 ] [.28836 .28474 -6 -9 ] [.28836 .28474 6 0 ] [.42063 .28474 -6 -9 ] [.42063 .28474 6 0 ] [.55291 .28474 -9 -9 ] [.55291 .28474 9 0 ] [.68519 .28474 -9 -9 ] [.68519 .28474 9 0 ] [.81746 .28474 -9 -9 ] [.81746 .28474 9 0 ] [.94974 .28474 -9 -9 ] [.94974 .28474 9 0 ] [.01131 .14844 -24 -4.5 ] [.01131 .14844 0 4.5 ] [.01131 .44604 -24 -4.5 ] [.01131 .44604 0 4.5 ] [.01131 .59484 -18 -4.5 ] [.01131 .59484 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .15608 .29724 m .15608 .30349 L s [(25)] .15608 .28474 0 1 Mshowa .28836 .29724 m .28836 .30349 L s [(50)] .28836 .28474 0 1 Mshowa .42063 .29724 m .42063 .30349 L s [(75)] .42063 .28474 0 1 Mshowa .55291 .29724 m .55291 .30349 L s [(100)] .55291 .28474 0 1 Mshowa .68519 .29724 m .68519 .30349 L s [(125)] .68519 .28474 0 1 Mshowa .81746 .29724 m .81746 .30349 L s [(150)] .81746 .28474 0 1 Mshowa .94974 .29724 m .94974 .30349 L s [(175)] .94974 .28474 0 1 Mshowa .125 Mabswid .05026 .29724 m .05026 .30099 L s .07672 .29724 m .07672 .30099 L s .10317 .29724 m .10317 .30099 L s .12963 .29724 m .12963 .30099 L s .18254 .29724 m .18254 .30099 L s .20899 .29724 m .20899 .30099 L s .23545 .29724 m .23545 .30099 L s .2619 .29724 m .2619 .30099 L s .31481 .29724 m .31481 .30099 L s .34127 .29724 m .34127 .30099 L s .36772 .29724 m .36772 .30099 L s .39418 .29724 m .39418 .30099 L s .44709 .29724 m .44709 .30099 L s .47354 .29724 m .47354 .30099 L s .5 .29724 m .5 .30099 L s .52646 .29724 m .52646 .30099 L s .57937 .29724 m .57937 .30099 L s .60582 .29724 m .60582 .30099 L s .63228 .29724 m .63228 .30099 L s .65873 .29724 m .65873 .30099 L s .71164 .29724 m .71164 .30099 L s .7381 .29724 m .7381 .30099 L s .76455 .29724 m .76455 .30099 L s .79101 .29724 m .79101 .30099 L s .84392 .29724 m .84392 .30099 L s .87037 .29724 m .87037 .30099 L s .89683 .29724 m .89683 .30099 L s .92328 .29724 m .92328 .30099 L s .97619 .29724 m .97619 .30099 L s .25 Mabswid 0 .29724 m 1 .29724 L s .02381 .14844 m .03006 .14844 L s [(0.95)] .01131 .14844 1 0 Mshowa .02381 .44604 m .03006 .44604 L s [(1.05)] .01131 .44604 1 0 Mshowa .02381 .59484 m .03006 .59484 L s [(1.1)] .01131 .59484 1 0 Mshowa .125 Mabswid .02381 .02939 m .02756 .02939 L s .02381 .05915 m .02756 .05915 L s .02381 .08892 m .02756 .08892 L s .02381 .11868 m .02756 .11868 L s .02381 .1782 m .02756 .1782 L s .02381 .20796 m .02756 .20796 L s .02381 .23772 m .02756 .23772 L s .02381 .26748 m .02756 .26748 L s .02381 .327 m .02756 .327 L s .02381 .35676 m .02756 .35676 L s .02381 .38652 m .02756 .38652 L s .02381 .41628 m .02756 .41628 L s .02381 .4758 m .02756 .4758 L s .02381 .50556 m .02756 .50556 L s .02381 .53532 m .02756 .53532 L s .02381 .56508 m .02756 .56508 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .01472 m .02499 .01472 L .02605 .01472 L .02729 .01473 L .02846 .01474 L .03053 .01478 L .03279 .01482 L .03527 .01489 L .0379 .01499 L .04262 .0152 L .04749 .01548 L .05205 .0158 L .06244 .01675 L .07305 .01801 L .08274 .01944 L .10458 .02358 L .12357 .02821 L .14429 .03435 L .18493 .04963 L .22406 .06826 L .26565 .09204 L .30571 .11858 L .34426 .14717 L .38527 .1805 L .42475 .215 L .46273 .24996 L .50315 .28853 L .54206 .3264 L .58342 .36674 L .62326 .40497 L .66159 .44044 L .70238 .47601 L .74164 .50741 L .77939 .53432 L .8196 .55879 L .85828 .57771 L .87793 .58543 L .89942 .59234 L .91995 .59741 L .92911 .59917 L .93905 .60073 L .94426 .60141 L .94906 .60194 L .95356 .60236 L .95851 .60273 L .96295 .60299 L .9671 .60316 L .96939 .60323 L .97148 .60328 L .97264 .6033 L Mistroke .9739 .60331 L .97509 .60332 L .97619 .60332 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzlnAmUFMUZx3t3jl1Yl0MwogJZAUEWIWrU6CjPGx6eGBXj8eCt6AhGhQdo jMeLJ15RGw8UD0DAeB+5OvHCvMQzXom3TuJ94RnvKzhOVXdXV838/1U9uytq so8pZv71q6++/uqb3qrq7t21Y860gw/vmDN9akfb+FkdM6dNnzq7bdyMWRUp 0+B5DTdXXj3bPPG+7HlxUa78K/9WFEL5Zt+vL//LeGHH5fAlyrnfo/peYewq 747lrVpE2azI2ZzsJ8qcIo/g5ABRZhV5KCcHijKvyIM4OcTsfYpGSnCEeifr D+CW2k1yX06ONslJnNxQlI2K3IuTG5s29+Dkpia5Gyc3N3vfhZMF0+YETo41 yXGc3MbsfQdObmeS23FyB5Pcpnq0x5nejeWWJpiWtuTkzia5BSd3NcmfcHJ3 k9yUk3sATZYb8zY/Na1byL1MckNOTmJ+jOZt9jGtW8h9mfV23mY/07pOSvAA s359bmky63093maKad1CdjDrQ3ibA03rFvIgk2zjZJH5MYi3OcS0biGnM+tr 8zaHmtYt5GEmOYCTRzA/1qjOjxmM7M+tzzT9sJCzmPW+vM1s1qYPbzPH9MhC HsWst/I2v2BtVuNtjjY9ishG+V/OK5cCr1jwwp9C0QtKUpVWgmIk+4GXhXzB K1bqclFd4Be9uKpS6RWDkpcHHh3DjqJH6JvXHMklz49ckp9l15XPYtJS62Ho Rd4rxXjlFQhXC75XEhEQQpOUCkVfYaXAl04Xg+TAdceOZc42R85mQkm4Ugyi Txmv5Fe68UvyU2/N21iL4xK3E5+yoKvjzNEzO407yQBjvXWtEgJrp3ISeDw7 0lzqTlvibgItE8SQiSAX/CYViIKMNzvoXzFPsqk96RkNd7lcSZqKL35QUknk R1nRqIIiGP1H5HUJpe4J5nCY/sij1vzRc6An8DFOyXLJF/0lhyr9kYnu9QBO nMTC0xC5k02+P0Ut+UXgQ6uGR1qEYo/ElyLQvkcuj05mHmknmooJv1BQKeFX zLfGdUH1iaOcDKo2ODLwspvkMFD+nAK0rzx6hjwVaCs5PlflgAU6HWhfcPwM oH3O8TOB9hnHz1Ie65Bkzgb4x9zSOUD7iOPnAu1DjvtA+4Dj84D2PsfPU1Gw QBcA7V2OXwi0dzg+H2hvc/wioL3F8YuB9ibHFwBtRXV+XKKCtoJbugxor3H8 cqC9yvGFQHuF44uA9jLHFwPtJY5fAbQXOb4EaC9wfCnQnuf4MqA9x/Er1Vha oKuAVqrOiqsB9Cy3eQ3QnuH4tUB7muPXAe0pjl8PtCc5fgPQnuD4jUB7nOMj I03/LScnY5Vfs/EMKX6h6bXcTiNTbzxlD+fTsS9i6lEIJ8jWafxqwPfVYxtB MnnKRL4XjOlMGfpg828QtZ3VbMuY5eoIFzdb63K9IeW2M4btxjpD35NnT3uk hWuaQJoKzbd44TzTXAqxdU+4W2JfG6nJKl+VKR/FPM+P6jMpbKPs6m+xZfMh jZ8/pLa7Hktuu+vxRbbzneyvB0+rUZFWEtPyyBW0fhkZO6Bp8hV+RsugEUBr BqZRRvSzjFrtsipv9OFwazAwnU0ZBdS2uf7IIDP5lNFq5mO5gTrbiDQKTfcA JthYRl2jOI9QppMTGfKuFbi1OjhaFJXG+t1CgcyljEI9Y1mnC/mU0bKM5WgV ppI0Lb7GsQl9SyUeS11zeIzO3Gi3phdwq++qHct8yijYxrKOyCAzTSmjpY+l jNkY5XuSh45dqOH2ah5oPMBwQLDpeFz1se6zase6qf54tVEPuxxDm4d1xDXl hC5OomTj2pyE6Hty5jIi1PTN3uqj0r1FS4FGYE9esJGrR1sS1PaGfxEXcNhR iDOdDMpQm5udCJQ1QR3Bs1zTaY8NCRNeYjqcrOk5b5q0jnmy9euhvd9hWkjj /vQLJLFWHdI1gf9hOufUPEnsI8chylJ/mgx/wpfd53Wc/dQfw7ZUvtcfX7ev 9cfekkKj9O7UuSbcY0+7jz4sJWfbzx+uDi055YWe5sC3NFke6/b7geMLUywr wx4ukWWYchZXspa6wXZzXYniQGw62w3BJV5XXwrtTMwtc85bgHY/x28F2n0c vw1o93L8dqDdw/E7gHY3x5cD7S6O3wm0v3H8L0D7a4jLZb24bufNE0UDN9Kc Umv6lrj/FV8y0fdQ16IhUnsA/8/x+WZ84TdidlIbBrSWLtjbCGj9uOt3AW05 x+8G2h0cvwdot3P8XqDdxvH7gHYrx+8H2i0c/zvQ/szxB4D2J44/CLRAw2XN QwD6I7f5MND+wPFHgPZ7jv8DaL/j+D+BZrkj/lGg3czxx4B2E8cfB9qNHH8C aDdw/EmgXc/xp4B2HcefBtq11ZnyDICu4TafBdrVHC8B7SqO/wtov+H4v4F2 JcefA9oyjj8PtKUcfwFoSzj+ItCu4PhLQFvM8ZeBtojjrwBtYXWmyJsY5Lx+ Ibf0OtAu5fgbQLuE4yuAtoDjbwLtYo6/BbSLOP420OZz/B2gXcjxd4F2Acff A9r5HP8P0M6rHvD3ATSP2/wAaD7HPwTauRz/SGWfBfoEaL/m+KdAO4vjnwHt TI5/DrQzOP4F0E4PcU+7C9eLb6HA191r7xnG1/PjHYS0dzV/CbTTQu/iNTq6 JFV7k3W669v13sf8X6DN5e7FF2BrL6yam6Jp72NeCbRT3d27tuTtdzSvVN+I buzKdfOyLBtAxUmd8QFcQw43cpLto4K6eRiNezmMQW3FiekG33SnqXYz33Fr sCwzoOKE6Jubj9K3Zqc0vm6cbvM4hRf8VvPIbs3mWi8V1tr9uK7coCzLnMrO yAl0zpMlWkYf52iDltmW50tliSJ3jKMN2g75paNNizpyF4nuHThKayNrpIyu TB/psN4bVMxxtOkDKixP48qyrzpeF4l2v2c62vQHFTMcbdYAFZYnhWX5A1Bx uKMNumB0mKPNAFDxc0ebtVSEXeQ6oGIazKiBgDzEYX0QqCg62gxWvrvINlAx 1dFmXVBxoKPNEOWRi0Q7bFMcbdYDFZMdbYYrj1wkqtjf0WYkqNjP0aZdeaST SfZsABru47A5Wtl0kT9S5N4OciNF7ukgfwwqJjrabKKsu8jNFGl5Ql6WyWPy lifkZVlQ5E4OcitQMd7RZqyy7iK3VuSOMBe2VfXbOyxtr8htHeSOitzaQY5X pOX5e1kmD+Fbnr+X5c7qADd3kLspm5s5yInKZpiJ5t2W0U8mKl0ru2zKtmhm Kss9lTfRU/jxVMS1iEM3h6H1oiwnqeiM4b30rsfiz5Tfo7rJojx7yvXUiE5Y TP6+yGT1cWg3eSZ/9zUJeWA3WZSPwMvrfmvqOYjv5Gi11KEpuyzlzKxVyNF9 YOEFKbL0qJGp3e/SX7Sx1Mv3q+ivA3kNXwM/7XZb\ \>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ {127.62000000000003, 0.}} -> {-19.394, 0.892147, 0.709611, \ 0.0012616}},ExpressionUUID->"f8427134-7951-8548-ae28-485a485148a2"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"5446bdee-36aa-604e-a81f-\ f7b281aa780e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.991847500514847*^9, {3.991847890840927*^9, 3.991847891020767*^9}},ExpressionUUID->"b7386bff-07bb-694b-b11c-\ 7d3ff3a35bae"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "1b40a6b1-b8e0-af43-829a-2ca3d7ae070e"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "2360947f-22ea-fb4f-90b8-fd6f79665669"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "281ea8ed-b5ba-8045-83d3-97b36671a021"], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], ":", " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ suppressed during this calculation. \ \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ \\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ "Message",ExpressionUUID->"a4dfac90-0844-364a-8cdf-0596249bd283"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.031746 0.0147151 6.72103 [ [.18254 .00222 -3 -9 ] [.18254 .00222 3 0 ] [.34127 .00222 -6 -9 ] [.34127 .00222 6 0 ] [.5 .00222 -6 -9 ] [.5 .00222 6 0 ] [.65873 .00222 -6 -9 ] [.65873 .00222 6 0 ] [.81746 .00222 -6 -9 ] [.81746 .00222 6 0 ] [.97619 .00222 -6 -9 ] [.97619 .00222 6 0 ] [.01131 .14914 -24 -4.5 ] [.01131 .14914 0 4.5 ] [.01131 .28356 -24 -4.5 ] [.01131 .28356 0 4.5 ] [.01131 .41798 -24 -4.5 ] [.01131 .41798 0 4.5 ] [.01131 .5524 -24 -4.5 ] [.01131 .5524 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .18254 .01472 m .18254 .02097 L s [(5)] .18254 .00222 0 1 Mshowa .34127 .01472 m .34127 .02097 L s [(10)] .34127 .00222 0 1 Mshowa .5 .01472 m .5 .02097 L s [(15)] .5 .00222 0 1 Mshowa .65873 .01472 m .65873 .02097 L s [(20)] .65873 .00222 0 1 Mshowa .81746 .01472 m .81746 .02097 L s [(25)] .81746 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(30)] .97619 .00222 0 1 Mshowa .125 Mabswid .05556 .01472 m .05556 .01847 L s .0873 .01472 m .0873 .01847 L s .11905 .01472 m .11905 .01847 L s .15079 .01472 m .15079 .01847 L s .21429 .01472 m .21429 .01847 L s .24603 .01472 m .24603 .01847 L s .27778 .01472 m .27778 .01847 L s .30952 .01472 m .30952 .01847 L s .37302 .01472 m .37302 .01847 L s .40476 .01472 m .40476 .01847 L s .43651 .01472 m .43651 .01847 L s .46825 .01472 m .46825 .01847 L s .53175 .01472 m .53175 .01847 L s .56349 .01472 m .56349 .01847 L s .59524 .01472 m .59524 .01847 L s .62698 .01472 m .62698 .01847 L s .69048 .01472 m .69048 .01847 L s .72222 .01472 m .72222 .01847 L s .75397 .01472 m .75397 .01847 L s .78571 .01472 m .78571 .01847 L s .84921 .01472 m .84921 .01847 L s .88095 .01472 m .88095 .01847 L s .9127 .01472 m .9127 .01847 L s .94444 .01472 m .94444 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .14914 m .03006 .14914 L s [(0.02)] .01131 .14914 1 0 Mshowa .02381 .28356 m .03006 .28356 L s [(0.04)] .01131 .28356 1 0 Mshowa .02381 .41798 m .03006 .41798 L s [(0.06)] .01131 .41798 1 0 Mshowa .02381 .5524 m .03006 .5524 L s [(0.08)] .01131 .5524 1 0 Mshowa .125 Mabswid .02381 .04832 m .02756 .04832 L s .02381 .08193 m .02756 .08193 L s .02381 .11553 m .02756 .11553 L s .02381 .18274 m .02756 .18274 L s .02381 .21635 m .02756 .21635 L s .02381 .24995 m .02756 .24995 L s .02381 .31716 m .02756 .31716 L s .02381 .35077 m .02756 .35077 L s .02381 .38437 m .02756 .38437 L s .02381 .45158 m .02756 .45158 L s .02381 .48519 m .02756 .48519 L s .02381 .51879 m .02756 .51879 L s .02381 .586 m .02756 .586 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .01472 m .06244 .18263 L .10458 .34796 L .12507 .41668 L .14415 .47199 L .16371 .51906 L .18221 .55405 L .192 .56876 L .20263 .58172 L .21228 .59082 L .2212 .59698 L .22586 .59936 L .22843 .60043 L .23087 .60129 L .23313 .60195 L .2356 .60252 L .23669 .60272 L .23784 .6029 L .23886 .60304 L .23993 .60315 L .24059 .6032 L .24132 .60325 L .2426 .60331 L .24332 .60332 L .2441 .60332 L .24483 .6033 L .2455 .60328 L .24679 .6032 L .24752 .60314 L .24819 .60307 L .25074 .60272 L .253 .60228 L .2555 .60165 L .26055 .59995 L .26547 .59774 L .27064 .59486 L .2799 .58832 L .30075 .56765 L .3205 .54159 L .33886 .51282 L .37791 .44198 L .41941 .36071 L .45939 .28487 L .49785 .21945 L .53877 .16105 L .57818 .1166 L .61606 .08416 L .63714 .07001 L .6564 .05921 L .69523 .04269 L Mistroke .71425 .03672 L .73499 .0315 L .7547 .02757 L .77569 .0243 L .79714 .02174 L .81732 .01991 L .83744 .01853 L .85592 .01756 L .87479 .01681 L .89546 .0162 L .91501 .01578 L .93594 .01545 L .95662 .01522 L .97619 .01507 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnAmwHEUZxyd7vDMBA4kQjuQJihGPnEBcVLwALywtlfIoj2eSNU+NQABL SgoRBUQEFgEVSi4PTjkCsoqiCMghhxyKKAMiIIKIIOKBiKwz3TO9PW9/3870 7swCVbzK67z9dX//75uenp6Zb3p2t8l91qxeO7nP1MrJiV3XTe65Zmrl3hO7 7LEuQOUZnjfj/OB3bMIL/255Xly0gn+t9WERkvS/V6v/ql6zUfdqXvxT8+pN 39tO1ZW9VrNuasqqHPVqDV/Vml+/6dVjgVrda/otb4mDPflfFNu3Au2ophLZ 15utVP+LHezJ/xKpb4LYK1Ed+dV13ir137DXDOpr9Ybn+9qV32wouTCEHaIQ G7Wa14jqy5Fdq+UHXEu2NzH4HPy9rItdN39xl+o2Tc8PPpUUG/fCvZTsFtn/ Yged9HiGlU2sY+/OcJiUMvSH3nZvyh5xgVz4aXuxq5LtShHzGzUzOpeC7QjY xt3qB6wWhVjN6GMx2I6Brd7lQwmmfvXnMkiXeuuVTomkbdZeMcef2lG6bSWj jyVgO9olFrsd9TL5mNY94TiNx21R3WP7MJuoxrXmrj5sW/Khd0HFmoKDmJqt rG5K9kw2lJhIrclwRc6dVe7ubrk9rTvu8mWibbq7cIR5PY2wVbZXT89YO6ZM S9Nl06alMviIt9YeEfHWdsz22iftt0WizDCcNNruV7i76tJhWq1q5slG0zcd UDHtAxaeaqyOa9a1fXtL0jSmd2Bw6vHDU1a7s/UpLDkWsvnOqgUx6HOkOf31 EgN2r/4pmcuzdvPl8ewRyOqLIOWuGvViaB72XnztE0aylE0qGT0mdpA5DOvW Durmlu3Kzr4b7Us6Tw/5br6jyz3pCnth5D78MUdAWB7y7KhfEP6nbi6ODosZ stVYH2z0OduB2BYSy8KQjEPtyHOD5dls249eeD3Vmh2SmTkr24NKzeOvgUav AvbqjO3UhflISCoZLTpCaunDIihGw4+7Y/1WYTEUfvww1s8PC5WwWM3HkWk5 z7ScSmk517Rcm9Jytmm5V0rLWablvnbLSqKL4sZqLyuR/dIbD5sO2T+9cdU0 PsBqXDH1ZVN/oC1WTYjFG/aUCfOg9MZPGuWD0xs/YRofmt74cdP4MN4J4W8J 2GPG8HA3w0eN4RFuho8Yw6PcDB8G5ijxkPH9VdmwDOxBYI4SDxjfx7kZ3g/M llA1ZHif8fgN2SNNXfcCc5S4B9jxbhJ3AzvBTeIu0wMnyoZVYHcCc5S4A9hJ bhI+sJPdJG4HdoosMQTst8BOdZO4Ddi33CRuNbvyu26GvwbWRWIY2C3ATrMk VA0Z3gzsdDffNwE7w03iRmBnyhIjwG4AdpabxPXAzh64xHXAvucmcS2wc2QJ uly9Bti5WkKftviBUXyAx0naWqPpVbu0T6aJ9I++JionEm108qCwrwZ2ng47 6qkuz14qEHzFjFn5kU07PzX9EVI5kTGk+Z824ipg50cboTsizsxS4pGeuHTL 8tpPa2gwUYRXAlufiDD2RM+nxrpEY7czttYTEZo96NbqCmAX5B5hIlsbPbxQ M7waw9RzlwO7MPe4zBM76+EAnXup59IjjJP6aaMvGeFQol34G2XhY5m0Q4WC vQzY96NgK+3jXSeSKY9s4u3IN48n2uljXs53U+9SHulSYBfpgM28CpnZWV3q 4owuZYzpcoPC+ikwPZTwjEESPwH2AzeJS4D9UJagdMyP+5f4EbCL3SQuFmWL kpgl9j71T2aJJrBLLAlVQ4YXiSMks29HiQ2AXSgO9cwSFwC7dOAS64H9TJbY ENh5wC4buMS5wC53kzgH2BWyxPOAnQ3s5wOXOAvYlW4SZwK7ypJQNbOh0Rkp htOqSOJ0YFe7SZwG7JpCJTYC9h1gvxi4xLeBXVuoxMbATgV2nZvEKcCuH7jE ycBukCXmADspRULVkOGJwH7p5vubwG4sVGIusBOA3TRwieOB3VyoxPOBfR3Y LW4SXwP2q9wk8szLtOsa1oJhfX9GtzqbADsWmE51FpiLGbLs4pvJPALOL+9S 7SPCY4Ddmoiwt+xBtWMtbthGP8hLT8QNMtIxXjVsLX6K+rWdhqHwjgb2mxzC o91fVe1iFu92ujPfFFgD2G0dg9I9HSMMA3Vo6dXqeUbaZy4m2U5vaMXkY2q1 9h7PEOdRwPQTpJ5TMLHreHGy1G3zgB0ph0MnBZI4AtjvBi7xFWC3yxKbATu8 f4kvA/MHLnEYsDtkic2BfSlFQtWQ4aHA7nTznYPEIcB+L0tsAezg/iW+COyu gUt8AdgfZIktgR3Uv8Tngd09cIkDgd0jS8wH9rn+JQ4Adm++EqpmATTaH9gf Zd8FSXwW2H2FSkwA2w/Yn9wkPgPs/kIlXgDs08AeGLjEvsD+XKjEVsD2BvZg vhKqhgzXAfuL7HtrYHv1L7EnsIcGLrEHsL/KEi8E9qn+JdYCe9hN4pPAHpEl XgTsE/1LfBzY37REEamXZt1KvNT03RDlCRxDLS71Er/sqO4r7VRCeO9Zb2aN fQrYo1Hs/WRhhjvWH+hFR/C+Wk3fytIihG2ArUmNuLdkwjjnOsJ1JrX2S+hq F9SjMaUSHtSrHwP292JiDO/Kwx60liPU6vL4pR4tKtrhzmit9xNpvc6Lga0G 9ljHCM0nJaMPw5jR+izXCHNNxZTMgaLX76nlb36LVmlRnKuA/UPH2Wsqpv1K p5+cQuNDZJo7mv1XymFRc2IfBfZPWeIlwCb7l/gIsH8VKrEtsA8B+7ebxAeB PV6oxEuBfQDYfywJVdOLYQbf7wf2hCzxMmDv61/ivcD+K0u8HNjuwJ4cuMR7 gP1PlngFsHf3L/EuYE8VKrEI2DuBtdwk3iFJdHnJumcdVb0YWr5dsi7JUeSl swTY2ySd8tOj81ZJpyLrLAX2Zkmn+vTovEnSGZJ1lgHbNSedXSSdYVlnObCd c9J5o6Qz4qbzBklnVNbZDtjrs+ioarJ+nWQ9JkexPbDX5qSzk6QzLuvsAIxe 6lblzOJ1VgDbUdKZVbzOKzMyVW4g69QyxtiLDvW9KvWi1VyTQrjGP0pd0INm 6nM6llSpF5YW/oKUvvlOfDeeurusiy9Q0FbQvKTK2dFW9JMj6nxHJfqc9R0V +koFOkNAxL1lNPhb9Grtb9Gzv1lLRaxSRNSzdGZV5UY5xCktjAnfPVNrONRg kdZN0JRGF26q3DiHcCGtFSUGE2M3CFlKa9FXedD1uyrndIzdPN6vmvbtZGlj lyKmWydVzo0iLuYlK7uf/XaCjvqZzr5052pH3e+bVnZqs9ubVnSFQakJVerV nnj2IR3K1ahyE1mHrpwoLafKTWUdun6jpLMq58k6dD1JD7JUuZmbDj0cVOXm sg5dJ09IOlvIOnTdTksIVLmlrEP3EbS+RJXzLR1Vre5m1PcR0PocVS6QfdO9 Ga2kVOWErPMWYHNMZOrz1rI13bHSmw9pOnQHvWEyim1k691Mn85M2iyUbVQm Y6Zpua3cUpXPkK/IS6tXf6d8Ebc34/9GSkZ2\ \>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ {127.62000000000003, 0.}} -> {-3.23234, -0.00806918, 0.118269, \ 0.000558628}},ExpressionUUID->"42a070d0-1a40-f841-bc5a-496bce3f6168"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"c9fc5a7b-2d38-ba43-857f-\ 9aa96e6b3d16"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", RowBox[{"{", "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, 3.9917953263701286`*^9},ExpressionUUID->"08cc1ff9-b63b-d741-9dab-\ b5604b3208c2"], Cell[BoxData[ GraphicsBox[{{}, InterpretationBox[{ TagBox[ TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{94.07049642219837, 205.01757834806736`}, {-15.23616859338814, 2.101331406611859}}], Selectable->False]}, Annotation[{{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> { Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[2]], Directive[ RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[2]], Directive[ RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[2]], Directive[ RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[2]], Directive[ RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[2]], Directive[ RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[2]], Directive[ RGBColor[1, 0.75, 0], AbsoluteThickness[2]], Directive[ RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[2]], Directive[ RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[2]], Directive[ RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[2]], Directive[ RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[2]], Directive[ RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[2]], Directive[ RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[2]], Directive[ RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 52.}, {0, 0.120683}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9917148467316074`*^9}, CellLabel-> "Out[529]=",ExpressionUUID->"d769d980-5c09-fe4c-baf0-fe9ddf32668b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { 3.991795329890896*^9, 3.99179533223897*^9}},ExpressionUUID->"c833855b-86a8-7349-9ccf-\ 32b52052d827"], Cell[BoxData[ TemplateBox[{ "Show", "gcomb", "\"Could not combine the graphics objects in \ \\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ List[List[None, None], List[None, None]]], Rule[FrameTicks, \ List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ \\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ \"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ 52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, CellLabel-> "During evaluation of \ In[532]:=",ExpressionUUID->"876d039d-4206-f648-bcad-3d1cc1c9375e"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x130", ",", GraphicsBox[{{}, InterpretationBox[{ TagBox[ TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{29.72195338368416, 78.6184367454052}, {-18.964692186399834`, 2.2071828136001663`}}], Selectable->False]}, Annotation[{{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> { Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[2]], Directive[ RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[2]], Directive[ RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[2]], Directive[ RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[2]], Directive[ RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[2]], Directive[ RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[2]], Directive[ RGBColor[1, 0.75, 0], AbsoluteThickness[2]], Directive[ RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[2]], Directive[ RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[2]], Directive[ RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[2]], Directive[ RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[2]], Directive[ RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[2]], Directive[ RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[2]], Directive[ RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 52.}, {0, 0.120683}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]}], "]"}]], "Output", CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, CellLabel-> "Out[532]=",ExpressionUUID->"d3e123dc-41cb-7141-a991-a4f7fbe6f12f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"L", "=", FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", CellChangeTimes->{ 3.9918480149621506`*^9},ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-\ f10741068cd1"], Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38637efc-803d-8640-9e6e-276437831f52"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"L", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9918480132941303`*^9},ExpressionUUID->"e95bae90-91f9-c74f-b890-\ 1d51c0908f7e"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "c023352e-b521-e84e-9cb3-97c71ad6a25e"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "7309d20d-7fd9-4f4d-a7f3-0872cdf1105f"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "43ff04d1-726c-9a4f-a3ef-930184afcb3e"], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], ":", " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ suppressed during this calculation. \ \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ \\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ "Message",ExpressionUUID->"3fd3a11a-bede-e144-8b42-539dbe9249ba"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.031746 0.0147151 12.2218 [ [.18254 .00222 -3 -9 ] [.18254 .00222 3 0 ] [.34127 .00222 -6 -9 ] [.34127 .00222 6 0 ] [.5 .00222 -6 -9 ] [.5 .00222 6 0 ] [.65873 .00222 -6 -9 ] [.65873 .00222 6 0 ] [.81746 .00222 -6 -9 ] [.81746 .00222 6 0 ] [.97619 .00222 -6 -9 ] [.97619 .00222 6 0 ] [.01131 .13693 -24 -4.5 ] [.01131 .13693 0 4.5 ] [.01131 .25915 -24 -4.5 ] [.01131 .25915 0 4.5 ] [.01131 .38137 -24 -4.5 ] [.01131 .38137 0 4.5 ] [.01131 .50359 -24 -4.5 ] [.01131 .50359 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .18254 .01472 m .18254 .02097 L s [(5)] .18254 .00222 0 1 Mshowa .34127 .01472 m .34127 .02097 L s [(10)] .34127 .00222 0 1 Mshowa .5 .01472 m .5 .02097 L s [(15)] .5 .00222 0 1 Mshowa .65873 .01472 m .65873 .02097 L s [(20)] .65873 .00222 0 1 Mshowa .81746 .01472 m .81746 .02097 L s [(25)] .81746 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(30)] .97619 .00222 0 1 Mshowa .125 Mabswid .05556 .01472 m .05556 .01847 L s .0873 .01472 m .0873 .01847 L s .11905 .01472 m .11905 .01847 L s .15079 .01472 m .15079 .01847 L s .21429 .01472 m .21429 .01847 L s .24603 .01472 m .24603 .01847 L s .27778 .01472 m .27778 .01847 L s .30952 .01472 m .30952 .01847 L s .37302 .01472 m .37302 .01847 L s .40476 .01472 m .40476 .01847 L s .43651 .01472 m .43651 .01847 L s .46825 .01472 m .46825 .01847 L s .53175 .01472 m .53175 .01847 L s .56349 .01472 m .56349 .01847 L s .59524 .01472 m .59524 .01847 L s .62698 .01472 m .62698 .01847 L s .69048 .01472 m .69048 .01847 L s .72222 .01472 m .72222 .01847 L s .75397 .01472 m .75397 .01847 L s .78571 .01472 m .78571 .01847 L s .84921 .01472 m .84921 .01847 L s .88095 .01472 m .88095 .01847 L s .9127 .01472 m .9127 .01847 L s .94444 .01472 m .94444 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .13693 m .03006 .13693 L s [(0.01)] .01131 .13693 1 0 Mshowa .02381 .25915 m .03006 .25915 L s [(0.02)] .01131 .25915 1 0 Mshowa .02381 .38137 m .03006 .38137 L s [(0.03)] .01131 .38137 1 0 Mshowa .02381 .50359 m .03006 .50359 L s [(0.04)] .01131 .50359 1 0 Mshowa .125 Mabswid .02381 .03916 m .02756 .03916 L s .02381 .0636 m .02756 .0636 L s .02381 .08805 m .02756 .08805 L s .02381 .11249 m .02756 .11249 L s .02381 .16138 m .02756 .16138 L s .02381 .18582 m .02756 .18582 L s .02381 .21026 m .02756 .21026 L s .02381 .23471 m .02756 .23471 L s .02381 .2836 m .02756 .2836 L s .02381 .30804 m .02756 .30804 L s .02381 .33248 m .02756 .33248 L s .02381 .35693 m .02756 .35693 L s .02381 .40581 m .02756 .40581 L s .02381 .43026 m .02756 .43026 L s .02381 .4547 m .02756 .4547 L s .02381 .47914 m .02756 .47914 L s .02381 .52803 m .02756 .52803 L s .02381 .55248 m .02756 .55248 L s .02381 .57692 m .02756 .57692 L s .02381 .60136 m .02756 .60136 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .01472 m .06244 .10806 L .10458 .20681 L .14415 .29388 L .18221 .37017 L .22272 .44131 L .26171 .49847 L .30316 .54591 L .32392 .56431 L .34309 .5781 L .36173 .58858 L .37125 .59283 L .3815 .59658 L .3917 .59947 L .40103 .60141 L .40552 .6021 L .40789 .6024 L .41042 .60267 L .41284 .60289 L .41504 .60305 L .41725 .60317 L .41834 .60322 L .41933 .60325 L .4205 .60328 L .42174 .60331 L .4229 .60332 L .42399 .60332 L .42526 .60331 L .42644 .60329 L .42773 .60326 L .4291 .60321 L .43163 .60308 L .434 .60293 L .43941 .60241 L .44405 .60181 L .4483 .60112 L .45788 .59913 L .46769 .59645 L .47681 .59341 L .49751 .58461 L .53655 .56157 L .57805 .52937 L .61803 .49268 L .6565 .45377 L .69742 .4102 L .73682 .36757 L .77471 .32713 L .81505 .2857 L .85387 .24819 L .89515 .21147 L Mistroke .93491 .17954 L .97316 .15219 L .97619 .15016 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnAuQFNUVhnt3ZhZ20WDUGNQo6xPxxe6CgIMgKgI+ACMqoiiswAgK8hTf ARR8oXE0iXloLBNjtBJTPmt85E3FMiYpUyZRKzUpraTyKC0tLS1TsUxlMn1v 9+3ume/cme7phbXKqd3e3v+c85/Tt2/fvvf06ZnVv37Z0pX965cv7u+esbZ/ 9bLli9d1T1+1tgpl2hyn7bHqb1e34+5XHMffVKo/lcfdjYs03l+q/uScUrHg 5B3/k3cKpbJzjJJlnEqpYCQZte108sWykprfcskp+AT5glMqV5zeGPbkf4xv X6lye5KsZ18oVRr674lhT/57pbapxp71ZORXy5wl6s8Qp1SV5wtFp1zWrsql oqJzQ5jghVjM552iJ894dpVKuYpryuAQq/9X98da7Gz+/CbVOiWnXP2vXWHD HPcsRZtF9t8Tg6dxPEOUjc8TPp1uN2lvoj30sTvLwz2uSuf+N15sqqheu4eV i3nTO/vAdijY+s1armJ5L8Rckz56wLYLbPUp74hg6lf/nwHq9mStUk8RtW22 Vcz1p06U1s026aMXbDstsYT1qJXJR03zuP3U77cD1TxhH+YQVb/WeFwfYVvy oU9BNjQEV2MqVZp10x4eyToiA2loMJyYcmNl7O7GhYf1mKd8rGjb2J3bw5xE PWxJ2KujR6xJDYalWtpGw1IGfPhHG+4R/tHWjfbaJ523MSLNELhpBO4nxndl aTDNljPjZLFUNg2QNfpVzL3VhBquVND2wZE04qhtwOqtp+zesoLG1rewaF9o znezXBCDvkea21+SGLB59afdTM8C9XH+6FGl1ZMg5S7ntaJr7raeP/dxI+lj k2yTHiMnyFyGhdAJsrllu0xs38VgSufoLm/z7U33pBn2YZ5792OuAHd74ydD PtL9oxYXd7qbNtmqqwWs81PbHWI7mGJp1nZoqMupC3fYIA/4U9vBFUvijjYF lI4DbHLKeuFAQiL1190Thm6WZyPUvsrW9FVyEZVIQFtCejreTKBQ8W44N/BR ub/tgKnt5p1vk5FsNqVrk5VsNqZrk5NsvtSijRInYe+QbK5L12aIZHNtujZD JZtrdr4NjZVqe3WLNkpMo67aXiWz7ygbmlWo7ZXp2uwi2VyRrs2uks2GFm2U OAn7ZySby9O1GS7ZrE/XZjfJZl1yG30H4gcL/tjpJ/PyxZKTs+hH0tzex7/7 hh/A0N2oUZze4GJJymchWo3Zc/n+UYazWzSaf1aKcK0XoT4sPx9H6SbKs1PC LZtuSD41PYboAveUWhRDUhM1MZA1Oy6QGve7D76Q9pBCWl3Xg8IhST3IlrJN LaRscNnpRB/l+UxUdfnAzoieanDIhdKkZk8pslVOdOCCFNmuFlnWtE8kYxgr hCUgENZQVp7FIOiUeT4n8SxyN2oFuUsC64UgsPDsJfEsMFEMD1krRdHmfBAM l31/XuKZD4LdEvDMM8ewRwLrc8QrDHlGSDxzTRR7JbA+UzxpyLO3xDPHRLF3 AuvZojLy7CPxnC4qx+M5DQT71vbTfSXrmaYt9pd9i9YzQJCEZzoIRso8X5B4 poGgOwHPSSA4QObZT+I5AQQHJuCZCoKDZJ79JZ7J5mwfmsCaMmxhnkzQjcB6 EghGyVGMlHiOBcFhCXgmgmC0zNMt8YwHweEJeI4BwREyzwEST585x0cnsO4F gYXnQIlnDAjGJOA5GgQ9Ms9BEs+RIOit7bui9REg6EsQxeEgGCvzHCzxjDLn eHwC60NBYOE5ROIhBxMS8FBz6asz1VV8tChAf3Q2PhMpq6BVPDWZ2tKFpEeo AVzZB0uV2qrBTKRIhLLW4pHQwJT3jiS9DIDBQlV6lF4dJYVJ95dJkTDTWPka 21A5HK2kxDDpVn5c6mFG6nW88rUgeSEGR/OwyakHZwo3QzVi9NRCLJygKe+U uh4ZP6PQEdFzf72KLJ+m0TU0WoqYli7HexG3mHAYVpdwsBVAUTuLUdOyT884 W0xGcB0RpWvE2GiBrWfV2G/oBqu2lKo4MQEP5ZVOknlo4qC2lFicloCH0ssn yzw0DVJbejwwPcSjJKI1PcSYIUdxlMRDj4FmJuChx1anyDw0yVRbujOdmoCH bh2nJeChS+d0mYcm4WpLg9qsBDw0VZot8/RIPG0gmFPb+8j6f+5WTYTPlN3S mua/gMWk+BiwuTJFH2AfAXZWPIr/AHa2TDEWsH8Ddk48ig8BmydTjAPsA8DO jUfxPmDzZQpacb8H2Hm1PZEM3wXsfNk3ZQ3eAWxBPIq3AbtAppgA2FuAXRiP 4k3AFsoUlIn5F2CL4lH8E7B+mYLySv9oneLvgF0kU+QB+xtgi2v7JBn+FbAl sm/K0L0B2NJ4FK8DVpApKMv4F8AujkdRBmyZTEEVhn8GTL/0lGqewp870+uS NAGg4srXALtEhzrQaQn7S4i0MKEDeBWwS70DSC8b0QF6NDc6HrA/AbYiEmGq i+iyfRG98yLM+K0WfTUuSENQaH8AbOXANp5lZTwVsJcBu6yuA7ZazuB3wEYZ B3qQ9HvAvBqCAUg2WN6aoialgF8CzCvHaD3PUP+uEY2VJwL2O8C8Whq6M9Cz wd8AtjYexYuAWcrf6Ennr1uneAEwS+HeyYA9D1i4xlBJyPBXgFmKIOmZ8XbA LJWdRPFLwCxFqPQE/OeAWeplieJngFkKh2cC9hPALPXKpwD2HGCWcmyieBYw S+X4qYA9DVhdOTwZlgDbKPumQoqnANs0oBRUFvIEYJYXKYjiccCulylmAfYo YJZXTahO5keAbYlH8QhgW2WKOYD9ADDLS5xnAPYwYDfV9kkyfAiwm2XfXwTs QcBukSmoauoBwG6VKeYC9h3AtsWjuB+w22SKswC7D7DbZYqzAbsXsC/Ho7gH sDtkCqqm+yZgRZliHmBfB+zO2j5JhncDdpfs+1zAvgrYV2QKqmq8S6RFivPE BotiX4tHcYfYPkhBZZ63i+cm1TRBICuG0gR6GUEz8gWAbQPsGzrUgUsT0Jqn 2YBvFS+dNNMCuSYjvACwmwH7ViTCZCvbXN0XFrk6+lXRxvUrFwJ2I2D3pBBp F3+1UugbIrx2DVIEFN4WwO5NITw6/Tml52P+aacF5CLArgfs23WdstVUQbBE di8tnU2LG+lmwO7zIm0xZRDVM0khr0Yhnw/OeI3/fsDU9F491tPTjMT5gUiC z5Eb6yLArgXMC4duBfTOw9WAfVemoNcvrgTsAZliKWAbAPtePIrLAXswRKEk BVBaB9j3Zd8XA7YGsIdkimWArQLsYZliOWArTJf8oWx4SZNYTAqK5xGZ4lLA Cib8R2XDFU32SQvFyiYvrsdkissAW2jCf7K219G5pRvzk7LH1YDRzO4pmWKN CXC+2XtaVqfLglYWFor1gNEq6xmZgq7qM0z4P5YNNxil2Wbvp7I6jWGUsLFQ XGX8zDR7v5DVrzFK08ze9tqecx0YTgVsu+wnuFFNMXvPy+qbADvWGL4gG242 ShPM3ouy+g1Gqc8c7W9l9a1G/Sij/pKsfpNRH232XpbVbzFKh5i9P8rq20wI 3Ub9FVldLdXVJHKE2Xut9kyrteUId68sM6ntIPmysEZytd/gK4mdtv8DOhP8 Ww==\ \>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ {127.62000000000003, 0.}} -> {-3.23234, -0.00443741, 0.118269, \ 0.000307202}},ExpressionUUID->"960bbf59-2015-8349-bffe-e4d767d8aeeb"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"a75c82b0-dce2-dd4f-b864-\ 2a6b5c402da4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ UUID->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "bd49935b-c0f9-f44f-af7a-e4ad6a7bc2ad"], Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43a947d2-2d74-d447-89ff-92c212e98dc4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "*", RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918475382015915`*^9, 3.9918475423636837`*^9}},ExpressionUUID->"101ef0da-c6f5-1c49-9804-\ 85fb5ed316b5"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "131678ec-17c0-f049-b9b0-aed329dc5583"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "a6fc1549-2fa3-f649-b6cc-c7168f9393cf"], Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"0f29d6b0-abda-0849-9008-4443dea42d94"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991847547003359*^9, 3.9918475498243904`*^9}},ExpressionUUID->"087f1adc-ca17-4a4e-8be3-\ 617724431d54"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "ffb3115b-8086-8941-bf0d-81ed4818f26f"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "6eb50ae6-c8bd-6941-a71f-82927d1c1d5c"], Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"e9e8685d-f821-c64d-930c-bdbceafb1970"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918475561652145`*^9, 3.991847558757557*^9}},ExpressionUUID->"562762dd-8337-c248-84ed-\ 48f09efe77cb"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "88848fa9-89c0-7441-a937-117af52a31e7"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "3e81b6c4-2244-bf42-b8b5-0fa000d4a037"], Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"75996429-631f-a540-8db3-d3eecf498491"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.991847567835865*^9, 3.9918475715285187`*^9}},ExpressionUUID->"b22d48b0-99f1-fc43-8d66-\ dfdcb64caaf4"], Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"8631572e-009c-e547-9adf-d000b75a3b80"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991847581296728*^9, 3.991847583342928*^9}, 3.9919236579457912`*^9},ExpressionUUID->"324c5332-372a-9346-847e-\ b48a2f85529f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qb2", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"3aa52613-e091-\ 4440-b97b-cbff40fea673"], Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"0bfccaf4-b419-7b47-a5b9-ad617225ded2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"00409e7b-892c-b145-\ 91f2-fd5d9616a547"], Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"0910edf9-27aa-f943-bd90-76d5bfb56389"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"eb9f1869-\ 8c47-4c47-ad8f-589aa7e556b3"], Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"50a3d579-8928-2343-996d-237ad0eb297d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"a68db5dc-89e4-f247-\ a519-53dcbe6905b1"], Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6b11f8d3-6b54-614d-a4c0-669be8c0ee7f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"d3d0889a-\ 1b29-9a4d-af3d-093ef0359f4b"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "465a75ef-6b20-9848-9eff-c4e675672ad8"], Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"8931c974-5816-9e48-9ac0-0532e1ef18b1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o2", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9fe1a567-82b8-a345-\ b4b0-80b2c100f9f3"], Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"13c9a29c-6a6d-ff49-88af-96394780a9e2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"3372ffe6-\ 5d5a-b247-8795-4c6a022053d0"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "5f5967c2-a14c-de46-b55b-52a0b7afbab3"], Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd025469-aef5-2448-a097-d2409dcee75d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h1", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input",ExpressionUUID->"367b34da-973d-2d45-8020-\ 5f24b7ad9501"], Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"98cac926-ef59-1342-b091-1b565c5978b3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h2", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input",ExpressionUUID->"112859ae-f114-4041-84e8-\ 1ba64a91ebc1"], Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"36a7aeca-f2a3-e949-b0ca-f804c0163692"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h3", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}]}], ")"}], "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"695320bc-fa3e-\ 3547-be92-70a745b298b2"], Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"0abac473-9a99-bd43-b50e-e41bacfd95b6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.9918476180917797`*^9},ExpressionUUID->"b1722e07-c26a-4d47-97af-\ 4f4eb5664e3b"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "7ab7ec2a-fa78-4845-8b94-ac80bbb482ff"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "1e16a028-2ecd-3143-835f-f92cd0016663"], Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"eadd70e7-26a1-4b46-8240-f3dce9859a07"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.9918476209740715`*^9},ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-\ a3bdb03abf99"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "62adfe6c-817a-8644-a989-225720cd7059"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "cbaa115f-bf0d-1e4f-b5c7-1d35bae46521"], Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"e9a05a92-f41b-934a-a923-0dffa18fc100"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "1"], RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", RowBox[{"Cos", "[", FractionBox[ RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9918476243275547`*^9},ExpressionUUID->"39feef99-fcf4-8440-bed1-\ 25beef5a0630"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "56c86859-71bc-bf4d-8ea6-a152a4a828d3"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "47fbb3e0-458c-4d48-bc65-cfbd454ebd8b"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "a25aaf8c-9a35-1543-b0b4-c881fe78844a"], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], ":", " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ suppressed during this calculation. \ \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ \\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ "Message",ExpressionUUID->"d9cbee06-5ef4-e14d-b8da-4a8591142866"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.00529101 -0.551091 0.817918 [ [.15608 .25433 -6 -9 ] [.15608 .25433 6 0 ] [.28836 .25433 -6 -9 ] [.28836 .25433 6 0 ] [.42063 .25433 -6 -9 ] [.42063 .25433 6 0 ] [.55291 .25433 -9 -9 ] [.55291 .25433 9 0 ] [.68519 .25433 -9 -9 ] [.68519 .25433 9 0 ] [.81746 .25433 -9 -9 ] [.81746 .25433 9 0 ] [.94974 .25433 -9 -9 ] [.94974 .25433 9 0 ] [.01131 .02145 -18 -4.5 ] [.01131 .02145 0 4.5 ] [.01131 .10324 -18 -4.5 ] [.01131 .10324 0 4.5 ] [.01131 .18504 -18 -4.5 ] [.01131 .18504 0 4.5 ] [.01131 .34862 -18 -4.5 ] [.01131 .34862 0 4.5 ] [.01131 .43041 -18 -4.5 ] [.01131 .43041 0 4.5 ] [.01131 .5122 -18 -4.5 ] [.01131 .5122 0 4.5 ] [.01131 .59399 -18 -4.5 ] [.01131 .59399 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .15608 .26683 m .15608 .27308 L s [(25)] .15608 .25433 0 1 Mshowa .28836 .26683 m .28836 .27308 L s [(50)] .28836 .25433 0 1 Mshowa .42063 .26683 m .42063 .27308 L s [(75)] .42063 .25433 0 1 Mshowa .55291 .26683 m .55291 .27308 L s [(100)] .55291 .25433 0 1 Mshowa .68519 .26683 m .68519 .27308 L s [(125)] .68519 .25433 0 1 Mshowa .81746 .26683 m .81746 .27308 L s [(150)] .81746 .25433 0 1 Mshowa .94974 .26683 m .94974 .27308 L s [(175)] .94974 .25433 0 1 Mshowa .125 Mabswid .05026 .26683 m .05026 .27058 L s .07672 .26683 m .07672 .27058 L s .10317 .26683 m .10317 .27058 L s .12963 .26683 m .12963 .27058 L s .18254 .26683 m .18254 .27058 L s .20899 .26683 m .20899 .27058 L s .23545 .26683 m .23545 .27058 L s .2619 .26683 m .2619 .27058 L s .31481 .26683 m .31481 .27058 L s .34127 .26683 m .34127 .27058 L s .36772 .26683 m .36772 .27058 L s .39418 .26683 m .39418 .27058 L s .44709 .26683 m .44709 .27058 L s .47354 .26683 m .47354 .27058 L s .5 .26683 m .5 .27058 L s .52646 .26683 m .52646 .27058 L s .57937 .26683 m .57937 .27058 L s .60582 .26683 m .60582 .27058 L s .63228 .26683 m .63228 .27058 L s .65873 .26683 m .65873 .27058 L s .71164 .26683 m .71164 .27058 L s .7381 .26683 m .7381 .27058 L s .76455 .26683 m .76455 .27058 L s .79101 .26683 m .79101 .27058 L s .84392 .26683 m .84392 .27058 L s .87037 .26683 m .87037 .27058 L s .89683 .26683 m .89683 .27058 L s .92328 .26683 m .92328 .27058 L s .97619 .26683 m .97619 .27058 L s .25 Mabswid 0 .26683 m 1 .26683 L s .02381 .02145 m .03006 .02145 L s [(0.7)] .01131 .02145 1 0 Mshowa .02381 .10324 m .03006 .10324 L s [(0.8)] .01131 .10324 1 0 Mshowa .02381 .18504 m .03006 .18504 L s [(0.9)] .01131 .18504 1 0 Mshowa .02381 .34862 m .03006 .34862 L s [(1.1)] .01131 .34862 1 0 Mshowa .02381 .43041 m .03006 .43041 L s [(1.2)] .01131 .43041 1 0 Mshowa .02381 .5122 m .03006 .5122 L s [(1.3)] .01131 .5122 1 0 Mshowa .02381 .59399 m .03006 .59399 L s [(1.4)] .01131 .59399 1 0 Mshowa .125 Mabswid .02381 .03781 m .02756 .03781 L s .02381 .05417 m .02756 .05417 L s .02381 .07053 m .02756 .07053 L s .02381 .08689 m .02756 .08689 L s .02381 .1196 m .02756 .1196 L s .02381 .13596 m .02756 .13596 L s .02381 .15232 m .02756 .15232 L s .02381 .16868 m .02756 .16868 L s .02381 .20139 m .02756 .20139 L s .02381 .21775 m .02756 .21775 L s .02381 .23411 m .02756 .23411 L s .02381 .25047 m .02756 .25047 L s .02381 .28319 m .02756 .28319 L s .02381 .29954 m .02756 .29954 L s .02381 .3159 m .02756 .3159 L s .02381 .33226 m .02756 .33226 L s .02381 .36498 m .02756 .36498 L s .02381 .38134 m .02756 .38134 L s .02381 .39769 m .02756 .39769 L s .02381 .41405 m .02756 .41405 L s .02381 .44677 m .02756 .44677 L s .02381 .46313 m .02756 .46313 L s .02381 .47949 m .02756 .47949 L s .02381 .49584 m .02756 .49584 L s .02381 .52856 m .02756 .52856 L s .02381 .54492 m .02756 .54492 L s .02381 .56128 m .02756 .56128 L s .02381 .57764 m .02756 .57764 L s .02381 .00509 m .02756 .00509 L s .02381 .61035 m .02756 .61035 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .60332 m .02499 .60331 L .02605 .6033 L .02729 .60328 L .02846 .60326 L .03053 .60319 L .03279 .60309 L .03527 .60295 L .0379 .60276 L .04262 .60232 L .04749 .60174 L .05205 .60108 L .06244 .59913 L .07305 .59653 L .08274 .59362 L .10458 .58527 L .14429 .56405 L .18248 .53718 L .22313 .50297 L .26226 .46595 L .30384 .4238 L .34391 .38185 L .38246 .3414 L .42346 .29931 L .46295 .26047 L .50092 .22522 L .54134 .19038 L .58025 .1597 L .62161 .13033 L .66146 .10526 L .69979 .08415 L .74057 .06487 L .77984 .04937 L .81759 .03723 L .85779 .02721 L .87627 .0236 L .89648 .02036 L .91652 .01788 L .92745 .01682 L .93762 .01604 L .9426 .01572 L .94801 .01542 L .95278 .0152 L .95783 .01501 L .96238 .01488 L .96496 .01483 L .96738 .01478 L .9696 .01475 L .97163 .01473 L .97275 .01473 L Mistroke .97397 .01472 L .97512 .01472 L .97619 .01472 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au 6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ 5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ 9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j 6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz +s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ 6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C 2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH 65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW 2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm v/odiPr3KLwBMhrzH2bRmaY=\ \>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ {127.62000000000003, 0.}} -> {-14.8518, 0.65382, 0.693802, \ 0.00448812}},ExpressionUUID->"2f0c6d62-d79c-fe40-ae18-5a4696a4ccbb"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"1b36cfb9-6a09-4c41-9a4d-\ 068e88bb9e2c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9918476306797314`*^9, {3.9918479463234234`*^9, 3.9918479465064144`*^9}},ExpressionUUID->"e605439d-19dd-2645-8993-\ c76100de5ed2"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "c359dea9-9ece-cf49-b7df-ef6b53440b08"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "df87c0d2-a345-c048-8631-aeba4b69c5c2"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "991abcb1-81ce-9b40-bdbb-a15d386b1b78"], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], ":", " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ suppressed during this calculation. \ \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ \\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ "Message",ExpressionUUID->"9aaae4b6-fac0-394d-b0b6-90b588c1351a"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.0634921 0.0147151 5.37313 [ [.15079 .00222 -3 -9 ] [.15079 .00222 3 0 ] [.27778 .00222 -3 -9 ] [.27778 .00222 3 0 ] [.40476 .00222 -3 -9 ] [.40476 .00222 3 0 ] [.53175 .00222 -3 -9 ] [.53175 .00222 3 0 ] [.65873 .00222 -6 -9 ] [.65873 .00222 6 0 ] [.78571 .00222 -6 -9 ] [.78571 .00222 6 0 ] [.9127 .00222 -6 -9 ] [.9127 .00222 6 0 ] [.01131 .12218 -24 -4.5 ] [.01131 .12218 0 4.5 ] [.01131 .22964 -24 -4.5 ] [.01131 .22964 0 4.5 ] [.01131 .3371 -24 -4.5 ] [.01131 .3371 0 4.5 ] [.01131 .44457 -24 -4.5 ] [.01131 .44457 0 4.5 ] [.01131 .55203 -18 -4.5 ] [.01131 .55203 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .15079 .01472 m .15079 .02097 L s [(2)] .15079 .00222 0 1 Mshowa .27778 .01472 m .27778 .02097 L s [(4)] .27778 .00222 0 1 Mshowa .40476 .01472 m .40476 .02097 L s [(6)] .40476 .00222 0 1 Mshowa .53175 .01472 m .53175 .02097 L s [(8)] .53175 .00222 0 1 Mshowa .65873 .01472 m .65873 .02097 L s [(10)] .65873 .00222 0 1 Mshowa .78571 .01472 m .78571 .02097 L s [(12)] .78571 .00222 0 1 Mshowa .9127 .01472 m .9127 .02097 L s [(14)] .9127 .00222 0 1 Mshowa .125 Mabswid .05556 .01472 m .05556 .01847 L s .0873 .01472 m .0873 .01847 L s .11905 .01472 m .11905 .01847 L s .18254 .01472 m .18254 .01847 L s .21429 .01472 m .21429 .01847 L s .24603 .01472 m .24603 .01847 L s .30952 .01472 m .30952 .01847 L s .34127 .01472 m .34127 .01847 L s .37302 .01472 m .37302 .01847 L s .43651 .01472 m .43651 .01847 L s .46825 .01472 m .46825 .01847 L s .5 .01472 m .5 .01847 L s .56349 .01472 m .56349 .01847 L s .59524 .01472 m .59524 .01847 L s .62698 .01472 m .62698 .01847 L s .69048 .01472 m .69048 .01847 L s .72222 .01472 m .72222 .01847 L s .75397 .01472 m .75397 .01847 L s .81746 .01472 m .81746 .01847 L s .84921 .01472 m .84921 .01847 L s .88095 .01472 m .88095 .01847 L s .94444 .01472 m .94444 .01847 L s .97619 .01472 m .97619 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .12218 m .03006 .12218 L s [(0.02)] .01131 .12218 1 0 Mshowa .02381 .22964 m .03006 .22964 L s [(0.04)] .01131 .22964 1 0 Mshowa .02381 .3371 m .03006 .3371 L s [(0.06)] .01131 .3371 1 0 Mshowa .02381 .44457 m .03006 .44457 L s [(0.08)] .01131 .44457 1 0 Mshowa .02381 .55203 m .03006 .55203 L s [(0.1)] .01131 .55203 1 0 Mshowa .125 Mabswid .02381 .04158 m .02756 .04158 L s .02381 .06845 m .02756 .06845 L s .02381 .09531 m .02756 .09531 L s .02381 .14904 m .02756 .14904 L s .02381 .17591 m .02756 .17591 L s .02381 .20277 m .02756 .20277 L s .02381 .25651 m .02756 .25651 L s .02381 .28337 m .02756 .28337 L s .02381 .31024 m .02756 .31024 L s .02381 .36397 m .02756 .36397 L s .02381 .39083 m .02756 .39083 L s .02381 .4177 m .02756 .4177 L s .02381 .47143 m .02756 .47143 L s .02381 .4983 m .02756 .4983 L s .02381 .52516 m .02756 .52516 L s .02381 .57889 m .02756 .57889 L s .02381 .60576 m .02756 .60576 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .01472 m .06244 .12073 L .10458 .23188 L .14415 .32802 L .18221 .40977 L .22272 .48259 L .26171 .53704 L .28302 .55995 L .30316 .57709 L .31285 .58377 L .32313 .58977 L .33276 .59437 L .34157 .59772 L .35098 .60043 L .35617 .60154 L .3611 .60234 L .3633 .60262 L .36564 .60287 L .36785 .60305 L .36985 .60318 L .37108 .60323 L .37222 .60327 L .37346 .6033 L .37477 .60332 L .37591 .60332 L .37698 .60331 L .37815 .60328 L .3794 .60324 L .38062 .60319 L .38197 .60311 L .38469 .60291 L .38721 .60266 L .38958 .60237 L .3949 .60153 L .40064 .60035 L .41114 .59744 L .42077 .59396 L .43969 .58496 L .46039 .57209 L .50095 .53905 L .54 .49958 L .58149 .45213 L .62148 .40358 L .65994 .3563 L .70086 .30723 L .74026 .26259 L .77815 .22302 L .81849 .18514 L .85731 .15313 L .89859 .12393 L Mistroke .93835 .10033 L .97619 .08171 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ 1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk +9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE /b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv 6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS 0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF 7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe 37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo 2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ \>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ {127.62000000000003, 0.}} -> {-1.61617, -0.0100934, 0.0591342, \ 0.000698765}},ExpressionUUID->"9a870480-d3d4-8843-9f49-e5fc868c350b"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"954422c5-4061-764e-bf48-\ 99c016a64c85"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { 3.991795329890896*^9, 3.99179533223897*^9}},ExpressionUUID->"3e01852b-fa23-2642-abab-\ f1f489e06059"], Cell[BoxData[ TemplateBox[{ "Show", "gcomb", "\"Could not combine the graphics objects in \ \\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ List[List[None, None], List[None, None]]], Rule[FrameTicks, \ List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ \\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ \"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ 52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, CellLabel-> "During evaluation of \ In[532]:=",ExpressionUUID->"745689c4-10fa-1143-9aff-0dfee3349f79"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x130", ",", GraphicsBox[{{}, InterpretationBox[{ TagBox[ TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> { Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[2]], Directive[ RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[2]], Directive[ RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[2]], Directive[ RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[2]], Directive[ RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[2]], Directive[ RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[2]], Directive[ RGBColor[1, 0.75, 0], AbsoluteThickness[2]], Directive[ RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[2]], Directive[ RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[2]], Directive[ RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[2]], Directive[ RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[2]], Directive[ RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[2]], Directive[ RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[2]], Directive[ RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 52.}, {0, 0.120683}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]}], "]"}]], "Output", CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, CellLabel-> "Out[532]=",ExpressionUUID->"ec18a0ba-e266-a343-9325-0845f1736c56"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ UUID->"cec9d659-40a4-9344-876a-cec895b68137"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "c8a425da-4684-ff4d-913f-cc5851265bc3"], Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"62616100-cef9-c34a-90ec-7024e73a21ef"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "*", RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991847653697838*^9, 3.991847658442892*^9}},ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-\ 08e72b48e971"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "3bf07443-b608-4243-b971-51f82147ad62"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "e747471f-596a-2242-a829-0d8e6535227a"], Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"89855e7d-6748-6649-99fc-db6c764ac3a4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991847661764683*^9, 3.991847664668476*^9}},ExpressionUUID->"b256ae65-c9c8-994b-815e-\ de484a821375"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "ce81120b-8f1e-dd40-9437-7d92ce72052d"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "8dc8593d-acd4-c74f-aea6-e734c994e283"], Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"6dc23113-bc95-494e-93a5-cd6a253efc0a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918476677400265`*^9, 3.9918476736757298`*^9}},ExpressionUUID->"8fd338d4-a1be-6841-b853-\ e94a67cb9612"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "6d8f0be9-093a-3b41-85dc-708af7e242e1"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "2079ef2d-a37e-f54c-92b8-a37a53f349ad"], Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"554a4ded-bde6-2a46-af18-bac29cb48d9d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.9918476765269012`*^9, 3.9918476808687553`*^9}},ExpressionUUID->"9231c462-6016-ac42-bd11-\ cb0c7e92fda2"], Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"682bcc08-531d-5f43-acd9-aafef153314e"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918476877717896`*^9, 3.9918476906207848`*^9}, 3.9919236729399815`*^9},ExpressionUUID->"7b4f4188-e9b4-a249-91fe-\ f977b92c20b2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Qb1", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"e639aabf-9918-\ b148-b52f-1037c590e22d"], Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"e8a065a4-9b1c-1e46-9347-2538ec1d0d92"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"9f21bdcd-6887-bf47-\ af20-cb6fe2ae22d1"], Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"50446e68-3d8c-8d45-9164-a3f05e953b7b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"807c9644-\ b813-4545-bd97-a39923ad2c85"], Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"c53e1eb9-111c-1c4f-83a4-760a21ed4b09"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"c029bbe7-1e0d-6c47-\ 9817-6aab8cca4349"], Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"23daa51b-d813-3040-bd45-0d347c7122da"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"02414061-\ 9268-3a40-809c-791f7b1bc727"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "c6830ba9-9f74-4c4c-9b97-dded42b0d0cf"], Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"7cdd740f-da8e-1847-901d-4e38334c4602"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"o2", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]], "*", "Cb"}], "+", RowBox[{"Cw", "*", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1.05", "*", SuperscriptBox["10", RowBox[{"-", "34"}]]}], ")"}], "2"], RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"0cf6ee00-990f-aa48-\ 80f8-a2822701e626"], Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"bb8b113c-f7cc-4f4e-b883-2112fdc5e77e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"0e7a310e-\ 8267-084b-8d71-ceb0b816dd18"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "23da22f8-8350-eb48-95d4-6a0bc4f515a3"], Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"0dd898e7-1224-8c4b-9b4a-44bf5a45b446"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h1", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input",ExpressionUUID->"16870642-9452-a14f-a1b7-\ 576792706e56"], Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"09f95964-259e-d442-8b4d-9152a060f55e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h2", "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input",ExpressionUUID->"207b673b-eb18-904e-8dba-\ 9c1c1dd6034c"], Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"cd37bbf1-e49a-6647-92bf-66da4b35a93e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h3", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", RowBox[{"(", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], ")"}]}], ")"}], "/", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.3", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"fcc33f59-ac5d-\ dc44-a6a0-01cb1397795c"], Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"a8990ed0-d980-fe49-b54f-af15cdaca5a8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.9918477038948536`*^9},ExpressionUUID->"c2bffed8-3648-ee47-bc6e-\ be191758bd92"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "9353aa27-5dd8-6249-9acf-27d71a8dfe31"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "7a16941e-3686-3c49-a9bf-a8f0d031eb03"], Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"abe399c8-88d7-1f45-b974-4e13120badf7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ 3.9918477072468624`*^9},ExpressionUUID->"162c1d78-b731-9743-923d-\ e14e238c88c0"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "3884f153-af14-6b4b-904c-75f8499cadb1"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "decb9285-274f-5646-8622-e985a1ccc581"], Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"26b8d6b5-120d-b94f-8e05-d4bbf530818b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "1"], RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", RowBox[{"Cos", "[", FractionBox[ RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.991847711887806*^9},ExpressionUUID->"e062485f-eb72-5b44-8f24-\ f29169102337"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "b65eca92-46bf-1d45-b9d4-7717f8601dca"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "43097017-8d6b-ed44-885b-d7dcc2918c11"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "2c60786a-2040-fe49-981b-8347dab8e699"], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], ":", " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ suppressed during this calculation. \ \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ \\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ "Message",ExpressionUUID->"b9098ed1-26b0-e14f-83e6-f3cf126236c4"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.00529101 -0.551091 0.817918 [ [.15608 .25433 -6 -9 ] [.15608 .25433 6 0 ] [.28836 .25433 -6 -9 ] [.28836 .25433 6 0 ] [.42063 .25433 -6 -9 ] [.42063 .25433 6 0 ] [.55291 .25433 -9 -9 ] [.55291 .25433 9 0 ] [.68519 .25433 -9 -9 ] [.68519 .25433 9 0 ] [.81746 .25433 -9 -9 ] [.81746 .25433 9 0 ] [.94974 .25433 -9 -9 ] [.94974 .25433 9 0 ] [.01131 .02145 -18 -4.5 ] [.01131 .02145 0 4.5 ] [.01131 .10324 -18 -4.5 ] [.01131 .10324 0 4.5 ] [.01131 .18504 -18 -4.5 ] [.01131 .18504 0 4.5 ] [.01131 .34862 -18 -4.5 ] [.01131 .34862 0 4.5 ] [.01131 .43041 -18 -4.5 ] [.01131 .43041 0 4.5 ] [.01131 .5122 -18 -4.5 ] [.01131 .5122 0 4.5 ] [.01131 .59399 -18 -4.5 ] [.01131 .59399 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .15608 .26683 m .15608 .27308 L s [(25)] .15608 .25433 0 1 Mshowa .28836 .26683 m .28836 .27308 L s [(50)] .28836 .25433 0 1 Mshowa .42063 .26683 m .42063 .27308 L s [(75)] .42063 .25433 0 1 Mshowa .55291 .26683 m .55291 .27308 L s [(100)] .55291 .25433 0 1 Mshowa .68519 .26683 m .68519 .27308 L s [(125)] .68519 .25433 0 1 Mshowa .81746 .26683 m .81746 .27308 L s [(150)] .81746 .25433 0 1 Mshowa .94974 .26683 m .94974 .27308 L s [(175)] .94974 .25433 0 1 Mshowa .125 Mabswid .05026 .26683 m .05026 .27058 L s .07672 .26683 m .07672 .27058 L s .10317 .26683 m .10317 .27058 L s .12963 .26683 m .12963 .27058 L s .18254 .26683 m .18254 .27058 L s .20899 .26683 m .20899 .27058 L s .23545 .26683 m .23545 .27058 L s .2619 .26683 m .2619 .27058 L s .31481 .26683 m .31481 .27058 L s .34127 .26683 m .34127 .27058 L s .36772 .26683 m .36772 .27058 L s .39418 .26683 m .39418 .27058 L s .44709 .26683 m .44709 .27058 L s .47354 .26683 m .47354 .27058 L s .5 .26683 m .5 .27058 L s .52646 .26683 m .52646 .27058 L s .57937 .26683 m .57937 .27058 L s .60582 .26683 m .60582 .27058 L s .63228 .26683 m .63228 .27058 L s .65873 .26683 m .65873 .27058 L s .71164 .26683 m .71164 .27058 L s .7381 .26683 m .7381 .27058 L s .76455 .26683 m .76455 .27058 L s .79101 .26683 m .79101 .27058 L s .84392 .26683 m .84392 .27058 L s .87037 .26683 m .87037 .27058 L s .89683 .26683 m .89683 .27058 L s .92328 .26683 m .92328 .27058 L s .97619 .26683 m .97619 .27058 L s .25 Mabswid 0 .26683 m 1 .26683 L s .02381 .02145 m .03006 .02145 L s [(0.7)] .01131 .02145 1 0 Mshowa .02381 .10324 m .03006 .10324 L s [(0.8)] .01131 .10324 1 0 Mshowa .02381 .18504 m .03006 .18504 L s [(0.9)] .01131 .18504 1 0 Mshowa .02381 .34862 m .03006 .34862 L s [(1.1)] .01131 .34862 1 0 Mshowa .02381 .43041 m .03006 .43041 L s [(1.2)] .01131 .43041 1 0 Mshowa .02381 .5122 m .03006 .5122 L s [(1.3)] .01131 .5122 1 0 Mshowa .02381 .59399 m .03006 .59399 L s [(1.4)] .01131 .59399 1 0 Mshowa .125 Mabswid .02381 .03781 m .02756 .03781 L s .02381 .05417 m .02756 .05417 L s .02381 .07053 m .02756 .07053 L s .02381 .08689 m .02756 .08689 L s .02381 .1196 m .02756 .1196 L s .02381 .13596 m .02756 .13596 L s .02381 .15232 m .02756 .15232 L s .02381 .16868 m .02756 .16868 L s .02381 .20139 m .02756 .20139 L s .02381 .21775 m .02756 .21775 L s .02381 .23411 m .02756 .23411 L s .02381 .25047 m .02756 .25047 L s .02381 .28319 m .02756 .28319 L s .02381 .29954 m .02756 .29954 L s .02381 .3159 m .02756 .3159 L s .02381 .33226 m .02756 .33226 L s .02381 .36498 m .02756 .36498 L s .02381 .38134 m .02756 .38134 L s .02381 .39769 m .02756 .39769 L s .02381 .41405 m .02756 .41405 L s .02381 .44677 m .02756 .44677 L s .02381 .46313 m .02756 .46313 L s .02381 .47949 m .02756 .47949 L s .02381 .49584 m .02756 .49584 L s .02381 .52856 m .02756 .52856 L s .02381 .54492 m .02756 .54492 L s .02381 .56128 m .02756 .56128 L s .02381 .57764 m .02756 .57764 L s .02381 .00509 m .02756 .00509 L s .02381 .61035 m .02756 .61035 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .60332 m .02499 .60331 L .02605 .6033 L .02729 .60328 L .02846 .60326 L .03053 .60319 L .03279 .60309 L .03527 .60295 L .0379 .60276 L .04262 .60232 L .04749 .60174 L .05205 .60108 L .06244 .59913 L .07305 .59653 L .08274 .59362 L .10458 .58527 L .14429 .56405 L .18248 .53718 L .22313 .50297 L .26226 .46595 L .30384 .4238 L .34391 .38185 L .38246 .3414 L .42346 .29931 L .46295 .26047 L .50092 .22522 L .54134 .19038 L .58025 .1597 L .62161 .13033 L .66146 .10526 L .69979 .08415 L .74057 .06487 L .77984 .04937 L .81759 .03723 L .85779 .02721 L .87627 .0236 L .89648 .02036 L .91652 .01788 L .92745 .01682 L .93762 .01604 L .9426 .01572 L .94801 .01542 L .95278 .0152 L .95783 .01501 L .96238 .01488 L .96496 .01483 L .96738 .01478 L .9696 .01475 L .97163 .01473 L .97275 .01473 L Mistroke .97397 .01472 L .97512 .01472 L .97619 .01472 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au 6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ 5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ 9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j 6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz +s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ 6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C 2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH 65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW 2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm v/odiPr3KLwBMhrzH2bRmaY=\ \>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ {127.62000000000003, 0.}} -> {-14.8518, 0.65382, 0.693802, \ 0.00448812}},ExpressionUUID->"d219667d-634a-2440-aa6f-10d194554a17"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"33e2e3bc-779e-de42-82b8-\ f8c295872460"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9918477165865707`*^9, {3.991847931067129*^9, 3.9918479312310715`*^9}},ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-\ 5d019384c724"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "77187be0-9434-894a-bf72-82e8f3e36aa6"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "dae11eea-bf2c-ea41-8cfc-910dacad7d02"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "3a91b588-c1b9-514a-8b35-49bc5a04ab45"], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], ":", " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ suppressed during this calculation. \ \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ \\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ "Message",ExpressionUUID->"90d10efd-2d21-7342-aab1-c6fb4c5c2e48"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.0634921 0.0147151 5.37313 [ [.15079 .00222 -3 -9 ] [.15079 .00222 3 0 ] [.27778 .00222 -3 -9 ] [.27778 .00222 3 0 ] [.40476 .00222 -3 -9 ] [.40476 .00222 3 0 ] [.53175 .00222 -3 -9 ] [.53175 .00222 3 0 ] [.65873 .00222 -6 -9 ] [.65873 .00222 6 0 ] [.78571 .00222 -6 -9 ] [.78571 .00222 6 0 ] [.9127 .00222 -6 -9 ] [.9127 .00222 6 0 ] [.01131 .12218 -24 -4.5 ] [.01131 .12218 0 4.5 ] [.01131 .22964 -24 -4.5 ] [.01131 .22964 0 4.5 ] [.01131 .3371 -24 -4.5 ] [.01131 .3371 0 4.5 ] [.01131 .44457 -24 -4.5 ] [.01131 .44457 0 4.5 ] [.01131 .55203 -18 -4.5 ] [.01131 .55203 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .15079 .01472 m .15079 .02097 L s [(2)] .15079 .00222 0 1 Mshowa .27778 .01472 m .27778 .02097 L s [(4)] .27778 .00222 0 1 Mshowa .40476 .01472 m .40476 .02097 L s [(6)] .40476 .00222 0 1 Mshowa .53175 .01472 m .53175 .02097 L s [(8)] .53175 .00222 0 1 Mshowa .65873 .01472 m .65873 .02097 L s [(10)] .65873 .00222 0 1 Mshowa .78571 .01472 m .78571 .02097 L s [(12)] .78571 .00222 0 1 Mshowa .9127 .01472 m .9127 .02097 L s [(14)] .9127 .00222 0 1 Mshowa .125 Mabswid .05556 .01472 m .05556 .01847 L s .0873 .01472 m .0873 .01847 L s .11905 .01472 m .11905 .01847 L s .18254 .01472 m .18254 .01847 L s .21429 .01472 m .21429 .01847 L s .24603 .01472 m .24603 .01847 L s .30952 .01472 m .30952 .01847 L s .34127 .01472 m .34127 .01847 L s .37302 .01472 m .37302 .01847 L s .43651 .01472 m .43651 .01847 L s .46825 .01472 m .46825 .01847 L s .5 .01472 m .5 .01847 L s .56349 .01472 m .56349 .01847 L s .59524 .01472 m .59524 .01847 L s .62698 .01472 m .62698 .01847 L s .69048 .01472 m .69048 .01847 L s .72222 .01472 m .72222 .01847 L s .75397 .01472 m .75397 .01847 L s .81746 .01472 m .81746 .01847 L s .84921 .01472 m .84921 .01847 L s .88095 .01472 m .88095 .01847 L s .94444 .01472 m .94444 .01847 L s .97619 .01472 m .97619 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .12218 m .03006 .12218 L s [(0.02)] .01131 .12218 1 0 Mshowa .02381 .22964 m .03006 .22964 L s [(0.04)] .01131 .22964 1 0 Mshowa .02381 .3371 m .03006 .3371 L s [(0.06)] .01131 .3371 1 0 Mshowa .02381 .44457 m .03006 .44457 L s [(0.08)] .01131 .44457 1 0 Mshowa .02381 .55203 m .03006 .55203 L s [(0.1)] .01131 .55203 1 0 Mshowa .125 Mabswid .02381 .04158 m .02756 .04158 L s .02381 .06845 m .02756 .06845 L s .02381 .09531 m .02756 .09531 L s .02381 .14904 m .02756 .14904 L s .02381 .17591 m .02756 .17591 L s .02381 .20277 m .02756 .20277 L s .02381 .25651 m .02756 .25651 L s .02381 .28337 m .02756 .28337 L s .02381 .31024 m .02756 .31024 L s .02381 .36397 m .02756 .36397 L s .02381 .39083 m .02756 .39083 L s .02381 .4177 m .02756 .4177 L s .02381 .47143 m .02756 .47143 L s .02381 .4983 m .02756 .4983 L s .02381 .52516 m .02756 .52516 L s .02381 .57889 m .02756 .57889 L s .02381 .60576 m .02756 .60576 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .01472 m .06244 .12073 L .10458 .23188 L .14415 .32802 L .18221 .40977 L .22272 .48259 L .26171 .53704 L .28302 .55995 L .30316 .57709 L .31285 .58377 L .32313 .58977 L .33276 .59437 L .34157 .59772 L .35098 .60043 L .35617 .60154 L .3611 .60234 L .3633 .60262 L .36564 .60287 L .36785 .60305 L .36985 .60318 L .37108 .60323 L .37222 .60327 L .37346 .6033 L .37477 .60332 L .37591 .60332 L .37698 .60331 L .37815 .60328 L .3794 .60324 L .38062 .60319 L .38197 .60311 L .38469 .60291 L .38721 .60266 L .38958 .60237 L .3949 .60153 L .40064 .60035 L .41114 .59744 L .42077 .59396 L .43969 .58496 L .46039 .57209 L .50095 .53905 L .54 .49958 L .58149 .45213 L .62148 .40358 L .65994 .3563 L .70086 .30723 L .74026 .26259 L .77815 .22302 L .81849 .18514 L .85731 .15313 L .89859 .12393 L Mistroke .93835 .10033 L .97619 .08171 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ 1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk +9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE /b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv 6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS 0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF 7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe 37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo 2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ \>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ {127.62000000000003, 0.}} -> {-1.61617, -0.0100934, 0.0591342, \ 0.000698765}},ExpressionUUID->"b4689af7-5bf9-8d45-aba9-b2818f315461"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"ee661a5c-41cb-6a4f-9f2e-\ fbc4cfed7c63"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { 3.991795329890896*^9, 3.99179533223897*^9}},ExpressionUUID->"b7cf0d21-5483-ac4b-a7be-\ b13fedb5cf43"], Cell[BoxData[ TemplateBox[{ "Show", "gcomb", "\"Could not combine the graphics objects in \ \\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ List[List[None, None], List[None, None]]], Rule[FrameTicks, \ List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ \\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ \"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ 52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, CellLabel-> "During evaluation of \ In[532]:=",ExpressionUUID->"aeed560b-6305-9b4b-9f36-1a15d67dc4b8"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x130", ",", GraphicsBox[{{}, InterpretationBox[{ TagBox[ TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{ Annotation[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV 1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH 8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB 8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc 0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> ListPlot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> { Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[2]], Directive[ RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[2]], Directive[ RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[2]], Directive[ RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[2]], Directive[ RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[2]], Directive[ RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[2]], Directive[ RGBColor[1, 0.75, 0], AbsoluteThickness[2]], Directive[ RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[2]], Directive[ RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[2]], Directive[ RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[2]], Directive[ RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[2]], Directive[ RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[2]], Directive[ RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[2]], Directive[ RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 52.}, {0, 0.120683}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]}], "]"}]], "Output", CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, CellLabel-> "Out[532]=",ExpressionUUID->"a8995578-961d-6b40-b936-9720a58b42d1"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ UUID->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "c6924563-b651-4446-bbba-bad311e0a4eb"], Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"41fd5ce1-50b0-1948-bce9-3bc136a88f8f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "*", RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991847745338249*^9, 3.9918477508965435`*^9}},ExpressionUUID->"ad23855f-c99b-a44c-9a12-\ deb534d421e5"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "2f629e0d-1c2c-9343-bec2-dbe5570a25a9"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "60a5b48a-ad17-af47-8d95-10c332a921c3"], Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"780ecdd0-ef7b-2043-b88a-49c80ff7e9ca"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S1", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918477556924458`*^9, 3.991847758600897*^9}},ExpressionUUID->"04adbbfb-46b7-244b-ac81-\ 2150361c4bc9"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "62097c16-216f-f945-9c34-ad16941760e6"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "79915e14-0d67-a548-bfdc-6ae38b0a0207"], Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"ccc68cfe-df29-974a-9d22-9001e3d52ce6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2", "=", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"(", RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991847762058655*^9, 3.9918477649417477`*^9}},ExpressionUUID->"a64b278e-5de9-3f4d-8a34-\ 31c8693c1f49"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "e9cd5f2e-f4c7-8e4d-9d92-9849542cfa72"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "7d087d1e-2fe7-8744-a225-ab71c2e4e591"], Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"f6f65fa9-4786-a04a-8ffc-0bc012202e10"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.9918477668459435`*^9, 3.99184777089764*^9}},ExpressionUUID->"4be81bbf-81c0-3047-be62-\ a85883f3e3bb"], Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"c3918187-e898-c949-b542-e24802c9ee53"] }, Open ]] }, WindowSize->{718.5, 729.75}, WindowMargins->{{Automatic, 0}, {Automatic, 0}}, CellContext->Notebook, Magnification:>0.8 Inherited, FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", StyleDefinitions->"Default.nb", ExpressionUUID->"1e6d0353-69f5-de4f-ae7f-57aae5493e4a" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[554, 20, 147, 4, 22, "Input",ExpressionUUID->"02c50ee4-f89d-e84b-babb-c4951c25ae7a"], Cell[704, 26, 152, 3, 22, "Input",ExpressionUUID->"a3744ee1-3657-ed40-afd1-ad7c272f2bae"], Cell[859, 31, 149, 4, 22, "Input",ExpressionUUID->"fea443da-bb80-5942-940a-8bd97c50a7b3"], Cell[1011, 37, 156, 3, 22, "Input",ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-a33659ac7670"], Cell[CellGroupData[{ Cell[1192, 44, 1273, 41, 39, "Input",ExpressionUUID->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], Cell[2468, 87, 106, 0, 25, "Output",ExpressionUUID->"d2a98016-4c83-3943-8fb1-133b89183d61"] }, Open ]], Cell[CellGroupData[{ Cell[2611, 92, 913, 30, 46, "Input",ExpressionUUID->"f4d1663f-2f7d-a640-9003-22515624ffcb"], Cell[3527, 124, 106, 0, 25, "Output",ExpressionUUID->"25b3586e-dddb-8148-8247-2a53a0816ad5"] }, Open ]], Cell[CellGroupData[{ Cell[3670, 129, 961, 32, 46, "Input",ExpressionUUID->"85637b45-1c33-1f4e-90c3-07deba1b9b3a"], Cell[4634, 163, 106, 0, 25, "Output",ExpressionUUID->"c7915de2-f678-2240-8907-4f119bfb9ca2"] }, Open ]], Cell[CellGroupData[{ Cell[4777, 168, 532, 18, 42, "Input",ExpressionUUID->"8f97c456-7671-cb44-95b8-323a276088fe"], Cell[5312, 188, 101, 0, 25, "Output",ExpressionUUID->"c28337c4-580d-004c-bc3c-26abc607c115"] }, Open ]], Cell[CellGroupData[{ Cell[5450, 193, 625, 21, 42, "Input",ExpressionUUID->"e2507f75-9610-1346-854c-33db9330e900"], Cell[6078, 216, 100, 0, 25, "Output",ExpressionUUID->"eca6de54-61a8-eb4b-9203-3f4b34d3dfbd"] }, Open ]], Cell[CellGroupData[{ Cell[6215, 221, 144, 4, 46, "Input",ExpressionUUID->"148e44ba-fb40-0e42-959d-44858270229f"], Cell[6362, 227, 101, 0, 25, "Output",ExpressionUUID->"0fa81d47-3764-044a-bf93-ee5d1211e37a"] }, Open ]], Cell[CellGroupData[{ Cell[6500, 232, 144, 4, 45, "Input",ExpressionUUID->"0c021142-f067-b94a-bf73-69c3aa281aca"], Cell[6647, 238, 100, 0, 25, "Output",ExpressionUUID->"f8ee43a7-a683-0f4c-8e84-b8ddc45a142b"] }, Open ]], Cell[CellGroupData[{ Cell[6784, 243, 155, 4, 35, "Input",ExpressionUUID->"827e3da4-16db-854c-89ad-c94762d57459"], Cell[6942, 249, 101, 0, 25, "Output",ExpressionUUID->"3013ddc9-2d77-3941-8182-c74c4e917958"] }, Open ]], Cell[CellGroupData[{ Cell[7080, 254, 155, 4, 35, "Input",ExpressionUUID->"9149adf7-16ac-794c-81f7-04a88d48bdc9"], Cell[7238, 260, 101, 0, 25, "Output",ExpressionUUID->"69944b55-6116-8240-914e-d57996010b53"] }, Open ]], Cell[CellGroupData[{ Cell[7376, 265, 6029, 184, 310, "Input",ExpressionUUID->"14dc1278-8ac3-2246-90ef-ba23d2bdffaa"], Cell[13408, 451, 102, 0, 25, "Output",ExpressionUUID->"10e3cc8a-ad3e-4e41-ba26-c1acab07fa26"] }, Open ]], Cell[CellGroupData[{ Cell[13547, 456, 342, 8, 33, "Input",ExpressionUUID->"6c632312-3007-0b42-93b3-6c1b961afeb6"], Cell[13892, 466, 342, 6, 18, "Message",ExpressionUUID->"606843ec-0d7b-f541-9ba3-5b67b435945d"], Cell[14237, 474, 100, 0, 25, "Output",ExpressionUUID->"859b213d-5319-f746-82ea-75944d21baab"] }, Open ]], Cell[CellGroupData[{ Cell[14374, 479, 6096, 186, 353, "Input",ExpressionUUID->"60d1b3b3-12f2-2644-8ed8-788b5437fdfb"], Cell[20473, 667, 103, 0, 25, "Output",ExpressionUUID->"b3e0a85b-a4aa-ef42-9511-fc38e8dcde9a"] }, Open ]], Cell[CellGroupData[{ Cell[20613, 672, 342, 8, 33, "Input",ExpressionUUID->"8bbc8f7a-f751-794c-9337-a97f1bdae578"], Cell[20958, 682, 342, 6, 18, "Message",ExpressionUUID->"390798a4-00bb-054f-8ee2-e80440f44497"], Cell[21303, 690, 100, 0, 25, "Output",ExpressionUUID->"ae91cf0f-72ea-5348-859e-dc6121354f77"] }, Open ]], Cell[CellGroupData[{ Cell[21440, 695, 2637, 87, 135, "Input",ExpressionUUID->"9338c89c-67a3-6e41-be9a-1cf34020b040"], Cell[24080, 784, 101, 0, 25, "Output",ExpressionUUID->"d0d3835d-fdd0-8c42-8864-83afb328c4cf"] }, Open ]], Cell[CellGroupData[{ Cell[24218, 789, 2577, 84, 135, "Input",ExpressionUUID->"ae8d22a0-13a2-9d41-b648-0faf6caf2253"], Cell[26798, 875, 102, 0, 25, "Output",ExpressionUUID->"751398e6-9533-bb47-8958-7a1def21254b"] }, Open ]], Cell[CellGroupData[{ Cell[26937, 880, 3686, 117, 197, "Input",ExpressionUUID->"7d419d4a-7a13-e94d-beb1-cf3b1cd962e0"], Cell[30626, 999, 102, 0, 25, "Output",ExpressionUUID->"1aeb1149-722c-dc42-812b-49cc813a09fb"] }, Open ]], Cell[30743, 1002, 138, 3, 34, "Input",ExpressionUUID->"5ded2365-6100-7b43-ad8b-c1b09dc62d32"], Cell[CellGroupData[{ Cell[30906, 1009, 2052, 59, 92, "Input",ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-81ac5c3a022e"], Cell[32961, 1070, 342, 6, 18, "Message",ExpressionUUID->"2ce305f1-c638-b640-9e67-d7f6ae2bda61"], Cell[33306, 1078, 342, 6, 18, "Message",ExpressionUUID->"b0af1054-fb47-e740-95af-24928a790ba1"], Cell[33651, 1086, 100, 0, 25, "Output",ExpressionUUID->"66158712-c3f0-e64f-90ca-4bc93914d109"] }, Open ]], Cell[CellGroupData[{ Cell[33788, 1091, 2052, 59, 92, "Input",ExpressionUUID->"2e2efe37-106e-8a4d-98e1-c6d073c59256"], Cell[35843, 1152, 342, 6, 18, "Message",ExpressionUUID->"ddbb5dc1-4246-b141-8007-17d96bea04a9"], Cell[36188, 1160, 342, 6, 18, "Message",ExpressionUUID->"1cbe63d8-1cf3-164a-9de9-78e410d01cd1"], Cell[36533, 1168, 100, 0, 25, "Output",ExpressionUUID->"4bc5c73f-64dd-7843-be37-b49a7d1b54f0"] }, Open ]], Cell[CellGroupData[{ Cell[36670, 1173, 1936, 53, 69, "Input",ExpressionUUID->"5ef8c446-ea46-eb49-90ca-5a9d2703a626"], Cell[38609, 1228, 342, 6, 18, "Message",ExpressionUUID->"ce9fdda1-e376-7b48-b042-8c3b4f405fcb"], Cell[38954, 1236, 342, 6, 18, "Message",ExpressionUUID->"66a78cc9-892b-204f-b904-4d54d4d3ebd0"], Cell[39299, 1244, 342, 6, 18, "Message",ExpressionUUID->"77cccd91-6a05-1146-b314-0aa4f406152c"], Cell[39644, 1252, 407, 7, 18, "Message",ExpressionUUID->"72ad5b3e-6607-7741-ad4a-54927ade8695"], Cell[40054, 1261, 8042, 364, 148, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f8427134-7951-8548-ae28-485a485148a2"], Cell[48099, 1627, 191, 5, 25, "Output",ExpressionUUID->"5446bdee-36aa-604e-a81f-f7b281aa780e"] }, Open ]], Cell[CellGroupData[{ Cell[48327, 1637, 2142, 61, 92, "Input",ExpressionUUID->"b7386bff-07bb-694b-b11c-7d3ff3a35bae"], Cell[50472, 1700, 342, 6, 18, "Message",ExpressionUUID->"1b40a6b1-b8e0-af43-829a-2ca3d7ae070e"], Cell[50817, 1708, 342, 6, 18, "Message",ExpressionUUID->"2360947f-22ea-fb4f-90b8-fd6f79665669"], Cell[51162, 1716, 342, 6, 18, "Message",ExpressionUUID->"281ea8ed-b5ba-8045-83d3-97b36671a021"], Cell[51507, 1724, 407, 7, 18, "Message",ExpressionUUID->"a4dfac90-0844-364a-8cdf-0596249bd283"], Cell[51917, 1733, 8048, 353, 148, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"42a070d0-1a40-f841-bc5a-496bce3f6168"], Cell[59968, 2088, 191, 5, 25, "Output",ExpressionUUID->"c9fc5a7b-2d38-ba43-857f-9aa96e6b3d16"] }, Open ]], Cell[CellGroupData[{ Cell[60196, 2098, 327, 7, 34, "Input",ExpressionUUID->"08cc1ff9-b63b-d741-9dab-b5604b3208c2"], Cell[60526, 2107, 9692, 222, 192, "Output",ExpressionUUID->"d769d980-5c09-fe4c-baf0-fe9ddf32668b"] }, Open ]], Cell[CellGroupData[{ Cell[70255, 2334, 257, 6, 34, "Input",ExpressionUUID->"c833855b-86a8-7349-9ccf-32b52052d827"], Cell[70515, 2342, 2580, 42, 53, "Message",ExpressionUUID->"876d039d-4206-f648-bcad-3d1cc1c9375e"], Cell[73098, 2386, 10187, 227, 60, "Output",ExpressionUUID->"d3e123dc-41cb-7141-a991-a4f7fbe6f12f"] }, Open ]], Cell[CellGroupData[{ Cell[83322, 2618, 217, 7, 39, "Input",ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-f10741068cd1"], Cell[83542, 2627, 100, 0, 25, "Output",ExpressionUUID->"38637efc-803d-8640-9e6e-276437831f52"] }, Open ]], Cell[CellGroupData[{ Cell[83679, 2632, 1816, 53, 92, "Input",ExpressionUUID->"e95bae90-91f9-c74f-b890-1d51c0908f7e"], Cell[85498, 2687, 342, 6, 18, "Message",ExpressionUUID->"c023352e-b521-e84e-9cb3-97c71ad6a25e"], Cell[85843, 2695, 342, 6, 18, "Message",ExpressionUUID->"7309d20d-7fd9-4f4d-a7f3-0872cdf1105f"], Cell[86188, 2703, 342, 6, 18, "Message",ExpressionUUID->"43ff04d1-726c-9a4f-a3ef-930184afcb3e"], Cell[86533, 2711, 407, 7, 18, "Message",ExpressionUUID->"3fd3a11a-bede-e144-8b42-539dbe9249ba"], Cell[86943, 2720, 8211, 365, 148, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"960bbf59-2015-8349-bffe-e4d767d8aeeb"], Cell[95157, 3087, 191, 5, 25, "Output",ExpressionUUID->"a75c82b0-dce2-dd4f-b864-2a6b5c402da4"] }, Open ]], Cell[CellGroupData[{ Cell[95385, 3097, 1590, 47, 69, "Input",ExpressionUUID->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], Cell[96978, 3146, 342, 6, 18, "Message",ExpressionUUID->"bd49935b-c0f9-f44f-af7a-e4ad6a7bc2ad"], Cell[97323, 3154, 101, 0, 25, "Output",ExpressionUUID->"43a947d2-2d74-d447-89ff-92c212e98dc4"] }, Open ]], Cell[CellGroupData[{ Cell[97461, 3159, 2251, 64, 131, "Input",ExpressionUUID->"101ef0da-c6f5-1c49-9804-85fb5ed316b5"], Cell[99715, 3225, 342, 6, 18, "Message",ExpressionUUID->"131678ec-17c0-f049-b9b0-aed329dc5583"], Cell[100060, 3233, 342, 6, 18, "Message",ExpressionUUID->"a6fc1549-2fa3-f649-b6cc-c7168f9393cf"], Cell[100405, 3241, 103, 0, 25, "Output",ExpressionUUID->"0f29d6b0-abda-0849-9008-4443dea42d94"] }, Open ]], Cell[CellGroupData[{ Cell[100545, 3246, 2221, 64, 131, "Input",ExpressionUUID->"087f1adc-ca17-4a4e-8be3-617724431d54"], Cell[102769, 3312, 342, 6, 18, "Message",ExpressionUUID->"ffb3115b-8086-8941-bf0d-81ed4818f26f"], Cell[103114, 3320, 342, 6, 18, "Message",ExpressionUUID->"6eb50ae6-c8bd-6941-a71f-82927d1c1d5c"], Cell[103459, 3328, 100, 0, 25, "Output",ExpressionUUID->"e9e8685d-f821-c64d-930c-bdbceafb1970"] }, Open ]], Cell[CellGroupData[{ Cell[103596, 3333, 2221, 64, 131, "Input",ExpressionUUID->"562762dd-8337-c248-84ed-48f09efe77cb"], Cell[105820, 3399, 342, 6, 18, "Message",ExpressionUUID->"88848fa9-89c0-7441-a937-117af52a31e7"], Cell[106165, 3407, 342, 6, 18, "Message",ExpressionUUID->"3e81b6c4-2244-bf42-b8b5-0fa000d4a037"], Cell[106510, 3415, 101, 0, 25, "Output",ExpressionUUID->"75996429-631f-a540-8db3-d3eecf498491"] }, Open ]], Cell[CellGroupData[{ Cell[106648, 3420, 213, 6, 38, "Input",ExpressionUUID->"b22d48b0-99f1-fc43-8d66-dfdcb64caaf4"], Cell[106864, 3428, 104, 0, 25, "Output",ExpressionUUID->"8631572e-009c-e547-9adf-d000b75a3b80"] }, Open ]], Cell[106983, 3431, 245, 5, 34, "Input",ExpressionUUID->"324c5332-372a-9346-847e-b48a2f85529f"], Cell[CellGroupData[{ Cell[107253, 3440, 532, 18, 42, "Input",ExpressionUUID->"3aa52613-e091-4440-b97b-cbff40fea673"], Cell[107788, 3460, 100, 0, 25, "Output",ExpressionUUID->"0bfccaf4-b419-7b47-a5b9-ad617225ded2"] }, Open ]], Cell[CellGroupData[{ Cell[107925, 3465, 144, 4, 46, "Input",ExpressionUUID->"00409e7b-892c-b145-91f2-fd5d9616a547"], Cell[108072, 3471, 100, 0, 25, "Output",ExpressionUUID->"0910edf9-27aa-f943-bd90-76d5bfb56389"] }, Open ]], Cell[CellGroupData[{ Cell[108209, 3476, 155, 4, 35, "Input",ExpressionUUID->"eb9f1869-8c47-4c47-ad8f-589aa7e556b3"], Cell[108367, 3482, 100, 0, 25, "Output",ExpressionUUID->"50a3d579-8928-2343-996d-237ad0eb297d"] }, Open ]], Cell[CellGroupData[{ Cell[108504, 3487, 6029, 184, 310, "Input",ExpressionUUID->"a68db5dc-89e4-f247-a519-53dcbe6905b1"], Cell[114536, 3673, 102, 0, 25, "Output",ExpressionUUID->"6b11f8d3-6b54-614d-a4c0-669be8c0ee7f"] }, Open ]], Cell[CellGroupData[{ Cell[114675, 3678, 342, 8, 33, "Input",ExpressionUUID->"d3d0889a-1b29-9a4d-af3d-093ef0359f4b"], Cell[115020, 3688, 342, 6, 18, "Message",ExpressionUUID->"465a75ef-6b20-9848-9eff-c4e675672ad8"], Cell[115365, 3696, 99, 0, 25, "Output",ExpressionUUID->"8931c974-5816-9e48-9ac0-0532e1ef18b1"] }, Open ]], Cell[CellGroupData[{ Cell[115501, 3701, 6096, 186, 353, "Input",ExpressionUUID->"9fe1a567-82b8-a345-b4b0-80b2c100f9f3"], Cell[121600, 3889, 102, 0, 25, "Output",ExpressionUUID->"13c9a29c-6a6d-ff49-88af-96394780a9e2"] }, Open ]], Cell[CellGroupData[{ Cell[121739, 3894, 342, 8, 33, "Input",ExpressionUUID->"3372ffe6-5d5a-b247-8795-4c6a022053d0"], Cell[122084, 3904, 342, 6, 18, "Message",ExpressionUUID->"5f5967c2-a14c-de46-b55b-52a0b7afbab3"], Cell[122429, 3912, 100, 0, 25, "Output",ExpressionUUID->"bd025469-aef5-2448-a097-d2409dcee75d"] }, Open ]], Cell[CellGroupData[{ Cell[122566, 3917, 2637, 87, 135, "Input",ExpressionUUID->"367b34da-973d-2d45-8020-5f24b7ad9501"], Cell[125206, 4006, 101, 0, 25, "Output",ExpressionUUID->"98cac926-ef59-1342-b091-1b565c5978b3"] }, Open ]], Cell[CellGroupData[{ Cell[125344, 4011, 2577, 84, 135, "Input",ExpressionUUID->"112859ae-f114-4041-84e8-1ba64a91ebc1"], Cell[127924, 4097, 102, 0, 25, "Output",ExpressionUUID->"36a7aeca-f2a3-e949-b0ca-f804c0163692"] }, Open ]], Cell[CellGroupData[{ Cell[128063, 4102, 3686, 117, 197, "Input",ExpressionUUID->"695320bc-fa3e-3547-be92-70a745b298b2"], Cell[131752, 4221, 102, 0, 25, "Output",ExpressionUUID->"0abac473-9a99-bd43-b50e-e41bacfd95b6"] }, Open ]], Cell[CellGroupData[{ Cell[131891, 4226, 2054, 59, 92, "Input",ExpressionUUID->"b1722e07-c26a-4d47-97af-4f4eb5664e3b"], Cell[133948, 4287, 342, 6, 18, "Message",ExpressionUUID->"7ab7ec2a-fa78-4845-8b94-ac80bbb482ff"], Cell[134293, 4295, 342, 6, 18, "Message",ExpressionUUID->"1e16a028-2ecd-3143-835f-f92cd0016663"], Cell[134638, 4303, 101, 0, 25, "Output",ExpressionUUID->"eadd70e7-26a1-4b46-8240-f3dce9859a07"] }, Open ]], Cell[CellGroupData[{ Cell[134776, 4308, 2054, 59, 92, "Input",ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-a3bdb03abf99"], Cell[136833, 4369, 342, 6, 18, "Message",ExpressionUUID->"62adfe6c-817a-8644-a989-225720cd7059"], Cell[137178, 4377, 342, 6, 18, "Message",ExpressionUUID->"cbaa115f-bf0d-1e4f-b5c7-1d35bae46521"], Cell[137523, 4385, 100, 0, 25, "Output",ExpressionUUID->"e9a05a92-f41b-934a-a923-0dffa18fc100"] }, Open ]], Cell[CellGroupData[{ Cell[137660, 4390, 2030, 55, 54, "Input",ExpressionUUID->"39feef99-fcf4-8440-bed1-25beef5a0630"], Cell[139693, 4447, 342, 6, 18, "Message",ExpressionUUID->"56c86859-71bc-bf4d-8ea6-a152a4a828d3"], Cell[140038, 4455, 342, 6, 18, "Message",ExpressionUUID->"47fbb3e0-458c-4d48-bc65-cfbd454ebd8b"], Cell[140383, 4463, 342, 6, 18, "Message",ExpressionUUID->"a25aaf8c-9a35-1543-b0b4-c881fe78844a"], Cell[140728, 4471, 407, 7, 18, "Message",ExpressionUUID->"d9cbee06-5ef4-e14d-b8da-4a8591142866"], Cell[141138, 4480, 9456, 438, 148, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"2f0c6d62-d79c-fe40-ae18-5a4696a4ccbb"], Cell[150597, 4920, 191, 5, 25, "Output",ExpressionUUID->"1b36cfb9-6a09-4c41-9a4d-068e88bb9e2c"] }, Open ]], Cell[CellGroupData[{ Cell[150825, 4930, 2148, 61, 92, "Input",ExpressionUUID->"e605439d-19dd-2645-8993-c76100de5ed2"], Cell[152976, 4993, 342, 6, 18, "Message",ExpressionUUID->"c359dea9-9ece-cf49-b7df-ef6b53440b08"], Cell[153321, 5001, 342, 6, 18, "Message",ExpressionUUID->"df87c0d2-a345-c048-8631-aeba4b69c5c2"], Cell[153666, 5009, 342, 6, 18, "Message",ExpressionUUID->"991abcb1-81ce-9b40-bdbb-a15d386b1b78"], Cell[154011, 5017, 407, 7, 18, "Message",ExpressionUUID->"9aaae4b6-fac0-394d-b0b6-90b588c1351a"], Cell[154421, 5026, 8570, 368, 148, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"9a870480-d3d4-8843-9f49-e5fc868c350b"], Cell[162994, 5396, 191, 5, 25, "Output",ExpressionUUID->"954422c5-4061-764e-bf48-99c016a64c85"] }, Open ]], Cell[CellGroupData[{ Cell[163222, 5406, 257, 6, 34, "Input",ExpressionUUID->"3e01852b-fa23-2642-abab-f1f489e06059"], Cell[163482, 5414, 2580, 42, 56, "Message",ExpressionUUID->"745689c4-10fa-1143-9aff-0dfee3349f79"], Cell[166065, 5458, 10201, 227, 56, "Output",ExpressionUUID->"ec18a0ba-e266-a343-9325-0845f1736c56"] }, Closed]], Cell[CellGroupData[{ Cell[176303, 5690, 1590, 47, 67, "Input",ExpressionUUID->"cec9d659-40a4-9344-876a-cec895b68137"], Cell[177896, 5739, 342, 6, 18, "Message",ExpressionUUID->"c8a425da-4684-ff4d-913f-cc5851265bc3"], Cell[178241, 5747, 101, 0, 25, "Output",ExpressionUUID->"62616100-cef9-c34a-90ec-7024e73a21ef"] }, Open ]], Cell[CellGroupData[{ Cell[178379, 5752, 2247, 64, 131, "Input",ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-08e72b48e971"], Cell[180629, 5818, 342, 6, 18, "Message",ExpressionUUID->"3bf07443-b608-4243-b971-51f82147ad62"], Cell[180974, 5826, 342, 6, 18, "Message",ExpressionUUID->"e747471f-596a-2242-a829-0d8e6535227a"], Cell[181319, 5834, 101, 0, 25, "Output",ExpressionUUID->"89855e7d-6748-6649-99fc-db6c764ac3a4"] }, Open ]], Cell[CellGroupData[{ Cell[181457, 5839, 2219, 64, 131, "Input",ExpressionUUID->"b256ae65-c9c8-994b-815e-de484a821375"], Cell[183679, 5905, 342, 6, 18, "Message",ExpressionUUID->"ce81120b-8f1e-dd40-9437-7d92ce72052d"], Cell[184024, 5913, 342, 6, 18, "Message",ExpressionUUID->"8dc8593d-acd4-c74f-aea6-e734c994e283"], Cell[184369, 5921, 101, 0, 25, "Output",ExpressionUUID->"6dc23113-bc95-494e-93a5-cd6a253efc0a"] }, Open ]], Cell[CellGroupData[{ Cell[184507, 5926, 2223, 64, 131, "Input",ExpressionUUID->"8fd338d4-a1be-6841-b853-e94a67cb9612"], Cell[186733, 5992, 342, 6, 56, "Message",ExpressionUUID->"6d8f0be9-093a-3b41-85dc-708af7e242e1"], Cell[187078, 6000, 342, 6, 56, "Message",ExpressionUUID->"2079ef2d-a37e-f54c-92b8-a37a53f349ad"], Cell[187423, 6008, 101, 0, 56, "Output",ExpressionUUID->"554a4ded-bde6-2a46-af18-bac29cb48d9d"] }, Open ]], Cell[CellGroupData[{ Cell[187561, 6013, 215, 6, 56, "Input",ExpressionUUID->"9231c462-6016-ac42-bd11-cb0c7e92fda2"], Cell[187779, 6021, 102, 0, 56, "Output",ExpressionUUID->"682bcc08-531d-5f43-acd9-aafef153314e"] }, Open ]], Cell[187896, 6024, 249, 5, 56, "Input",ExpressionUUID->"7b4f4188-e9b4-a249-91fe-f977b92c20b2"], Cell[CellGroupData[{ Cell[188170, 6033, 532, 18, 56, "Input",ExpressionUUID->"e639aabf-9918-b148-b52f-1037c590e22d"], Cell[188705, 6053, 101, 0, 56, "Output",ExpressionUUID->"e8a065a4-9b1c-1e46-9347-2538ec1d0d92"] }, Open ]], Cell[CellGroupData[{ Cell[188843, 6058, 144, 4, 56, "Input",ExpressionUUID->"9f21bdcd-6887-bf47-af20-cb6fe2ae22d1"], Cell[188990, 6064, 101, 0, 56, "Output",ExpressionUUID->"50446e68-3d8c-8d45-9164-a3f05e953b7b"] }, Open ]], Cell[CellGroupData[{ Cell[189128, 6069, 155, 4, 56, "Input",ExpressionUUID->"807c9644-b813-4545-bd97-a39923ad2c85"], Cell[189286, 6075, 100, 0, 56, "Output",ExpressionUUID->"c53e1eb9-111c-1c4f-83a4-760a21ed4b09"] }, Open ]], Cell[CellGroupData[{ Cell[189423, 6080, 6029, 184, 56, "Input",ExpressionUUID->"c029bbe7-1e0d-6c47-9817-6aab8cca4349"], Cell[195455, 6266, 102, 0, 56, "Output",ExpressionUUID->"23daa51b-d813-3040-bd45-0d347c7122da"] }, Open ]], Cell[CellGroupData[{ Cell[195594, 6271, 342, 8, 56, "Input",ExpressionUUID->"02414061-9268-3a40-809c-791f7b1bc727"], Cell[195939, 6281, 342, 6, 56, "Message",ExpressionUUID->"c6830ba9-9f74-4c4c-9b97-dded42b0d0cf"], Cell[196284, 6289, 100, 0, 56, "Output",ExpressionUUID->"7cdd740f-da8e-1847-901d-4e38334c4602"] }, Open ]], Cell[CellGroupData[{ Cell[196421, 6294, 6096, 186, 56, "Input",ExpressionUUID->"0cf6ee00-990f-aa48-80f8-a2822701e626"], Cell[202520, 6482, 102, 0, 56, "Output",ExpressionUUID->"bb8b113c-f7cc-4f4e-b883-2112fdc5e77e"] }, Open ]], Cell[CellGroupData[{ Cell[202659, 6487, 342, 8, 56, "Input",ExpressionUUID->"0e7a310e-8267-084b-8d71-ceb0b816dd18"], Cell[203004, 6497, 342, 6, 56, "Message",ExpressionUUID->"23da22f8-8350-eb48-95d4-6a0bc4f515a3"], Cell[203349, 6505, 99, 0, 56, "Output",ExpressionUUID->"0dd898e7-1224-8c4b-9b4a-44bf5a45b446"] }, Open ]], Cell[CellGroupData[{ Cell[203485, 6510, 2637, 87, 56, "Input",ExpressionUUID->"16870642-9452-a14f-a1b7-576792706e56"], Cell[206125, 6599, 101, 0, 56, "Output",ExpressionUUID->"09f95964-259e-d442-8b4d-9152a060f55e"] }, Open ]], Cell[CellGroupData[{ Cell[206263, 6604, 2577, 84, 56, "Input",ExpressionUUID->"207b673b-eb18-904e-8dba-9c1c1dd6034c"], Cell[208843, 6690, 102, 0, 56, "Output",ExpressionUUID->"cd37bbf1-e49a-6647-92bf-66da4b35a93e"] }, Open ]], Cell[CellGroupData[{ Cell[208982, 6695, 3686, 117, 56, "Input",ExpressionUUID->"fcc33f59-ac5d-dc44-a6a0-01cb1397795c"], Cell[212671, 6814, 102, 0, 56, "Output",ExpressionUUID->"a8990ed0-d980-fe49-b54f-af15cdaca5a8"] }, Open ]], Cell[CellGroupData[{ Cell[212810, 6819, 2054, 59, 56, "Input",ExpressionUUID->"c2bffed8-3648-ee47-bc6e-be191758bd92"], Cell[214867, 6880, 342, 6, 56, "Message",ExpressionUUID->"9353aa27-5dd8-6249-9acf-27d71a8dfe31"], Cell[215212, 6888, 342, 6, 56, "Message",ExpressionUUID->"7a16941e-3686-3c49-a9bf-a8f0d031eb03"], Cell[215557, 6896, 100, 0, 56, "Output",ExpressionUUID->"abe399c8-88d7-1f45-b974-4e13120badf7"] }, Open ]], Cell[CellGroupData[{ Cell[215694, 6901, 2054, 59, 56, "Input",ExpressionUUID->"162c1d78-b731-9743-923d-e14e238c88c0"], Cell[217751, 6962, 342, 6, 56, "Message",ExpressionUUID->"3884f153-af14-6b4b-904c-75f8499cadb1"], Cell[218096, 6970, 342, 6, 56, "Message",ExpressionUUID->"decb9285-274f-5646-8622-e985a1ccc581"], Cell[218441, 6978, 100, 0, 56, "Output",ExpressionUUID->"26b8d6b5-120d-b94f-8e05-d4bbf530818b"] }, Open ]], Cell[CellGroupData[{ Cell[218578, 6983, 2028, 55, 56, "Input",ExpressionUUID->"e062485f-eb72-5b44-8f24-f29169102337"], Cell[220609, 7040, 342, 6, 56, "Message",ExpressionUUID->"b65eca92-46bf-1d45-b9d4-7717f8601dca"], Cell[220954, 7048, 342, 6, 56, "Message",ExpressionUUID->"43097017-8d6b-ed44-885b-d7dcc2918c11"], Cell[221299, 7056, 342, 6, 56, "Message",ExpressionUUID->"2c60786a-2040-fe49-981b-8347dab8e699"], Cell[221644, 7064, 407, 7, 56, "Message",ExpressionUUID->"b9098ed1-26b0-e14f-83e6-f3cf126236c4"], Cell[222054, 7073, 9456, 438, 56, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"d219667d-634a-2440-aa6f-10d194554a17"], Cell[231513, 7513, 191, 5, 56, "Output",ExpressionUUID->"33e2e3bc-779e-de42-82b8-f8c295872460"] }, Open ]], Cell[CellGroupData[{ Cell[231741, 7523, 2146, 61, 56, "Input",ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-5d019384c724"], Cell[233890, 7586, 342, 6, 56, "Message",ExpressionUUID->"77187be0-9434-894a-bf72-82e8f3e36aa6"], Cell[234235, 7594, 342, 6, 56, "Message",ExpressionUUID->"dae11eea-bf2c-ea41-8cfc-910dacad7d02"], Cell[234580, 7602, 342, 6, 56, "Message",ExpressionUUID->"3a91b588-c1b9-514a-8b35-49bc5a04ab45"], Cell[234925, 7610, 407, 7, 56, "Message",ExpressionUUID->"90d10efd-2d21-7342-aab1-c6fb4c5c2e48"], Cell[235335, 7619, 8570, 368, 56, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"b4689af7-5bf9-8d45-aba9-b2818f315461"], Cell[243908, 7989, 191, 5, 56, "Output",ExpressionUUID->"ee661a5c-41cb-6a4f-9f2e-fbc4cfed7c63"] }, Open ]], Cell[CellGroupData[{ Cell[244136, 7999, 257, 6, 56, "Input",ExpressionUUID->"b7cf0d21-5483-ac4b-a7be-b13fedb5cf43"], Cell[244396, 8007, 2580, 42, 56, "Message",ExpressionUUID->"aeed560b-6305-9b4b-9f36-1a15d67dc4b8"], Cell[246979, 8051, 10201, 227, 56, "Output",ExpressionUUID->"a8995578-961d-6b40-b936-9720a58b42d1"] }, Closed]], Cell[CellGroupData[{ Cell[257217, 8283, 1590, 47, 56, "Input",ExpressionUUID->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], Cell[258810, 8332, 342, 6, 56, "Message",ExpressionUUID->"c6924563-b651-4446-bbba-bad311e0a4eb"], Cell[259155, 8340, 101, 0, 56, "Output",ExpressionUUID->"41fd5ce1-50b0-1948-bce9-3bc136a88f8f"] }, Open ]], Cell[CellGroupData[{ Cell[259293, 8345, 2249, 64, 56, "Input",ExpressionUUID->"ad23855f-c99b-a44c-9a12-deb534d421e5"], Cell[261545, 8411, 342, 6, 56, "Message",ExpressionUUID->"2f629e0d-1c2c-9343-bec2-dbe5570a25a9"], Cell[261890, 8419, 342, 6, 56, "Message",ExpressionUUID->"60a5b48a-ad17-af47-8d95-10c332a921c3"], Cell[262235, 8427, 100, 0, 56, "Output",ExpressionUUID->"780ecdd0-ef7b-2043-b88a-49c80ff7e9ca"] }, Open ]], Cell[CellGroupData[{ Cell[262372, 8432, 2221, 64, 56, "Input",ExpressionUUID->"04adbbfb-46b7-244b-ac81-2150361c4bc9"], Cell[264596, 8498, 342, 6, 56, "Message",ExpressionUUID->"62097c16-216f-f945-9c34-ad16941760e6"], Cell[264941, 8506, 342, 6, 56, "Message",ExpressionUUID->"79915e14-0d67-a548-bfdc-6ae38b0a0207"], Cell[265286, 8514, 99, 0, 56, "Output",ExpressionUUID->"ccc68cfe-df29-974a-9d22-9001e3d52ce6"] }, Open ]], Cell[CellGroupData[{ Cell[265422, 8519, 2221, 64, 56, "Input",ExpressionUUID->"a64b278e-5de9-3f4d-8a34-31c8693c1f49"], Cell[267646, 8585, 342, 6, 56, "Message",ExpressionUUID->"e9cd5f2e-f4c7-8e4d-9d92-9849542cfa72"], Cell[267991, 8593, 342, 6, 56, "Message",ExpressionUUID->"7d087d1e-2fe7-8744-a225-ab71c2e4e591"], Cell[268336, 8601, 101, 0, 56, "Output",ExpressionUUID->"f6f65fa9-4786-a04a-8ffc-0bc012202e10"] }, Open ]], Cell[CellGroupData[{ Cell[268474, 8606, 212, 6, 56, "Input",ExpressionUUID->"4be81bbf-81c0-3047-be62-a85883f3e3bb"], Cell[268689, 8614, 102, 0, 56, "Output",ExpressionUUID->"c3918187-e898-c949-b542-e24802c9ee53"] }, Open ]] } ] *) (* End of internal cache information *)