(* 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[ 243505, 7911] NotebookOptionsPosition[ 219988, 7552] NotebookOutlinePosition[ 220412, 7569] CellTagsIndexPosition[ 220369, 7566] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"f1", "="}]], "Input", CellChangeTimes->{ 3.9918505481678543`*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ 5e950c758893"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991850549355442*^9, 3.991850549360302*^9}},ExpressionUUID->"7730e455-e5f4-194b-b761-\ e7a6896afd10"], Cell[BoxData[ RowBox[{"f2", "="}]], "Input", CellChangeTimes->{ 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ 5e27a96171a9"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918505524437046`*^9, 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ 8c5c5be10fe8"], 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->"951271b1-84a5-6246-9288-ba8a419078ee"], Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Il", "=", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", "f1", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{ 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ a9b137c5e3b6"], Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ih", "=", RowBox[{ FractionBox["2", "5"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "2"], "*", SuperscriptBox["A1", RowBox[{"5", "/", "3"}]], "*", FractionBox[ RowBox[{"931.5", "*", "1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}], RowBox[{"9", "*", SuperscriptBox["10", "16"]}]], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], SqrtBox[ FractionBox["5", RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", CellChangeTimes->{{3.991557709328657*^9, 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ 8010347227f7"], Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] }, 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->"d15e5e59-9ad8-\ e247-a132-b43b2736212a"], Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] }, 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->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ 88a4-7c75445a4f32"], Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ a9f8-bc957ede9a68"], Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ eb8f-4944-8d03-7bcd77a7b4b4"], Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ 08dc-e64f-8823-2a55ad6b8ca8"], Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] }, 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->"137e8d46-8eff-3c47-\ bf8f-1350d0b8a0bb"], Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] }, 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->"65edd566-\ 4493-2440-9c51-9fca28ce324b"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] }, 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->"d808e80b-1928-8046-\ afec-31463f4946cd"], Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] }, 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->"56b1717f-\ bc75-4047-98f0-7a0dede3f8a9"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] }, 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->"fa1a14b9-08cc-2e4f-b2af-\ f74418e31aeb"], Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] }, 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->"0285ae9a-ab88-cb46-ba56-\ 91d5391478d5"], Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] }, 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->"bea639c9-f172-\ ef4e-9454-9d4e027f5fa2"], Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ 2048-8697-fe84d79611fa"], 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.9918505674491863`*^9},ExpressionUUID->"f8b12d93-5bd9-8641-aa98-\ 3d78ebb0f21b"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "42c1a263-2456-664a-bb33-c5fe841cb412"], Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] }, 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.99185057022003*^9},ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "be4d7bfb-c18e-564a-93ce-3f42607886e7"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "b768ca5f-6b93-1f43-97bf-08f74ea2facd"], Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] }, 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.9918505747312756`*^9},ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-\ 12d8b19f0936"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "d3cb6fbc-3803-0541-80d1-8cab47341c44"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "635ef23c-be29-f947-b49d-c0d2f59f2ba8"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "d8687e0f-2f42-0543-a749-78a1ff3c9572"], 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->"b055d243-2255-1f40-80bd-55bc54524667"], 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., 258.6}, {159.525, 0.}} -> \ {-19.394, 0.892147, 0.709611, \ 0.0012616}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-\ c578eb57eb6a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9918505781608486`*^9},ExpressionUUID->"4b73592e-b155-8f42-b33d-\ 562f8b3faecd"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "9f5fa53c-8bea-a349-9c29-e4614f56cc98"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "a2ecd22c-b766-5347-9e03-9d459620be75"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], 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->"258782e2-0da4-1143-8b36-76da0d2ac6df"], 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., 258.6}, {159.525, 0.}} -> \ {-3.23234, -0.00806918, 0.118269, \ 0.000558628}},ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ 04dec8739bf5"] }, Open ]], Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", RowBox[{"{", "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ 5e6c7b4b5678"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ 3f60fcfd9a79"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"L", "=", FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", CellChangeTimes->{ 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ fe19384187c3"], Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] }, 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.991850612616415*^9},ExpressionUUID->"3764dfb4-9656-4349-b0a1-\ 77ebd1a3e048"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "05911c33-7605-8b49-a7ba-7fc8c8f30741"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], 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->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], 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., 258.6}, {159.525, 0.}} -> \ {-3.23234, -0.00443741, 0.118269, \ 0.000307202}},ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ baecb9a57d9b"] }, 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->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "d7dfab56-fefd-0149-8a26-6ee16f94ab37"], Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] }, 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.991850595832054*^9, 3.991850600247154*^9}},ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-\ 8e83e9537fdc"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "56921c73-2b67-0e4a-9808-5f61de992c7e"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "8ae663ad-3729-254b-9ec7-7f5d00ef81af"], Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] }, 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.991850617546938*^9, 3.991850621692934*^9}},ExpressionUUID->"ccaee6a3-c390-0444-bf16-\ 3471356a3614"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "1795c3b9-0182-224c-b986-6414d6712c04"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "c3b31753-a67f-9b45-b822-068e1df11f68"], Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] }, 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.9918506254460773`*^9, 3.991850628958872*^9}},ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-\ 286954db37c5"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "32db1bf6-ba11-cb4a-955a-52e174a44e5f"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "4e2b22f2-1724-7649-93fc-33cd27bb415e"], Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.9918506775260105`*^9, 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ 20e078d734cd"], Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918506873951664`*^9, 3.991850690050791*^9}, 3.9919245116307106`*^9},ExpressionUUID->"ca329276-48d7-8943-8408-\ dd2997d3499c"], 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->"681c316f-cd82-\ ae4b-824f-5eb2b3081f6d"], Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ 89cd-559587f30b91"], Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ afc4-be40-8f37-0116656ecd38"], Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] }, 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->"f07a8476-d7bc-1049-\ 82a6-7cf06f61e28f"], Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] }, 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->"b88b1a94-\ 22d7-2843-88e3-f607b95c8af9"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "def6b331-c871-b04d-a16e-4fc00b03d009"], Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] }, 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->"9d771aab-c0b4-f24c-\ 9b53-9472e00c4d82"], Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] }, 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->"47e2a8e8-\ 6af3-374f-9eea-9c2b6faaaf4a"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "c6c8676e-4601-144e-b83c-769e22949175"], Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] }, 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->"d8757b1c-19d9-d548-8de4-\ 6b0985b9b3bc"], Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] }, 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->"58b59182-fae5-674d-b49e-\ 4868d83e9702"], Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] }, 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->"5caf1614-7e5c-\ 9940-98cd-9460e2c074b2"], Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] }, 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.991850710120125*^9},ExpressionUUID->"db0784f6-51d0-fd44-b0e8-\ 05d6af1a6e52"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "7fd60dea-f794-4744-8801-bfb1a50a0e07"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "0b8c0718-41d2-4542-8afe-212a15805650"], Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] }, 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.9918507152152424`*^9},ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-\ f69c33a31448"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "b6f0ccc2-ff83-124b-a341-e143319c7670"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "d4b50e17-5ee4-384c-b81f-c2a36a80320e"], Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] }, 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.9918507183992805`*^9},ExpressionUUID->"611f92ea-b199-2643-9788-\ 194fae57c34e"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "7797a546-4085-124a-83da-5f3c472cdc4c"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "bf75ebeb-fc95-1d45-8487-ceed40ec633c"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "ca7472ca-7b27-a54a-84a1-e603fa592207"], 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->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], 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., 258.6}, {159.525, 0.}} -> \ {-14.8518, 0.65382, 0.693802, \ 0.00448812}},ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-\ 49e8ffb5e8c8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.9918507211663303`*^9, 3.991850725479061*^9}},ExpressionUUID->"f4c3d53a-1214-a145-beb0-\ 494cdae35e56"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "b9265795-17b8-4e47-bd29-fee31586537e"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "072fb53f-7116-0f41-a298-6891351a3192"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], 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->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], 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., 258.6}, {159.525, 0.}} -> \ {-1.61617, -0.0100934, 0.0591342, \ 0.000698765}},ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ 87bc9c72594a"] }, Open ]], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ 53b7ef04b97c"], 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->"01995149-3665-fe4e-b326-b20429031afd"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "52cff8eb-0c77-c944-a54f-e282b00ce766"], Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] }, 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.9918507468132763`*^9, 3.9918507511809216`*^9}},ExpressionUUID->"11b1e372-f457-5a4d-bcee-\ 062a3c04ed96"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "cb5a1193-7562-6446-a279-d9f6295d156e"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "566b0ad4-7f4e-b04f-8294-646ce1913fac"], Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] }, 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.99185075434021*^9, 3.9918507570104733`*^9}},ExpressionUUID->"8cb4e371-90a5-d347-adec-\ 3382e7679ba8"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "4cd45900-7eb0-6b4b-830a-a339e8117392"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] }, 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.9918507598219967`*^9, 3.9918507622107697`*^9}},ExpressionUUID->"732b358a-c98a-0347-8b16-\ 2462b23d6249"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "f702ec8b-e3a1-2f4f-bfef-4278a2688935"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "61220452-df6a-154e-8b5c-fecd0ab287a1"], Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.9918507652122154`*^9, 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ 168ec8f367e1"], Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918507716362114`*^9, 3.991850773604473*^9}, 3.9919245563167305`*^9},ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-\ e661a25a7ba1"], 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->"601c24ee-3f7b-\ c74d-891b-10a6d009e34b"], Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ bb01-e9142212274d"], Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ cb9a-bc4b-93f0-a7873f982a23"], Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] }, 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->"df51ca6a-83a1-6340-\ b13c-0185de64c37f"], Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] }, 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->"731f0e35-\ 7798-8b45-a769-075ac4b3983f"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] }, 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->"413c8e7d-149c-5d4a-\ 9ccb-23aebae2e6d5"], Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] }, 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->"e11d7eb8-\ 00a8-f540-98a0-89164ac4bae9"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] }, 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->"08e21b26-8d64-ea4e-8647-\ 1ee89e798d8f"], Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] }, 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->"ae5c0a90-3245-6943-a137-\ f30d036fcdd2"], Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] }, 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->"46af1283-32d6-\ 7240-acd2-307af56b44db"], Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] }, 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.9918507910247746`*^9},ExpressionUUID->"cd516020-ac7f-224d-b1ff-\ af0307420662"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "b82c1933-5313-1d4c-a858-68be8f118333"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] }, 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.9918507936164455`*^9},ExpressionUUID->"a9d0e817-a1c8-6546-a901-\ 34313c6ec04d"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "56712e4d-1aa7-524a-8254-bcfd8978eea0"], Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] }, 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.9918507961174965`*^9},ExpressionUUID->"f68960b0-cff6-3245-b906-\ ad38cf07d634"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "9c6ce535-b42f-3c43-a89e-eda48c04121e"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], 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->"64a64e18-e609-d54b-8225-64fa7909a948"], 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., 258.6}, {159.525, 0.}} -> \ {-14.8518, 0.65382, 0.693802, \ 0.00448812}},ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-\ 8b4ad9ffca61"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "100"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], "2"], ")"}], RowBox[{"2", "*", "n"}]], "*", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", "x", ")"}], "2"], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"y", "*", "y"}], "1"]}], RowBox[{"(", RowBox[{ FractionBox["1", "Cw"], "+", FractionBox[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.99185079904813*^9, {3.9918508647235966`*^9, 3.991850864992861*^9}},ExpressionUUID->"d43bf17b-b492-0e4a-af4a-\ 6a3bc399953c"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "71d4e039-c2b8-d74d-819a-80d2051e4273"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "63625e13-15ef-1f45-89dc-998a1b63a626"], 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->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], 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., 258.6}, {159.525, 0.}} -> \ {-1.61617, -0.0100934, 0.0591342, \ 0.000698765}},ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ 1872f77ea023"] }, Open ]], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ 5240-aa41-ba7c8ff64fb9"], 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->"3edaf53b-bb09-6646-b79e-9350413e0b42"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] }, 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.991850818889292*^9, 3.9918508230677433`*^9}},ExpressionUUID->"d2148290-3e90-8347-bddd-\ 5dd8190b0268"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "905b237c-0e51-ab4b-895d-05994c6f1d5f"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "7ad8c79e-9570-a44d-b593-07aa87056e21"], Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] }, 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.991850826380268*^9, 3.991850829169306*^9}},ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-\ 98d71f8a8458"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "c516c31a-74b4-f24d-a16a-678221cde87e"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "5c50b555-9ebe-f94d-801f-34634555f622"], Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] }, 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.9918508329145336`*^9, 3.991850837197098*^9}},ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-\ 57c1fe1d0585"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "7ca591cf-a5ce-ce41-8101-8edfca50e890"], Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "cbafd11a-4be0-b541-81e4-e62191ae7695"], Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.9918508397421246`*^9, 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ 1ca469b254bd"], Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] }, Open ]] }, WindowSize->{718.5, 729.75}, WindowMargins->{{Automatic, 0}, {Automatic, 0}}, CellContext->Notebook, FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", StyleDefinitions->"Default.nb", ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], Cell[706, 26, 152, 3, 28, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], Cell[861, 31, 147, 4, 28, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], Cell[1011, 37, 154, 3, 28, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ Cell[1190, 44, 1273, 41, 113, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], Cell[2466, 87, 106, 0, 32, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] }, Open ]], Cell[CellGroupData[{ Cell[2609, 92, 910, 31, 56, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], Cell[3522, 125, 106, 0, 32, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] }, Open ]], Cell[CellGroupData[{ Cell[3665, 130, 885, 30, 56, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], Cell[4553, 162, 106, 0, 32, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] }, Open ]], Cell[CellGroupData[{ Cell[4696, 167, 532, 18, 52, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], Cell[5231, 187, 101, 0, 32, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] }, Open ]], Cell[CellGroupData[{ Cell[5369, 192, 625, 21, 52, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], Cell[5997, 215, 100, 0, 32, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] }, Open ]], Cell[CellGroupData[{ Cell[6134, 220, 144, 4, 56, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], Cell[6281, 226, 101, 0, 32, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] }, Open ]], Cell[CellGroupData[{ Cell[6419, 231, 144, 4, 55, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], Cell[6566, 237, 100, 0, 70, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] }, Open ]], Cell[CellGroupData[{ Cell[6703, 242, 155, 4, 70, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], Cell[6861, 248, 101, 0, 70, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] }, Open ]], Cell[CellGroupData[{ Cell[6999, 253, 155, 4, 70, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], Cell[7157, 259, 101, 0, 70, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] }, Open ]], Cell[CellGroupData[{ Cell[7295, 264, 6029, 184, 70, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], Cell[13327, 450, 102, 0, 70, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] }, Open ]], Cell[CellGroupData[{ Cell[13466, 455, 342, 8, 70, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], Cell[13811, 465, 342, 6, 70, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], Cell[14156, 473, 100, 0, 70, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] }, Open ]], Cell[CellGroupData[{ Cell[14293, 478, 6096, 186, 70, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], Cell[20392, 666, 103, 0, 70, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] }, Open ]], Cell[CellGroupData[{ Cell[20532, 671, 342, 8, 70, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], Cell[20877, 681, 342, 6, 70, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], Cell[21222, 689, 100, 0, 70, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] }, Open ]], Cell[CellGroupData[{ Cell[21359, 694, 2637, 87, 70, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], Cell[23999, 783, 101, 0, 70, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] }, Open ]], Cell[CellGroupData[{ Cell[24137, 788, 2577, 84, 70, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], Cell[26717, 874, 102, 0, 70, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] }, Open ]], Cell[CellGroupData[{ Cell[26856, 879, 3686, 117, 70, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], Cell[30545, 998, 102, 0, 70, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] }, Open ]], Cell[30662, 1001, 138, 3, 70, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], Cell[CellGroupData[{ Cell[30825, 1008, 2054, 59, 70, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], Cell[32882, 1069, 342, 6, 70, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], Cell[33227, 1077, 342, 6, 70, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], Cell[33572, 1085, 100, 0, 70, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] }, Open ]], Cell[CellGroupData[{ Cell[33709, 1090, 2049, 58, 70, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], Cell[35761, 1150, 342, 6, 70, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], Cell[36106, 1158, 342, 6, 70, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], Cell[36451, 1166, 100, 0, 70, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] }, Open ]], Cell[CellGroupData[{ Cell[36588, 1171, 1938, 53, 70, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], Cell[38529, 1226, 342, 6, 70, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], Cell[38874, 1234, 342, 6, 70, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], Cell[39219, 1242, 342, 6, 70, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], Cell[39564, 1250, 407, 7, 70, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], Cell[39974, 1259, 8018, 364, 70, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], Cell[47995, 1625, 191, 5, 70, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] }, Open ]], Cell[CellGroupData[{ Cell[48223, 1635, 2094, 60, 70, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], Cell[50320, 1697, 342, 6, 70, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], Cell[50665, 1705, 342, 6, 70, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], Cell[51010, 1713, 342, 6, 70, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], Cell[51355, 1721, 407, 7, 70, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], Cell[51765, 1730, 8024, 353, 70, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], Cell[59792, 2085, 191, 5, 70, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] }, Open ]], Cell[59998, 2093, 232, 6, 70, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], Cell[60233, 2101, 209, 5, 70, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], Cell[CellGroupData[{ Cell[60467, 2110, 215, 7, 70, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], Cell[60685, 2119, 100, 0, 70, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] }, Open ]], Cell[CellGroupData[{ Cell[60822, 2124, 1814, 53, 70, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], Cell[62639, 2179, 342, 6, 70, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], Cell[62984, 2187, 342, 6, 70, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], Cell[63329, 2195, 342, 6, 70, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], Cell[63674, 2203, 407, 7, 70, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], Cell[64084, 2212, 8187, 365, 70, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], Cell[72274, 2579, 191, 5, 70, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] }, Open ]], Cell[CellGroupData[{ Cell[72502, 2589, 1590, 47, 70, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], Cell[74095, 2638, 342, 6, 70, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], Cell[74440, 2646, 101, 0, 70, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] }, Open ]], Cell[CellGroupData[{ Cell[74578, 2651, 2247, 64, 70, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], Cell[76828, 2717, 342, 6, 70, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], Cell[77173, 2725, 342, 6, 70, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], Cell[77518, 2733, 103, 0, 70, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] }, Open ]], Cell[CellGroupData[{ Cell[77658, 2738, 2219, 64, 70, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], Cell[79880, 2804, 342, 6, 70, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], Cell[80225, 2812, 342, 6, 70, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], Cell[80570, 2820, 100, 0, 70, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] }, Open ]], Cell[CellGroupData[{ Cell[80707, 2825, 2221, 64, 70, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], Cell[82931, 2891, 342, 6, 70, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], Cell[83276, 2899, 342, 6, 70, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], Cell[83621, 2907, 101, 0, 70, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] }, Open ]], Cell[CellGroupData[{ Cell[83759, 2912, 215, 6, 70, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], Cell[83977, 2920, 104, 0, 70, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] }, Open ]], Cell[84096, 2923, 247, 5, 70, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], Cell[CellGroupData[{ Cell[84368, 2932, 532, 18, 70, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], Cell[84903, 2952, 100, 0, 70, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] }, Open ]], Cell[CellGroupData[{ Cell[85040, 2957, 144, 4, 70, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], Cell[85187, 2963, 100, 0, 70, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] }, Open ]], Cell[CellGroupData[{ Cell[85324, 2968, 155, 4, 70, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], Cell[85482, 2974, 100, 0, 70, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] }, Open ]], Cell[CellGroupData[{ Cell[85619, 2979, 6029, 184, 70, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], Cell[91651, 3165, 102, 0, 70, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] }, Open ]], Cell[CellGroupData[{ Cell[91790, 3170, 342, 8, 70, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], Cell[92135, 3180, 342, 6, 70, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], Cell[92480, 3188, 99, 0, 70, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] }, Open ]], Cell[CellGroupData[{ Cell[92616, 3193, 6096, 186, 70, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], Cell[98715, 3381, 102, 0, 70, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] }, Open ]], Cell[CellGroupData[{ Cell[98854, 3386, 342, 8, 70, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], Cell[99199, 3396, 342, 6, 70, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], Cell[99544, 3404, 100, 0, 70, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] }, Open ]], Cell[CellGroupData[{ Cell[99681, 3409, 2637, 87, 70, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], Cell[102321, 3498, 101, 0, 70, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] }, Open ]], Cell[CellGroupData[{ Cell[102459, 3503, 2577, 84, 70, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], Cell[105039, 3589, 102, 0, 70, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] }, Open ]], Cell[CellGroupData[{ Cell[105178, 3594, 3686, 117, 70, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], Cell[108867, 3713, 102, 0, 70, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] }, Open ]], Cell[CellGroupData[{ Cell[109006, 3718, 2052, 59, 70, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], Cell[111061, 3779, 342, 6, 70, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], Cell[111406, 3787, 342, 6, 70, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], Cell[111751, 3795, 101, 0, 70, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] }, Open ]], Cell[CellGroupData[{ Cell[111889, 3800, 2054, 59, 70, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], Cell[113946, 3861, 342, 6, 70, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], Cell[114291, 3869, 342, 6, 70, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], Cell[114636, 3877, 100, 0, 70, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] }, Open ]], Cell[CellGroupData[{ Cell[114773, 3882, 2030, 55, 70, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], Cell[116806, 3939, 342, 6, 70, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], Cell[117151, 3947, 342, 6, 70, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], Cell[117496, 3955, 342, 6, 70, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], Cell[117841, 3963, 407, 7, 70, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], Cell[118251, 3972, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], Cell[127686, 4412, 191, 5, 70, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] }, Open ]], Cell[CellGroupData[{ Cell[127914, 4422, 2118, 60, 70, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], Cell[130035, 4484, 342, 6, 70, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], Cell[130380, 4492, 342, 6, 70, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], Cell[130725, 4500, 342, 6, 70, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], Cell[131070, 4508, 407, 7, 70, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], Cell[131480, 4517, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], Cell[140029, 4887, 191, 5, 70, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] }, Open ]], Cell[140235, 4895, 209, 5, 70, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], Cell[CellGroupData[{ Cell[140469, 4904, 1590, 47, 70, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], Cell[142062, 4953, 342, 6, 70, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], Cell[142407, 4961, 101, 0, 70, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] }, Open ]], Cell[CellGroupData[{ Cell[142545, 4966, 2251, 64, 70, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], Cell[144799, 5032, 342, 6, 70, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], Cell[145144, 5040, 342, 6, 70, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], Cell[145489, 5048, 101, 0, 70, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] }, Open ]], Cell[CellGroupData[{ Cell[145627, 5053, 2220, 64, 70, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], Cell[147850, 5119, 342, 6, 70, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], Cell[148195, 5127, 342, 6, 70, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], Cell[148540, 5135, 101, 0, 70, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] }, Open ]], Cell[CellGroupData[{ Cell[148678, 5140, 2223, 64, 70, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], Cell[150904, 5206, 342, 6, 70, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], Cell[151249, 5214, 342, 6, 70, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], Cell[151594, 5222, 101, 0, 70, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] }, Open ]], Cell[CellGroupData[{ Cell[151732, 5227, 215, 6, 70, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], Cell[151950, 5235, 102, 0, 70, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] }, Open ]], Cell[152067, 5238, 247, 5, 70, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], Cell[CellGroupData[{ Cell[152339, 5247, 532, 18, 70, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], Cell[152874, 5267, 101, 0, 70, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] }, Open ]], Cell[CellGroupData[{ Cell[153012, 5272, 144, 4, 70, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], Cell[153159, 5278, 101, 0, 70, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] }, Open ]], Cell[CellGroupData[{ Cell[153297, 5283, 155, 4, 70, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], Cell[153455, 5289, 100, 0, 70, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] }, Open ]], Cell[CellGroupData[{ Cell[153592, 5294, 6029, 184, 70, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], Cell[159624, 5480, 102, 0, 70, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] }, Open ]], Cell[CellGroupData[{ Cell[159763, 5485, 342, 8, 70, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], Cell[160108, 5495, 342, 6, 70, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], Cell[160453, 5503, 100, 0, 70, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] }, Open ]], Cell[CellGroupData[{ Cell[160590, 5508, 6096, 186, 70, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], Cell[166689, 5696, 102, 0, 70, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] }, Open ]], Cell[CellGroupData[{ Cell[166828, 5701, 342, 8, 70, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], Cell[167173, 5711, 342, 6, 70, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], Cell[167518, 5719, 99, 0, 70, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] }, Open ]], Cell[CellGroupData[{ Cell[167654, 5724, 2637, 87, 70, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], Cell[170294, 5813, 101, 0, 70, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] }, Open ]], Cell[CellGroupData[{ Cell[170432, 5818, 2577, 84, 70, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], Cell[173012, 5904, 102, 0, 70, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] }, Open ]], Cell[CellGroupData[{ Cell[173151, 5909, 3686, 117, 70, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], Cell[176840, 6028, 102, 0, 70, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] }, Open ]], Cell[CellGroupData[{ Cell[176979, 6033, 2054, 59, 70, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], Cell[179036, 6094, 342, 6, 70, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], Cell[179381, 6102, 342, 6, 70, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], Cell[179726, 6110, 100, 0, 70, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] }, Open ]], Cell[CellGroupData[{ Cell[179863, 6115, 2054, 59, 70, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], Cell[181920, 6176, 342, 6, 70, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], Cell[182265, 6184, 342, 6, 70, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], Cell[182610, 6192, 100, 0, 70, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] }, Open ]], Cell[CellGroupData[{ Cell[182747, 6197, 2030, 55, 70, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], Cell[184780, 6254, 342, 6, 70, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], Cell[185125, 6262, 342, 6, 70, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], Cell[185470, 6270, 342, 6, 70, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], Cell[185815, 6278, 407, 7, 70, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], Cell[186225, 6287, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], Cell[195660, 6727, 191, 5, 70, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] }, Open ]], Cell[CellGroupData[{ Cell[195888, 6737, 2143, 61, 70, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], Cell[198034, 6800, 342, 6, 70, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], Cell[198379, 6808, 342, 6, 70, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], Cell[198724, 6816, 342, 6, 70, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], Cell[199069, 6824, 407, 7, 70, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], Cell[199479, 6833, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], Cell[208028, 7203, 191, 5, 70, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] }, Open ]], Cell[208234, 7211, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], Cell[CellGroupData[{ Cell[208397, 7218, 1590, 47, 70, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], Cell[209990, 7267, 342, 6, 70, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], Cell[210335, 7275, 101, 0, 70, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] }, Open ]], Cell[CellGroupData[{ Cell[210473, 7280, 2249, 64, 70, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], Cell[212725, 7346, 342, 6, 70, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], Cell[213070, 7354, 342, 6, 70, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], Cell[213415, 7362, 100, 0, 70, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] }, Open ]], Cell[CellGroupData[{ Cell[213552, 7367, 2219, 64, 70, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], Cell[215774, 7433, 342, 6, 70, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], Cell[216119, 7441, 342, 6, 70, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], Cell[216464, 7449, 99, 0, 70, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] }, Open ]], Cell[CellGroupData[{ Cell[216600, 7454, 2221, 64, 70, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], Cell[218824, 7520, 342, 6, 70, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], Cell[219169, 7528, 342, 6, 70, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], Cell[219514, 7536, 101, 0, 70, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] }, Open ]], Cell[CellGroupData[{ Cell[219652, 7541, 215, 6, 70, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], Cell[219870, 7549, 102, 0, 70, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] }, Open ]] } ] *) (* End of internal cache information *)