practize_1course/templates/light_case/l___gid_Qw2.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Wolfram 14.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       154,          7]
NotebookDataLength[    293237,       8992]
NotebookOptionsPosition[    268807,       8617]
NotebookOutlinePosition[    269261,       8635]
CellTagsIndexPosition[    269218,       8632]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"f1", "="}]], "Input",
 CellChangeTimes->{
  3.991847456288412*^9},ExpressionUUID->"02c50ee4-f89d-e84b-babb-\
c4951c25ae7a"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.991847457119114*^9, 
  3.991847457122698*^9}},ExpressionUUID->"a3744ee1-3657-ed40-afd1-\
ad7c272f2bae"],

Cell[BoxData[
 RowBox[{"f2", "="}]], "Input",
 CellChangeTimes->{
  3.9918474584496803`*^9},ExpressionUUID->"fea443da-bb80-5942-940a-\
8bd97c50a7b3"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.9918474591039295`*^9, 
  3.9918474591064377`*^9}},ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-\
a33659ac7670"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ir", "=", 
  RowBox[{"(", 
   RowBox[{
    FractionBox[
     RowBox[{"A1", "*", 
      RowBox[{"(", 
       RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", 
    FractionBox[
     RowBox[{"931.5", "*", "1.6", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "13"}]]}], 
     RowBox[{"9", "*", 
      SuperscriptBox["10", "16"]}]], "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.16", "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "15"}]]}], ")"}], "1"], "*", 
        SuperscriptBox["A1", 
         RowBox[{"1", "/", "3"}]]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.16", "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "15"}]]}], ")"}], "1"], "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"A", "-", "A1"}], ")"}], 
         RowBox[{"1", "/", "3"}]]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.16", "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], 
   ")"}]}]], "Input",ExpressionUUID->"c66d12ee-7a7e-014a-a59f-f5290f75e383"],

Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"d2a98016-4c83-3943-8fb1-133b89183d61"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Il", "=", 
  RowBox[{
   FractionBox["2", "5"], "*", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1.16", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
   SuperscriptBox["A1", 
    RowBox[{"5", "/", "3"}]], "*", 
   FractionBox[
    RowBox[{"931.5", "*", "1.6", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "13"}]]}], 
    RowBox[{"9", "*", 
     SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{
      FractionBox["1", "2"], 
      SqrtBox[
       FractionBox["5", 
        RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
     RowBox[{
      FractionBox["25", 
       RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{
  3.9915577064670105`*^9, {3.9915584375659084`*^9, 
   3.9915584522049637`*^9}},ExpressionUUID->"f4d1663f-2f7d-a640-9003-\
22515624ffcb"],

Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"25b3586e-dddb-8148-8247-2a53a0816ad5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ih", "=", 
  RowBox[{
   FractionBox["2", "5"], "*", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1.16", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"A", "-", "A1"}], ")"}], 
    RowBox[{"5", "/", "3"}]], "*", 
   FractionBox[
    RowBox[{"931.5", "*", "1.6", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "13"}]]}], 
    RowBox[{"9", "*", 
     SuperscriptBox["10", "16"]}]], "*", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{
      FractionBox["1", "2"], 
      SqrtBox[
       FractionBox["5", 
        RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
     RowBox[{
      FractionBox["25", 
       RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
   "f2"}]}]], "Input",
 CellChangeTimes->{{3.991557709328657*^9, 3.991557711123291*^9}, 
   3.9915584476498585`*^9},ExpressionUUID->"85637b45-1c33-1f4e-90c3-\
07deba1b9b3a"],

Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"c7915de2-f678-2240-8907-4f119bfb9ca2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Qb3", "=", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.05", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "34"}]]}], ")"}], "2"], 
      RowBox[{"1.6", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "13"}]]}]], ")"}], 
    RowBox[{"-", "1"}]], "*", 
   FractionBox[
    RowBox[{"Ih", "*", "Ir"}], 
    RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"8f97c456-7671-\
cb44-95b8-323a276088fe"],

Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c28337c4-580d-004c-bc3c-26abc607c115"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Qw3", "=", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.05", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "34"}]]}], ")"}], "2"], 
      RowBox[{"1.6", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "13"}]]}]], ")"}], 
    RowBox[{"-", "1"}]], "*", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Ih", "+", "Il"}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\
ssionUUID->"e2507f75-9610-1346-854c-33db9330e900"],

Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"eca6de54-61a8-eb4b-9203-3f4b34d3dfbd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hb", "=", 
  SqrtBox[
   FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"148e44ba-fb40-0e42-\
959d-44858270229f"],

Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"0fa81d47-3764-044a-bf93-ee5d1211e37a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hw", "=", 
  SqrtBox[
   FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"0c021142-f067-b94a-\
bf73-69c3aa281aca"],

Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"f8ee43a7-a683-0f4c-8e84-b8ddc45a142b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cw", "=", 
  FractionBox[
   RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"827e3da4-\
16db-854c-89ad-c94762d57459"],

Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"3013ddc9-2d77-3941-8182-c74c4e917958"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cb", "=", 
  FractionBox[
   RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"9149adf7-\
16ac-794c-81f7-04a88d48bdc9"],

Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"69944b55-6116-8240-914e-d57996010b53"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"o1", "=", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["2", "5"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.3", "*", 
              SuperscriptBox["10", 
               RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
           SuperscriptBox["A1", 
            RowBox[{"5", "/", "3"}]], "*", 
           FractionBox[
            RowBox[{"931.5", "*", "1.6", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "13"}]]}], 
            RowBox[{"9", "*", 
             SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              FractionBox["1", "2"], 
              SqrtBox[
               FractionBox["5", 
                RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
             RowBox[{
              FractionBox["25", 
               RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
          RowBox[{
           FractionBox["2", "5"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.3", "*", 
              SuperscriptBox["10", 
               RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"A", "-", "A1"}], ")"}], 
            RowBox[{"5", "/", "3"}]], "*", 
           FractionBox[
            RowBox[{"931.5", "*", "1.6", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "13"}]]}], 
            RowBox[{"9", "*", 
             SuperscriptBox["10", "16"]}]], "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              FractionBox["1", "2"], 
              SqrtBox[
               FractionBox["5", 
                RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
             RowBox[{
              FractionBox["25", 
               RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
           "f2"}]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.05", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "34"}]]}], ")"}], "2"], 
          RowBox[{"1.6", "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "13"}]]}]], ")"}], 
        RowBox[{"-", "2"}]], "*", "Cb"}], "+", 
      RowBox[{"Cw", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          FractionBox["2", "5"], "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.3", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
          SuperscriptBox["A1", 
           RowBox[{"5", "/", "3"}]], "*", 
          FractionBox[
           RowBox[{"931.5", "*", "1.6", "*", 
            SuperscriptBox["10", 
             RowBox[{"-", "13"}]]}], 
           RowBox[{"9", "*", 
            SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             FractionBox["1", "2"], 
             SqrtBox[
              FractionBox["5", 
               RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
            RowBox[{
             FractionBox["25", 
              RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], 
        "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.05", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "34"}]]}], ")"}], "2"], 
          RowBox[{"1.6", "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "13"}]]}]], ")"}], 
        RowBox[{"-", "2"}]]}]}], ")"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox["A1", 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"A", "-", "A1"}], ")"}], 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
       "f2"}]}], ")"}], "2"], "*", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.05", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "34"}]]}], ")"}], "2"], 
      RowBox[{"1.6", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "13"}]]}]], ")"}], 
    RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"14dc1278-8ac3-2246-\
90ef-ba23d2bdffaa"],

Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"10e3cc8a-ad3e-4e41-ba26-c1acab07fa26"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
  RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"6c632312-\
3007-0b42-93b3-6c1b961afeb6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"606843ec-0d7b-f541-9ba3-5b67b435945d"],

Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"859b213d-5319-f746-82ea-75944d21baab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"o2", "=", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["2", "5"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.3", "*", 
              SuperscriptBox["10", 
               RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
           SuperscriptBox["A1", 
            RowBox[{"5", "/", "3"}]], "*", 
           FractionBox[
            RowBox[{"931.5", "*", "1.6", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "13"}]]}], 
            RowBox[{"9", "*", 
             SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              FractionBox["1", "2"], 
              SqrtBox[
               FractionBox["5", 
                RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
             RowBox[{
              FractionBox["25", 
               RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
          RowBox[{
           FractionBox["2", "5"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.3", "*", 
              SuperscriptBox["10", 
               RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"A", "-", "A1"}], ")"}], 
            RowBox[{"5", "/", "3"}]], "*", 
           FractionBox[
            RowBox[{"931.5", "*", "1.6", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "13"}]]}], 
            RowBox[{"9", "*", 
             SuperscriptBox["10", "16"]}]], "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              FractionBox["1", "2"], 
              SqrtBox[
               FractionBox["5", 
                RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
             RowBox[{
              FractionBox["25", 
               RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
           "f2"}]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.05", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "34"}]]}], ")"}], "2"], 
          RowBox[{"1.6", "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "13"}]]}]], ")"}], 
        RowBox[{"-", "2"}]], "*", "Cb"}], "+", 
      RowBox[{"Cw", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          FractionBox["2", "5"], "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.3", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"A", "-", "A1"}], ")"}], 
           RowBox[{"5", "/", "3"}]], "*", 
          FractionBox[
           RowBox[{"931.5", "*", "1.6", "*", 
            SuperscriptBox["10", 
             RowBox[{"-", "13"}]]}], 
           RowBox[{"9", "*", 
            SuperscriptBox["10", "16"]}]], "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             FractionBox["1", "2"], 
             SqrtBox[
              FractionBox["5", 
               RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
            RowBox[{
             FractionBox["25", 
              RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
          "f2"}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.05", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "34"}]]}], ")"}], "2"], 
          RowBox[{"1.6", "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "13"}]]}]], ")"}], 
        RowBox[{"-", "2"}]]}]}], ")"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox["A1", 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"A", "-", "A1"}], ")"}], 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
       "f2"}]}], ")"}], "2"], "*", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.05", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "34"}]]}], ")"}], "2"], 
      RowBox[{"1.6", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "13"}]]}]], ")"}], 
    RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"60d1b3b3-12f2-2644-\
8ed8-788b5437fdfb"],

Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"b3e0a85b-a4aa-ef42-9511-fc38e8dcde9a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
  RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"8bbc8f7a-\
f751-794c-9337-a97f1bdae578"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"390798a4-00bb-054f-8ee2-e80440f44497"],

Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"ae91cf0f-72ea-5348-859e-dc6121354f77"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h1", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox["2", "5"], "*", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1.3", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"A", "-", "A1"}], ")"}], 
      RowBox[{"5", "/", "3"}]], "*", 
     FractionBox[
      RowBox[{"931.5", "*", "1.6", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "13"}]]}], 
      RowBox[{"9", "*", 
       SuperscriptBox["10", "16"]}]], "*", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        FractionBox["1", "2"], 
        SqrtBox[
         FractionBox["5", 
          RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
       RowBox[{
        FractionBox["25", 
         RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], 
    ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["2", "5"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.3", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
      SuperscriptBox["A1", 
       RowBox[{"5", "/", "3"}]], "*", 
      FractionBox[
       RowBox[{"931.5", "*", "1.6", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "13"}]]}], 
       RowBox[{"9", "*", 
        SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["1", "2"], 
         SqrtBox[
          FractionBox["5", 
           RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
        RowBox[{
         FractionBox["25", 
          RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["2", "5"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.3", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"A", "-", "A1"}], ")"}], 
       RowBox[{"5", "/", "3"}]], "*", 
      FractionBox[
       RowBox[{"931.5", "*", "1.6", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "13"}]]}], 
       RowBox[{"9", "*", 
        SuperscriptBox["10", "16"]}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["1", "2"], 
         SqrtBox[
          FractionBox["5", 
           RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
        RowBox[{
         FractionBox["25", 
          RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
     ")"}]}]}]], "Input",ExpressionUUID->"9338c89c-67a3-6e41-be9a-\
1cf34020b040"],

Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"d0d3835d-fdd0-8c42-8864-83afb328c4cf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h2", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox["2", "5"], "*", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1.3", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
     SuperscriptBox["A1", 
      RowBox[{"5", "/", "3"}]], "*", 
     FractionBox[
      RowBox[{"931.5", "*", "1.6", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "13"}]]}], 
      RowBox[{"9", "*", 
       SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        FractionBox["1", "2"], 
        SqrtBox[
         FractionBox["5", 
          RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
       RowBox[{
        FractionBox["25", 
         RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["2", "5"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.3", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
      SuperscriptBox["A1", 
       RowBox[{"5", "/", "3"}]], "*", 
      FractionBox[
       RowBox[{"931.5", "*", "1.6", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "13"}]]}], 
       RowBox[{"9", "*", 
        SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["1", "2"], 
         SqrtBox[
          FractionBox["5", 
           RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
        RowBox[{
         FractionBox["25", 
          RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["2", "5"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.3", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"A", "-", "A1"}], ")"}], 
       RowBox[{"5", "/", "3"}]], "*", 
      FractionBox[
       RowBox[{"931.5", "*", "1.6", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "13"}]]}], 
       RowBox[{"9", "*", 
        SuperscriptBox["10", "16"]}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["1", "2"], 
         SqrtBox[
          FractionBox["5", 
           RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
        RowBox[{
         FractionBox["25", 
          RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
     ")"}]}]}]], "Input",ExpressionUUID->"ae8d22a0-13a2-9d41-b648-\
0faf6caf2253"],

Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"751398e6-9533-bb47-8958-7a1def21254b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h3", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox["A1", 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"A", "-", "A1"}], ")"}], 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], 
      ")"}]}], ")"}], "/", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox["A1", 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
      "\[IndentingNewLine]", 
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"A", "-", "A1"}], ")"}], 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
       "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"7d419d4a-7a13-\
e94d-beb1-cf3b1cd962e0"],

Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"1aeb1149-722c-dc42-812b-49cc813a09fb"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"5ded2365-6100-\
7b43-ad8b-c1b09dc62d32"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"J1", "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
       RowBox[{
        FractionBox[
         RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", 
          RowBox[{"(", 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"n", "=", "0"}], "100"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                   FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                "2"], ")"}], 
              RowBox[{"2", "*", "n"}]], "*", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["1", 
                RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
           ")"}]}], 
         RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", "x", ")"}], "2"], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"y", "*", "y"}], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{
  3.991847477953953*^9},ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-\
81ac5c3a022e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"2ce305f1-c638-b640-9e67-d7f6ae2bda61"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"b0af1054-fb47-e740-95af-24928a790ba1"],

Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"66158712-c3f0-e64f-90ca-4bc93914d109"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"J2", "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
       RowBox[{
        FractionBox[
         RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", 
          RowBox[{"(", 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"n", "=", "0"}], "100"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                   FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                "2"], ")"}], 
              RowBox[{"2", "*", "n"}]], "*", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["1", 
                RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
           ")"}]}], 
         RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", "x", ")"}], "2"], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"y", "*", "y"}], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{
  3.991847481589756*^9},ExpressionUUID->"2e2efe37-106e-8a4d-98e1-\
c6d073c59256"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"ddbb5dc1-4246-b141-8007-17d96bea04a9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"1cbe63d8-1cf3-164a-9de9-78e410d01cd1"],

Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"4bc5c73f-64dd-7843-be37-b49a7d1b54f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
          RowBox[{
           FractionBox[
            RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], 
            RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                FractionBox["1", "Cw"]}], "+", 
               FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", 
             RowBox[{"Cos", "[", 
              FractionBox[
               RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", "x", ")"}], "2"], "1"]}], 
             RowBox[{"(", 
              RowBox[{
               FractionBox["1", "Cw"], "+", 
               FractionBox[
                RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"y", "*", "y"}], "1"]}], 
             RowBox[{"(", 
              RowBox[{
               FractionBox["1", "Cw"], "+", 
               FractionBox[
                RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
           RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
        RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", 
    RowBox[{"{", 
     RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.991847486086582*^9},ExpressionUUID->"5ef8c446-ea46-eb49-90ca-\
5a9d2703a626"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"ce9fdda1-e376-7b48-b042-8c3b4f405fcb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"66a78cc9-892b-204f-b904-4d54d4d3ebd0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"77cccd91-6a05-1146-b314-0aa4f406152c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \
suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \
"Message",ExpressionUUID->"72ad5b3e-6607-7741-ad4a-54927ade8695"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.00529101 -2.67879 2.97603 [
[.15608 .28474 -6 -9 ]
[.15608 .28474 6 0 ]
[.28836 .28474 -6 -9 ]
[.28836 .28474 6 0 ]
[.42063 .28474 -6 -9 ]
[.42063 .28474 6 0 ]
[.55291 .28474 -9 -9 ]
[.55291 .28474 9 0 ]
[.68519 .28474 -9 -9 ]
[.68519 .28474 9 0 ]
[.81746 .28474 -9 -9 ]
[.81746 .28474 9 0 ]
[.94974 .28474 -9 -9 ]
[.94974 .28474 9 0 ]
[.01131 .14844 -24 -4.5 ]
[.01131 .14844 0 4.5 ]
[.01131 .44604 -24 -4.5 ]
[.01131 .44604 0 4.5 ]
[.01131 .59484 -18 -4.5 ]
[.01131 .59484 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15608 .29724 m
.15608 .30349 L
s
[(25)] .15608 .28474 0 1 Mshowa
.28836 .29724 m
.28836 .30349 L
s
[(50)] .28836 .28474 0 1 Mshowa
.42063 .29724 m
.42063 .30349 L
s
[(75)] .42063 .28474 0 1 Mshowa
.55291 .29724 m
.55291 .30349 L
s
[(100)] .55291 .28474 0 1 Mshowa
.68519 .29724 m
.68519 .30349 L
s
[(125)] .68519 .28474 0 1 Mshowa
.81746 .29724 m
.81746 .30349 L
s
[(150)] .81746 .28474 0 1 Mshowa
.94974 .29724 m
.94974 .30349 L
s
[(175)] .94974 .28474 0 1 Mshowa
.125 Mabswid
.05026 .29724 m
.05026 .30099 L
s
.07672 .29724 m
.07672 .30099 L
s
.10317 .29724 m
.10317 .30099 L
s
.12963 .29724 m
.12963 .30099 L
s
.18254 .29724 m
.18254 .30099 L
s
.20899 .29724 m
.20899 .30099 L
s
.23545 .29724 m
.23545 .30099 L
s
.2619 .29724 m
.2619 .30099 L
s
.31481 .29724 m
.31481 .30099 L
s
.34127 .29724 m
.34127 .30099 L
s
.36772 .29724 m
.36772 .30099 L
s
.39418 .29724 m
.39418 .30099 L
s
.44709 .29724 m
.44709 .30099 L
s
.47354 .29724 m
.47354 .30099 L
s
.5 .29724 m
.5 .30099 L
s
.52646 .29724 m
.52646 .30099 L
s
.57937 .29724 m
.57937 .30099 L
s
.60582 .29724 m
.60582 .30099 L
s
.63228 .29724 m
.63228 .30099 L
s
.65873 .29724 m
.65873 .30099 L
s
.71164 .29724 m
.71164 .30099 L
s
.7381 .29724 m
.7381 .30099 L
s
.76455 .29724 m
.76455 .30099 L
s
.79101 .29724 m
.79101 .30099 L
s
.84392 .29724 m
.84392 .30099 L
s
.87037 .29724 m
.87037 .30099 L
s
.89683 .29724 m
.89683 .30099 L
s
.92328 .29724 m
.92328 .30099 L
s
.97619 .29724 m
.97619 .30099 L
s
.25 Mabswid
0 .29724 m
1 .29724 L
s
.02381 .14844 m
.03006 .14844 L
s
[(0.95)] .01131 .14844 1 0 Mshowa
.02381 .44604 m
.03006 .44604 L
s
[(1.05)] .01131 .44604 1 0 Mshowa
.02381 .59484 m
.03006 .59484 L
s
[(1.1)] .01131 .59484 1 0 Mshowa
.125 Mabswid
.02381 .02939 m
.02756 .02939 L
s
.02381 .05915 m
.02756 .05915 L
s
.02381 .08892 m
.02756 .08892 L
s
.02381 .11868 m
.02756 .11868 L
s
.02381 .1782 m
.02756 .1782 L
s
.02381 .20796 m
.02756 .20796 L
s
.02381 .23772 m
.02756 .23772 L
s
.02381 .26748 m
.02756 .26748 L
s
.02381 .327 m
.02756 .327 L
s
.02381 .35676 m
.02756 .35676 L
s
.02381 .38652 m
.02756 .38652 L
s
.02381 .41628 m
.02756 .41628 L
s
.02381 .4758 m
.02756 .4758 L
s
.02381 .50556 m
.02756 .50556 L
s
.02381 .53532 m
.02756 .53532 L
s
.02381 .56508 m
.02756 .56508 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .01472 m
.02499 .01472 L
.02605 .01472 L
.02729 .01473 L
.02846 .01474 L
.03053 .01478 L
.03279 .01482 L
.03527 .01489 L
.0379 .01499 L
.04262 .0152 L
.04749 .01548 L
.05205 .0158 L
.06244 .01675 L
.07305 .01801 L
.08274 .01944 L
.10458 .02358 L
.12357 .02821 L
.14429 .03435 L
.18493 .04963 L
.22406 .06826 L
.26565 .09204 L
.30571 .11858 L
.34426 .14717 L
.38527 .1805 L
.42475 .215 L
.46273 .24996 L
.50315 .28853 L
.54206 .3264 L
.58342 .36674 L
.62326 .40497 L
.66159 .44044 L
.70238 .47601 L
.74164 .50741 L
.77939 .53432 L
.8196 .55879 L
.85828 .57771 L
.87793 .58543 L
.89942 .59234 L
.91995 .59741 L
.92911 .59917 L
.93905 .60073 L
.94426 .60141 L
.94906 .60194 L
.95356 .60236 L
.95851 .60273 L
.96295 .60299 L
.9671 .60316 L
.96939 .60323 L
.97148 .60328 L
.97264 .6033 L
Mistroke
.9739 .60331 L
.97509 .60332 L
.97619 .60332 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 
  1}},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzlnAmUFMUZx3t3jl1Yl0MwogJZAUEWIWrU6CjPGx6eGBXj8eCt6AhGhQdo
jMeLJ15RGw8UD0DAeB+5OvHCvMQzXom3TuJ94RnvKzhOVXdXV838/1U9uytq
so8pZv71q6++/uqb3qrq7t21Y860gw/vmDN9akfb+FkdM6dNnzq7bdyMWRUp
0+B5DTdXXj3bPPG+7HlxUa78K/9WFEL5Zt+vL//LeGHH5fAlyrnfo/peYewq
747lrVpE2azI2ZzsJ8qcIo/g5ABRZhV5KCcHijKvyIM4OcTsfYpGSnCEeifr
D+CW2k1yX06ONslJnNxQlI2K3IuTG5s29+Dkpia5Gyc3N3vfhZMF0+YETo41
yXGc3MbsfQdObmeS23FyB5Pcpnq0x5nejeWWJpiWtuTkzia5BSd3NcmfcHJ3
k9yUk3sATZYb8zY/Na1byL1MckNOTmJ+jOZt9jGtW8h9mfV23mY/07pOSvAA
s359bmky63093maKad1CdjDrQ3ibA03rFvIgk2zjZJH5MYi3OcS0biGnM+tr
8zaHmtYt5GEmOYCTRzA/1qjOjxmM7M+tzzT9sJCzmPW+vM1s1qYPbzPH9MhC
HsWst/I2v2BtVuNtjjY9ishG+V/OK5cCr1jwwp9C0QtKUpVWgmIk+4GXhXzB
K1bqclFd4Be9uKpS6RWDkpcHHh3DjqJH6JvXHMklz49ckp9l15XPYtJS62Ho
Rd4rxXjlFQhXC75XEhEQQpOUCkVfYaXAl04Xg+TAdceOZc42R85mQkm4Ugyi
Txmv5Fe68UvyU2/N21iL4xK3E5+yoKvjzNEzO407yQBjvXWtEgJrp3ISeDw7
0lzqTlvibgItE8SQiSAX/CYViIKMNzvoXzFPsqk96RkNd7lcSZqKL35QUknk
R1nRqIIiGP1H5HUJpe4J5nCY/sij1vzRc6An8DFOyXLJF/0lhyr9kYnu9QBO
nMTC0xC5k02+P0Ut+UXgQ6uGR1qEYo/ElyLQvkcuj05mHmknmooJv1BQKeFX
zLfGdUH1iaOcDKo2ODLwspvkMFD+nAK0rzx6hjwVaCs5PlflgAU6HWhfcPwM
oH3O8TOB9hnHz1Ie65Bkzgb4x9zSOUD7iOPnAu1DjvtA+4Dj84D2PsfPU1Gw
QBcA7V2OXwi0dzg+H2hvc/wioL3F8YuB9ibHFwBtRXV+XKKCtoJbugxor3H8
cqC9yvGFQHuF44uA9jLHFwPtJY5fAbQXOb4EaC9wfCnQnuf4MqA9x/Er1Vha
oKuAVqrOiqsB9Cy3eQ3QnuH4tUB7muPXAe0pjl8PtCc5fgPQnuD4jUB7nOMj
I03/LScnY5Vfs/EMKX6h6bXcTiNTbzxlD+fTsS9i6lEIJ8jWafxqwPfVYxtB
MnnKRL4XjOlMGfpg828QtZ3VbMuY5eoIFzdb63K9IeW2M4btxjpD35NnT3uk
hWuaQJoKzbd44TzTXAqxdU+4W2JfG6nJKl+VKR/FPM+P6jMpbKPs6m+xZfMh
jZ8/pLa7Hktuu+vxRbbzneyvB0+rUZFWEtPyyBW0fhkZO6Bp8hV+RsugEUBr
BqZRRvSzjFrtsipv9OFwazAwnU0ZBdS2uf7IIDP5lNFq5mO5gTrbiDQKTfcA
JthYRl2jOI9QppMTGfKuFbi1OjhaFJXG+t1CgcyljEI9Y1mnC/mU0bKM5WgV
ppI0Lb7GsQl9SyUeS11zeIzO3Gi3phdwq++qHct8yijYxrKOyCAzTSmjpY+l
jNkY5XuSh45dqOH2ah5oPMBwQLDpeFz1se6zase6qf54tVEPuxxDm4d1xDXl
hC5OomTj2pyE6Hty5jIi1PTN3uqj0r1FS4FGYE9esJGrR1sS1PaGfxEXcNhR
iDOdDMpQm5udCJQ1QR3Bs1zTaY8NCRNeYjqcrOk5b5q0jnmy9euhvd9hWkjj
/vQLJLFWHdI1gf9hOufUPEnsI8chylJ/mgx/wpfd53Wc/dQfw7ZUvtcfX7ev
9cfekkKj9O7UuSbcY0+7jz4sJWfbzx+uDi055YWe5sC3NFke6/b7geMLUywr
wx4ukWWYchZXspa6wXZzXYniQGw62w3BJV5XXwrtTMwtc85bgHY/x28F2n0c
vw1o93L8dqDdw/E7gHY3x5cD7S6O3wm0v3H8L0D7a4jLZb24bufNE0UDN9Kc
Umv6lrj/FV8y0fdQ16IhUnsA/8/x+WZ84TdidlIbBrSWLtjbCGj9uOt3AW05
x+8G2h0cvwdot3P8XqDdxvH7gHYrx+8H2i0c/zvQ/szxB4D2J44/CLRAw2XN
QwD6I7f5MND+wPFHgPZ7jv8DaL/j+D+BZrkj/lGg3czxx4B2E8cfB9qNHH8C
aDdw/EmgXc/xp4B2HcefBtq11ZnyDICu4TafBdrVHC8B7SqO/wtov+H4v4F2
JcefA9oyjj8PtKUcfwFoSzj+ItCu4PhLQFvM8ZeBtojjrwBtYXWmyJsY5Lx+
Ibf0OtAu5fgbQLuE4yuAtoDjbwLtYo6/BbSLOP420OZz/B2gXcjxd4F2Acff
A9r5HP8P0M6rHvD3ATSP2/wAaD7HPwTauRz/SGWfBfoEaL/m+KdAO4vjnwHt
TI5/DrQzOP4F0E4PcU+7C9eLb6HA191r7xnG1/PjHYS0dzV/CbTTQu/iNTq6
JFV7k3W669v13sf8X6DN5e7FF2BrL6yam6Jp72NeCbRT3d27tuTtdzSvVN+I
buzKdfOyLBtAxUmd8QFcQw43cpLto4K6eRiNezmMQW3FiekG33SnqXYz33Fr
sCwzoOKE6Jubj9K3Zqc0vm6cbvM4hRf8VvPIbs3mWi8V1tr9uK7coCzLnMrO
yAl0zpMlWkYf52iDltmW50tliSJ3jKMN2g75paNNizpyF4nuHThKayNrpIyu
TB/psN4bVMxxtOkDKixP48qyrzpeF4l2v2c62vQHFTMcbdYAFZYnhWX5A1Bx
uKMNumB0mKPNAFDxc0ebtVSEXeQ6oGIazKiBgDzEYX0QqCg62gxWvrvINlAx
1dFmXVBxoKPNEOWRi0Q7bFMcbdYDFZMdbYYrj1wkqtjf0WYkqNjP0aZdeaST
SfZsABru47A5Wtl0kT9S5N4OciNF7ukgfwwqJjrabKKsu8jNFGl5Ql6WyWPy
lifkZVlQ5E4OcitQMd7RZqyy7iK3VuSOMBe2VfXbOyxtr8htHeSOitzaQY5X
pOX5e1kmD+Fbnr+X5c7qADd3kLspm5s5yInKZpiJ5t2W0U8mKl0ru2zKtmhm
Kss9lTfRU/jxVMS1iEM3h6H1oiwnqeiM4b30rsfiz5Tfo7rJojx7yvXUiE5Y
TP6+yGT1cWg3eSZ/9zUJeWA3WZSPwMvrfmvqOYjv5Gi11KEpuyzlzKxVyNF9
YOEFKbL0qJGp3e/SX7Sx1Mv3q+ivA3kNXwM/7XZb\
\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \
{127.62000000000003, 0.}} -> {-19.394, 0.892147, 0.709611, \
0.0012616}},ExpressionUUID->"f8427134-7951-8548-ae28-485a485148a2"],

Cell[BoxData[
 TagBox[
  RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
  False,
  Editable->False]], "Output",ExpressionUUID->"5446bdee-36aa-604e-a81f-\
f7b281aa780e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", 
           RowBox[{"(", 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"n", "=", "0"}], "100"], 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"2", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                    FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                 "2"], ")"}], 
               RowBox[{"2", "*", "n"}]], "*", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox["1", 
                 RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
            ")"}]}], 
          RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             SuperscriptBox[
              RowBox[{"(", "x", ")"}], "2"], "1"]}], 
           RowBox[{"(", 
            RowBox[{
             FractionBox["1", "Cw"], "+", 
             FractionBox[
              RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"y", "*", "y"}], "1"]}], 
           RowBox[{"(", 
            RowBox[{
             FractionBox["1", "Cw"], "+", 
             FractionBox[
              RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], 
       RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.991847500514847*^9, {3.991847890840927*^9, 
   3.991847891020767*^9}},ExpressionUUID->"b7386bff-07bb-694b-b11c-\
7d3ff3a35bae"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"1b40a6b1-b8e0-af43-829a-2ca3d7ae070e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"2360947f-22ea-fb4f-90b8-fd6f79665669"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"281ea8ed-b5ba-8045-83d3-97b36671a021"],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \
suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \
"Message",ExpressionUUID->"a4dfac90-0844-364a-8cdf-0596249bd283"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.031746 0.0147151 6.72103 [
[.18254 .00222 -3 -9 ]
[.18254 .00222 3 0 ]
[.34127 .00222 -6 -9 ]
[.34127 .00222 6 0 ]
[.5 .00222 -6 -9 ]
[.5 .00222 6 0 ]
[.65873 .00222 -6 -9 ]
[.65873 .00222 6 0 ]
[.81746 .00222 -6 -9 ]
[.81746 .00222 6 0 ]
[.97619 .00222 -6 -9 ]
[.97619 .00222 6 0 ]
[.01131 .14914 -24 -4.5 ]
[.01131 .14914 0 4.5 ]
[.01131 .28356 -24 -4.5 ]
[.01131 .28356 0 4.5 ]
[.01131 .41798 -24 -4.5 ]
[.01131 .41798 0 4.5 ]
[.01131 .5524 -24 -4.5 ]
[.01131 .5524 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.18254 .01472 m
.18254 .02097 L
s
[(5)] .18254 .00222 0 1 Mshowa
.34127 .01472 m
.34127 .02097 L
s
[(10)] .34127 .00222 0 1 Mshowa
.5 .01472 m
.5 .02097 L
s
[(15)] .5 .00222 0 1 Mshowa
.65873 .01472 m
.65873 .02097 L
s
[(20)] .65873 .00222 0 1 Mshowa
.81746 .01472 m
.81746 .02097 L
s
[(25)] .81746 .00222 0 1 Mshowa
.97619 .01472 m
.97619 .02097 L
s
[(30)] .97619 .00222 0 1 Mshowa
.125 Mabswid
.05556 .01472 m
.05556 .01847 L
s
.0873 .01472 m
.0873 .01847 L
s
.11905 .01472 m
.11905 .01847 L
s
.15079 .01472 m
.15079 .01847 L
s
.21429 .01472 m
.21429 .01847 L
s
.24603 .01472 m
.24603 .01847 L
s
.27778 .01472 m
.27778 .01847 L
s
.30952 .01472 m
.30952 .01847 L
s
.37302 .01472 m
.37302 .01847 L
s
.40476 .01472 m
.40476 .01847 L
s
.43651 .01472 m
.43651 .01847 L
s
.46825 .01472 m
.46825 .01847 L
s
.53175 .01472 m
.53175 .01847 L
s
.56349 .01472 m
.56349 .01847 L
s
.59524 .01472 m
.59524 .01847 L
s
.62698 .01472 m
.62698 .01847 L
s
.69048 .01472 m
.69048 .01847 L
s
.72222 .01472 m
.72222 .01847 L
s
.75397 .01472 m
.75397 .01847 L
s
.78571 .01472 m
.78571 .01847 L
s
.84921 .01472 m
.84921 .01847 L
s
.88095 .01472 m
.88095 .01847 L
s
.9127 .01472 m
.9127 .01847 L
s
.94444 .01472 m
.94444 .01847 L
s
.25 Mabswid
0 .01472 m
1 .01472 L
s
.02381 .14914 m
.03006 .14914 L
s
[(0.02)] .01131 .14914 1 0 Mshowa
.02381 .28356 m
.03006 .28356 L
s
[(0.04)] .01131 .28356 1 0 Mshowa
.02381 .41798 m
.03006 .41798 L
s
[(0.06)] .01131 .41798 1 0 Mshowa
.02381 .5524 m
.03006 .5524 L
s
[(0.08)] .01131 .5524 1 0 Mshowa
.125 Mabswid
.02381 .04832 m
.02756 .04832 L
s
.02381 .08193 m
.02756 .08193 L
s
.02381 .11553 m
.02756 .11553 L
s
.02381 .18274 m
.02756 .18274 L
s
.02381 .21635 m
.02756 .21635 L
s
.02381 .24995 m
.02756 .24995 L
s
.02381 .31716 m
.02756 .31716 L
s
.02381 .35077 m
.02756 .35077 L
s
.02381 .38437 m
.02756 .38437 L
s
.02381 .45158 m
.02756 .45158 L
s
.02381 .48519 m
.02756 .48519 L
s
.02381 .51879 m
.02756 .51879 L
s
.02381 .586 m
.02756 .586 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .01472 m
.06244 .18263 L
.10458 .34796 L
.12507 .41668 L
.14415 .47199 L
.16371 .51906 L
.18221 .55405 L
.192 .56876 L
.20263 .58172 L
.21228 .59082 L
.2212 .59698 L
.22586 .59936 L
.22843 .60043 L
.23087 .60129 L
.23313 .60195 L
.2356 .60252 L
.23669 .60272 L
.23784 .6029 L
.23886 .60304 L
.23993 .60315 L
.24059 .6032 L
.24132 .60325 L
.2426 .60331 L
.24332 .60332 L
.2441 .60332 L
.24483 .6033 L
.2455 .60328 L
.24679 .6032 L
.24752 .60314 L
.24819 .60307 L
.25074 .60272 L
.253 .60228 L
.2555 .60165 L
.26055 .59995 L
.26547 .59774 L
.27064 .59486 L
.2799 .58832 L
.30075 .56765 L
.3205 .54159 L
.33886 .51282 L
.37791 .44198 L
.41941 .36071 L
.45939 .28487 L
.49785 .21945 L
.53877 .16105 L
.57818 .1166 L
.61606 .08416 L
.63714 .07001 L
.6564 .05921 L
.69523 .04269 L
Mistroke
.71425 .03672 L
.73499 .0315 L
.7547 .02757 L
.77569 .0243 L
.79714 .02174 L
.81732 .01991 L
.83744 .01853 L
.85592 .01756 L
.87479 .01681 L
.89546 .0162 L
.91501 .01578 L
.93594 .01545 L
.95662 .01522 L
.97619 .01507 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 
  1}},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnAmwHEUZxyd7vDMBA4kQjuQJihGPnEBcVLwALywtlfIoj2eSNU+NQABL
SgoRBUQEFgEVSi4PTjkCsoqiCMghhxyKKAMiIIKIIOKBiKwz3TO9PW9/3870
7swCVbzK67z9dX//75uenp6Zb3p2t8l91qxeO7nP1MrJiV3XTe65Zmrl3hO7
7LEuQOUZnjfj/OB3bMIL/255Xly0gn+t9WERkvS/V6v/ql6zUfdqXvxT8+pN
39tO1ZW9VrNuasqqHPVqDV/Vml+/6dVjgVrda/otb4mDPflfFNu3Au2ophLZ
15utVP+LHezJ/xKpb4LYK1Ed+dV13ir137DXDOpr9Ybn+9qV32wouTCEHaIQ
G7Wa14jqy5Fdq+UHXEu2NzH4HPy9rItdN39xl+o2Tc8PPpUUG/fCvZTsFtn/
Yged9HiGlU2sY+/OcJiUMvSH3nZvyh5xgVz4aXuxq5LtShHzGzUzOpeC7QjY
xt3qB6wWhVjN6GMx2I6Brd7lQwmmfvXnMkiXeuuVTomkbdZeMcef2lG6bSWj
jyVgO9olFrsd9TL5mNY94TiNx21R3WP7MJuoxrXmrj5sW/Khd0HFmoKDmJqt
rG5K9kw2lJhIrclwRc6dVe7ubrk9rTvu8mWibbq7cIR5PY2wVbZXT89YO6ZM
S9Nl06alMviIt9YeEfHWdsz22iftt0WizDCcNNruV7i76tJhWq1q5slG0zcd
UDHtAxaeaqyOa9a1fXtL0jSmd2Bw6vHDU1a7s/UpLDkWsvnOqgUx6HOkOf31
EgN2r/4pmcuzdvPl8ewRyOqLIOWuGvViaB72XnztE0aylE0qGT0mdpA5DOvW
Durmlu3Kzr4b7Us6Tw/5br6jyz3pCnth5D78MUdAWB7y7KhfEP6nbi6ODosZ
stVYH2z0OduB2BYSy8KQjEPtyHOD5dls249eeD3Vmh2SmTkr24NKzeOvgUav
AvbqjO3UhflISCoZLTpCaunDIihGw4+7Y/1WYTEUfvww1s8PC5WwWM3HkWk5
z7ScSmk517Rcm9Jytmm5V0rLWablvnbLSqKL4sZqLyuR/dIbD5sO2T+9cdU0
PsBqXDH1ZVN/oC1WTYjFG/aUCfOg9MZPGuWD0xs/YRofmt74cdP4MN4J4W8J
2GPG8HA3w0eN4RFuho8Yw6PcDB8G5ijxkPH9VdmwDOxBYI4SDxjfx7kZ3g/M
llA1ZHif8fgN2SNNXfcCc5S4B9jxbhJ3AzvBTeIu0wMnyoZVYHcCc5S4A9hJ
bhI+sJPdJG4HdoosMQTst8BOdZO4Ddi33CRuNbvyu26GvwbWRWIY2C3ATrMk
VA0Z3gzsdDffNwE7w03iRmBnyhIjwG4AdpabxPXAzh64xHXAvucmcS2wc2QJ
uly9Bti5WkKftviBUXyAx0naWqPpVbu0T6aJ9I++JionEm108qCwrwZ2ng47
6qkuz14qEHzFjFn5kU07PzX9EVI5kTGk+Z824ipg50cboTsizsxS4pGeuHTL
8tpPa2gwUYRXAlufiDD2RM+nxrpEY7czttYTEZo96NbqCmAX5B5hIlsbPbxQ
M7waw9RzlwO7MPe4zBM76+EAnXup59IjjJP6aaMvGeFQol34G2XhY5m0Q4WC
vQzY96NgK+3jXSeSKY9s4u3IN48n2uljXs53U+9SHulSYBfpgM28CpnZWV3q
4owuZYzpcoPC+ikwPZTwjEESPwH2AzeJS4D9UJagdMyP+5f4EbCL3SQuFmWL
kpgl9j71T2aJJrBLLAlVQ4YXiSMks29HiQ2AXSgO9cwSFwC7dOAS64H9TJbY
ENh5wC4buMS5wC53kzgH2BWyxPOAnQ3s5wOXOAvYlW4SZwK7ypJQNbOh0Rkp
htOqSOJ0YFe7SZwG7JpCJTYC9h1gvxi4xLeBXVuoxMbATgV2nZvEKcCuH7jE
ycBukCXmADspRULVkOGJwH7p5vubwG4sVGIusBOA3TRwieOB3VyoxPOBfR3Y
LW4SXwP2q9wk8szLtOsa1oJhfX9GtzqbADsWmE51FpiLGbLs4pvJPALOL+9S
7SPCY4Ddmoiwt+xBtWMtbthGP8hLT8QNMtIxXjVsLX6K+rWdhqHwjgb2mxzC
o91fVe1iFu92ujPfFFgD2G0dg9I9HSMMA3Vo6dXqeUbaZy4m2U5vaMXkY2q1
9h7PEOdRwPQTpJ5TMLHreHGy1G3zgB0ph0MnBZI4AtjvBi7xFWC3yxKbATu8
f4kvA/MHLnEYsDtkic2BfSlFQtWQ4aHA7nTznYPEIcB+L0tsAezg/iW+COyu
gUt8AdgfZIktgR3Uv8Tngd09cIkDgd0jS8wH9rn+JQ4Adm++EqpmATTaH9gf
Zd8FSXwW2H2FSkwA2w/Yn9wkPgPs/kIlXgDs08AeGLjEvsD+XKjEVsD2BvZg
vhKqhgzXAfuL7HtrYHv1L7EnsIcGLrEHsL/KEi8E9qn+JdYCe9hN4pPAHpEl
XgTsE/1LfBzY37REEamXZt1KvNT03RDlCRxDLS71Er/sqO4r7VRCeO9Zb2aN
fQrYo1Hs/WRhhjvWH+hFR/C+Wk3fytIihG2ArUmNuLdkwjjnOsJ1JrX2S+hq
F9SjMaUSHtSrHwP292JiDO/Kwx60liPU6vL4pR4tKtrhzmit9xNpvc6Lga0G
9ljHCM0nJaMPw5jR+izXCHNNxZTMgaLX76nlb36LVmlRnKuA/UPH2Wsqpv1K
p5+cQuNDZJo7mv1XymFRc2IfBfZPWeIlwCb7l/gIsH8VKrEtsA8B+7ebxAeB
PV6oxEuBfQDYfywJVdOLYQbf7wf2hCzxMmDv61/ivcD+K0u8HNjuwJ4cuMR7
gP1PlngFsHf3L/EuYE8VKrEI2DuBtdwk3iFJdHnJumcdVb0YWr5dsi7JUeSl
swTY2ySd8tOj81ZJpyLrLAX2Zkmn+vTovEnSGZJ1lgHbNSedXSSdYVlnObCd
c9J5o6Qz4qbzBklnVNbZDtjrs+ioarJ+nWQ9JkexPbDX5qSzk6QzLuvsAIxe
6lblzOJ1VgDbUdKZVbzOKzMyVW4g69QyxtiLDvW9KvWi1VyTQrjGP0pd0INm
6nM6llSpF5YW/oKUvvlOfDeeurusiy9Q0FbQvKTK2dFW9JMj6nxHJfqc9R0V
+koFOkNAxL1lNPhb9Grtb9Gzv1lLRaxSRNSzdGZV5UY5xCktjAnfPVNrONRg
kdZN0JRGF26q3DiHcCGtFSUGE2M3CFlKa9FXedD1uyrndIzdPN6vmvbtZGlj
lyKmWydVzo0iLuYlK7uf/XaCjvqZzr5052pH3e+bVnZqs9ubVnSFQakJVerV
nnj2IR3K1ahyE1mHrpwoLafKTWUdun6jpLMq58k6dD1JD7JUuZmbDj0cVOXm
sg5dJ09IOlvIOnTdTksIVLmlrEP3EbS+RJXzLR1Vre5m1PcR0PocVS6QfdO9
Ga2kVOWErPMWYHNMZOrz1rI13bHSmw9pOnQHvWEyim1k691Mn85M2iyUbVQm
Y6Zpua3cUpXPkK/IS6tXf6d8Ebc34/9GSkZ2\
\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \
{127.62000000000003, 0.}} -> {-3.23234, -0.00806918, 0.118269, \
0.000558628}},ExpressionUUID->"42a070d0-1a40-f841-bc5a-496bce3f6168"],

Cell[BoxData[
 TagBox[
  RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
  False,
  Editable->False]], "Output",ExpressionUUID->"c9fc5a7b-2d38-ba43-857f-\
9aa96e6b3d16"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"xx", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"{", "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, {
   3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, 
   3.9917953263701286`*^9},ExpressionUUID->"08cc1ff9-b63b-d741-9dab-\
b5604b3208c2"],

Cell[BoxData[
 GraphicsBox[{{}, 
   InterpretationBox[{
     TagBox[
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData["
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
         "]]},
       Annotation[#, "Charting`Private`Tag#1"]& ],
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{
           Annotation[{
             Directive[
              PointSize[0.011000000000000001`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]], 
             Point[CompressedData["
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
              "]]}, "Charting`Private`Tag#1"]}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{0, 52.}, {0, 0.120683}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
            "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
            GoldenRatio^(-1), "DefaultStyle" -> {
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Identity[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            ListPlot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}},
            "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
           "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
           GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              PointSize[0.011000000000000001`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           ListPlot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{94.07049642219837, 
        205.01757834806736`}, {-15.23616859338814, 2.101331406611859}}],
      Selectable->False]},
    Annotation[{{
       Annotation[{
         Directive[
          PointSize[0.011000000000000001`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
          "]]}, "Charting`Private`Tag#1"]}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, 
        "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {
            Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        ListPlot, "GroupHighlight" -> False|>|>, 
     "DynamicHighlight"]], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
    "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", 
    "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 52.}, {0, 0.120683}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.9917148467316074`*^9},
 CellLabel->
  "Out[529]=",ExpressionUUID->"d769d980-5c09-fe4c-baf0-fe9ddf32668b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"x", ",", "xx"}], "]"}]], "Input",
 CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, {
  3.991795329890896*^9, 
  3.99179533223897*^9}},ExpressionUUID->"c833855b-86a8-7349-9ccf-\
32b52052d827"],

Cell[BoxData[
 TemplateBox[{
  "Show", "gcomb", 
   "\"Could not combine the graphics objects in \
\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \
GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \
Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \
List[List[], List[]]], List[Rule[DisplayFunction, Identity], \
Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \
Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \
Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \
Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \
Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \
List[List[None, None], List[None, None]]], Rule[FrameTicks, \
List[List[Automatic, Automatic], List[Automatic, Automatic]]], \
Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \
Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \
List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \
Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \
Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \
Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \
AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \
List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \
Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \
\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \
Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\
\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \
Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \
List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \
52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \
Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \
List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \
Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, 
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}},
 CellLabel->
  "During evaluation of \
In[532]:=",ExpressionUUID->"876d039d-4206-f648-bcad-3d1cc1c9375e"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"x130", ",", 
   GraphicsBox[{{}, 
     InterpretationBox[{
       TagBox[
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          PointBox[CompressedData["
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
           "]]},
         Annotation[#, "Charting`Private`Tag#1"]& ],
        {"WolframDynamicHighlight", <|
         "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
       StyleBox[
        DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
          Slot["HighlightElements"], 
          Slot["LayoutOptions"], 
          Slot["Meta"], 
          Charting`HighlightActionFunction["DynamicHighlight", {{
             Annotation[{
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.368417, 0.506779, 0.709798], 
                AbsoluteThickness[2]], 
               Point[CompressedData["
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
                "]]}, "Charting`Private`Tag#1"]}}, <|
           "HighlightElements" -> <|
             "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
            "LayoutOptions" -> <|
             "PanelPlotLayout" -> <||>, 
              "PlotRange" -> {{0, 52.}, {0, 0.120683}}, 
              "Frame" -> {{False, False}, {False, False}}, 
              "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
              "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
              GoldenRatio^(-1), "DefaultStyle" -> {
                Directive[
                 PointSize[0.011000000000000001`], 
                 RGBColor[0.368417, 0.506779, 0.709798], 
                 AbsoluteThickness[2]]}, 
              "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                  Identity[
                   Part[#, 1]], 
                  Identity[
                   Part[#, 2]]}& ), 
                "ScalingFunctions" -> {{Identity, Identity}, {
                  Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
              False|>, 
            "Meta" -> <|
             "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
              "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{0, 52.}, {0, 0.120683}}, 
             "Frame" -> {{False, False}, {False, False}}, 
             "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
             "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
             GoldenRatio^(-1), "DefaultStyle" -> {
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.368417, 0.506779, 0.709798], 
                AbsoluteThickness[2]]}, 
             "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), 
               "ScalingFunctions" -> {{Identity, Identity}, {
                 Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
             False|>, 
           "Meta" -> <|
            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
             "Function" -> ListPlot, "GroupHighlight" -> False|>|>],
         ImageSizeCache->{{29.72195338368416, 
          78.6184367454052}, {-18.964692186399834`, 2.2071828136001663`}}],
        Selectable->False]},
      Annotation[{{
         Annotation[{
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.368417, 0.506779, 0.709798], 
            AbsoluteThickness[2]], 
           Point[CompressedData["
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
            "]]}, "Charting`Private`Tag#1"]}}, <|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, 
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
          "DefaultStyle" -> {
            Directive[
             PointSize[0.011000000000000001`], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[2]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              Identity[
               Part[#, 1]], 
              Identity[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          ListPlot, "GroupHighlight" -> False|>|>, 
       "DynamicHighlight"]], {{}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    Method->{
     "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
      "DefaultGraphicsInteraction" -> {
       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
        "Effects" -> {
         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
          "Droplines" -> {
           "freeformCursorMode" -> True, 
            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
      "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
        Directive[
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
      "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05],
       "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint",
       "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& )}},
    PlotRange->{{0, 52.}, {0, 0.120683}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}]}], "]"}]], "Output",
 CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}},
 CellLabel->
  "Out[532]=",ExpressionUUID->"d3e123dc-41cb-7141-a991-a4f7fbe6f12f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"L", "=", 
  FractionBox[
   SqrtBox[
    RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input",
 CellChangeTimes->{
  3.9918480149621506`*^9},ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-\
f10741068cd1"],

Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38637efc-803d-8640-9e6e-276437831f52"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"L", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
       RowBox[{
        FractionBox[
         RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", 
          RowBox[{"(", 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"n", "=", "0"}], "100"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"2", 
                 RowBox[{"(", 
                  FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], 
               ")"}], 
              RowBox[{"2", "*", "n"}]], "*", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["1", 
                RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
           ")"}]}], 
         RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", "x", ")"}], "2"], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"y", "*", "y"}], "1"]}], 
          RowBox[{"(", 
           FractionBox["1", "Cb"], ")"}]}]], 
        RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.9918480132941303`*^9},ExpressionUUID->"e95bae90-91f9-c74f-b890-\
1d51c0908f7e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"c023352e-b521-e84e-9cb3-97c71ad6a25e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"7309d20d-7fd9-4f4d-a7f3-0872cdf1105f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"43ff04d1-726c-9a4f-a3ef-930184afcb3e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \
suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \
"Message",ExpressionUUID->"3fd3a11a-bede-e144-8b42-539dbe9249ba"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.031746 0.0147151 12.2218 [
[.18254 .00222 -3 -9 ]
[.18254 .00222 3 0 ]
[.34127 .00222 -6 -9 ]
[.34127 .00222 6 0 ]
[.5 .00222 -6 -9 ]
[.5 .00222 6 0 ]
[.65873 .00222 -6 -9 ]
[.65873 .00222 6 0 ]
[.81746 .00222 -6 -9 ]
[.81746 .00222 6 0 ]
[.97619 .00222 -6 -9 ]
[.97619 .00222 6 0 ]
[.01131 .13693 -24 -4.5 ]
[.01131 .13693 0 4.5 ]
[.01131 .25915 -24 -4.5 ]
[.01131 .25915 0 4.5 ]
[.01131 .38137 -24 -4.5 ]
[.01131 .38137 0 4.5 ]
[.01131 .50359 -24 -4.5 ]
[.01131 .50359 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.18254 .01472 m
.18254 .02097 L
s
[(5)] .18254 .00222 0 1 Mshowa
.34127 .01472 m
.34127 .02097 L
s
[(10)] .34127 .00222 0 1 Mshowa
.5 .01472 m
.5 .02097 L
s
[(15)] .5 .00222 0 1 Mshowa
.65873 .01472 m
.65873 .02097 L
s
[(20)] .65873 .00222 0 1 Mshowa
.81746 .01472 m
.81746 .02097 L
s
[(25)] .81746 .00222 0 1 Mshowa
.97619 .01472 m
.97619 .02097 L
s
[(30)] .97619 .00222 0 1 Mshowa
.125 Mabswid
.05556 .01472 m
.05556 .01847 L
s
.0873 .01472 m
.0873 .01847 L
s
.11905 .01472 m
.11905 .01847 L
s
.15079 .01472 m
.15079 .01847 L
s
.21429 .01472 m
.21429 .01847 L
s
.24603 .01472 m
.24603 .01847 L
s
.27778 .01472 m
.27778 .01847 L
s
.30952 .01472 m
.30952 .01847 L
s
.37302 .01472 m
.37302 .01847 L
s
.40476 .01472 m
.40476 .01847 L
s
.43651 .01472 m
.43651 .01847 L
s
.46825 .01472 m
.46825 .01847 L
s
.53175 .01472 m
.53175 .01847 L
s
.56349 .01472 m
.56349 .01847 L
s
.59524 .01472 m
.59524 .01847 L
s
.62698 .01472 m
.62698 .01847 L
s
.69048 .01472 m
.69048 .01847 L
s
.72222 .01472 m
.72222 .01847 L
s
.75397 .01472 m
.75397 .01847 L
s
.78571 .01472 m
.78571 .01847 L
s
.84921 .01472 m
.84921 .01847 L
s
.88095 .01472 m
.88095 .01847 L
s
.9127 .01472 m
.9127 .01847 L
s
.94444 .01472 m
.94444 .01847 L
s
.25 Mabswid
0 .01472 m
1 .01472 L
s
.02381 .13693 m
.03006 .13693 L
s
[(0.01)] .01131 .13693 1 0 Mshowa
.02381 .25915 m
.03006 .25915 L
s
[(0.02)] .01131 .25915 1 0 Mshowa
.02381 .38137 m
.03006 .38137 L
s
[(0.03)] .01131 .38137 1 0 Mshowa
.02381 .50359 m
.03006 .50359 L
s
[(0.04)] .01131 .50359 1 0 Mshowa
.125 Mabswid
.02381 .03916 m
.02756 .03916 L
s
.02381 .0636 m
.02756 .0636 L
s
.02381 .08805 m
.02756 .08805 L
s
.02381 .11249 m
.02756 .11249 L
s
.02381 .16138 m
.02756 .16138 L
s
.02381 .18582 m
.02756 .18582 L
s
.02381 .21026 m
.02756 .21026 L
s
.02381 .23471 m
.02756 .23471 L
s
.02381 .2836 m
.02756 .2836 L
s
.02381 .30804 m
.02756 .30804 L
s
.02381 .33248 m
.02756 .33248 L
s
.02381 .35693 m
.02756 .35693 L
s
.02381 .40581 m
.02756 .40581 L
s
.02381 .43026 m
.02756 .43026 L
s
.02381 .4547 m
.02756 .4547 L
s
.02381 .47914 m
.02756 .47914 L
s
.02381 .52803 m
.02756 .52803 L
s
.02381 .55248 m
.02756 .55248 L
s
.02381 .57692 m
.02756 .57692 L
s
.02381 .60136 m
.02756 .60136 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .01472 m
.06244 .10806 L
.10458 .20681 L
.14415 .29388 L
.18221 .37017 L
.22272 .44131 L
.26171 .49847 L
.30316 .54591 L
.32392 .56431 L
.34309 .5781 L
.36173 .58858 L
.37125 .59283 L
.3815 .59658 L
.3917 .59947 L
.40103 .60141 L
.40552 .6021 L
.40789 .6024 L
.41042 .60267 L
.41284 .60289 L
.41504 .60305 L
.41725 .60317 L
.41834 .60322 L
.41933 .60325 L
.4205 .60328 L
.42174 .60331 L
.4229 .60332 L
.42399 .60332 L
.42526 .60331 L
.42644 .60329 L
.42773 .60326 L
.4291 .60321 L
.43163 .60308 L
.434 .60293 L
.43941 .60241 L
.44405 .60181 L
.4483 .60112 L
.45788 .59913 L
.46769 .59645 L
.47681 .59341 L
.49751 .58461 L
.53655 .56157 L
.57805 .52937 L
.61803 .49268 L
.6565 .45377 L
.69742 .4102 L
.73682 .36757 L
.77471 .32713 L
.81505 .2857 L
.85387 .24819 L
.89515 .21147 L
Mistroke
.93491 .17954 L
.97316 .15219 L
.97619 .15016 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 
  1}},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnAuQFNUVhnt3ZhZ20WDUGNQo6xPxxe6CgIMgKgI+ACMqoiiswAgK8hTf
ARR8oXE0iXloLBNjtBJTPmt85E3FMiYpUyZRKzUpraTyKC0tLS1TsUxlMn1v
9+3ume/cme7phbXKqd3e3v+c85/Tt2/fvvf06ZnVv37Z0pX965cv7u+esbZ/
9bLli9d1T1+1tgpl2hyn7bHqb1e34+5XHMffVKo/lcfdjYs03l+q/uScUrHg
5B3/k3cKpbJzjJJlnEqpYCQZte108sWykprfcskp+AT5glMqV5zeGPbkf4xv
X6lye5KsZ18oVRr674lhT/57pbapxp71ZORXy5wl6s8Qp1SV5wtFp1zWrsql
oqJzQ5jghVjM552iJ894dpVKuYpryuAQq/9X98da7Gz+/CbVOiWnXP2vXWHD
HPcsRZtF9t8Tg6dxPEOUjc8TPp1uN2lvoj30sTvLwz2uSuf+N15sqqheu4eV
i3nTO/vAdijY+s1armJ5L8Rckz56wLYLbPUp74hg6lf/nwHq9mStUk8RtW22
Vcz1p06U1s026aMXbDstsYT1qJXJR03zuP3U77cD1TxhH+YQVb/WeFwfYVvy
oU9BNjQEV2MqVZp10x4eyToiA2loMJyYcmNl7O7GhYf1mKd8rGjb2J3bw5xE
PWxJ2KujR6xJDYalWtpGw1IGfPhHG+4R/tHWjfbaJ523MSLNELhpBO4nxndl
aTDNljPjZLFUNg2QNfpVzL3VhBquVND2wZE04qhtwOqtp+zesoLG1rewaF9o
znezXBCDvkea21+SGLB59afdTM8C9XH+6FGl1ZMg5S7ntaJr7raeP/dxI+lj
k2yTHiMnyFyGhdAJsrllu0xs38VgSufoLm/z7U33pBn2YZ5792OuAHd74ydD
PtL9oxYXd7qbNtmqqwWs81PbHWI7mGJp1nZoqMupC3fYIA/4U9vBFUvijjYF
lI4DbHLKeuFAQiL1190Thm6WZyPUvsrW9FVyEZVIQFtCejreTKBQ8W44N/BR
ub/tgKnt5p1vk5FsNqVrk5VsNqZrk5NsvtSijRInYe+QbK5L12aIZHNtujZD
JZtrdr4NjZVqe3WLNkpMo67aXiWz7ygbmlWo7ZXp2uwi2VyRrs2uks2GFm2U
OAn7ZySby9O1GS7ZrE/XZjfJZl1yG30H4gcL/tjpJ/PyxZKTs+hH0tzex7/7
hh/A0N2oUZze4GJJymchWo3Zc/n+UYazWzSaf1aKcK0XoT4sPx9H6SbKs1PC
LZtuSD41PYboAveUWhRDUhM1MZA1Oy6QGve7D76Q9pBCWl3Xg8IhST3IlrJN
LaRscNnpRB/l+UxUdfnAzoieanDIhdKkZk8pslVOdOCCFNmuFlnWtE8kYxgr
hCUgENZQVp7FIOiUeT4n8SxyN2oFuUsC64UgsPDsJfEsMFEMD1krRdHmfBAM
l31/XuKZD4LdEvDMM8ewRwLrc8QrDHlGSDxzTRR7JbA+UzxpyLO3xDPHRLF3
AuvZojLy7CPxnC4qx+M5DQT71vbTfSXrmaYt9pd9i9YzQJCEZzoIRso8X5B4
poGgOwHPSSA4QObZT+I5AQQHJuCZCoKDZJ79JZ7J5mwfmsCaMmxhnkzQjcB6
EghGyVGMlHiOBcFhCXgmgmC0zNMt8YwHweEJeI4BwREyzwEST585x0cnsO4F
gYXnQIlnDAjGJOA5GgQ9Ms9BEs+RIOit7bui9REg6EsQxeEgGCvzHCzxjDLn
eHwC60NBYOE5ROIhBxMS8FBz6asz1VV8tChAf3Q2PhMpq6BVPDWZ2tKFpEeo
AVzZB0uV2qrBTKRIhLLW4pHQwJT3jiS9DIDBQlV6lF4dJYVJ95dJkTDTWPka
21A5HK2kxDDpVn5c6mFG6nW88rUgeSEGR/OwyakHZwo3QzVi9NRCLJygKe+U
uh4ZP6PQEdFzf72KLJ+m0TU0WoqYli7HexG3mHAYVpdwsBVAUTuLUdOyT884
W0xGcB0RpWvE2GiBrWfV2G/oBqu2lKo4MQEP5ZVOknlo4qC2lFicloCH0ssn
yzw0DVJbejwwPcSjJKI1PcSYIUdxlMRDj4FmJuChx1anyDw0yVRbujOdmoCH
bh2nJeChS+d0mYcm4WpLg9qsBDw0VZot8/RIPG0gmFPb+8j6f+5WTYTPlN3S
mua/gMWk+BiwuTJFH2AfAXZWPIr/AHa2TDEWsH8Ddk48ig8BmydTjAPsA8DO
jUfxPmDzZQpacb8H2Hm1PZEM3wXsfNk3ZQ3eAWxBPIq3AbtAppgA2FuAXRiP
4k3AFsoUlIn5F2CL4lH8E7B+mYLySv9oneLvgF0kU+QB+xtgi2v7JBn+FbAl
sm/K0L0B2NJ4FK8DVpApKMv4F8AujkdRBmyZTEEVhn8GTL/0lGqewp870+uS
NAGg4srXALtEhzrQaQn7S4i0MKEDeBWwS70DSC8b0QF6NDc6HrA/AbYiEmGq
i+iyfRG98yLM+K0WfTUuSENQaH8AbOXANp5lZTwVsJcBu6yuA7ZazuB3wEYZ
B3qQ9HvAvBqCAUg2WN6aoialgF8CzCvHaD3PUP+uEY2VJwL2O8C8Whq6M9Cz
wd8AtjYexYuAWcrf6Ennr1uneAEwS+HeyYA9D1i4xlBJyPBXgFmKIOmZ8XbA
LJWdRPFLwCxFqPQE/OeAWeplieJngFkKh2cC9hPALPXKpwD2HGCWcmyieBYw
S+X4qYA9DVhdOTwZlgDbKPumQoqnANs0oBRUFvIEYJYXKYjiccCulylmAfYo
YJZXTahO5keAbYlH8QhgW2WKOYD9ADDLS5xnAPYwYDfV9kkyfAiwm2XfXwTs
QcBukSmoauoBwG6VKeYC9h3AtsWjuB+w22SKswC7D7DbZYqzAbsXsC/Ho7gH
sDtkCqqm+yZgRZliHmBfB+zO2j5JhncDdpfs+1zAvgrYV2QKqmq8S6RFivPE
BotiX4tHcYfYPkhBZZ63i+cm1TRBICuG0gR6GUEz8gWAbQPsGzrUgUsT0Jqn
2YBvFS+dNNMCuSYjvACwmwH7ViTCZCvbXN0XFrk6+lXRxvUrFwJ2I2D3pBBp
F3+1UugbIrx2DVIEFN4WwO5NITw6/Tml52P+aacF5CLArgfs23WdstVUQbBE
di8tnU2LG+lmwO7zIm0xZRDVM0khr0Yhnw/OeI3/fsDU9F491tPTjMT5gUiC
z5Eb6yLArgXMC4duBfTOw9WAfVemoNcvrgTsAZliKWAbAPtePIrLAXswRKEk
BVBaB9j3Zd8XA7YGsIdkimWArQLsYZliOWArTJf8oWx4SZNYTAqK5xGZ4lLA
Cib8R2XDFU32SQvFyiYvrsdkissAW2jCf7K219G5pRvzk7LH1YDRzO4pmWKN
CXC+2XtaVqfLglYWFor1gNEq6xmZgq7qM0z4P5YNNxil2Wbvp7I6jWGUsLFQ
XGX8zDR7v5DVrzFK08ze9tqecx0YTgVsu+wnuFFNMXvPy+qbADvWGL4gG242
ShPM3ouy+g1Gqc8c7W9l9a1G/Sij/pKsfpNRH232XpbVbzFKh5i9P8rq20wI
3Ub9FVldLdXVJHKE2Xut9kyrteUId68sM6ntIPmysEZytd/gK4mdtv8DOhP8
Ww==\
\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \
{127.62000000000003, 0.}} -> {-3.23234, -0.00443741, 0.118269, \
0.000307202}},ExpressionUUID->"960bbf59-2015-8349-bffe-e4d767d8aeeb"],

Cell[BoxData[
 TagBox[
  RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
  False,
  Editable->False]], "Output",ExpressionUUID->"a75c82b0-dce2-dd4f-b864-\
2a6b5c402da4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     FractionBox[
      RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", 
       RowBox[{"(", 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"n", "=", "0"}], "100"], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"2", 
              RowBox[{"(", 
               FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], 
            ")"}], 
           RowBox[{"2", "*", "n"}]], "*", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox["1", 
             RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], 
      RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"(", "x", ")"}], "2"], "1"]}], 
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "Cw"], "+", 
         FractionBox[
          RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"y", "*", "y"}], "1"]}], 
       RowBox[{"(", 
        FractionBox["1", "Cb"], ")"}]}]], 
     RowBox[{"\[DifferentialD]", "y"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\
UUID->"b292bf25-9f2c-1b44-bd26-31940b3b367d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"bd49935b-c0f9-f44f-af7a-e4ad6a7bc2ad"],

Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43a947d2-2d74-d447-89ff-92c212e98dc4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"q", "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
       RowBox[{
        FractionBox["1", 
         RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], 
        RowBox[{"(", 
         RowBox[{"4", "x", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "J1"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", 
          RowBox[{"(", 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"n", "=", "0"}], "100"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                   FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                "2"], ")"}], 
              RowBox[{"2", "*", "n"}]], "*", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["1", 
                RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
           ")"}]}], ")"}], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", "x", ")"}], "2"], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"y", "*", "y"}], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.9918475382015915`*^9, 
  3.9918475423636837`*^9}},ExpressionUUID->"101ef0da-c6f5-1c49-9804-\
85fb5ed316b5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"131678ec-17c0-f049-b9b0-aed329dc5583"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"a6fc1549-2fa3-f649-b6cc-c7168f9393cf"],

Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"0f29d6b0-abda-0849-9008-4443dea42d94"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"S1", "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
       RowBox[{
        FractionBox["1", 
         RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], 
        RowBox[{"(", 
         RowBox[{"4", "x", "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", 
          "*", 
          RowBox[{"(", 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"n", "=", "0"}], "100"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                   FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                "2"], ")"}], 
              RowBox[{"2", "*", "n"}]], "*", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["1", 
                RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
           ")"}]}], ")"}], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", "x", ")"}], "2"], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"y", "*", "y"}], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.991847547003359*^9, 
  3.9918475498243904`*^9}},ExpressionUUID->"087f1adc-ca17-4a4e-8be3-\
617724431d54"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"ffb3115b-8086-8941-bf0d-81ed4818f26f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"6eb50ae6-c8bd-6941-a71f-82927d1c1d5c"],

Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"e9e8685d-f821-c64d-930c-bdbceafb1970"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"S2", "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
       RowBox[{
        FractionBox["1", 
         RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], 
        RowBox[{"(", 
         RowBox[{"4", "x", "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", 
          "*", 
          RowBox[{"(", 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"n", "=", "0"}], "100"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                   FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                "2"], ")"}], 
              RowBox[{"2", "*", "n"}]], "*", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["1", 
                RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
           ")"}]}], ")"}], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", "x", ")"}], "2"], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"y", "*", "y"}], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.9918475561652145`*^9, 
  3.991847558757557*^9}},ExpressionUUID->"562762dd-8337-c248-84ed-\
48f09efe77cb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"88848fa9-89c0-7441-a937-117af52a31e7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"3e81b6c4-2244-bf42-b8b5-0fa000d4a037"],

Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"75996429-631f-a540-8db3-d3eecf498491"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox["q", 
  SqrtBox[
   RowBox[{"S1", "*", "S2"}]]]], "Input",
 CellChangeTimes->{{3.991847567835865*^9, 
  3.9918475715285187`*^9}},ExpressionUUID->"b22d48b0-99f1-fc43-8d66-\
dfdcb64caaf4"],

Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"8631572e-009c-e547-9adf-d000b75a3b80"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input",
 CellChangeTimes->{{3.991847581296728*^9, 3.991847583342928*^9}, 
   3.9919236579457912`*^9},ExpressionUUID->"324c5332-372a-9346-847e-\
b48a2f85529f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Qb2", "=", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.05", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "34"}]]}], ")"}], "2"], 
      RowBox[{"1.6", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "13"}]]}]], ")"}], 
    RowBox[{"-", "1"}]], "*", 
   FractionBox[
    RowBox[{"Il", "*", "Ih"}], 
    RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"3aa52613-e091-\
4440-b97b-cbff40fea673"],

Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"0bfccaf4-b419-7b47-a5b9-ad617225ded2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hb", "=", 
  SqrtBox[
   FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"00409e7b-892c-b145-\
91f2-fd5d9616a547"],

Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"0910edf9-27aa-f943-bd90-76d5bfb56389"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cb", "=", 
  FractionBox[
   RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"eb9f1869-\
8c47-4c47-ad8f-589aa7e556b3"],

Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"50a3d579-8928-2343-996d-237ad0eb297d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"o1", "=", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["2", "5"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.3", "*", 
              SuperscriptBox["10", 
               RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
           SuperscriptBox["A1", 
            RowBox[{"5", "/", "3"}]], "*", 
           FractionBox[
            RowBox[{"931.5", "*", "1.6", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "13"}]]}], 
            RowBox[{"9", "*", 
             SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              FractionBox["1", "2"], 
              SqrtBox[
               FractionBox["5", 
                RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
             RowBox[{
              FractionBox["25", 
               RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
          RowBox[{
           FractionBox["2", "5"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.3", "*", 
              SuperscriptBox["10", 
               RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"A", "-", "A1"}], ")"}], 
            RowBox[{"5", "/", "3"}]], "*", 
           FractionBox[
            RowBox[{"931.5", "*", "1.6", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "13"}]]}], 
            RowBox[{"9", "*", 
             SuperscriptBox["10", "16"]}]], "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              FractionBox["1", "2"], 
              SqrtBox[
               FractionBox["5", 
                RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
             RowBox[{
              FractionBox["25", 
               RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
           "f2"}]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.05", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "34"}]]}], ")"}], "2"], 
          RowBox[{"1.6", "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "13"}]]}]], ")"}], 
        RowBox[{"-", "2"}]], "*", "Cb"}], "+", 
      RowBox[{"Cw", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          FractionBox["2", "5"], "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.3", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
          SuperscriptBox["A1", 
           RowBox[{"5", "/", "3"}]], "*", 
          FractionBox[
           RowBox[{"931.5", "*", "1.6", "*", 
            SuperscriptBox["10", 
             RowBox[{"-", "13"}]]}], 
           RowBox[{"9", "*", 
            SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             FractionBox["1", "2"], 
             SqrtBox[
              FractionBox["5", 
               RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
            RowBox[{
             FractionBox["25", 
              RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], 
        "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.05", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "34"}]]}], ")"}], "2"], 
          RowBox[{"1.6", "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "13"}]]}]], ")"}], 
        RowBox[{"-", "2"}]]}]}], ")"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox["A1", 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"A", "-", "A1"}], ")"}], 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
       "f2"}]}], ")"}], "2"], "*", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.05", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "34"}]]}], ")"}], "2"], 
      RowBox[{"1.6", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "13"}]]}]], ")"}], 
    RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"a68db5dc-89e4-f247-\
a519-53dcbe6905b1"],

Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6b11f8d3-6b54-614d-a4c0-669be8c0ee7f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
  RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"d3d0889a-\
1b29-9a4d-af3d-093ef0359f4b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"465a75ef-6b20-9848-9eff-c4e675672ad8"],

Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"8931c974-5816-9e48-9ac0-0532e1ef18b1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"o2", "=", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["2", "5"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.3", "*", 
              SuperscriptBox["10", 
               RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
           SuperscriptBox["A1", 
            RowBox[{"5", "/", "3"}]], "*", 
           FractionBox[
            RowBox[{"931.5", "*", "1.6", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "13"}]]}], 
            RowBox[{"9", "*", 
             SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              FractionBox["1", "2"], 
              SqrtBox[
               FractionBox["5", 
                RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
             RowBox[{
              FractionBox["25", 
               RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
          RowBox[{
           FractionBox["2", "5"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.3", "*", 
              SuperscriptBox["10", 
               RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"A", "-", "A1"}], ")"}], 
            RowBox[{"5", "/", "3"}]], "*", 
           FractionBox[
            RowBox[{"931.5", "*", "1.6", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "13"}]]}], 
            RowBox[{"9", "*", 
             SuperscriptBox["10", "16"]}]], "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              FractionBox["1", "2"], 
              SqrtBox[
               FractionBox["5", 
                RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
             RowBox[{
              FractionBox["25", 
               RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
           "f2"}]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.05", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "34"}]]}], ")"}], "2"], 
          RowBox[{"1.6", "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "13"}]]}]], ")"}], 
        RowBox[{"-", "2"}]], "*", "Cb"}], "+", 
      RowBox[{"Cw", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          FractionBox["2", "5"], "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.3", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"A", "-", "A1"}], ")"}], 
           RowBox[{"5", "/", "3"}]], "*", 
          FractionBox[
           RowBox[{"931.5", "*", "1.6", "*", 
            SuperscriptBox["10", 
             RowBox[{"-", "13"}]]}], 
           RowBox[{"9", "*", 
            SuperscriptBox["10", "16"]}]], "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             FractionBox["1", "2"], 
             SqrtBox[
              FractionBox["5", 
               RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
            RowBox[{
             FractionBox["25", 
              RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
          "f2"}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.05", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "34"}]]}], ")"}], "2"], 
          RowBox[{"1.6", "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "13"}]]}]], ")"}], 
        RowBox[{"-", "2"}]]}]}], ")"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox["A1", 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"A", "-", "A1"}], ")"}], 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
       "f2"}]}], ")"}], "2"], "*", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.05", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "34"}]]}], ")"}], "2"], 
      RowBox[{"1.6", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "13"}]]}]], ")"}], 
    RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9fe1a567-82b8-a345-\
b4b0-80b2c100f9f3"],

Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"13c9a29c-6a6d-ff49-88af-96394780a9e2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
  RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"3372ffe6-\
5d5a-b247-8795-4c6a022053d0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"5f5967c2-a14c-de46-b55b-52a0b7afbab3"],

Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd025469-aef5-2448-a097-d2409dcee75d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h1", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox["2", "5"], "*", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1.3", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"A", "-", "A1"}], ")"}], 
      RowBox[{"5", "/", "3"}]], "*", 
     FractionBox[
      RowBox[{"931.5", "*", "1.6", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "13"}]]}], 
      RowBox[{"9", "*", 
       SuperscriptBox["10", "16"]}]], "*", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        FractionBox["1", "2"], 
        SqrtBox[
         FractionBox["5", 
          RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
       RowBox[{
        FractionBox["25", 
         RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], 
    ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["2", "5"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.3", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
      SuperscriptBox["A1", 
       RowBox[{"5", "/", "3"}]], "*", 
      FractionBox[
       RowBox[{"931.5", "*", "1.6", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "13"}]]}], 
       RowBox[{"9", "*", 
        SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["1", "2"], 
         SqrtBox[
          FractionBox["5", 
           RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
        RowBox[{
         FractionBox["25", 
          RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["2", "5"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.3", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"A", "-", "A1"}], ")"}], 
       RowBox[{"5", "/", "3"}]], "*", 
      FractionBox[
       RowBox[{"931.5", "*", "1.6", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "13"}]]}], 
       RowBox[{"9", "*", 
        SuperscriptBox["10", "16"]}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["1", "2"], 
         SqrtBox[
          FractionBox["5", 
           RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
        RowBox[{
         FractionBox["25", 
          RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
     ")"}]}]}]], "Input",ExpressionUUID->"367b34da-973d-2d45-8020-\
5f24b7ad9501"],

Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"98cac926-ef59-1342-b091-1b565c5978b3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h2", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox["2", "5"], "*", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1.3", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
     SuperscriptBox["A1", 
      RowBox[{"5", "/", "3"}]], "*", 
     FractionBox[
      RowBox[{"931.5", "*", "1.6", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "13"}]]}], 
      RowBox[{"9", "*", 
       SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        FractionBox["1", "2"], 
        SqrtBox[
         FractionBox["5", 
          RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
       RowBox[{
        FractionBox["25", 
         RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["2", "5"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.3", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
      SuperscriptBox["A1", 
       RowBox[{"5", "/", "3"}]], "*", 
      FractionBox[
       RowBox[{"931.5", "*", "1.6", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "13"}]]}], 
       RowBox[{"9", "*", 
        SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["1", "2"], 
         SqrtBox[
          FractionBox["5", 
           RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
        RowBox[{
         FractionBox["25", 
          RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["2", "5"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.3", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"A", "-", "A1"}], ")"}], 
       RowBox[{"5", "/", "3"}]], "*", 
      FractionBox[
       RowBox[{"931.5", "*", "1.6", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "13"}]]}], 
       RowBox[{"9", "*", 
        SuperscriptBox["10", "16"]}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["1", "2"], 
         SqrtBox[
          FractionBox["5", 
           RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
        RowBox[{
         FractionBox["25", 
          RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
     ")"}]}]}]], "Input",ExpressionUUID->"112859ae-f114-4041-84e8-\
1ba64a91ebc1"],

Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"36a7aeca-f2a3-e949-b0ca-f804c0163692"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h3", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox["A1", 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"A", "-", "A1"}], ")"}], 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], 
      ")"}]}], ")"}], "/", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox["A1", 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
      "\[IndentingNewLine]", 
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"A", "-", "A1"}], ")"}], 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
       "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"695320bc-fa3e-\
3547-be92-70a745b298b2"],

Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"0abac473-9a99-bd43-b50e-e41bacfd95b6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"J1", "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
       RowBox[{
        FractionBox[
         RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", 
          RowBox[{"(", 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"n", "=", "0"}], "100"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                   FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                "2"], ")"}], 
              RowBox[{"2", "*", "n"}]], "*", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["1", 
                RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
           ")"}]}], 
         RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", "x", ")"}], "2"], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"y", "*", "y"}], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{
  3.9918476180917797`*^9},ExpressionUUID->"b1722e07-c26a-4d47-97af-\
4f4eb5664e3b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"7ab7ec2a-fa78-4845-8b94-ac80bbb482ff"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"1e16a028-2ecd-3143-835f-f92cd0016663"],

Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"eadd70e7-26a1-4b46-8240-f3dce9859a07"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"J2", "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
       RowBox[{
        FractionBox[
         RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", 
          RowBox[{"(", 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"n", "=", "0"}], "100"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                   FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                "2"], ")"}], 
              RowBox[{"2", "*", "n"}]], "*", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["1", 
                RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
           ")"}]}], 
         RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", "x", ")"}], "2"], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"y", "*", "y"}], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{
  3.9918476209740715`*^9},ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-\
a3bdb03abf99"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"62adfe6c-817a-8644-a989-225720cd7059"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"cbaa115f-bf0d-1e4f-b5c7-1d35bae46521"],

Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"e9a05a92-f41b-934a-a923-0dffa18fc100"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox["1", "1"], 
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
           RowBox[{
            FractionBox[
             RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], 
             RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 FractionBox["1", "Cw"]}], "+", 
                FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", 
              RowBox[{"Cos", "[", 
               FractionBox[
                RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                SuperscriptBox[
                 RowBox[{"(", "x", ")"}], "2"], "1"]}], 
              RowBox[{"(", 
               RowBox[{
                FractionBox["1", "Cw"], "+", 
                FractionBox[
                 RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{"y", "*", "y"}], "1"]}], 
              RowBox[{"(", 
               RowBox[{
                FractionBox["1", "Cw"], "+", 
                FractionBox[
                 RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
            RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
         RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", 
    RowBox[{"{", 
     RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.9918476243275547`*^9},ExpressionUUID->"39feef99-fcf4-8440-bed1-\
25beef5a0630"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"56c86859-71bc-bf4d-8ea6-a152a4a828d3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"47fbb3e0-458c-4d48-bc65-cfbd454ebd8b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"a25aaf8c-9a35-1543-b0b4-c881fe78844a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \
suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \
"Message",ExpressionUUID->"d9cbee06-5ef4-e14d-b8da-4a8591142866"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.00529101 -0.551091 0.817918 [
[.15608 .25433 -6 -9 ]
[.15608 .25433 6 0 ]
[.28836 .25433 -6 -9 ]
[.28836 .25433 6 0 ]
[.42063 .25433 -6 -9 ]
[.42063 .25433 6 0 ]
[.55291 .25433 -9 -9 ]
[.55291 .25433 9 0 ]
[.68519 .25433 -9 -9 ]
[.68519 .25433 9 0 ]
[.81746 .25433 -9 -9 ]
[.81746 .25433 9 0 ]
[.94974 .25433 -9 -9 ]
[.94974 .25433 9 0 ]
[.01131 .02145 -18 -4.5 ]
[.01131 .02145 0 4.5 ]
[.01131 .10324 -18 -4.5 ]
[.01131 .10324 0 4.5 ]
[.01131 .18504 -18 -4.5 ]
[.01131 .18504 0 4.5 ]
[.01131 .34862 -18 -4.5 ]
[.01131 .34862 0 4.5 ]
[.01131 .43041 -18 -4.5 ]
[.01131 .43041 0 4.5 ]
[.01131 .5122 -18 -4.5 ]
[.01131 .5122 0 4.5 ]
[.01131 .59399 -18 -4.5 ]
[.01131 .59399 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15608 .26683 m
.15608 .27308 L
s
[(25)] .15608 .25433 0 1 Mshowa
.28836 .26683 m
.28836 .27308 L
s
[(50)] .28836 .25433 0 1 Mshowa
.42063 .26683 m
.42063 .27308 L
s
[(75)] .42063 .25433 0 1 Mshowa
.55291 .26683 m
.55291 .27308 L
s
[(100)] .55291 .25433 0 1 Mshowa
.68519 .26683 m
.68519 .27308 L
s
[(125)] .68519 .25433 0 1 Mshowa
.81746 .26683 m
.81746 .27308 L
s
[(150)] .81746 .25433 0 1 Mshowa
.94974 .26683 m
.94974 .27308 L
s
[(175)] .94974 .25433 0 1 Mshowa
.125 Mabswid
.05026 .26683 m
.05026 .27058 L
s
.07672 .26683 m
.07672 .27058 L
s
.10317 .26683 m
.10317 .27058 L
s
.12963 .26683 m
.12963 .27058 L
s
.18254 .26683 m
.18254 .27058 L
s
.20899 .26683 m
.20899 .27058 L
s
.23545 .26683 m
.23545 .27058 L
s
.2619 .26683 m
.2619 .27058 L
s
.31481 .26683 m
.31481 .27058 L
s
.34127 .26683 m
.34127 .27058 L
s
.36772 .26683 m
.36772 .27058 L
s
.39418 .26683 m
.39418 .27058 L
s
.44709 .26683 m
.44709 .27058 L
s
.47354 .26683 m
.47354 .27058 L
s
.5 .26683 m
.5 .27058 L
s
.52646 .26683 m
.52646 .27058 L
s
.57937 .26683 m
.57937 .27058 L
s
.60582 .26683 m
.60582 .27058 L
s
.63228 .26683 m
.63228 .27058 L
s
.65873 .26683 m
.65873 .27058 L
s
.71164 .26683 m
.71164 .27058 L
s
.7381 .26683 m
.7381 .27058 L
s
.76455 .26683 m
.76455 .27058 L
s
.79101 .26683 m
.79101 .27058 L
s
.84392 .26683 m
.84392 .27058 L
s
.87037 .26683 m
.87037 .27058 L
s
.89683 .26683 m
.89683 .27058 L
s
.92328 .26683 m
.92328 .27058 L
s
.97619 .26683 m
.97619 .27058 L
s
.25 Mabswid
0 .26683 m
1 .26683 L
s
.02381 .02145 m
.03006 .02145 L
s
[(0.7)] .01131 .02145 1 0 Mshowa
.02381 .10324 m
.03006 .10324 L
s
[(0.8)] .01131 .10324 1 0 Mshowa
.02381 .18504 m
.03006 .18504 L
s
[(0.9)] .01131 .18504 1 0 Mshowa
.02381 .34862 m
.03006 .34862 L
s
[(1.1)] .01131 .34862 1 0 Mshowa
.02381 .43041 m
.03006 .43041 L
s
[(1.2)] .01131 .43041 1 0 Mshowa
.02381 .5122 m
.03006 .5122 L
s
[(1.3)] .01131 .5122 1 0 Mshowa
.02381 .59399 m
.03006 .59399 L
s
[(1.4)] .01131 .59399 1 0 Mshowa
.125 Mabswid
.02381 .03781 m
.02756 .03781 L
s
.02381 .05417 m
.02756 .05417 L
s
.02381 .07053 m
.02756 .07053 L
s
.02381 .08689 m
.02756 .08689 L
s
.02381 .1196 m
.02756 .1196 L
s
.02381 .13596 m
.02756 .13596 L
s
.02381 .15232 m
.02756 .15232 L
s
.02381 .16868 m
.02756 .16868 L
s
.02381 .20139 m
.02756 .20139 L
s
.02381 .21775 m
.02756 .21775 L
s
.02381 .23411 m
.02756 .23411 L
s
.02381 .25047 m
.02756 .25047 L
s
.02381 .28319 m
.02756 .28319 L
s
.02381 .29954 m
.02756 .29954 L
s
.02381 .3159 m
.02756 .3159 L
s
.02381 .33226 m
.02756 .33226 L
s
.02381 .36498 m
.02756 .36498 L
s
.02381 .38134 m
.02756 .38134 L
s
.02381 .39769 m
.02756 .39769 L
s
.02381 .41405 m
.02756 .41405 L
s
.02381 .44677 m
.02756 .44677 L
s
.02381 .46313 m
.02756 .46313 L
s
.02381 .47949 m
.02756 .47949 L
s
.02381 .49584 m
.02756 .49584 L
s
.02381 .52856 m
.02756 .52856 L
s
.02381 .54492 m
.02756 .54492 L
s
.02381 .56128 m
.02756 .56128 L
s
.02381 .57764 m
.02756 .57764 L
s
.02381 .00509 m
.02756 .00509 L
s
.02381 .61035 m
.02756 .61035 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .60332 m
.02499 .60331 L
.02605 .6033 L
.02729 .60328 L
.02846 .60326 L
.03053 .60319 L
.03279 .60309 L
.03527 .60295 L
.0379 .60276 L
.04262 .60232 L
.04749 .60174 L
.05205 .60108 L
.06244 .59913 L
.07305 .59653 L
.08274 .59362 L
.10458 .58527 L
.14429 .56405 L
.18248 .53718 L
.22313 .50297 L
.26226 .46595 L
.30384 .4238 L
.34391 .38185 L
.38246 .3414 L
.42346 .29931 L
.46295 .26047 L
.50092 .22522 L
.54134 .19038 L
.58025 .1597 L
.62161 .13033 L
.66146 .10526 L
.69979 .08415 L
.74057 .06487 L
.77984 .04937 L
.81759 .03723 L
.85779 .02721 L
.87627 .0236 L
.89648 .02036 L
.91652 .01788 L
.92745 .01682 L
.93762 .01604 L
.9426 .01572 L
.94801 .01542 L
.95278 .0152 L
.95783 .01501 L
.96238 .01488 L
.96496 .01483 L
.96738 .01478 L
.9696 .01475 L
.97163 .01473 L
.97275 .01473 L
Mistroke
.97397 .01472 L
.97512 .01472 L
.97619 .01472 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 
  1}},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC
MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6
5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX
nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v
yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi
sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG
tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W
tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw
WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq
Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz
IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A
nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc
Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td
rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97
63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp
CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el
jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD
f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA
eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb
uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa
UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au
6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9
BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/
5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX
XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4
jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO
JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme
IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG
gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ
9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ
ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL
bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD
pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN
ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32
ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j
6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE
iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k
d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz
+s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+
6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C
2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K
wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9
xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43
9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9
OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm
yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj
GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz
mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W
ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8
pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu
KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH
65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD
bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ
LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW
2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx
bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU
E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1
7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0
5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2
brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT
OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o
Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL
hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl
D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm
v/odiPr3KLwBMhrzH2bRmaY=\
\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \
{127.62000000000003, 0.}} -> {-14.8518, 0.65382, 0.693802, \
0.00448812}},ExpressionUUID->"2f0c6d62-d79c-fe40-ae18-5a4696a4ccbb"],

Cell[BoxData[
 TagBox[
  RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
  False,
  Editable->False]], "Output",ExpressionUUID->"1b36cfb9-6a09-4c41-9a4d-\
068e88bb9e2c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", 
           RowBox[{"(", 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"n", "=", "0"}], "100"], 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"2", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                    FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                 "2"], ")"}], 
               RowBox[{"2", "*", "n"}]], "*", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox["1", 
                 RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
            ")"}]}], 
          RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             SuperscriptBox[
              RowBox[{"(", "x", ")"}], "2"], "1"]}], 
           RowBox[{"(", 
            RowBox[{
             FractionBox["1", "Cw"], "+", 
             FractionBox[
              RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"y", "*", "y"}], "1"]}], 
           RowBox[{"(", 
            RowBox[{
             FractionBox["1", "Cw"], "+", 
             FractionBox[
              RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], 
       RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.9918476306797314`*^9, {3.9918479463234234`*^9, 
   3.9918479465064144`*^9}},ExpressionUUID->"e605439d-19dd-2645-8993-\
c76100de5ed2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"c359dea9-9ece-cf49-b7df-ef6b53440b08"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"df87c0d2-a345-c048-8631-aeba4b69c5c2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"991abcb1-81ce-9b40-bdbb-a15d386b1b78"],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \
suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \
"Message",ExpressionUUID->"9aaae4b6-fac0-394d-b0b6-90b588c1351a"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.0634921 0.0147151 5.37313 [
[.15079 .00222 -3 -9 ]
[.15079 .00222 3 0 ]
[.27778 .00222 -3 -9 ]
[.27778 .00222 3 0 ]
[.40476 .00222 -3 -9 ]
[.40476 .00222 3 0 ]
[.53175 .00222 -3 -9 ]
[.53175 .00222 3 0 ]
[.65873 .00222 -6 -9 ]
[.65873 .00222 6 0 ]
[.78571 .00222 -6 -9 ]
[.78571 .00222 6 0 ]
[.9127 .00222 -6 -9 ]
[.9127 .00222 6 0 ]
[.01131 .12218 -24 -4.5 ]
[.01131 .12218 0 4.5 ]
[.01131 .22964 -24 -4.5 ]
[.01131 .22964 0 4.5 ]
[.01131 .3371 -24 -4.5 ]
[.01131 .3371 0 4.5 ]
[.01131 .44457 -24 -4.5 ]
[.01131 .44457 0 4.5 ]
[.01131 .55203 -18 -4.5 ]
[.01131 .55203 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15079 .01472 m
.15079 .02097 L
s
[(2)] .15079 .00222 0 1 Mshowa
.27778 .01472 m
.27778 .02097 L
s
[(4)] .27778 .00222 0 1 Mshowa
.40476 .01472 m
.40476 .02097 L
s
[(6)] .40476 .00222 0 1 Mshowa
.53175 .01472 m
.53175 .02097 L
s
[(8)] .53175 .00222 0 1 Mshowa
.65873 .01472 m
.65873 .02097 L
s
[(10)] .65873 .00222 0 1 Mshowa
.78571 .01472 m
.78571 .02097 L
s
[(12)] .78571 .00222 0 1 Mshowa
.9127 .01472 m
.9127 .02097 L
s
[(14)] .9127 .00222 0 1 Mshowa
.125 Mabswid
.05556 .01472 m
.05556 .01847 L
s
.0873 .01472 m
.0873 .01847 L
s
.11905 .01472 m
.11905 .01847 L
s
.18254 .01472 m
.18254 .01847 L
s
.21429 .01472 m
.21429 .01847 L
s
.24603 .01472 m
.24603 .01847 L
s
.30952 .01472 m
.30952 .01847 L
s
.34127 .01472 m
.34127 .01847 L
s
.37302 .01472 m
.37302 .01847 L
s
.43651 .01472 m
.43651 .01847 L
s
.46825 .01472 m
.46825 .01847 L
s
.5 .01472 m
.5 .01847 L
s
.56349 .01472 m
.56349 .01847 L
s
.59524 .01472 m
.59524 .01847 L
s
.62698 .01472 m
.62698 .01847 L
s
.69048 .01472 m
.69048 .01847 L
s
.72222 .01472 m
.72222 .01847 L
s
.75397 .01472 m
.75397 .01847 L
s
.81746 .01472 m
.81746 .01847 L
s
.84921 .01472 m
.84921 .01847 L
s
.88095 .01472 m
.88095 .01847 L
s
.94444 .01472 m
.94444 .01847 L
s
.97619 .01472 m
.97619 .01847 L
s
.25 Mabswid
0 .01472 m
1 .01472 L
s
.02381 .12218 m
.03006 .12218 L
s
[(0.02)] .01131 .12218 1 0 Mshowa
.02381 .22964 m
.03006 .22964 L
s
[(0.04)] .01131 .22964 1 0 Mshowa
.02381 .3371 m
.03006 .3371 L
s
[(0.06)] .01131 .3371 1 0 Mshowa
.02381 .44457 m
.03006 .44457 L
s
[(0.08)] .01131 .44457 1 0 Mshowa
.02381 .55203 m
.03006 .55203 L
s
[(0.1)] .01131 .55203 1 0 Mshowa
.125 Mabswid
.02381 .04158 m
.02756 .04158 L
s
.02381 .06845 m
.02756 .06845 L
s
.02381 .09531 m
.02756 .09531 L
s
.02381 .14904 m
.02756 .14904 L
s
.02381 .17591 m
.02756 .17591 L
s
.02381 .20277 m
.02756 .20277 L
s
.02381 .25651 m
.02756 .25651 L
s
.02381 .28337 m
.02756 .28337 L
s
.02381 .31024 m
.02756 .31024 L
s
.02381 .36397 m
.02756 .36397 L
s
.02381 .39083 m
.02756 .39083 L
s
.02381 .4177 m
.02756 .4177 L
s
.02381 .47143 m
.02756 .47143 L
s
.02381 .4983 m
.02756 .4983 L
s
.02381 .52516 m
.02756 .52516 L
s
.02381 .57889 m
.02756 .57889 L
s
.02381 .60576 m
.02756 .60576 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .01472 m
.06244 .12073 L
.10458 .23188 L
.14415 .32802 L
.18221 .40977 L
.22272 .48259 L
.26171 .53704 L
.28302 .55995 L
.30316 .57709 L
.31285 .58377 L
.32313 .58977 L
.33276 .59437 L
.34157 .59772 L
.35098 .60043 L
.35617 .60154 L
.3611 .60234 L
.3633 .60262 L
.36564 .60287 L
.36785 .60305 L
.36985 .60318 L
.37108 .60323 L
.37222 .60327 L
.37346 .6033 L
.37477 .60332 L
.37591 .60332 L
.37698 .60331 L
.37815 .60328 L
.3794 .60324 L
.38062 .60319 L
.38197 .60311 L
.38469 .60291 L
.38721 .60266 L
.38958 .60237 L
.3949 .60153 L
.40064 .60035 L
.41114 .59744 L
.42077 .59396 L
.43969 .58496 L
.46039 .57209 L
.50095 .53905 L
.54 .49958 L
.58149 .45213 L
.62148 .40358 L
.65994 .3563 L
.70086 .30723 L
.74026 .26259 L
.77815 .22302 L
.81849 .18514 L
.85731 .15313 L
.89859 .12393 L
Mistroke
.93835 .10033 L
.97619 .08171 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 
  1}},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ
GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM
b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+
1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1
9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX
KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6
1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu
UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV
Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX
r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO
rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q
pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq
b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk
+9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj
oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi
z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp
jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd
dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw
cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0
Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe
TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj
UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE
/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM
opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3
RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+
u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y
XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV
nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi
T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4
OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U
ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY
E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S
Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT
vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ
zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO
nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm
oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU
fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd
G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han
eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao
n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv
6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2
gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF
hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3
d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS
0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3
bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2
wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF
7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0
ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe
37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg
X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu
TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4
CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2
FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX
A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs
LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr
AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo
2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr
rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1
1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9
dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO
endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2
mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK
Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\
\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \
{127.62000000000003, 0.}} -> {-1.61617, -0.0100934, 0.0591342, \
0.000698765}},ExpressionUUID->"9a870480-d3d4-8843-9f49-e5fc868c350b"],

Cell[BoxData[
 TagBox[
  RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
  False,
  Editable->False]], "Output",ExpressionUUID->"954422c5-4061-764e-bf48-\
99c016a64c85"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"x", ",", "xx"}], "]"}]], "Input",
 CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, {
  3.991795329890896*^9, 
  3.99179533223897*^9}},ExpressionUUID->"3e01852b-fa23-2642-abab-\
f1f489e06059"],

Cell[BoxData[
 TemplateBox[{
  "Show", "gcomb", 
   "\"Could not combine the graphics objects in \
\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \
GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \
Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \
List[List[], List[]]], List[Rule[DisplayFunction, Identity], \
Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \
Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \
Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \
Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \
Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \
List[List[None, None], List[None, None]]], Rule[FrameTicks, \
List[List[Automatic, Automatic], List[Automatic, Automatic]]], \
Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \
Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \
List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \
Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \
Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \
Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \
AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \
List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \
Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \
\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \
Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\
\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \
Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \
List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \
52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \
Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \
List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \
Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, 
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}},
 CellLabel->
  "During evaluation of \
In[532]:=",ExpressionUUID->"745689c4-10fa-1143-9aff-0dfee3349f79"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"x130", ",", 
   GraphicsBox[{{}, 
     InterpretationBox[{
       TagBox[
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          PointBox[CompressedData["
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
           "]]},
         Annotation[#, "Charting`Private`Tag#1"]& ],
        {"WolframDynamicHighlight", <|
         "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
       StyleBox[
        DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
          Slot["HighlightElements"], 
          Slot["LayoutOptions"], 
          Slot["Meta"], 
          Charting`HighlightActionFunction["DynamicHighlight", {{
             Annotation[{
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.368417, 0.506779, 0.709798], 
                AbsoluteThickness[2]], 
               Point[CompressedData["
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
                "]]}, "Charting`Private`Tag#1"]}}, <|
           "HighlightElements" -> <|
             "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
            "LayoutOptions" -> <|
             "PanelPlotLayout" -> <||>, 
              "PlotRange" -> {{0, 52.}, {0, 0.120683}}, 
              "Frame" -> {{False, False}, {False, False}}, 
              "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
              "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
              GoldenRatio^(-1), "DefaultStyle" -> {
                Directive[
                 PointSize[0.011000000000000001`], 
                 RGBColor[0.368417, 0.506779, 0.709798], 
                 AbsoluteThickness[2]]}, 
              "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                  Identity[
                   Part[#, 1]], 
                  Identity[
                   Part[#, 2]]}& ), 
                "ScalingFunctions" -> {{Identity, Identity}, {
                  Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
              False|>, 
            "Meta" -> <|
             "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
              "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{0, 52.}, {0, 0.120683}}, 
             "Frame" -> {{False, False}, {False, False}}, 
             "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
             "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
             GoldenRatio^(-1), "DefaultStyle" -> {
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.368417, 0.506779, 0.709798], 
                AbsoluteThickness[2]]}, 
             "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), 
               "ScalingFunctions" -> {{Identity, Identity}, {
                 Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
             False|>, 
           "Meta" -> <|
            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
             "Function" -> ListPlot, "GroupHighlight" -> False|>|>],
         ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
          4.503599627370496*^15, -4.503599627370496*^15}}],
        Selectable->False]},
      Annotation[{{
         Annotation[{
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.368417, 0.506779, 0.709798], 
            AbsoluteThickness[2]], 
           Point[CompressedData["
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
            "]]}, "Charting`Private`Tag#1"]}}, <|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, 
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
          "DefaultStyle" -> {
            Directive[
             PointSize[0.011000000000000001`], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[2]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              Identity[
               Part[#, 1]], 
              Identity[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          ListPlot, "GroupHighlight" -> False|>|>, 
       "DynamicHighlight"]], {{}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    Method->{
     "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
      "DefaultGraphicsInteraction" -> {
       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
        "Effects" -> {
         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
          "Droplines" -> {
           "freeformCursorMode" -> True, 
            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
      "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
        Directive[
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
      "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05],
       "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint",
       "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& )}},
    PlotRange->{{0, 52.}, {0, 0.120683}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}]}], "]"}]], "Output",
 CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}},
 CellLabel->
  "Out[532]=",ExpressionUUID->"ec18a0ba-e266-a343-9325-0845f1736c56"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     FractionBox[
      RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", 
       RowBox[{"(", 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"n", "=", "0"}], "100"], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"2", 
              RowBox[{"(", 
               FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], 
            ")"}], 
           RowBox[{"2", "*", "n"}]], "*", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox["1", 
             RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], 
      RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"(", "x", ")"}], "2"], "1"]}], 
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "Cw"], "+", 
         FractionBox[
          RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"y", "*", "y"}], "1"]}], 
       RowBox[{"(", 
        FractionBox["1", "Cb"], ")"}]}]], 
     RowBox[{"\[DifferentialD]", "y"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\
UUID->"cec9d659-40a4-9344-876a-cec895b68137"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"c8a425da-4684-ff4d-913f-cc5851265bc3"],

Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"62616100-cef9-c34a-90ec-7024e73a21ef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"q", "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
       RowBox[{
        FractionBox["1", 
         RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], 
        RowBox[{"(", 
         RowBox[{"4", "x", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "J1"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", 
          RowBox[{"(", 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"n", "=", "0"}], "100"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                   FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                "2"], ")"}], 
              RowBox[{"2", "*", "n"}]], "*", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["1", 
                RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
           ")"}]}], ")"}], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", "x", ")"}], "2"], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"y", "*", "y"}], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.991847653697838*^9, 
  3.991847658442892*^9}},ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-\
08e72b48e971"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"3bf07443-b608-4243-b971-51f82147ad62"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"e747471f-596a-2242-a829-0d8e6535227a"],

Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"89855e7d-6748-6649-99fc-db6c764ac3a4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"S1", "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
       RowBox[{
        FractionBox["1", 
         RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], 
        RowBox[{"(", 
         RowBox[{"4", "x", "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", 
          "*", 
          RowBox[{"(", 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"n", "=", "0"}], "100"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                   FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                "2"], ")"}], 
              RowBox[{"2", "*", "n"}]], "*", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["1", 
                RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
           ")"}]}], ")"}], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", "x", ")"}], "2"], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"y", "*", "y"}], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.991847661764683*^9, 
  3.991847664668476*^9}},ExpressionUUID->"b256ae65-c9c8-994b-815e-\
de484a821375"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"ce81120b-8f1e-dd40-9437-7d92ce72052d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"8dc8593d-acd4-c74f-aea6-e734c994e283"],

Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"6dc23113-bc95-494e-93a5-cd6a253efc0a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"S2", "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
       RowBox[{
        FractionBox["1", 
         RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], 
        RowBox[{"(", 
         RowBox[{"4", "x", "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", 
          "*", 
          RowBox[{"(", 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"n", "=", "0"}], "100"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                   FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                "2"], ")"}], 
              RowBox[{"2", "*", "n"}]], "*", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["1", 
                RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
           ")"}]}], ")"}], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", "x", ")"}], "2"], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"y", "*", "y"}], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.9918476677400265`*^9, 
  3.9918476736757298`*^9}},ExpressionUUID->"8fd338d4-a1be-6841-b853-\
e94a67cb9612"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"6d8f0be9-093a-3b41-85dc-708af7e242e1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"2079ef2d-a37e-f54c-92b8-a37a53f349ad"],

Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"554a4ded-bde6-2a46-af18-bac29cb48d9d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox["q", 
  SqrtBox[
   RowBox[{"S1", "*", "S2"}]]]], "Input",
 CellChangeTimes->{{3.9918476765269012`*^9, 
  3.9918476808687553`*^9}},ExpressionUUID->"9231c462-6016-ac42-bd11-\
cb0c7e92fda2"],

Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"682bcc08-531d-5f43-acd9-aafef153314e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input",
 CellChangeTimes->{{3.9918476877717896`*^9, 3.9918476906207848`*^9}, 
   3.9919236729399815`*^9},ExpressionUUID->"7b4f4188-e9b4-a249-91fe-\
f977b92c20b2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Qb1", "=", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.05", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "34"}]]}], ")"}], "2"], 
      RowBox[{"1.6", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "13"}]]}]], ")"}], 
    RowBox[{"-", "1"}]], "*", 
   FractionBox[
    RowBox[{"Ir", "*", "Il"}], 
    RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"e639aabf-9918-\
b148-b52f-1037c590e22d"],

Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"e8a065a4-9b1c-1e46-9347-2538ec1d0d92"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hb", "=", 
  SqrtBox[
   FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"9f21bdcd-6887-bf47-\
af20-cb6fe2ae22d1"],

Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"50446e68-3d8c-8d45-9164-a3f05e953b7b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cb", "=", 
  FractionBox[
   RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"807c9644-\
b813-4545-bd97-a39923ad2c85"],

Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"c53e1eb9-111c-1c4f-83a4-760a21ed4b09"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"o1", "=", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["2", "5"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.3", "*", 
              SuperscriptBox["10", 
               RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
           SuperscriptBox["A1", 
            RowBox[{"5", "/", "3"}]], "*", 
           FractionBox[
            RowBox[{"931.5", "*", "1.6", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "13"}]]}], 
            RowBox[{"9", "*", 
             SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              FractionBox["1", "2"], 
              SqrtBox[
               FractionBox["5", 
                RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
             RowBox[{
              FractionBox["25", 
               RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
          RowBox[{
           FractionBox["2", "5"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.3", "*", 
              SuperscriptBox["10", 
               RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"A", "-", "A1"}], ")"}], 
            RowBox[{"5", "/", "3"}]], "*", 
           FractionBox[
            RowBox[{"931.5", "*", "1.6", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "13"}]]}], 
            RowBox[{"9", "*", 
             SuperscriptBox["10", "16"]}]], "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              FractionBox["1", "2"], 
              SqrtBox[
               FractionBox["5", 
                RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
             RowBox[{
              FractionBox["25", 
               RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
           "f2"}]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.05", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "34"}]]}], ")"}], "2"], 
          RowBox[{"1.6", "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "13"}]]}]], ")"}], 
        RowBox[{"-", "2"}]], "*", "Cb"}], "+", 
      RowBox[{"Cw", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          FractionBox["2", "5"], "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.3", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
          SuperscriptBox["A1", 
           RowBox[{"5", "/", "3"}]], "*", 
          FractionBox[
           RowBox[{"931.5", "*", "1.6", "*", 
            SuperscriptBox["10", 
             RowBox[{"-", "13"}]]}], 
           RowBox[{"9", "*", 
            SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             FractionBox["1", "2"], 
             SqrtBox[
              FractionBox["5", 
               RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
            RowBox[{
             FractionBox["25", 
              RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], 
        "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.05", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "34"}]]}], ")"}], "2"], 
          RowBox[{"1.6", "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "13"}]]}]], ")"}], 
        RowBox[{"-", "2"}]]}]}], ")"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox["A1", 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"A", "-", "A1"}], ")"}], 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
       "f2"}]}], ")"}], "2"], "*", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.05", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "34"}]]}], ")"}], "2"], 
      RowBox[{"1.6", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "13"}]]}]], ")"}], 
    RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"c029bbe7-1e0d-6c47-\
9817-6aab8cca4349"],

Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"23daa51b-d813-3040-bd45-0d347c7122da"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
  RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"02414061-\
9268-3a40-809c-791f7b1bc727"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"c6830ba9-9f74-4c4c-9b97-dded42b0d0cf"],

Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"7cdd740f-da8e-1847-901d-4e38334c4602"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"o2", "=", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["2", "5"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.3", "*", 
              SuperscriptBox["10", 
               RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
           SuperscriptBox["A1", 
            RowBox[{"5", "/", "3"}]], "*", 
           FractionBox[
            RowBox[{"931.5", "*", "1.6", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "13"}]]}], 
            RowBox[{"9", "*", 
             SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              FractionBox["1", "2"], 
              SqrtBox[
               FractionBox["5", 
                RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
             RowBox[{
              FractionBox["25", 
               RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
          RowBox[{
           FractionBox["2", "5"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.3", "*", 
              SuperscriptBox["10", 
               RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"A", "-", "A1"}], ")"}], 
            RowBox[{"5", "/", "3"}]], "*", 
           FractionBox[
            RowBox[{"931.5", "*", "1.6", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "13"}]]}], 
            RowBox[{"9", "*", 
             SuperscriptBox["10", "16"]}]], "*", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              FractionBox["1", "2"], 
              SqrtBox[
               FractionBox["5", 
                RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
             RowBox[{
              FractionBox["25", 
               RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
           "f2"}]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.05", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "34"}]]}], ")"}], "2"], 
          RowBox[{"1.6", "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "13"}]]}]], ")"}], 
        RowBox[{"-", "2"}]], "*", "Cb"}], "+", 
      RowBox[{"Cw", "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          FractionBox["2", "5"], "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.3", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"A", "-", "A1"}], ")"}], 
           RowBox[{"5", "/", "3"}]], "*", 
          FractionBox[
           RowBox[{"931.5", "*", "1.6", "*", 
            SuperscriptBox["10", 
             RowBox[{"-", "13"}]]}], 
           RowBox[{"9", "*", 
            SuperscriptBox["10", "16"]}]], "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             FractionBox["1", "2"], 
             SqrtBox[
              FractionBox["5", 
               RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
            RowBox[{
             FractionBox["25", 
              RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
          "f2"}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.05", "*", 
             SuperscriptBox["10", 
              RowBox[{"-", "34"}]]}], ")"}], "2"], 
          RowBox[{"1.6", "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "13"}]]}]], ")"}], 
        RowBox[{"-", "2"}]]}]}], ")"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox["A1", 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"A", "-", "A1"}], ")"}], 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
       "f2"}]}], ")"}], "2"], "*", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.05", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "34"}]]}], ")"}], "2"], 
      RowBox[{"1.6", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "13"}]]}]], ")"}], 
    RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"0cf6ee00-990f-aa48-\
80f8-a2822701e626"],

Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"bb8b113c-f7cc-4f4e-b883-2112fdc5e77e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
  RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"0e7a310e-\
8267-084b-8d71-ceb0b816dd18"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"23da22f8-8350-eb48-95d4-6a0bc4f515a3"],

Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"0dd898e7-1224-8c4b-9b4a-44bf5a45b446"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h1", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox["2", "5"], "*", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1.3", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"A", "-", "A1"}], ")"}], 
      RowBox[{"5", "/", "3"}]], "*", 
     FractionBox[
      RowBox[{"931.5", "*", "1.6", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "13"}]]}], 
      RowBox[{"9", "*", 
       SuperscriptBox["10", "16"]}]], "*", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        FractionBox["1", "2"], 
        SqrtBox[
         FractionBox["5", 
          RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
       RowBox[{
        FractionBox["25", 
         RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], 
    ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["2", "5"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.3", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
      SuperscriptBox["A1", 
       RowBox[{"5", "/", "3"}]], "*", 
      FractionBox[
       RowBox[{"931.5", "*", "1.6", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "13"}]]}], 
       RowBox[{"9", "*", 
        SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["1", "2"], 
         SqrtBox[
          FractionBox["5", 
           RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
        RowBox[{
         FractionBox["25", 
          RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["2", "5"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.3", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"A", "-", "A1"}], ")"}], 
       RowBox[{"5", "/", "3"}]], "*", 
      FractionBox[
       RowBox[{"931.5", "*", "1.6", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "13"}]]}], 
       RowBox[{"9", "*", 
        SuperscriptBox["10", "16"]}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["1", "2"], 
         SqrtBox[
          FractionBox["5", 
           RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
        RowBox[{
         FractionBox["25", 
          RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
     ")"}]}]}]], "Input",ExpressionUUID->"16870642-9452-a14f-a1b7-\
576792706e56"],

Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"09f95964-259e-d442-8b4d-9152a060f55e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h2", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox["2", "5"], "*", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1.3", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
     SuperscriptBox["A1", 
      RowBox[{"5", "/", "3"}]], "*", 
     FractionBox[
      RowBox[{"931.5", "*", "1.6", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "13"}]]}], 
      RowBox[{"9", "*", 
       SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        FractionBox["1", "2"], 
        SqrtBox[
         FractionBox["5", 
          RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
       RowBox[{
        FractionBox["25", 
         RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["2", "5"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.3", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
      SuperscriptBox["A1", 
       RowBox[{"5", "/", "3"}]], "*", 
      FractionBox[
       RowBox[{"931.5", "*", "1.6", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "13"}]]}], 
       RowBox[{"9", "*", 
        SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["1", "2"], 
         SqrtBox[
          FractionBox["5", 
           RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
        RowBox[{
         FractionBox["25", 
          RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["2", "5"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1.3", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"A", "-", "A1"}], ")"}], 
       RowBox[{"5", "/", "3"}]], "*", 
      FractionBox[
       RowBox[{"931.5", "*", "1.6", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "13"}]]}], 
       RowBox[{"9", "*", 
        SuperscriptBox["10", "16"]}]], "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["1", "2"], 
         SqrtBox[
          FractionBox["5", 
           RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
        RowBox[{
         FractionBox["25", 
          RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
     ")"}]}]}]], "Input",ExpressionUUID->"207b673b-eb18-904e-8dba-\
9c1c1dd6034c"],

Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"cd37bbf1-e49a-6647-92bf-66da4b35a93e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h3", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox["A1", 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"A", "-", "A1"}], ")"}], 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], 
      ")"}]}], ")"}], "/", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox["A1", 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", "f1", "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", 
      "\[IndentingNewLine]", 
      RowBox[{
       FractionBox["2", "5"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "15"}]]}], ")"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"A", "-", "A1"}], ")"}], 
        RowBox[{"5", "/", "3"}]], "*", 
       FractionBox[
        RowBox[{"931.5", "*", "1.6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "13"}]]}], 
        RowBox[{"9", "*", 
         SuperscriptBox["10", "16"]}]], "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          FractionBox["1", "2"], 
          SqrtBox[
           FractionBox["5", 
            RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", 
         RowBox[{
          FractionBox["25", 
           RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", 
       "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"fcc33f59-ac5d-\
dc44-a6a0-01cb1397795c"],

Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"a8990ed0-d980-fe49-b54f-af15cdaca5a8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"J1", "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
       RowBox[{
        FractionBox[
         RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", 
          RowBox[{"(", 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"n", "=", "0"}], "100"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                   FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                "2"], ")"}], 
              RowBox[{"2", "*", "n"}]], "*", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["1", 
                RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
           ")"}]}], 
         RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", "x", ")"}], "2"], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"y", "*", "y"}], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{
  3.9918477038948536`*^9},ExpressionUUID->"c2bffed8-3648-ee47-bc6e-\
be191758bd92"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"9353aa27-5dd8-6249-9acf-27d71a8dfe31"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"7a16941e-3686-3c49-a9bf-a8f0d031eb03"],

Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"abe399c8-88d7-1f45-b974-4e13120badf7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"J2", "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
       RowBox[{
        FractionBox[
         RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", 
          RowBox[{"(", 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"n", "=", "0"}], "100"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                   FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                "2"], ")"}], 
              RowBox[{"2", "*", "n"}]], "*", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["1", 
                RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
           ")"}]}], 
         RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", "x", ")"}], "2"], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"y", "*", "y"}], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{
  3.9918477072468624`*^9},ExpressionUUID->"162c1d78-b731-9743-923d-\
e14e238c88c0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"3884f153-af14-6b4b-904c-75f8499cadb1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"decb9285-274f-5646-8622-e985a1ccc581"],

Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"26b8d6b5-120d-b94f-8e05-d4bbf530818b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox["1", "1"], 
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
           RowBox[{
            FractionBox[
             RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], 
             RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 FractionBox["1", "Cw"]}], "+", 
                FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", 
              RowBox[{"Cos", "[", 
               FractionBox[
                RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                SuperscriptBox[
                 RowBox[{"(", "x", ")"}], "2"], "1"]}], 
              RowBox[{"(", 
               RowBox[{
                FractionBox["1", "Cw"], "+", 
                FractionBox[
                 RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{"y", "*", "y"}], "1"]}], 
              RowBox[{"(", 
               RowBox[{
                FractionBox["1", "Cw"], "+", 
                FractionBox[
                 RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
            RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
         RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", 
    RowBox[{"{", 
     RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.991847711887806*^9},ExpressionUUID->"e062485f-eb72-5b44-8f24-\
f29169102337"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"b65eca92-46bf-1d45-b9d4-7717f8601dca"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"43097017-8d6b-ed44-885b-d7dcc2918c11"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"2c60786a-2040-fe49-981b-8347dab8e699"],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \
suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \
"Message",ExpressionUUID->"b9098ed1-26b0-e14f-83e6-f3cf126236c4"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.00529101 -0.551091 0.817918 [
[.15608 .25433 -6 -9 ]
[.15608 .25433 6 0 ]
[.28836 .25433 -6 -9 ]
[.28836 .25433 6 0 ]
[.42063 .25433 -6 -9 ]
[.42063 .25433 6 0 ]
[.55291 .25433 -9 -9 ]
[.55291 .25433 9 0 ]
[.68519 .25433 -9 -9 ]
[.68519 .25433 9 0 ]
[.81746 .25433 -9 -9 ]
[.81746 .25433 9 0 ]
[.94974 .25433 -9 -9 ]
[.94974 .25433 9 0 ]
[.01131 .02145 -18 -4.5 ]
[.01131 .02145 0 4.5 ]
[.01131 .10324 -18 -4.5 ]
[.01131 .10324 0 4.5 ]
[.01131 .18504 -18 -4.5 ]
[.01131 .18504 0 4.5 ]
[.01131 .34862 -18 -4.5 ]
[.01131 .34862 0 4.5 ]
[.01131 .43041 -18 -4.5 ]
[.01131 .43041 0 4.5 ]
[.01131 .5122 -18 -4.5 ]
[.01131 .5122 0 4.5 ]
[.01131 .59399 -18 -4.5 ]
[.01131 .59399 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15608 .26683 m
.15608 .27308 L
s
[(25)] .15608 .25433 0 1 Mshowa
.28836 .26683 m
.28836 .27308 L
s
[(50)] .28836 .25433 0 1 Mshowa
.42063 .26683 m
.42063 .27308 L
s
[(75)] .42063 .25433 0 1 Mshowa
.55291 .26683 m
.55291 .27308 L
s
[(100)] .55291 .25433 0 1 Mshowa
.68519 .26683 m
.68519 .27308 L
s
[(125)] .68519 .25433 0 1 Mshowa
.81746 .26683 m
.81746 .27308 L
s
[(150)] .81746 .25433 0 1 Mshowa
.94974 .26683 m
.94974 .27308 L
s
[(175)] .94974 .25433 0 1 Mshowa
.125 Mabswid
.05026 .26683 m
.05026 .27058 L
s
.07672 .26683 m
.07672 .27058 L
s
.10317 .26683 m
.10317 .27058 L
s
.12963 .26683 m
.12963 .27058 L
s
.18254 .26683 m
.18254 .27058 L
s
.20899 .26683 m
.20899 .27058 L
s
.23545 .26683 m
.23545 .27058 L
s
.2619 .26683 m
.2619 .27058 L
s
.31481 .26683 m
.31481 .27058 L
s
.34127 .26683 m
.34127 .27058 L
s
.36772 .26683 m
.36772 .27058 L
s
.39418 .26683 m
.39418 .27058 L
s
.44709 .26683 m
.44709 .27058 L
s
.47354 .26683 m
.47354 .27058 L
s
.5 .26683 m
.5 .27058 L
s
.52646 .26683 m
.52646 .27058 L
s
.57937 .26683 m
.57937 .27058 L
s
.60582 .26683 m
.60582 .27058 L
s
.63228 .26683 m
.63228 .27058 L
s
.65873 .26683 m
.65873 .27058 L
s
.71164 .26683 m
.71164 .27058 L
s
.7381 .26683 m
.7381 .27058 L
s
.76455 .26683 m
.76455 .27058 L
s
.79101 .26683 m
.79101 .27058 L
s
.84392 .26683 m
.84392 .27058 L
s
.87037 .26683 m
.87037 .27058 L
s
.89683 .26683 m
.89683 .27058 L
s
.92328 .26683 m
.92328 .27058 L
s
.97619 .26683 m
.97619 .27058 L
s
.25 Mabswid
0 .26683 m
1 .26683 L
s
.02381 .02145 m
.03006 .02145 L
s
[(0.7)] .01131 .02145 1 0 Mshowa
.02381 .10324 m
.03006 .10324 L
s
[(0.8)] .01131 .10324 1 0 Mshowa
.02381 .18504 m
.03006 .18504 L
s
[(0.9)] .01131 .18504 1 0 Mshowa
.02381 .34862 m
.03006 .34862 L
s
[(1.1)] .01131 .34862 1 0 Mshowa
.02381 .43041 m
.03006 .43041 L
s
[(1.2)] .01131 .43041 1 0 Mshowa
.02381 .5122 m
.03006 .5122 L
s
[(1.3)] .01131 .5122 1 0 Mshowa
.02381 .59399 m
.03006 .59399 L
s
[(1.4)] .01131 .59399 1 0 Mshowa
.125 Mabswid
.02381 .03781 m
.02756 .03781 L
s
.02381 .05417 m
.02756 .05417 L
s
.02381 .07053 m
.02756 .07053 L
s
.02381 .08689 m
.02756 .08689 L
s
.02381 .1196 m
.02756 .1196 L
s
.02381 .13596 m
.02756 .13596 L
s
.02381 .15232 m
.02756 .15232 L
s
.02381 .16868 m
.02756 .16868 L
s
.02381 .20139 m
.02756 .20139 L
s
.02381 .21775 m
.02756 .21775 L
s
.02381 .23411 m
.02756 .23411 L
s
.02381 .25047 m
.02756 .25047 L
s
.02381 .28319 m
.02756 .28319 L
s
.02381 .29954 m
.02756 .29954 L
s
.02381 .3159 m
.02756 .3159 L
s
.02381 .33226 m
.02756 .33226 L
s
.02381 .36498 m
.02756 .36498 L
s
.02381 .38134 m
.02756 .38134 L
s
.02381 .39769 m
.02756 .39769 L
s
.02381 .41405 m
.02756 .41405 L
s
.02381 .44677 m
.02756 .44677 L
s
.02381 .46313 m
.02756 .46313 L
s
.02381 .47949 m
.02756 .47949 L
s
.02381 .49584 m
.02756 .49584 L
s
.02381 .52856 m
.02756 .52856 L
s
.02381 .54492 m
.02756 .54492 L
s
.02381 .56128 m
.02756 .56128 L
s
.02381 .57764 m
.02756 .57764 L
s
.02381 .00509 m
.02756 .00509 L
s
.02381 .61035 m
.02756 .61035 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .60332 m
.02499 .60331 L
.02605 .6033 L
.02729 .60328 L
.02846 .60326 L
.03053 .60319 L
.03279 .60309 L
.03527 .60295 L
.0379 .60276 L
.04262 .60232 L
.04749 .60174 L
.05205 .60108 L
.06244 .59913 L
.07305 .59653 L
.08274 .59362 L
.10458 .58527 L
.14429 .56405 L
.18248 .53718 L
.22313 .50297 L
.26226 .46595 L
.30384 .4238 L
.34391 .38185 L
.38246 .3414 L
.42346 .29931 L
.46295 .26047 L
.50092 .22522 L
.54134 .19038 L
.58025 .1597 L
.62161 .13033 L
.66146 .10526 L
.69979 .08415 L
.74057 .06487 L
.77984 .04937 L
.81759 .03723 L
.85779 .02721 L
.87627 .0236 L
.89648 .02036 L
.91652 .01788 L
.92745 .01682 L
.93762 .01604 L
.9426 .01572 L
.94801 .01542 L
.95278 .0152 L
.95783 .01501 L
.96238 .01488 L
.96496 .01483 L
.96738 .01478 L
.9696 .01475 L
.97163 .01473 L
.97275 .01473 L
Mistroke
.97397 .01472 L
.97512 .01472 L
.97619 .01472 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 
  1}},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC
MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6
5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX
nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v
yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi
sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG
tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W
tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw
WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq
Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz
IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A
nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc
Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td
rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97
63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp
CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el
jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD
f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA
eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb
uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa
UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au
6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9
BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/
5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX
XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4
jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO
JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme
IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG
gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ
9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ
ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL
bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD
pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN
ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32
ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j
6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE
iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k
d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz
+s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+
6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C
2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K
wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9
xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43
9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9
OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm
yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj
GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz
mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W
ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8
pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu
KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH
65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD
bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ
LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW
2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx
bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU
E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1
7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0
5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2
brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT
OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o
Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL
hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl
D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm
v/odiPr3KLwBMhrzH2bRmaY=\
\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \
{127.62000000000003, 0.}} -> {-14.8518, 0.65382, 0.693802, \
0.00448812}},ExpressionUUID->"d219667d-634a-2440-aa6f-10d194554a17"],

Cell[BoxData[
 TagBox[
  RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
  False,
  Editable->False]], "Output",ExpressionUUID->"33e2e3bc-779e-de42-82b8-\
f8c295872460"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", 
           RowBox[{"(", 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"n", "=", "0"}], "100"], 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"2", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                    FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                 "2"], ")"}], 
               RowBox[{"2", "*", "n"}]], "*", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox["1", 
                 RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
            ")"}]}], 
          RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             SuperscriptBox[
              RowBox[{"(", "x", ")"}], "2"], "1"]}], 
           RowBox[{"(", 
            RowBox[{
             FractionBox["1", "Cw"], "+", 
             FractionBox[
              RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"y", "*", "y"}], "1"]}], 
           RowBox[{"(", 
            RowBox[{
             FractionBox["1", "Cw"], "+", 
             FractionBox[
              RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], 
       RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.9918477165865707`*^9, {3.991847931067129*^9, 
   3.9918479312310715`*^9}},ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-\
5d019384c724"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"77187be0-9434-894a-bf72-82e8f3e36aa6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"dae11eea-bf2c-ea41-8cfc-910dacad7d02"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"3a91b588-c1b9-514a-8b35-49bc5a04ab45"],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \
suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \
"Message",ExpressionUUID->"90d10efd-2d21-7342-aab1-c6fb4c5c2e48"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.0634921 0.0147151 5.37313 [
[.15079 .00222 -3 -9 ]
[.15079 .00222 3 0 ]
[.27778 .00222 -3 -9 ]
[.27778 .00222 3 0 ]
[.40476 .00222 -3 -9 ]
[.40476 .00222 3 0 ]
[.53175 .00222 -3 -9 ]
[.53175 .00222 3 0 ]
[.65873 .00222 -6 -9 ]
[.65873 .00222 6 0 ]
[.78571 .00222 -6 -9 ]
[.78571 .00222 6 0 ]
[.9127 .00222 -6 -9 ]
[.9127 .00222 6 0 ]
[.01131 .12218 -24 -4.5 ]
[.01131 .12218 0 4.5 ]
[.01131 .22964 -24 -4.5 ]
[.01131 .22964 0 4.5 ]
[.01131 .3371 -24 -4.5 ]
[.01131 .3371 0 4.5 ]
[.01131 .44457 -24 -4.5 ]
[.01131 .44457 0 4.5 ]
[.01131 .55203 -18 -4.5 ]
[.01131 .55203 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15079 .01472 m
.15079 .02097 L
s
[(2)] .15079 .00222 0 1 Mshowa
.27778 .01472 m
.27778 .02097 L
s
[(4)] .27778 .00222 0 1 Mshowa
.40476 .01472 m
.40476 .02097 L
s
[(6)] .40476 .00222 0 1 Mshowa
.53175 .01472 m
.53175 .02097 L
s
[(8)] .53175 .00222 0 1 Mshowa
.65873 .01472 m
.65873 .02097 L
s
[(10)] .65873 .00222 0 1 Mshowa
.78571 .01472 m
.78571 .02097 L
s
[(12)] .78571 .00222 0 1 Mshowa
.9127 .01472 m
.9127 .02097 L
s
[(14)] .9127 .00222 0 1 Mshowa
.125 Mabswid
.05556 .01472 m
.05556 .01847 L
s
.0873 .01472 m
.0873 .01847 L
s
.11905 .01472 m
.11905 .01847 L
s
.18254 .01472 m
.18254 .01847 L
s
.21429 .01472 m
.21429 .01847 L
s
.24603 .01472 m
.24603 .01847 L
s
.30952 .01472 m
.30952 .01847 L
s
.34127 .01472 m
.34127 .01847 L
s
.37302 .01472 m
.37302 .01847 L
s
.43651 .01472 m
.43651 .01847 L
s
.46825 .01472 m
.46825 .01847 L
s
.5 .01472 m
.5 .01847 L
s
.56349 .01472 m
.56349 .01847 L
s
.59524 .01472 m
.59524 .01847 L
s
.62698 .01472 m
.62698 .01847 L
s
.69048 .01472 m
.69048 .01847 L
s
.72222 .01472 m
.72222 .01847 L
s
.75397 .01472 m
.75397 .01847 L
s
.81746 .01472 m
.81746 .01847 L
s
.84921 .01472 m
.84921 .01847 L
s
.88095 .01472 m
.88095 .01847 L
s
.94444 .01472 m
.94444 .01847 L
s
.97619 .01472 m
.97619 .01847 L
s
.25 Mabswid
0 .01472 m
1 .01472 L
s
.02381 .12218 m
.03006 .12218 L
s
[(0.02)] .01131 .12218 1 0 Mshowa
.02381 .22964 m
.03006 .22964 L
s
[(0.04)] .01131 .22964 1 0 Mshowa
.02381 .3371 m
.03006 .3371 L
s
[(0.06)] .01131 .3371 1 0 Mshowa
.02381 .44457 m
.03006 .44457 L
s
[(0.08)] .01131 .44457 1 0 Mshowa
.02381 .55203 m
.03006 .55203 L
s
[(0.1)] .01131 .55203 1 0 Mshowa
.125 Mabswid
.02381 .04158 m
.02756 .04158 L
s
.02381 .06845 m
.02756 .06845 L
s
.02381 .09531 m
.02756 .09531 L
s
.02381 .14904 m
.02756 .14904 L
s
.02381 .17591 m
.02756 .17591 L
s
.02381 .20277 m
.02756 .20277 L
s
.02381 .25651 m
.02756 .25651 L
s
.02381 .28337 m
.02756 .28337 L
s
.02381 .31024 m
.02756 .31024 L
s
.02381 .36397 m
.02756 .36397 L
s
.02381 .39083 m
.02756 .39083 L
s
.02381 .4177 m
.02756 .4177 L
s
.02381 .47143 m
.02756 .47143 L
s
.02381 .4983 m
.02756 .4983 L
s
.02381 .52516 m
.02756 .52516 L
s
.02381 .57889 m
.02756 .57889 L
s
.02381 .60576 m
.02756 .60576 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .01472 m
.06244 .12073 L
.10458 .23188 L
.14415 .32802 L
.18221 .40977 L
.22272 .48259 L
.26171 .53704 L
.28302 .55995 L
.30316 .57709 L
.31285 .58377 L
.32313 .58977 L
.33276 .59437 L
.34157 .59772 L
.35098 .60043 L
.35617 .60154 L
.3611 .60234 L
.3633 .60262 L
.36564 .60287 L
.36785 .60305 L
.36985 .60318 L
.37108 .60323 L
.37222 .60327 L
.37346 .6033 L
.37477 .60332 L
.37591 .60332 L
.37698 .60331 L
.37815 .60328 L
.3794 .60324 L
.38062 .60319 L
.38197 .60311 L
.38469 .60291 L
.38721 .60266 L
.38958 .60237 L
.3949 .60153 L
.40064 .60035 L
.41114 .59744 L
.42077 .59396 L
.43969 .58496 L
.46039 .57209 L
.50095 .53905 L
.54 .49958 L
.58149 .45213 L
.62148 .40358 L
.65994 .3563 L
.70086 .30723 L
.74026 .26259 L
.77815 .22302 L
.81849 .18514 L
.85731 .15313 L
.89859 .12393 L
Mistroke
.93835 .10033 L
.97619 .08171 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
 ImageSize->{288, 177.938},
 ImageMargins->{{43, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 
  1}},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ
GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM
b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+
1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1
9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX
KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6
1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu
UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV
Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX
r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO
rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q
pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq
b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk
+9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj
oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi
z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp
jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd
dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw
cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0
Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe
TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj
UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE
/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM
opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3
RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+
u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y
XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV
nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi
T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4
OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U
ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY
E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S
Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT
vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ
zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO
nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm
oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU
fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd
G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han
eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao
n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv
6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2
gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF
hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3
d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS
0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3
bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2
wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF
7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0
ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe
37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg
X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu
TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4
CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2
FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX
A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs
LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr
AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo
2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr
rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1
1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9
dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO
endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2
mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK
Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\
\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \
{127.62000000000003, 0.}} -> {-1.61617, -0.0100934, 0.0591342, \
0.000698765}},ExpressionUUID->"b4689af7-5bf9-8d45-aba9-b2818f315461"],

Cell[BoxData[
 TagBox[
  RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
  False,
  Editable->False]], "Output",ExpressionUUID->"ee661a5c-41cb-6a4f-9f2e-\
fbc4cfed7c63"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"x", ",", "xx"}], "]"}]], "Input",
 CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, {
  3.991795329890896*^9, 
  3.99179533223897*^9}},ExpressionUUID->"b7cf0d21-5483-ac4b-a7be-\
b13fedb5cf43"],

Cell[BoxData[
 TemplateBox[{
  "Show", "gcomb", 
   "\"Could not combine the graphics objects in \
\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \
GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \
Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \
List[List[], List[]]], List[Rule[DisplayFunction, Identity], \
Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \
Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \
Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \
Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \
Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \
List[List[None, None], List[None, None]]], Rule[FrameTicks, \
List[List[Automatic, Automatic], List[Automatic, Automatic]]], \
Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \
Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \
List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \
Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \
Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \
Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \
AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \
List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \
Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \
\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \
Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\
\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \
Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \
List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \
52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \
Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \
List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \
Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, 
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}},
 CellLabel->
  "During evaluation of \
In[532]:=",ExpressionUUID->"aeed560b-6305-9b4b-9f36-1a15d67dc4b8"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"x130", ",", 
   GraphicsBox[{{}, 
     InterpretationBox[{
       TagBox[
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          PointBox[CompressedData["
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
           "]]},
         Annotation[#, "Charting`Private`Tag#1"]& ],
        {"WolframDynamicHighlight", <|
         "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
       StyleBox[
        DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
          Slot["HighlightElements"], 
          Slot["LayoutOptions"], 
          Slot["Meta"], 
          Charting`HighlightActionFunction["DynamicHighlight", {{
             Annotation[{
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.368417, 0.506779, 0.709798], 
                AbsoluteThickness[2]], 
               Point[CompressedData["
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
                "]]}, "Charting`Private`Tag#1"]}}, <|
           "HighlightElements" -> <|
             "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
            "LayoutOptions" -> <|
             "PanelPlotLayout" -> <||>, 
              "PlotRange" -> {{0, 52.}, {0, 0.120683}}, 
              "Frame" -> {{False, False}, {False, False}}, 
              "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
              "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
              GoldenRatio^(-1), "DefaultStyle" -> {
                Directive[
                 PointSize[0.011000000000000001`], 
                 RGBColor[0.368417, 0.506779, 0.709798], 
                 AbsoluteThickness[2]]}, 
              "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                  Identity[
                   Part[#, 1]], 
                  Identity[
                   Part[#, 2]]}& ), 
                "ScalingFunctions" -> {{Identity, Identity}, {
                  Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
              False|>, 
            "Meta" -> <|
             "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
              "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{0, 52.}, {0, 0.120683}}, 
             "Frame" -> {{False, False}, {False, False}}, 
             "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
             "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
             GoldenRatio^(-1), "DefaultStyle" -> {
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.368417, 0.506779, 0.709798], 
                AbsoluteThickness[2]]}, 
             "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), 
               "ScalingFunctions" -> {{Identity, Identity}, {
                 Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
             False|>, 
           "Meta" -> <|
            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
             "Function" -> ListPlot, "GroupHighlight" -> False|>|>],
         ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
          4.503599627370496*^15, -4.503599627370496*^15}}],
        Selectable->False]},
      Annotation[{{
         Annotation[{
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.368417, 0.506779, 0.709798], 
            AbsoluteThickness[2]], 
           Point[CompressedData["
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
            "]]}, "Charting`Private`Tag#1"]}}, <|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, 
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
          "DefaultStyle" -> {
            Directive[
             PointSize[0.011000000000000001`], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[2]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              Identity[
               Part[#, 1]], 
              Identity[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          ListPlot, "GroupHighlight" -> False|>|>, 
       "DynamicHighlight"]], {{}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    Method->{
     "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
      "DefaultGraphicsInteraction" -> {
       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
        "Effects" -> {
         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
          "Droplines" -> {
           "freeformCursorMode" -> True, 
            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
      "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
        Directive[
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[2]], 
        Directive[
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
      "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05],
       "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint",
       "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          Identity[
           Part[#, 1]], 
          Identity[
           Part[#, 2]]}& )}},
    PlotRange->{{0, 52.}, {0, 0.120683}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}]}], "]"}]], "Output",
 CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}},
 CellLabel->
  "Out[532]=",ExpressionUUID->"a8995578-961d-6b40-b936-9720a58b42d1"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     FractionBox[
      RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", 
       RowBox[{"(", 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"n", "=", "0"}], "100"], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"2", 
              RowBox[{"(", 
               FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], 
            ")"}], 
           RowBox[{"2", "*", "n"}]], "*", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox["1", 
             RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], 
      RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"(", "x", ")"}], "2"], "1"]}], 
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "Cw"], "+", 
         FractionBox[
          RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"y", "*", "y"}], "1"]}], 
       RowBox[{"(", 
        FractionBox["1", "Cb"], ")"}]}]], 
     RowBox[{"\[DifferentialD]", "y"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\
UUID->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"c6924563-b651-4446-bbba-bad311e0a4eb"],

Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"41fd5ce1-50b0-1948-bce9-3bc136a88f8f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"q", "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
       RowBox[{
        FractionBox["1", 
         RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], 
        RowBox[{"(", 
         RowBox[{"4", "x", "*", 
          RowBox[{"(", 
           RowBox[{"x", "-", "J1"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", 
          RowBox[{"(", 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"n", "=", "0"}], "100"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                   FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                "2"], ")"}], 
              RowBox[{"2", "*", "n"}]], "*", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["1", 
                RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
           ")"}]}], ")"}], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", "x", ")"}], "2"], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"y", "*", "y"}], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.991847745338249*^9, 
  3.9918477508965435`*^9}},ExpressionUUID->"ad23855f-c99b-a44c-9a12-\
deb534d421e5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"2f629e0d-1c2c-9343-bec2-dbe5570a25a9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"60a5b48a-ad17-af47-8d95-10c332a921c3"],

Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"780ecdd0-ef7b-2043-b88a-49c80ff7e9ca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"S1", "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
       RowBox[{
        FractionBox["1", 
         RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], 
        RowBox[{"(", 
         RowBox[{"4", "x", "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", 
          "*", 
          RowBox[{"(", 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"n", "=", "0"}], "100"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                   FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                "2"], ")"}], 
              RowBox[{"2", "*", "n"}]], "*", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["1", 
                RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
           ")"}]}], ")"}], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", "x", ")"}], "2"], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"y", "*", "y"}], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.9918477556924458`*^9, 
  3.991847758600897*^9}},ExpressionUUID->"04adbbfb-46b7-244b-ac81-\
2150361c4bc9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"62097c16-216f-f945-9c34-ad16941760e6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"79915e14-0d67-a548-bfdc-6ae38b0a0207"],

Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"ccc68cfe-df29-974a-9d22-9001e3d52ce6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"S2", "=", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
       RowBox[{
        FractionBox["1", 
         RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], 
        RowBox[{"(", 
         RowBox[{"4", "x", "*", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", 
          "*", 
          RowBox[{"(", 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"n", "=", "0"}], "100"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["1", "Cw"]}], "+", 
                   FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], 
                "2"], ")"}], 
              RowBox[{"2", "*", "n"}]], "*", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox["1", 
                RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], 
           ")"}]}], ")"}], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", "x", ")"}], "2"], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"y", "*", "y"}], "1"]}], 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "Cw"], "+", 
            FractionBox[
             RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.991847762058655*^9, 
  3.9918477649417477`*^9}},ExpressionUUID->"a64b278e-5de9-3f4d-8a34-\
31c8693c1f49"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"e9cd5f2e-f4c7-8e4d-9d92-9849542cfa72"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", 
  " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
"7d087d1e-2fe7-8744-a225-ab71c2e4e591"],

Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"f6f65fa9-4786-a04a-8ffc-0bc012202e10"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox["q", 
  SqrtBox[
   RowBox[{"S1", "*", "S2"}]]]], "Input",
 CellChangeTimes->{{3.9918477668459435`*^9, 
  3.99184777089764*^9}},ExpressionUUID->"4be81bbf-81c0-3047-be62-\
a85883f3e3bb"],

Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"c3918187-e898-c949-b542-e24802c9ee53"]
}, Open  ]]
},
WindowSize->{718.5, 729.75},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
CellContext->Notebook,
Magnification:>0.8 Inherited,
FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"1e6d0353-69f5-de4f-ae7f-57aae5493e4a"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[554, 20, 147, 4, 22, "Input",ExpressionUUID->"02c50ee4-f89d-e84b-babb-c4951c25ae7a"],
Cell[704, 26, 152, 3, 22, "Input",ExpressionUUID->"a3744ee1-3657-ed40-afd1-ad7c272f2bae"],
Cell[859, 31, 149, 4, 22, "Input",ExpressionUUID->"fea443da-bb80-5942-940a-8bd97c50a7b3"],
Cell[1011, 37, 156, 3, 22, "Input",ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-a33659ac7670"],
Cell[CellGroupData[{
Cell[1192, 44, 1273, 41, 39, "Input",ExpressionUUID->"c66d12ee-7a7e-014a-a59f-f5290f75e383"],
Cell[2468, 87, 106, 0, 25, "Output",ExpressionUUID->"d2a98016-4c83-3943-8fb1-133b89183d61"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2611, 92, 913, 30, 46, "Input",ExpressionUUID->"f4d1663f-2f7d-a640-9003-22515624ffcb"],
Cell[3527, 124, 106, 0, 25, "Output",ExpressionUUID->"25b3586e-dddb-8148-8247-2a53a0816ad5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3670, 129, 961, 32, 46, "Input",ExpressionUUID->"85637b45-1c33-1f4e-90c3-07deba1b9b3a"],
Cell[4634, 163, 106, 0, 25, "Output",ExpressionUUID->"c7915de2-f678-2240-8907-4f119bfb9ca2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4777, 168, 532, 18, 42, "Input",ExpressionUUID->"8f97c456-7671-cb44-95b8-323a276088fe"],
Cell[5312, 188, 101, 0, 25, "Output",ExpressionUUID->"c28337c4-580d-004c-bc3c-26abc607c115"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5450, 193, 625, 21, 42, "Input",ExpressionUUID->"e2507f75-9610-1346-854c-33db9330e900"],
Cell[6078, 216, 100, 0, 25, "Output",ExpressionUUID->"eca6de54-61a8-eb4b-9203-3f4b34d3dfbd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6215, 221, 144, 4, 46, "Input",ExpressionUUID->"148e44ba-fb40-0e42-959d-44858270229f"],
Cell[6362, 227, 101, 0, 25, "Output",ExpressionUUID->"0fa81d47-3764-044a-bf93-ee5d1211e37a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6500, 232, 144, 4, 45, "Input",ExpressionUUID->"0c021142-f067-b94a-bf73-69c3aa281aca"],
Cell[6647, 238, 100, 0, 25, "Output",ExpressionUUID->"f8ee43a7-a683-0f4c-8e84-b8ddc45a142b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6784, 243, 155, 4, 35, "Input",ExpressionUUID->"827e3da4-16db-854c-89ad-c94762d57459"],
Cell[6942, 249, 101, 0, 25, "Output",ExpressionUUID->"3013ddc9-2d77-3941-8182-c74c4e917958"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7080, 254, 155, 4, 35, "Input",ExpressionUUID->"9149adf7-16ac-794c-81f7-04a88d48bdc9"],
Cell[7238, 260, 101, 0, 25, "Output",ExpressionUUID->"69944b55-6116-8240-914e-d57996010b53"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7376, 265, 6029, 184, 310, "Input",ExpressionUUID->"14dc1278-8ac3-2246-90ef-ba23d2bdffaa"],
Cell[13408, 451, 102, 0, 25, "Output",ExpressionUUID->"10e3cc8a-ad3e-4e41-ba26-c1acab07fa26"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13547, 456, 342, 8, 33, "Input",ExpressionUUID->"6c632312-3007-0b42-93b3-6c1b961afeb6"],
Cell[13892, 466, 342, 6, 18, "Message",ExpressionUUID->"606843ec-0d7b-f541-9ba3-5b67b435945d"],
Cell[14237, 474, 100, 0, 25, "Output",ExpressionUUID->"859b213d-5319-f746-82ea-75944d21baab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14374, 479, 6096, 186, 353, "Input",ExpressionUUID->"60d1b3b3-12f2-2644-8ed8-788b5437fdfb"],
Cell[20473, 667, 103, 0, 25, "Output",ExpressionUUID->"b3e0a85b-a4aa-ef42-9511-fc38e8dcde9a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20613, 672, 342, 8, 33, "Input",ExpressionUUID->"8bbc8f7a-f751-794c-9337-a97f1bdae578"],
Cell[20958, 682, 342, 6, 18, "Message",ExpressionUUID->"390798a4-00bb-054f-8ee2-e80440f44497"],
Cell[21303, 690, 100, 0, 25, "Output",ExpressionUUID->"ae91cf0f-72ea-5348-859e-dc6121354f77"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21440, 695, 2637, 87, 135, "Input",ExpressionUUID->"9338c89c-67a3-6e41-be9a-1cf34020b040"],
Cell[24080, 784, 101, 0, 25, "Output",ExpressionUUID->"d0d3835d-fdd0-8c42-8864-83afb328c4cf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24218, 789, 2577, 84, 135, "Input",ExpressionUUID->"ae8d22a0-13a2-9d41-b648-0faf6caf2253"],
Cell[26798, 875, 102, 0, 25, "Output",ExpressionUUID->"751398e6-9533-bb47-8958-7a1def21254b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26937, 880, 3686, 117, 197, "Input",ExpressionUUID->"7d419d4a-7a13-e94d-beb1-cf3b1cd962e0"],
Cell[30626, 999, 102, 0, 25, "Output",ExpressionUUID->"1aeb1149-722c-dc42-812b-49cc813a09fb"]
}, Open  ]],
Cell[30743, 1002, 138, 3, 34, "Input",ExpressionUUID->"5ded2365-6100-7b43-ad8b-c1b09dc62d32"],
Cell[CellGroupData[{
Cell[30906, 1009, 2052, 59, 92, "Input",ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-81ac5c3a022e"],
Cell[32961, 1070, 342, 6, 18, "Message",ExpressionUUID->"2ce305f1-c638-b640-9e67-d7f6ae2bda61"],
Cell[33306, 1078, 342, 6, 18, "Message",ExpressionUUID->"b0af1054-fb47-e740-95af-24928a790ba1"],
Cell[33651, 1086, 100, 0, 25, "Output",ExpressionUUID->"66158712-c3f0-e64f-90ca-4bc93914d109"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33788, 1091, 2052, 59, 92, "Input",ExpressionUUID->"2e2efe37-106e-8a4d-98e1-c6d073c59256"],
Cell[35843, 1152, 342, 6, 18, "Message",ExpressionUUID->"ddbb5dc1-4246-b141-8007-17d96bea04a9"],
Cell[36188, 1160, 342, 6, 18, "Message",ExpressionUUID->"1cbe63d8-1cf3-164a-9de9-78e410d01cd1"],
Cell[36533, 1168, 100, 0, 25, "Output",ExpressionUUID->"4bc5c73f-64dd-7843-be37-b49a7d1b54f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36670, 1173, 1936, 53, 69, "Input",ExpressionUUID->"5ef8c446-ea46-eb49-90ca-5a9d2703a626"],
Cell[38609, 1228, 342, 6, 18, "Message",ExpressionUUID->"ce9fdda1-e376-7b48-b042-8c3b4f405fcb"],
Cell[38954, 1236, 342, 6, 18, "Message",ExpressionUUID->"66a78cc9-892b-204f-b904-4d54d4d3ebd0"],
Cell[39299, 1244, 342, 6, 18, "Message",ExpressionUUID->"77cccd91-6a05-1146-b314-0aa4f406152c"],
Cell[39644, 1252, 407, 7, 18, "Message",ExpressionUUID->"72ad5b3e-6607-7741-ad4a-54927ade8695"],
Cell[40054, 1261, 8042, 364, 148, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f8427134-7951-8548-ae28-485a485148a2"],
Cell[48099, 1627, 191, 5, 25, "Output",ExpressionUUID->"5446bdee-36aa-604e-a81f-f7b281aa780e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48327, 1637, 2142, 61, 92, "Input",ExpressionUUID->"b7386bff-07bb-694b-b11c-7d3ff3a35bae"],
Cell[50472, 1700, 342, 6, 18, "Message",ExpressionUUID->"1b40a6b1-b8e0-af43-829a-2ca3d7ae070e"],
Cell[50817, 1708, 342, 6, 18, "Message",ExpressionUUID->"2360947f-22ea-fb4f-90b8-fd6f79665669"],
Cell[51162, 1716, 342, 6, 18, "Message",ExpressionUUID->"281ea8ed-b5ba-8045-83d3-97b36671a021"],
Cell[51507, 1724, 407, 7, 18, "Message",ExpressionUUID->"a4dfac90-0844-364a-8cdf-0596249bd283"],
Cell[51917, 1733, 8048, 353, 148, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"42a070d0-1a40-f841-bc5a-496bce3f6168"],
Cell[59968, 2088, 191, 5, 25, "Output",ExpressionUUID->"c9fc5a7b-2d38-ba43-857f-9aa96e6b3d16"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60196, 2098, 327, 7, 34, "Input",ExpressionUUID->"08cc1ff9-b63b-d741-9dab-b5604b3208c2"],
Cell[60526, 2107, 9692, 222, 192, "Output",ExpressionUUID->"d769d980-5c09-fe4c-baf0-fe9ddf32668b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70255, 2334, 257, 6, 34, "Input",ExpressionUUID->"c833855b-86a8-7349-9ccf-32b52052d827"],
Cell[70515, 2342, 2580, 42, 53, "Message",ExpressionUUID->"876d039d-4206-f648-bcad-3d1cc1c9375e"],
Cell[73098, 2386, 10187, 227, 60, "Output",ExpressionUUID->"d3e123dc-41cb-7141-a991-a4f7fbe6f12f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[83322, 2618, 217, 7, 39, "Input",ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-f10741068cd1"],
Cell[83542, 2627, 100, 0, 25, "Output",ExpressionUUID->"38637efc-803d-8640-9e6e-276437831f52"]
}, Open  ]],
Cell[CellGroupData[{
Cell[83679, 2632, 1816, 53, 92, "Input",ExpressionUUID->"e95bae90-91f9-c74f-b890-1d51c0908f7e"],
Cell[85498, 2687, 342, 6, 18, "Message",ExpressionUUID->"c023352e-b521-e84e-9cb3-97c71ad6a25e"],
Cell[85843, 2695, 342, 6, 18, "Message",ExpressionUUID->"7309d20d-7fd9-4f4d-a7f3-0872cdf1105f"],
Cell[86188, 2703, 342, 6, 18, "Message",ExpressionUUID->"43ff04d1-726c-9a4f-a3ef-930184afcb3e"],
Cell[86533, 2711, 407, 7, 18, "Message",ExpressionUUID->"3fd3a11a-bede-e144-8b42-539dbe9249ba"],
Cell[86943, 2720, 8211, 365, 148, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"960bbf59-2015-8349-bffe-e4d767d8aeeb"],
Cell[95157, 3087, 191, 5, 25, "Output",ExpressionUUID->"a75c82b0-dce2-dd4f-b864-2a6b5c402da4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95385, 3097, 1590, 47, 69, "Input",ExpressionUUID->"b292bf25-9f2c-1b44-bd26-31940b3b367d"],
Cell[96978, 3146, 342, 6, 18, "Message",ExpressionUUID->"bd49935b-c0f9-f44f-af7a-e4ad6a7bc2ad"],
Cell[97323, 3154, 101, 0, 25, "Output",ExpressionUUID->"43a947d2-2d74-d447-89ff-92c212e98dc4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[97461, 3159, 2251, 64, 131, "Input",ExpressionUUID->"101ef0da-c6f5-1c49-9804-85fb5ed316b5"],
Cell[99715, 3225, 342, 6, 18, "Message",ExpressionUUID->"131678ec-17c0-f049-b9b0-aed329dc5583"],
Cell[100060, 3233, 342, 6, 18, "Message",ExpressionUUID->"a6fc1549-2fa3-f649-b6cc-c7168f9393cf"],
Cell[100405, 3241, 103, 0, 25, "Output",ExpressionUUID->"0f29d6b0-abda-0849-9008-4443dea42d94"]
}, Open  ]],
Cell[CellGroupData[{
Cell[100545, 3246, 2221, 64, 131, "Input",ExpressionUUID->"087f1adc-ca17-4a4e-8be3-617724431d54"],
Cell[102769, 3312, 342, 6, 18, "Message",ExpressionUUID->"ffb3115b-8086-8941-bf0d-81ed4818f26f"],
Cell[103114, 3320, 342, 6, 18, "Message",ExpressionUUID->"6eb50ae6-c8bd-6941-a71f-82927d1c1d5c"],
Cell[103459, 3328, 100, 0, 25, "Output",ExpressionUUID->"e9e8685d-f821-c64d-930c-bdbceafb1970"]
}, Open  ]],
Cell[CellGroupData[{
Cell[103596, 3333, 2221, 64, 131, "Input",ExpressionUUID->"562762dd-8337-c248-84ed-48f09efe77cb"],
Cell[105820, 3399, 342, 6, 18, "Message",ExpressionUUID->"88848fa9-89c0-7441-a937-117af52a31e7"],
Cell[106165, 3407, 342, 6, 18, "Message",ExpressionUUID->"3e81b6c4-2244-bf42-b8b5-0fa000d4a037"],
Cell[106510, 3415, 101, 0, 25, "Output",ExpressionUUID->"75996429-631f-a540-8db3-d3eecf498491"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106648, 3420, 213, 6, 38, "Input",ExpressionUUID->"b22d48b0-99f1-fc43-8d66-dfdcb64caaf4"],
Cell[106864, 3428, 104, 0, 25, "Output",ExpressionUUID->"8631572e-009c-e547-9adf-d000b75a3b80"]
}, Open  ]],
Cell[106983, 3431, 245, 5, 34, "Input",ExpressionUUID->"324c5332-372a-9346-847e-b48a2f85529f"],
Cell[CellGroupData[{
Cell[107253, 3440, 532, 18, 42, "Input",ExpressionUUID->"3aa52613-e091-4440-b97b-cbff40fea673"],
Cell[107788, 3460, 100, 0, 25, "Output",ExpressionUUID->"0bfccaf4-b419-7b47-a5b9-ad617225ded2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[107925, 3465, 144, 4, 46, "Input",ExpressionUUID->"00409e7b-892c-b145-91f2-fd5d9616a547"],
Cell[108072, 3471, 100, 0, 25, "Output",ExpressionUUID->"0910edf9-27aa-f943-bd90-76d5bfb56389"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108209, 3476, 155, 4, 35, "Input",ExpressionUUID->"eb9f1869-8c47-4c47-ad8f-589aa7e556b3"],
Cell[108367, 3482, 100, 0, 25, "Output",ExpressionUUID->"50a3d579-8928-2343-996d-237ad0eb297d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108504, 3487, 6029, 184, 310, "Input",ExpressionUUID->"a68db5dc-89e4-f247-a519-53dcbe6905b1"],
Cell[114536, 3673, 102, 0, 25, "Output",ExpressionUUID->"6b11f8d3-6b54-614d-a4c0-669be8c0ee7f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114675, 3678, 342, 8, 33, "Input",ExpressionUUID->"d3d0889a-1b29-9a4d-af3d-093ef0359f4b"],
Cell[115020, 3688, 342, 6, 18, "Message",ExpressionUUID->"465a75ef-6b20-9848-9eff-c4e675672ad8"],
Cell[115365, 3696, 99, 0, 25, "Output",ExpressionUUID->"8931c974-5816-9e48-9ac0-0532e1ef18b1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[115501, 3701, 6096, 186, 353, "Input",ExpressionUUID->"9fe1a567-82b8-a345-b4b0-80b2c100f9f3"],
Cell[121600, 3889, 102, 0, 25, "Output",ExpressionUUID->"13c9a29c-6a6d-ff49-88af-96394780a9e2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[121739, 3894, 342, 8, 33, "Input",ExpressionUUID->"3372ffe6-5d5a-b247-8795-4c6a022053d0"],
Cell[122084, 3904, 342, 6, 18, "Message",ExpressionUUID->"5f5967c2-a14c-de46-b55b-52a0b7afbab3"],
Cell[122429, 3912, 100, 0, 25, "Output",ExpressionUUID->"bd025469-aef5-2448-a097-d2409dcee75d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[122566, 3917, 2637, 87, 135, "Input",ExpressionUUID->"367b34da-973d-2d45-8020-5f24b7ad9501"],
Cell[125206, 4006, 101, 0, 25, "Output",ExpressionUUID->"98cac926-ef59-1342-b091-1b565c5978b3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[125344, 4011, 2577, 84, 135, "Input",ExpressionUUID->"112859ae-f114-4041-84e8-1ba64a91ebc1"],
Cell[127924, 4097, 102, 0, 25, "Output",ExpressionUUID->"36a7aeca-f2a3-e949-b0ca-f804c0163692"]
}, Open  ]],
Cell[CellGroupData[{
Cell[128063, 4102, 3686, 117, 197, "Input",ExpressionUUID->"695320bc-fa3e-3547-be92-70a745b298b2"],
Cell[131752, 4221, 102, 0, 25, "Output",ExpressionUUID->"0abac473-9a99-bd43-b50e-e41bacfd95b6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[131891, 4226, 2054, 59, 92, "Input",ExpressionUUID->"b1722e07-c26a-4d47-97af-4f4eb5664e3b"],
Cell[133948, 4287, 342, 6, 18, "Message",ExpressionUUID->"7ab7ec2a-fa78-4845-8b94-ac80bbb482ff"],
Cell[134293, 4295, 342, 6, 18, "Message",ExpressionUUID->"1e16a028-2ecd-3143-835f-f92cd0016663"],
Cell[134638, 4303, 101, 0, 25, "Output",ExpressionUUID->"eadd70e7-26a1-4b46-8240-f3dce9859a07"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134776, 4308, 2054, 59, 92, "Input",ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-a3bdb03abf99"],
Cell[136833, 4369, 342, 6, 18, "Message",ExpressionUUID->"62adfe6c-817a-8644-a989-225720cd7059"],
Cell[137178, 4377, 342, 6, 18, "Message",ExpressionUUID->"cbaa115f-bf0d-1e4f-b5c7-1d35bae46521"],
Cell[137523, 4385, 100, 0, 25, "Output",ExpressionUUID->"e9a05a92-f41b-934a-a923-0dffa18fc100"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137660, 4390, 2030, 55, 54, "Input",ExpressionUUID->"39feef99-fcf4-8440-bed1-25beef5a0630"],
Cell[139693, 4447, 342, 6, 18, "Message",ExpressionUUID->"56c86859-71bc-bf4d-8ea6-a152a4a828d3"],
Cell[140038, 4455, 342, 6, 18, "Message",ExpressionUUID->"47fbb3e0-458c-4d48-bc65-cfbd454ebd8b"],
Cell[140383, 4463, 342, 6, 18, "Message",ExpressionUUID->"a25aaf8c-9a35-1543-b0b4-c881fe78844a"],
Cell[140728, 4471, 407, 7, 18, "Message",ExpressionUUID->"d9cbee06-5ef4-e14d-b8da-4a8591142866"],
Cell[141138, 4480, 9456, 438, 148, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"2f0c6d62-d79c-fe40-ae18-5a4696a4ccbb"],
Cell[150597, 4920, 191, 5, 25, "Output",ExpressionUUID->"1b36cfb9-6a09-4c41-9a4d-068e88bb9e2c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[150825, 4930, 2148, 61, 92, "Input",ExpressionUUID->"e605439d-19dd-2645-8993-c76100de5ed2"],
Cell[152976, 4993, 342, 6, 18, "Message",ExpressionUUID->"c359dea9-9ece-cf49-b7df-ef6b53440b08"],
Cell[153321, 5001, 342, 6, 18, "Message",ExpressionUUID->"df87c0d2-a345-c048-8631-aeba4b69c5c2"],
Cell[153666, 5009, 342, 6, 18, "Message",ExpressionUUID->"991abcb1-81ce-9b40-bdbb-a15d386b1b78"],
Cell[154011, 5017, 407, 7, 18, "Message",ExpressionUUID->"9aaae4b6-fac0-394d-b0b6-90b588c1351a"],
Cell[154421, 5026, 8570, 368, 148, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"9a870480-d3d4-8843-9f49-e5fc868c350b"],
Cell[162994, 5396, 191, 5, 25, "Output",ExpressionUUID->"954422c5-4061-764e-bf48-99c016a64c85"]
}, Open  ]],
Cell[CellGroupData[{
Cell[163222, 5406, 257, 6, 34, "Input",ExpressionUUID->"3e01852b-fa23-2642-abab-f1f489e06059"],
Cell[163482, 5414, 2580, 42, 56, "Message",ExpressionUUID->"745689c4-10fa-1143-9aff-0dfee3349f79"],
Cell[166065, 5458, 10201, 227, 56, "Output",ExpressionUUID->"ec18a0ba-e266-a343-9325-0845f1736c56"]
}, Closed]],
Cell[CellGroupData[{
Cell[176303, 5690, 1590, 47, 67, "Input",ExpressionUUID->"cec9d659-40a4-9344-876a-cec895b68137"],
Cell[177896, 5739, 342, 6, 18, "Message",ExpressionUUID->"c8a425da-4684-ff4d-913f-cc5851265bc3"],
Cell[178241, 5747, 101, 0, 25, "Output",ExpressionUUID->"62616100-cef9-c34a-90ec-7024e73a21ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[178379, 5752, 2247, 64, 131, "Input",ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-08e72b48e971"],
Cell[180629, 5818, 342, 6, 18, "Message",ExpressionUUID->"3bf07443-b608-4243-b971-51f82147ad62"],
Cell[180974, 5826, 342, 6, 18, "Message",ExpressionUUID->"e747471f-596a-2242-a829-0d8e6535227a"],
Cell[181319, 5834, 101, 0, 25, "Output",ExpressionUUID->"89855e7d-6748-6649-99fc-db6c764ac3a4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[181457, 5839, 2219, 64, 131, "Input",ExpressionUUID->"b256ae65-c9c8-994b-815e-de484a821375"],
Cell[183679, 5905, 342, 6, 18, "Message",ExpressionUUID->"ce81120b-8f1e-dd40-9437-7d92ce72052d"],
Cell[184024, 5913, 342, 6, 18, "Message",ExpressionUUID->"8dc8593d-acd4-c74f-aea6-e734c994e283"],
Cell[184369, 5921, 101, 0, 25, "Output",ExpressionUUID->"6dc23113-bc95-494e-93a5-cd6a253efc0a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[184507, 5926, 2223, 64, 131, "Input",ExpressionUUID->"8fd338d4-a1be-6841-b853-e94a67cb9612"],
Cell[186733, 5992, 342, 6, 56, "Message",ExpressionUUID->"6d8f0be9-093a-3b41-85dc-708af7e242e1"],
Cell[187078, 6000, 342, 6, 56, "Message",ExpressionUUID->"2079ef2d-a37e-f54c-92b8-a37a53f349ad"],
Cell[187423, 6008, 101, 0, 56, "Output",ExpressionUUID->"554a4ded-bde6-2a46-af18-bac29cb48d9d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[187561, 6013, 215, 6, 56, "Input",ExpressionUUID->"9231c462-6016-ac42-bd11-cb0c7e92fda2"],
Cell[187779, 6021, 102, 0, 56, "Output",ExpressionUUID->"682bcc08-531d-5f43-acd9-aafef153314e"]
}, Open  ]],
Cell[187896, 6024, 249, 5, 56, "Input",ExpressionUUID->"7b4f4188-e9b4-a249-91fe-f977b92c20b2"],
Cell[CellGroupData[{
Cell[188170, 6033, 532, 18, 56, "Input",ExpressionUUID->"e639aabf-9918-b148-b52f-1037c590e22d"],
Cell[188705, 6053, 101, 0, 56, "Output",ExpressionUUID->"e8a065a4-9b1c-1e46-9347-2538ec1d0d92"]
}, Open  ]],
Cell[CellGroupData[{
Cell[188843, 6058, 144, 4, 56, "Input",ExpressionUUID->"9f21bdcd-6887-bf47-af20-cb6fe2ae22d1"],
Cell[188990, 6064, 101, 0, 56, "Output",ExpressionUUID->"50446e68-3d8c-8d45-9164-a3f05e953b7b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[189128, 6069, 155, 4, 56, "Input",ExpressionUUID->"807c9644-b813-4545-bd97-a39923ad2c85"],
Cell[189286, 6075, 100, 0, 56, "Output",ExpressionUUID->"c53e1eb9-111c-1c4f-83a4-760a21ed4b09"]
}, Open  ]],
Cell[CellGroupData[{
Cell[189423, 6080, 6029, 184, 56, "Input",ExpressionUUID->"c029bbe7-1e0d-6c47-9817-6aab8cca4349"],
Cell[195455, 6266, 102, 0, 56, "Output",ExpressionUUID->"23daa51b-d813-3040-bd45-0d347c7122da"]
}, Open  ]],
Cell[CellGroupData[{
Cell[195594, 6271, 342, 8, 56, "Input",ExpressionUUID->"02414061-9268-3a40-809c-791f7b1bc727"],
Cell[195939, 6281, 342, 6, 56, "Message",ExpressionUUID->"c6830ba9-9f74-4c4c-9b97-dded42b0d0cf"],
Cell[196284, 6289, 100, 0, 56, "Output",ExpressionUUID->"7cdd740f-da8e-1847-901d-4e38334c4602"]
}, Open  ]],
Cell[CellGroupData[{
Cell[196421, 6294, 6096, 186, 56, "Input",ExpressionUUID->"0cf6ee00-990f-aa48-80f8-a2822701e626"],
Cell[202520, 6482, 102, 0, 56, "Output",ExpressionUUID->"bb8b113c-f7cc-4f4e-b883-2112fdc5e77e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[202659, 6487, 342, 8, 56, "Input",ExpressionUUID->"0e7a310e-8267-084b-8d71-ceb0b816dd18"],
Cell[203004, 6497, 342, 6, 56, "Message",ExpressionUUID->"23da22f8-8350-eb48-95d4-6a0bc4f515a3"],
Cell[203349, 6505, 99, 0, 56, "Output",ExpressionUUID->"0dd898e7-1224-8c4b-9b4a-44bf5a45b446"]
}, Open  ]],
Cell[CellGroupData[{
Cell[203485, 6510, 2637, 87, 56, "Input",ExpressionUUID->"16870642-9452-a14f-a1b7-576792706e56"],
Cell[206125, 6599, 101, 0, 56, "Output",ExpressionUUID->"09f95964-259e-d442-8b4d-9152a060f55e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[206263, 6604, 2577, 84, 56, "Input",ExpressionUUID->"207b673b-eb18-904e-8dba-9c1c1dd6034c"],
Cell[208843, 6690, 102, 0, 56, "Output",ExpressionUUID->"cd37bbf1-e49a-6647-92bf-66da4b35a93e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208982, 6695, 3686, 117, 56, "Input",ExpressionUUID->"fcc33f59-ac5d-dc44-a6a0-01cb1397795c"],
Cell[212671, 6814, 102, 0, 56, "Output",ExpressionUUID->"a8990ed0-d980-fe49-b54f-af15cdaca5a8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[212810, 6819, 2054, 59, 56, "Input",ExpressionUUID->"c2bffed8-3648-ee47-bc6e-be191758bd92"],
Cell[214867, 6880, 342, 6, 56, "Message",ExpressionUUID->"9353aa27-5dd8-6249-9acf-27d71a8dfe31"],
Cell[215212, 6888, 342, 6, 56, "Message",ExpressionUUID->"7a16941e-3686-3c49-a9bf-a8f0d031eb03"],
Cell[215557, 6896, 100, 0, 56, "Output",ExpressionUUID->"abe399c8-88d7-1f45-b974-4e13120badf7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[215694, 6901, 2054, 59, 56, "Input",ExpressionUUID->"162c1d78-b731-9743-923d-e14e238c88c0"],
Cell[217751, 6962, 342, 6, 56, "Message",ExpressionUUID->"3884f153-af14-6b4b-904c-75f8499cadb1"],
Cell[218096, 6970, 342, 6, 56, "Message",ExpressionUUID->"decb9285-274f-5646-8622-e985a1ccc581"],
Cell[218441, 6978, 100, 0, 56, "Output",ExpressionUUID->"26b8d6b5-120d-b94f-8e05-d4bbf530818b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[218578, 6983, 2028, 55, 56, "Input",ExpressionUUID->"e062485f-eb72-5b44-8f24-f29169102337"],
Cell[220609, 7040, 342, 6, 56, "Message",ExpressionUUID->"b65eca92-46bf-1d45-b9d4-7717f8601dca"],
Cell[220954, 7048, 342, 6, 56, "Message",ExpressionUUID->"43097017-8d6b-ed44-885b-d7dcc2918c11"],
Cell[221299, 7056, 342, 6, 56, "Message",ExpressionUUID->"2c60786a-2040-fe49-981b-8347dab8e699"],
Cell[221644, 7064, 407, 7, 56, "Message",ExpressionUUID->"b9098ed1-26b0-e14f-83e6-f3cf126236c4"],
Cell[222054, 7073, 9456, 438, 56, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"d219667d-634a-2440-aa6f-10d194554a17"],
Cell[231513, 7513, 191, 5, 56, "Output",ExpressionUUID->"33e2e3bc-779e-de42-82b8-f8c295872460"]
}, Open  ]],
Cell[CellGroupData[{
Cell[231741, 7523, 2146, 61, 56, "Input",ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-5d019384c724"],
Cell[233890, 7586, 342, 6, 56, "Message",ExpressionUUID->"77187be0-9434-894a-bf72-82e8f3e36aa6"],
Cell[234235, 7594, 342, 6, 56, "Message",ExpressionUUID->"dae11eea-bf2c-ea41-8cfc-910dacad7d02"],
Cell[234580, 7602, 342, 6, 56, "Message",ExpressionUUID->"3a91b588-c1b9-514a-8b35-49bc5a04ab45"],
Cell[234925, 7610, 407, 7, 56, "Message",ExpressionUUID->"90d10efd-2d21-7342-aab1-c6fb4c5c2e48"],
Cell[235335, 7619, 8570, 368, 56, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"b4689af7-5bf9-8d45-aba9-b2818f315461"],
Cell[243908, 7989, 191, 5, 56, "Output",ExpressionUUID->"ee661a5c-41cb-6a4f-9f2e-fbc4cfed7c63"]
}, Open  ]],
Cell[CellGroupData[{
Cell[244136, 7999, 257, 6, 56, "Input",ExpressionUUID->"b7cf0d21-5483-ac4b-a7be-b13fedb5cf43"],
Cell[244396, 8007, 2580, 42, 56, "Message",ExpressionUUID->"aeed560b-6305-9b4b-9f36-1a15d67dc4b8"],
Cell[246979, 8051, 10201, 227, 56, "Output",ExpressionUUID->"a8995578-961d-6b40-b936-9720a58b42d1"]
}, Closed]],
Cell[CellGroupData[{
Cell[257217, 8283, 1590, 47, 56, "Input",ExpressionUUID->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"],
Cell[258810, 8332, 342, 6, 56, "Message",ExpressionUUID->"c6924563-b651-4446-bbba-bad311e0a4eb"],
Cell[259155, 8340, 101, 0, 56, "Output",ExpressionUUID->"41fd5ce1-50b0-1948-bce9-3bc136a88f8f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[259293, 8345, 2249, 64, 56, "Input",ExpressionUUID->"ad23855f-c99b-a44c-9a12-deb534d421e5"],
Cell[261545, 8411, 342, 6, 56, "Message",ExpressionUUID->"2f629e0d-1c2c-9343-bec2-dbe5570a25a9"],
Cell[261890, 8419, 342, 6, 56, "Message",ExpressionUUID->"60a5b48a-ad17-af47-8d95-10c332a921c3"],
Cell[262235, 8427, 100, 0, 56, "Output",ExpressionUUID->"780ecdd0-ef7b-2043-b88a-49c80ff7e9ca"]
}, Open  ]],
Cell[CellGroupData[{
Cell[262372, 8432, 2221, 64, 56, "Input",ExpressionUUID->"04adbbfb-46b7-244b-ac81-2150361c4bc9"],
Cell[264596, 8498, 342, 6, 56, "Message",ExpressionUUID->"62097c16-216f-f945-9c34-ad16941760e6"],
Cell[264941, 8506, 342, 6, 56, "Message",ExpressionUUID->"79915e14-0d67-a548-bfdc-6ae38b0a0207"],
Cell[265286, 8514, 99, 0, 56, "Output",ExpressionUUID->"ccc68cfe-df29-974a-9d22-9001e3d52ce6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[265422, 8519, 2221, 64, 56, "Input",ExpressionUUID->"a64b278e-5de9-3f4d-8a34-31c8693c1f49"],
Cell[267646, 8585, 342, 6, 56, "Message",ExpressionUUID->"e9cd5f2e-f4c7-8e4d-9d92-9849542cfa72"],
Cell[267991, 8593, 342, 6, 56, "Message",ExpressionUUID->"7d087d1e-2fe7-8744-a225-ab71c2e4e591"],
Cell[268336, 8601, 101, 0, 56, "Output",ExpressionUUID->"f6f65fa9-4786-a04a-8ffc-0bc012202e10"]
}, Open  ]],
Cell[CellGroupData[{
Cell[268474, 8606, 212, 6, 56, "Input",ExpressionUUID->"4be81bbf-81c0-3047-be62-a85883f3e3bb"],
Cell[268689, 8614, 102, 0, 56, "Output",ExpressionUUID->"c3918187-e898-c949-b542-e24802c9ee53"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)