7921 lines
246 KiB
Mathematica
Executable file
7921 lines
246 KiB
Mathematica
Executable file
(* Content-type: application/vnd.wolfram.mathematica *)
|
|
|
|
(*** Wolfram Notebook File ***)
|
|
(* http://www.wolfram.com/nb *)
|
|
|
|
(* CreatedBy='Wolfram 14.1' *)
|
|
|
|
(*CacheID: 234*)
|
|
(* Internal cache information:
|
|
NotebookFileLineBreakTest
|
|
NotebookFileLineBreakTest
|
|
NotebookDataPosition[ 154, 7]
|
|
NotebookDataLength[ 243505, 7911]
|
|
NotebookOptionsPosition[ 219988, 7552]
|
|
NotebookOutlinePosition[ 220412, 7569]
|
|
CellTagsIndexPosition[ 220369, 7566]
|
|
WindowFrame->Normal*)
|
|
|
|
(* Beginning of Notebook Content *)
|
|
Notebook[{
|
|
Cell[BoxData[
|
|
RowBox[{"f1", "="}]], "Input",
|
|
CellChangeTimes->{
|
|
3.9918505481678543`*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\
|
|
5e950c758893"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.991850549355442*^9,
|
|
3.991850549360302*^9}},ExpressionUUID->"7730e455-e5f4-194b-b761-\
|
|
e7a6896afd10"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"f2", "="}]], "Input",
|
|
CellChangeTimes->{
|
|
3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\
|
|
5e27a96171a9"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.9918505524437046`*^9,
|
|
3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\
|
|
8c5c5be10fe8"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Ir", "=",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"A1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.16", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "1"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"1", "/", "3"}]]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.16", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "1"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"1", "/", "3"}]]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.16", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}],
|
|
")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"],
|
|
|
|
Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Il", "=",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.16", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\
|
|
a9b137c5e3b6"],
|
|
|
|
Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Ih", "=",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.16", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}]], "Input",
|
|
CellChangeTimes->{{3.991557709328657*^9,
|
|
3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\
|
|
8010347227f7"],
|
|
|
|
Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Qb3", "=",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "1"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"Ih", "*", "Ir"}],
|
|
RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\
|
|
e247-a132-b43b2736212a"],
|
|
|
|
Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Qw3", "=",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "1"}]], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"Ih", "+", "Il"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\
|
|
ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"],
|
|
|
|
Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hb", "=",
|
|
SqrtBox[
|
|
FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\
|
|
88a4-7c75445a4f32"],
|
|
|
|
Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hw", "=",
|
|
SqrtBox[
|
|
FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\
|
|
a9f8-bc957ede9a68"],
|
|
|
|
Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cw", "=",
|
|
FractionBox[
|
|
RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\
|
|
eb8f-4944-8d03-7bcd77a7b4b4"],
|
|
|
|
Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cb", "=",
|
|
FractionBox[
|
|
RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\
|
|
08dc-e64f-8823-2a55ad6b8ca8"],
|
|
|
|
Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"o1", "=",
|
|
RowBox[{
|
|
RowBox[{"1", "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]], "*", "Cb"}], "+",
|
|
RowBox[{"Cw", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}],
|
|
"2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\
|
|
bf8f-1350d0b8a0bb"],
|
|
|
|
Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-", "x"}], "*", "x", "*", "o1"}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"65edd566-\
|
|
4493-2440-9c51-9fca28ce324b"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"],
|
|
|
|
Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"o2", "=",
|
|
RowBox[{
|
|
RowBox[{"1", "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]], "*", "Cb"}], "+",
|
|
RowBox[{"Cw", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\
|
|
afec-31463f4946cd"],
|
|
|
|
Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-", "x"}], "*", "x", "*", "o2"}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"56b1717f-\
|
|
bc75-4047-98f0-7a0dede3f8a9"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"],
|
|
|
|
Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h1", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}],
|
|
")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
|
|
")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\
|
|
f74418e31aeb"],
|
|
|
|
Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h2", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
|
|
")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\
|
|
91d5391478d5"],
|
|
|
|
Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h3", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}],
|
|
")"}]}], ")"}], "/",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
"\[IndentingNewLine]",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\
|
|
ef4e-9454-9d4e027f5fa2"],
|
|
|
|
Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Clear", "[",
|
|
RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\
|
|
2048-8697-fe84d79611fa"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"J1", "=",
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.9918505674491863`*^9},ExpressionUUID->"f8b12d93-5bd9-8641-aa98-\
|
|
3d78ebb0f21b"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"42c1a263-2456-664a-bb33-c5fe841cb412"],
|
|
|
|
Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"J2", "=",
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.99185057022003*^9},ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"be4d7bfb-c18e-564a-93ce-3f42607886e7"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"b768ca5f-6b93-1f43-97bf-08f74ea2facd"],
|
|
|
|
Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"a", "=",
|
|
RowBox[{"Plot", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*",
|
|
RowBox[{"Cos", "[",
|
|
FractionBox[
|
|
RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.9918505747312756`*^9},ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-\
|
|
12d8b19f0936"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"d3cb6fbc-3803-0541-80d1-8cab47341c44"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"635ef23c-be29-f947-b49d-c0d2f59f2ba8"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"d8687e0f-2f42-0543-a749-78a1ff3c9572"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"General", "::", "\<\"stop\"\>"}], ":",
|
|
" ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \
|
|
suppressed during this calculation. \
|
|
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
|
|
\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \
|
|
"Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"],
|
|
|
|
Cell[GraphicsData["PostScript", "\<\
|
|
%!
|
|
%%Creator: Mathematica
|
|
%%AspectRatio: .61803
|
|
MathPictureStart
|
|
/Mabs {
|
|
Mgmatrix idtransform
|
|
Mtmatrix dtransform
|
|
} bind def
|
|
/Mabsadd { Mabs
|
|
3 -1 roll add
|
|
3 1 roll add
|
|
exch } bind def
|
|
%% Graphics
|
|
%%IncludeResource: font Courier
|
|
%%IncludeFont: Courier
|
|
/Courier findfont 10 scalefont setfont
|
|
% Scaling calculations
|
|
0.0238095 0.00529101 -2.67879 2.97603 [
|
|
[.15608 .28474 -6 -9 ]
|
|
[.15608 .28474 6 0 ]
|
|
[.28836 .28474 -6 -9 ]
|
|
[.28836 .28474 6 0 ]
|
|
[.42063 .28474 -6 -9 ]
|
|
[.42063 .28474 6 0 ]
|
|
[.55291 .28474 -9 -9 ]
|
|
[.55291 .28474 9 0 ]
|
|
[.68519 .28474 -9 -9 ]
|
|
[.68519 .28474 9 0 ]
|
|
[.81746 .28474 -9 -9 ]
|
|
[.81746 .28474 9 0 ]
|
|
[.94974 .28474 -9 -9 ]
|
|
[.94974 .28474 9 0 ]
|
|
[.01131 .14844 -24 -4.5 ]
|
|
[.01131 .14844 0 4.5 ]
|
|
[.01131 .44604 -24 -4.5 ]
|
|
[.01131 .44604 0 4.5 ]
|
|
[.01131 .59484 -18 -4.5 ]
|
|
[.01131 .59484 0 4.5 ]
|
|
[ 0 0 0 0 ]
|
|
[ 1 .61803 0 0 ]
|
|
] MathScale
|
|
% Start of Graphics
|
|
1 setlinecap
|
|
1 setlinejoin
|
|
newpath
|
|
0 g
|
|
.25 Mabswid
|
|
[ ] 0 setdash
|
|
.15608 .29724 m
|
|
.15608 .30349 L
|
|
s
|
|
[(25)] .15608 .28474 0 1 Mshowa
|
|
.28836 .29724 m
|
|
.28836 .30349 L
|
|
s
|
|
[(50)] .28836 .28474 0 1 Mshowa
|
|
.42063 .29724 m
|
|
.42063 .30349 L
|
|
s
|
|
[(75)] .42063 .28474 0 1 Mshowa
|
|
.55291 .29724 m
|
|
.55291 .30349 L
|
|
s
|
|
[(100)] .55291 .28474 0 1 Mshowa
|
|
.68519 .29724 m
|
|
.68519 .30349 L
|
|
s
|
|
[(125)] .68519 .28474 0 1 Mshowa
|
|
.81746 .29724 m
|
|
.81746 .30349 L
|
|
s
|
|
[(150)] .81746 .28474 0 1 Mshowa
|
|
.94974 .29724 m
|
|
.94974 .30349 L
|
|
s
|
|
[(175)] .94974 .28474 0 1 Mshowa
|
|
.125 Mabswid
|
|
.05026 .29724 m
|
|
.05026 .30099 L
|
|
s
|
|
.07672 .29724 m
|
|
.07672 .30099 L
|
|
s
|
|
.10317 .29724 m
|
|
.10317 .30099 L
|
|
s
|
|
.12963 .29724 m
|
|
.12963 .30099 L
|
|
s
|
|
.18254 .29724 m
|
|
.18254 .30099 L
|
|
s
|
|
.20899 .29724 m
|
|
.20899 .30099 L
|
|
s
|
|
.23545 .29724 m
|
|
.23545 .30099 L
|
|
s
|
|
.2619 .29724 m
|
|
.2619 .30099 L
|
|
s
|
|
.31481 .29724 m
|
|
.31481 .30099 L
|
|
s
|
|
.34127 .29724 m
|
|
.34127 .30099 L
|
|
s
|
|
.36772 .29724 m
|
|
.36772 .30099 L
|
|
s
|
|
.39418 .29724 m
|
|
.39418 .30099 L
|
|
s
|
|
.44709 .29724 m
|
|
.44709 .30099 L
|
|
s
|
|
.47354 .29724 m
|
|
.47354 .30099 L
|
|
s
|
|
.5 .29724 m
|
|
.5 .30099 L
|
|
s
|
|
.52646 .29724 m
|
|
.52646 .30099 L
|
|
s
|
|
.57937 .29724 m
|
|
.57937 .30099 L
|
|
s
|
|
.60582 .29724 m
|
|
.60582 .30099 L
|
|
s
|
|
.63228 .29724 m
|
|
.63228 .30099 L
|
|
s
|
|
.65873 .29724 m
|
|
.65873 .30099 L
|
|
s
|
|
.71164 .29724 m
|
|
.71164 .30099 L
|
|
s
|
|
.7381 .29724 m
|
|
.7381 .30099 L
|
|
s
|
|
.76455 .29724 m
|
|
.76455 .30099 L
|
|
s
|
|
.79101 .29724 m
|
|
.79101 .30099 L
|
|
s
|
|
.84392 .29724 m
|
|
.84392 .30099 L
|
|
s
|
|
.87037 .29724 m
|
|
.87037 .30099 L
|
|
s
|
|
.89683 .29724 m
|
|
.89683 .30099 L
|
|
s
|
|
.92328 .29724 m
|
|
.92328 .30099 L
|
|
s
|
|
.97619 .29724 m
|
|
.97619 .30099 L
|
|
s
|
|
.25 Mabswid
|
|
0 .29724 m
|
|
1 .29724 L
|
|
s
|
|
.02381 .14844 m
|
|
.03006 .14844 L
|
|
s
|
|
[(0.95)] .01131 .14844 1 0 Mshowa
|
|
.02381 .44604 m
|
|
.03006 .44604 L
|
|
s
|
|
[(1.05)] .01131 .44604 1 0 Mshowa
|
|
.02381 .59484 m
|
|
.03006 .59484 L
|
|
s
|
|
[(1.1)] .01131 .59484 1 0 Mshowa
|
|
.125 Mabswid
|
|
.02381 .02939 m
|
|
.02756 .02939 L
|
|
s
|
|
.02381 .05915 m
|
|
.02756 .05915 L
|
|
s
|
|
.02381 .08892 m
|
|
.02756 .08892 L
|
|
s
|
|
.02381 .11868 m
|
|
.02756 .11868 L
|
|
s
|
|
.02381 .1782 m
|
|
.02756 .1782 L
|
|
s
|
|
.02381 .20796 m
|
|
.02756 .20796 L
|
|
s
|
|
.02381 .23772 m
|
|
.02756 .23772 L
|
|
s
|
|
.02381 .26748 m
|
|
.02756 .26748 L
|
|
s
|
|
.02381 .327 m
|
|
.02756 .327 L
|
|
s
|
|
.02381 .35676 m
|
|
.02756 .35676 L
|
|
s
|
|
.02381 .38652 m
|
|
.02756 .38652 L
|
|
s
|
|
.02381 .41628 m
|
|
.02756 .41628 L
|
|
s
|
|
.02381 .4758 m
|
|
.02756 .4758 L
|
|
s
|
|
.02381 .50556 m
|
|
.02756 .50556 L
|
|
s
|
|
.02381 .53532 m
|
|
.02756 .53532 L
|
|
s
|
|
.02381 .56508 m
|
|
.02756 .56508 L
|
|
s
|
|
.25 Mabswid
|
|
.02381 0 m
|
|
.02381 .61803 L
|
|
s
|
|
0 0 m
|
|
1 0 L
|
|
1 .61803 L
|
|
0 .61803 L
|
|
closepath
|
|
clip
|
|
newpath
|
|
.5 Mabswid
|
|
.02381 .01472 m
|
|
.02499 .01472 L
|
|
.02605 .01472 L
|
|
.02729 .01473 L
|
|
.02846 .01474 L
|
|
.03053 .01478 L
|
|
.03279 .01482 L
|
|
.03527 .01489 L
|
|
.0379 .01499 L
|
|
.04262 .0152 L
|
|
.04749 .01548 L
|
|
.05205 .0158 L
|
|
.06244 .01675 L
|
|
.07305 .01801 L
|
|
.08274 .01944 L
|
|
.10458 .02358 L
|
|
.12357 .02821 L
|
|
.14429 .03435 L
|
|
.18493 .04963 L
|
|
.22406 .06826 L
|
|
.26565 .09204 L
|
|
.30571 .11858 L
|
|
.34426 .14717 L
|
|
.38527 .1805 L
|
|
.42475 .215 L
|
|
.46273 .24996 L
|
|
.50315 .28853 L
|
|
.54206 .3264 L
|
|
.58342 .36674 L
|
|
.62326 .40497 L
|
|
.66159 .44044 L
|
|
.70238 .47601 L
|
|
.74164 .50741 L
|
|
.77939 .53432 L
|
|
.8196 .55879 L
|
|
.85828 .57771 L
|
|
.87793 .58543 L
|
|
.89942 .59234 L
|
|
.91995 .59741 L
|
|
.92911 .59917 L
|
|
.93905 .60073 L
|
|
.94426 .60141 L
|
|
.94906 .60194 L
|
|
.95356 .60236 L
|
|
.95851 .60273 L
|
|
.96295 .60299 L
|
|
.9671 .60316 L
|
|
.96939 .60323 L
|
|
.97148 .60328 L
|
|
.97264 .6033 L
|
|
Mistroke
|
|
.9739 .60331 L
|
|
.97509 .60332 L
|
|
.97619 .60332 L
|
|
Mfstroke
|
|
% End of Graphics
|
|
MathPictureEnd
|
|
\
|
|
\>"], "Graphics",
|
|
ImageSize->{288, 177.938},
|
|
ImageMargins->{{43, 0}, {0, 0}},
|
|
ImageRegion->{{0, 1}, {0,
|
|
1}},ImageCache->GraphicsData["CompressedBitmap", "\<\
|
|
eJzlnAmUFMUZx3t3jl1Yl0MwogJZAUEWIWrU6CjPGx6eGBXj8eCt6AhGhQdo
|
|
jMeLJ15RGw8UD0DAeB+5OvHCvMQzXom3TuJ94RnvKzhOVXdXV838/1U9uytq
|
|
so8pZv71q6++/uqb3qrq7t21Y860gw/vmDN9akfb+FkdM6dNnzq7bdyMWRUp
|
|
0+B5DTdXXj3bPPG+7HlxUa78K/9WFEL5Zt+vL//LeGHH5fAlyrnfo/peYewq
|
|
747lrVpE2azI2ZzsJ8qcIo/g5ABRZhV5KCcHijKvyIM4OcTsfYpGSnCEeifr
|
|
D+CW2k1yX06ONslJnNxQlI2K3IuTG5s29+Dkpia5Gyc3N3vfhZMF0+YETo41
|
|
yXGc3MbsfQdObmeS23FyB5Pcpnq0x5nejeWWJpiWtuTkzia5BSd3NcmfcHJ3
|
|
k9yUk3sATZYb8zY/Na1byL1MckNOTmJ+jOZt9jGtW8h9mfV23mY/07pOSvAA
|
|
s359bmky63093maKad1CdjDrQ3ibA03rFvIgk2zjZJH5MYi3OcS0biGnM+tr
|
|
8zaHmtYt5GEmOYCTRzA/1qjOjxmM7M+tzzT9sJCzmPW+vM1s1qYPbzPH9MhC
|
|
HsWst/I2v2BtVuNtjjY9ishG+V/OK5cCr1jwwp9C0QtKUpVWgmIk+4GXhXzB
|
|
K1bqclFd4Be9uKpS6RWDkpcHHh3DjqJH6JvXHMklz49ckp9l15XPYtJS62Ho
|
|
Rd4rxXjlFQhXC75XEhEQQpOUCkVfYaXAl04Xg+TAdceOZc42R85mQkm4Ugyi
|
|
Txmv5Fe68UvyU2/N21iL4xK3E5+yoKvjzNEzO407yQBjvXWtEgJrp3ISeDw7
|
|
0lzqTlvibgItE8SQiSAX/CYViIKMNzvoXzFPsqk96RkNd7lcSZqKL35QUknk
|
|
R1nRqIIiGP1H5HUJpe4J5nCY/sij1vzRc6An8DFOyXLJF/0lhyr9kYnu9QBO
|
|
nMTC0xC5k02+P0Ut+UXgQ6uGR1qEYo/ElyLQvkcuj05mHmknmooJv1BQKeFX
|
|
zLfGdUH1iaOcDKo2ODLwspvkMFD+nAK0rzx6hjwVaCs5PlflgAU6HWhfcPwM
|
|
oH3O8TOB9hnHz1Ie65Bkzgb4x9zSOUD7iOPnAu1DjvtA+4Dj84D2PsfPU1Gw
|
|
QBcA7V2OXwi0dzg+H2hvc/wioL3F8YuB9ibHFwBtRXV+XKKCtoJbugxor3H8
|
|
cqC9yvGFQHuF44uA9jLHFwPtJY5fAbQXOb4EaC9wfCnQnuf4MqA9x/Er1Vha
|
|
oKuAVqrOiqsB9Cy3eQ3QnuH4tUB7muPXAe0pjl8PtCc5fgPQnuD4jUB7nOMj
|
|
I03/LScnY5Vfs/EMKX6h6bXcTiNTbzxlD+fTsS9i6lEIJ8jWafxqwPfVYxtB
|
|
MnnKRL4XjOlMGfpg828QtZ3VbMuY5eoIFzdb63K9IeW2M4btxjpD35NnT3uk
|
|
hWuaQJoKzbd44TzTXAqxdU+4W2JfG6nJKl+VKR/FPM+P6jMpbKPs6m+xZfMh
|
|
jZ8/pLa7Hktuu+vxRbbzneyvB0+rUZFWEtPyyBW0fhkZO6Bp8hV+RsugEUBr
|
|
BqZRRvSzjFrtsipv9OFwazAwnU0ZBdS2uf7IIDP5lNFq5mO5gTrbiDQKTfcA
|
|
JthYRl2jOI9QppMTGfKuFbi1OjhaFJXG+t1CgcyljEI9Y1mnC/mU0bKM5WgV
|
|
ppI0Lb7GsQl9SyUeS11zeIzO3Gi3phdwq++qHct8yijYxrKOyCAzTSmjpY+l
|
|
jNkY5XuSh45dqOH2ah5oPMBwQLDpeFz1se6zase6qf54tVEPuxxDm4d1xDXl
|
|
hC5OomTj2pyE6Hty5jIi1PTN3uqj0r1FS4FGYE9esJGrR1sS1PaGfxEXcNhR
|
|
iDOdDMpQm5udCJQ1QR3Bs1zTaY8NCRNeYjqcrOk5b5q0jnmy9euhvd9hWkjj
|
|
/vQLJLFWHdI1gf9hOufUPEnsI8chylJ/mgx/wpfd53Wc/dQfw7ZUvtcfX7ev
|
|
9cfekkKj9O7UuSbcY0+7jz4sJWfbzx+uDi055YWe5sC3NFke6/b7geMLUywr
|
|
wx4ukWWYchZXspa6wXZzXYniQGw62w3BJV5XXwrtTMwtc85bgHY/x28F2n0c
|
|
vw1o93L8dqDdw/E7gHY3x5cD7S6O3wm0v3H8L0D7a4jLZb24bufNE0UDN9Kc
|
|
Umv6lrj/FV8y0fdQ16IhUnsA/8/x+WZ84TdidlIbBrSWLtjbCGj9uOt3AW05
|
|
x+8G2h0cvwdot3P8XqDdxvH7gHYrx+8H2i0c/zvQ/szxB4D2J44/CLRAw2XN
|
|
QwD6I7f5MND+wPFHgPZ7jv8DaL/j+D+BZrkj/lGg3czxx4B2E8cfB9qNHH8C
|
|
aDdw/EmgXc/xp4B2HcefBtq11ZnyDICu4TafBdrVHC8B7SqO/wtov+H4v4F2
|
|
JcefA9oyjj8PtKUcfwFoSzj+ItCu4PhLQFvM8ZeBtojjrwBtYXWmyJsY5Lx+
|
|
Ibf0OtAu5fgbQLuE4yuAtoDjbwLtYo6/BbSLOP420OZz/B2gXcjxd4F2Acff
|
|
A9r5HP8P0M6rHvD3ATSP2/wAaD7HPwTauRz/SGWfBfoEaL/m+KdAO4vjnwHt
|
|
TI5/DrQzOP4F0E4PcU+7C9eLb6HA191r7xnG1/PjHYS0dzV/CbTTQu/iNTq6
|
|
JFV7k3W669v13sf8X6DN5e7FF2BrL6yam6Jp72NeCbRT3d27tuTtdzSvVN+I
|
|
buzKdfOyLBtAxUmd8QFcQw43cpLto4K6eRiNezmMQW3FiekG33SnqXYz33Fr
|
|
sCwzoOKE6Jubj9K3Zqc0vm6cbvM4hRf8VvPIbs3mWi8V1tr9uK7coCzLnMrO
|
|
yAl0zpMlWkYf52iDltmW50tliSJ3jKMN2g75paNNizpyF4nuHThKayNrpIyu
|
|
TB/psN4bVMxxtOkDKixP48qyrzpeF4l2v2c62vQHFTMcbdYAFZYnhWX5A1Bx
|
|
uKMNumB0mKPNAFDxc0ebtVSEXeQ6oGIazKiBgDzEYX0QqCg62gxWvrvINlAx
|
|
1dFmXVBxoKPNEOWRi0Q7bFMcbdYDFZMdbYYrj1wkqtjf0WYkqNjP0aZdeaST
|
|
SfZsABru47A5Wtl0kT9S5N4OciNF7ukgfwwqJjrabKKsu8jNFGl5Ql6WyWPy
|
|
lifkZVlQ5E4OcitQMd7RZqyy7iK3VuSOMBe2VfXbOyxtr8htHeSOitzaQY5X
|
|
pOX5e1kmD+Fbnr+X5c7qADd3kLspm5s5yInKZpiJ5t2W0U8mKl0ru2zKtmhm
|
|
Kss9lTfRU/jxVMS1iEM3h6H1oiwnqeiM4b30rsfiz5Tfo7rJojx7yvXUiE5Y
|
|
TP6+yGT1cWg3eSZ/9zUJeWA3WZSPwMvrfmvqOYjv5Gi11KEpuyzlzKxVyNF9
|
|
YOEFKbL0qJGp3e/SX7Sx1Mv3q+ivA3kNXwM/7XZb\
|
|
\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \
|
|
{-19.394, 0.892147, 0.709611, \
|
|
0.0012616}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"],
|
|
|
|
Cell[BoxData[
|
|
TagBox[
|
|
RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
|
|
False,
|
|
Editable->False]], "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-\
|
|
c578eb57eb6a"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"x", "=",
|
|
RowBox[{"Plot", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.9918505781608486`*^9},ExpressionUUID->"4b73592e-b155-8f42-b33d-\
|
|
562f8b3faecd"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"9f5fa53c-8bea-a349-9c29-e4614f56cc98"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"a2ecd22c-b766-5347-9e03-9d459620be75"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"General", "::", "\<\"stop\"\>"}], ":",
|
|
" ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \
|
|
suppressed during this calculation. \
|
|
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
|
|
\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \
|
|
"Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"],
|
|
|
|
Cell[GraphicsData["PostScript", "\<\
|
|
%!
|
|
%%Creator: Mathematica
|
|
%%AspectRatio: .61803
|
|
MathPictureStart
|
|
/Mabs {
|
|
Mgmatrix idtransform
|
|
Mtmatrix dtransform
|
|
} bind def
|
|
/Mabsadd { Mabs
|
|
3 -1 roll add
|
|
3 1 roll add
|
|
exch } bind def
|
|
%% Graphics
|
|
%%IncludeResource: font Courier
|
|
%%IncludeFont: Courier
|
|
/Courier findfont 10 scalefont setfont
|
|
% Scaling calculations
|
|
0.0238095 0.031746 0.0147151 6.72103 [
|
|
[.18254 .00222 -3 -9 ]
|
|
[.18254 .00222 3 0 ]
|
|
[.34127 .00222 -6 -9 ]
|
|
[.34127 .00222 6 0 ]
|
|
[.5 .00222 -6 -9 ]
|
|
[.5 .00222 6 0 ]
|
|
[.65873 .00222 -6 -9 ]
|
|
[.65873 .00222 6 0 ]
|
|
[.81746 .00222 -6 -9 ]
|
|
[.81746 .00222 6 0 ]
|
|
[.97619 .00222 -6 -9 ]
|
|
[.97619 .00222 6 0 ]
|
|
[.01131 .14914 -24 -4.5 ]
|
|
[.01131 .14914 0 4.5 ]
|
|
[.01131 .28356 -24 -4.5 ]
|
|
[.01131 .28356 0 4.5 ]
|
|
[.01131 .41798 -24 -4.5 ]
|
|
[.01131 .41798 0 4.5 ]
|
|
[.01131 .5524 -24 -4.5 ]
|
|
[.01131 .5524 0 4.5 ]
|
|
[ 0 0 0 0 ]
|
|
[ 1 .61803 0 0 ]
|
|
] MathScale
|
|
% Start of Graphics
|
|
1 setlinecap
|
|
1 setlinejoin
|
|
newpath
|
|
0 g
|
|
.25 Mabswid
|
|
[ ] 0 setdash
|
|
.18254 .01472 m
|
|
.18254 .02097 L
|
|
s
|
|
[(5)] .18254 .00222 0 1 Mshowa
|
|
.34127 .01472 m
|
|
.34127 .02097 L
|
|
s
|
|
[(10)] .34127 .00222 0 1 Mshowa
|
|
.5 .01472 m
|
|
.5 .02097 L
|
|
s
|
|
[(15)] .5 .00222 0 1 Mshowa
|
|
.65873 .01472 m
|
|
.65873 .02097 L
|
|
s
|
|
[(20)] .65873 .00222 0 1 Mshowa
|
|
.81746 .01472 m
|
|
.81746 .02097 L
|
|
s
|
|
[(25)] .81746 .00222 0 1 Mshowa
|
|
.97619 .01472 m
|
|
.97619 .02097 L
|
|
s
|
|
[(30)] .97619 .00222 0 1 Mshowa
|
|
.125 Mabswid
|
|
.05556 .01472 m
|
|
.05556 .01847 L
|
|
s
|
|
.0873 .01472 m
|
|
.0873 .01847 L
|
|
s
|
|
.11905 .01472 m
|
|
.11905 .01847 L
|
|
s
|
|
.15079 .01472 m
|
|
.15079 .01847 L
|
|
s
|
|
.21429 .01472 m
|
|
.21429 .01847 L
|
|
s
|
|
.24603 .01472 m
|
|
.24603 .01847 L
|
|
s
|
|
.27778 .01472 m
|
|
.27778 .01847 L
|
|
s
|
|
.30952 .01472 m
|
|
.30952 .01847 L
|
|
s
|
|
.37302 .01472 m
|
|
.37302 .01847 L
|
|
s
|
|
.40476 .01472 m
|
|
.40476 .01847 L
|
|
s
|
|
.43651 .01472 m
|
|
.43651 .01847 L
|
|
s
|
|
.46825 .01472 m
|
|
.46825 .01847 L
|
|
s
|
|
.53175 .01472 m
|
|
.53175 .01847 L
|
|
s
|
|
.56349 .01472 m
|
|
.56349 .01847 L
|
|
s
|
|
.59524 .01472 m
|
|
.59524 .01847 L
|
|
s
|
|
.62698 .01472 m
|
|
.62698 .01847 L
|
|
s
|
|
.69048 .01472 m
|
|
.69048 .01847 L
|
|
s
|
|
.72222 .01472 m
|
|
.72222 .01847 L
|
|
s
|
|
.75397 .01472 m
|
|
.75397 .01847 L
|
|
s
|
|
.78571 .01472 m
|
|
.78571 .01847 L
|
|
s
|
|
.84921 .01472 m
|
|
.84921 .01847 L
|
|
s
|
|
.88095 .01472 m
|
|
.88095 .01847 L
|
|
s
|
|
.9127 .01472 m
|
|
.9127 .01847 L
|
|
s
|
|
.94444 .01472 m
|
|
.94444 .01847 L
|
|
s
|
|
.25 Mabswid
|
|
0 .01472 m
|
|
1 .01472 L
|
|
s
|
|
.02381 .14914 m
|
|
.03006 .14914 L
|
|
s
|
|
[(0.02)] .01131 .14914 1 0 Mshowa
|
|
.02381 .28356 m
|
|
.03006 .28356 L
|
|
s
|
|
[(0.04)] .01131 .28356 1 0 Mshowa
|
|
.02381 .41798 m
|
|
.03006 .41798 L
|
|
s
|
|
[(0.06)] .01131 .41798 1 0 Mshowa
|
|
.02381 .5524 m
|
|
.03006 .5524 L
|
|
s
|
|
[(0.08)] .01131 .5524 1 0 Mshowa
|
|
.125 Mabswid
|
|
.02381 .04832 m
|
|
.02756 .04832 L
|
|
s
|
|
.02381 .08193 m
|
|
.02756 .08193 L
|
|
s
|
|
.02381 .11553 m
|
|
.02756 .11553 L
|
|
s
|
|
.02381 .18274 m
|
|
.02756 .18274 L
|
|
s
|
|
.02381 .21635 m
|
|
.02756 .21635 L
|
|
s
|
|
.02381 .24995 m
|
|
.02756 .24995 L
|
|
s
|
|
.02381 .31716 m
|
|
.02756 .31716 L
|
|
s
|
|
.02381 .35077 m
|
|
.02756 .35077 L
|
|
s
|
|
.02381 .38437 m
|
|
.02756 .38437 L
|
|
s
|
|
.02381 .45158 m
|
|
.02756 .45158 L
|
|
s
|
|
.02381 .48519 m
|
|
.02756 .48519 L
|
|
s
|
|
.02381 .51879 m
|
|
.02756 .51879 L
|
|
s
|
|
.02381 .586 m
|
|
.02756 .586 L
|
|
s
|
|
.25 Mabswid
|
|
.02381 0 m
|
|
.02381 .61803 L
|
|
s
|
|
0 0 m
|
|
1 0 L
|
|
1 .61803 L
|
|
0 .61803 L
|
|
closepath
|
|
clip
|
|
newpath
|
|
.5 Mabswid
|
|
.02381 .01472 m
|
|
.06244 .18263 L
|
|
.10458 .34796 L
|
|
.12507 .41668 L
|
|
.14415 .47199 L
|
|
.16371 .51906 L
|
|
.18221 .55405 L
|
|
.192 .56876 L
|
|
.20263 .58172 L
|
|
.21228 .59082 L
|
|
.2212 .59698 L
|
|
.22586 .59936 L
|
|
.22843 .60043 L
|
|
.23087 .60129 L
|
|
.23313 .60195 L
|
|
.2356 .60252 L
|
|
.23669 .60272 L
|
|
.23784 .6029 L
|
|
.23886 .60304 L
|
|
.23993 .60315 L
|
|
.24059 .6032 L
|
|
.24132 .60325 L
|
|
.2426 .60331 L
|
|
.24332 .60332 L
|
|
.2441 .60332 L
|
|
.24483 .6033 L
|
|
.2455 .60328 L
|
|
.24679 .6032 L
|
|
.24752 .60314 L
|
|
.24819 .60307 L
|
|
.25074 .60272 L
|
|
.253 .60228 L
|
|
.2555 .60165 L
|
|
.26055 .59995 L
|
|
.26547 .59774 L
|
|
.27064 .59486 L
|
|
.2799 .58832 L
|
|
.30075 .56765 L
|
|
.3205 .54159 L
|
|
.33886 .51282 L
|
|
.37791 .44198 L
|
|
.41941 .36071 L
|
|
.45939 .28487 L
|
|
.49785 .21945 L
|
|
.53877 .16105 L
|
|
.57818 .1166 L
|
|
.61606 .08416 L
|
|
.63714 .07001 L
|
|
.6564 .05921 L
|
|
.69523 .04269 L
|
|
Mistroke
|
|
.71425 .03672 L
|
|
.73499 .0315 L
|
|
.7547 .02757 L
|
|
.77569 .0243 L
|
|
.79714 .02174 L
|
|
.81732 .01991 L
|
|
.83744 .01853 L
|
|
.85592 .01756 L
|
|
.87479 .01681 L
|
|
.89546 .0162 L
|
|
.91501 .01578 L
|
|
.93594 .01545 L
|
|
.95662 .01522 L
|
|
.97619 .01507 L
|
|
Mfstroke
|
|
% End of Graphics
|
|
MathPictureEnd
|
|
\
|
|
\>"], "Graphics",
|
|
ImageSize->{288, 177.938},
|
|
ImageMargins->{{43, 0}, {0, 0}},
|
|
ImageRegion->{{0, 1}, {0,
|
|
1}},ImageCache->GraphicsData["CompressedBitmap", "\<\
|
|
eJztnAmwHEUZxyd7vDMBA4kQjuQJihGPnEBcVLwALywtlfIoj2eSNU+NQABL
|
|
SgoRBUQEFgEVSi4PTjkCsoqiCMghhxyKKAMiIIKIIOKBiKwz3TO9PW9/3870
|
|
7swCVbzK67z9dX//75uenp6Zb3p2t8l91qxeO7nP1MrJiV3XTe65Zmrl3hO7
|
|
7LEuQOUZnjfj/OB3bMIL/255Xly0gn+t9WERkvS/V6v/ql6zUfdqXvxT8+pN
|
|
39tO1ZW9VrNuasqqHPVqDV/Vml+/6dVjgVrda/otb4mDPflfFNu3Au2ophLZ
|
|
15utVP+LHezJ/xKpb4LYK1Ed+dV13ir137DXDOpr9Ybn+9qV32wouTCEHaIQ
|
|
G7Wa14jqy5Fdq+UHXEu2NzH4HPy9rItdN39xl+o2Tc8PPpUUG/fCvZTsFtn/
|
|
Yged9HiGlU2sY+/OcJiUMvSH3nZvyh5xgVz4aXuxq5LtShHzGzUzOpeC7QjY
|
|
xt3qB6wWhVjN6GMx2I6Brd7lQwmmfvXnMkiXeuuVTomkbdZeMcef2lG6bSWj
|
|
jyVgO9olFrsd9TL5mNY94TiNx21R3WP7MJuoxrXmrj5sW/Khd0HFmoKDmJqt
|
|
rG5K9kw2lJhIrclwRc6dVe7ubrk9rTvu8mWibbq7cIR5PY2wVbZXT89YO6ZM
|
|
S9Nl06alMviIt9YeEfHWdsz22iftt0WizDCcNNruV7i76tJhWq1q5slG0zcd
|
|
UDHtAxaeaqyOa9a1fXtL0jSmd2Bw6vHDU1a7s/UpLDkWsvnOqgUx6HOkOf31
|
|
EgN2r/4pmcuzdvPl8ewRyOqLIOWuGvViaB72XnztE0aylE0qGT0mdpA5DOvW
|
|
Durmlu3Kzr4b7Us6Tw/5br6jyz3pCnth5D78MUdAWB7y7KhfEP6nbi6ODosZ
|
|
stVYH2z0OduB2BYSy8KQjEPtyHOD5dls249eeD3Vmh2SmTkr24NKzeOvgUav
|
|
AvbqjO3UhflISCoZLTpCaunDIihGw4+7Y/1WYTEUfvww1s8PC5WwWM3HkWk5
|
|
z7ScSmk517Rcm9Jytmm5V0rLWablvnbLSqKL4sZqLyuR/dIbD5sO2T+9cdU0
|
|
PsBqXDH1ZVN/oC1WTYjFG/aUCfOg9MZPGuWD0xs/YRofmt74cdP4MN4J4W8J
|
|
2GPG8HA3w0eN4RFuho8Yw6PcDB8G5ijxkPH9VdmwDOxBYI4SDxjfx7kZ3g/M
|
|
llA1ZHif8fgN2SNNXfcCc5S4B9jxbhJ3AzvBTeIu0wMnyoZVYHcCc5S4A9hJ
|
|
bhI+sJPdJG4HdoosMQTst8BOdZO4Ddi33CRuNbvyu26GvwbWRWIY2C3ATrMk
|
|
VA0Z3gzsdDffNwE7w03iRmBnyhIjwG4AdpabxPXAzh64xHXAvucmcS2wc2QJ
|
|
uly9Bti5WkKftviBUXyAx0naWqPpVbu0T6aJ9I++JionEm108qCwrwZ2ng47
|
|
6qkuz14qEHzFjFn5kU07PzX9EVI5kTGk+Z824ipg50cboTsizsxS4pGeuHTL
|
|
8tpPa2gwUYRXAlufiDD2RM+nxrpEY7czttYTEZo96NbqCmAX5B5hIlsbPbxQ
|
|
M7waw9RzlwO7MPe4zBM76+EAnXup59IjjJP6aaMvGeFQol34G2XhY5m0Q4WC
|
|
vQzY96NgK+3jXSeSKY9s4u3IN48n2uljXs53U+9SHulSYBfpgM28CpnZWV3q
|
|
4owuZYzpcoPC+ikwPZTwjEESPwH2AzeJS4D9UJagdMyP+5f4EbCL3SQuFmWL
|
|
kpgl9j71T2aJJrBLLAlVQ4YXiSMks29HiQ2AXSgO9cwSFwC7dOAS64H9TJbY
|
|
ENh5wC4buMS5wC53kzgH2BWyxPOAnQ3s5wOXOAvYlW4SZwK7ypJQNbOh0Rkp
|
|
htOqSOJ0YFe7SZwG7JpCJTYC9h1gvxi4xLeBXVuoxMbATgV2nZvEKcCuH7jE
|
|
ycBukCXmADspRULVkOGJwH7p5vubwG4sVGIusBOA3TRwieOB3VyoxPOBfR3Y
|
|
LW4SXwP2q9wk8szLtOsa1oJhfX9GtzqbADsWmE51FpiLGbLs4pvJPALOL+9S
|
|
7SPCY4Ddmoiwt+xBtWMtbthGP8hLT8QNMtIxXjVsLX6K+rWdhqHwjgb2mxzC
|
|
o91fVe1iFu92ujPfFFgD2G0dg9I9HSMMA3Vo6dXqeUbaZy4m2U5vaMXkY2q1
|
|
9h7PEOdRwPQTpJ5TMLHreHGy1G3zgB0ph0MnBZI4AtjvBi7xFWC3yxKbATu8
|
|
f4kvA/MHLnEYsDtkic2BfSlFQtWQ4aHA7nTznYPEIcB+L0tsAezg/iW+COyu
|
|
gUt8AdgfZIktgR3Uv8Tngd09cIkDgd0jS8wH9rn+JQ4Adm++EqpmATTaH9gf
|
|
Zd8FSXwW2H2FSkwA2w/Yn9wkPgPs/kIlXgDs08AeGLjEvsD+XKjEVsD2BvZg
|
|
vhKqhgzXAfuL7HtrYHv1L7EnsIcGLrEHsL/KEi8E9qn+JdYCe9hN4pPAHpEl
|
|
XgTsE/1LfBzY37REEamXZt1KvNT03RDlCRxDLS71Er/sqO4r7VRCeO9Zb2aN
|
|
fQrYo1Hs/WRhhjvWH+hFR/C+Wk3fytIihG2ArUmNuLdkwjjnOsJ1JrX2S+hq
|
|
F9SjMaUSHtSrHwP292JiDO/Kwx60liPU6vL4pR4tKtrhzmit9xNpvc6Lga0G
|
|
9ljHCM0nJaMPw5jR+izXCHNNxZTMgaLX76nlb36LVmlRnKuA/UPH2Wsqpv1K
|
|
p5+cQuNDZJo7mv1XymFRc2IfBfZPWeIlwCb7l/gIsH8VKrEtsA8B+7ebxAeB
|
|
PV6oxEuBfQDYfywJVdOLYQbf7wf2hCzxMmDv61/ivcD+K0u8HNjuwJ4cuMR7
|
|
gP1PlngFsHf3L/EuYE8VKrEI2DuBtdwk3iFJdHnJumcdVb0YWr5dsi7JUeSl
|
|
swTY2ySd8tOj81ZJpyLrLAX2Zkmn+vTovEnSGZJ1lgHbNSedXSSdYVlnObCd
|
|
c9J5o6Qz4qbzBklnVNbZDtjrs+ioarJ+nWQ9JkexPbDX5qSzk6QzLuvsAIxe
|
|
6lblzOJ1VgDbUdKZVbzOKzMyVW4g69QyxtiLDvW9KvWi1VyTQrjGP0pd0INm
|
|
6nM6llSpF5YW/oKUvvlOfDeeurusiy9Q0FbQvKTK2dFW9JMj6nxHJfqc9R0V
|
|
+koFOkNAxL1lNPhb9Grtb9Gzv1lLRaxSRNSzdGZV5UY5xCktjAnfPVNrONRg
|
|
kdZN0JRGF26q3DiHcCGtFSUGE2M3CFlKa9FXedD1uyrndIzdPN6vmvbtZGlj
|
|
lyKmWydVzo0iLuYlK7uf/XaCjvqZzr5052pH3e+bVnZqs9ubVnSFQakJVerV
|
|
nnj2IR3K1ahyE1mHrpwoLafKTWUdun6jpLMq58k6dD1JD7JUuZmbDj0cVOXm
|
|
sg5dJ09IOlvIOnTdTksIVLmlrEP3EbS+RJXzLR1Vre5m1PcR0PocVS6QfdO9
|
|
Ga2kVOWErPMWYHNMZOrz1rI13bHSmw9pOnQHvWEyim1k691Mn85M2iyUbVQm
|
|
Y6Zpua3cUpXPkK/IS6tXf6d8Ebc34/9GSkZ2\
|
|
\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \
|
|
{-3.23234, -0.00806918, 0.118269, \
|
|
0.000558628}},ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"],
|
|
|
|
Cell[BoxData[
|
|
TagBox[
|
|
RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
|
|
False,
|
|
Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\
|
|
04dec8739bf5"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"xx", "=",
|
|
RowBox[{"ListPlot", "[",
|
|
RowBox[{"{", "}"}], "]"}]}]], "Input",
|
|
CellChangeTimes->{{3.991799458254999*^9,
|
|
3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\
|
|
5e6c7b4b5678"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Show", "[",
|
|
RowBox[{"x", ",", "xx"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.9917994642649307`*^9,
|
|
3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\
|
|
3f60fcfd9a79"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"L", "=",
|
|
FractionBox[
|
|
SqrtBox[
|
|
RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\
|
|
fe19384187c3"],
|
|
|
|
Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"L", "=",
|
|
RowBox[{"Plot", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"],
|
|
")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
FractionBox["1", "Cb"], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.991850612616415*^9},ExpressionUUID->"3764dfb4-9656-4349-b0a1-\
|
|
77ebd1a3e048"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"05911c33-7605-8b49-a7ba-7fc8c8f30741"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"General", "::", "\<\"stop\"\>"}], ":",
|
|
" ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \
|
|
suppressed during this calculation. \
|
|
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
|
|
\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \
|
|
"Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"],
|
|
|
|
Cell[GraphicsData["PostScript", "\<\
|
|
%!
|
|
%%Creator: Mathematica
|
|
%%AspectRatio: .61803
|
|
MathPictureStart
|
|
/Mabs {
|
|
Mgmatrix idtransform
|
|
Mtmatrix dtransform
|
|
} bind def
|
|
/Mabsadd { Mabs
|
|
3 -1 roll add
|
|
3 1 roll add
|
|
exch } bind def
|
|
%% Graphics
|
|
%%IncludeResource: font Courier
|
|
%%IncludeFont: Courier
|
|
/Courier findfont 10 scalefont setfont
|
|
% Scaling calculations
|
|
0.0238095 0.031746 0.0147151 12.2218 [
|
|
[.18254 .00222 -3 -9 ]
|
|
[.18254 .00222 3 0 ]
|
|
[.34127 .00222 -6 -9 ]
|
|
[.34127 .00222 6 0 ]
|
|
[.5 .00222 -6 -9 ]
|
|
[.5 .00222 6 0 ]
|
|
[.65873 .00222 -6 -9 ]
|
|
[.65873 .00222 6 0 ]
|
|
[.81746 .00222 -6 -9 ]
|
|
[.81746 .00222 6 0 ]
|
|
[.97619 .00222 -6 -9 ]
|
|
[.97619 .00222 6 0 ]
|
|
[.01131 .13693 -24 -4.5 ]
|
|
[.01131 .13693 0 4.5 ]
|
|
[.01131 .25915 -24 -4.5 ]
|
|
[.01131 .25915 0 4.5 ]
|
|
[.01131 .38137 -24 -4.5 ]
|
|
[.01131 .38137 0 4.5 ]
|
|
[.01131 .50359 -24 -4.5 ]
|
|
[.01131 .50359 0 4.5 ]
|
|
[ 0 0 0 0 ]
|
|
[ 1 .61803 0 0 ]
|
|
] MathScale
|
|
% Start of Graphics
|
|
1 setlinecap
|
|
1 setlinejoin
|
|
newpath
|
|
0 g
|
|
.25 Mabswid
|
|
[ ] 0 setdash
|
|
.18254 .01472 m
|
|
.18254 .02097 L
|
|
s
|
|
[(5)] .18254 .00222 0 1 Mshowa
|
|
.34127 .01472 m
|
|
.34127 .02097 L
|
|
s
|
|
[(10)] .34127 .00222 0 1 Mshowa
|
|
.5 .01472 m
|
|
.5 .02097 L
|
|
s
|
|
[(15)] .5 .00222 0 1 Mshowa
|
|
.65873 .01472 m
|
|
.65873 .02097 L
|
|
s
|
|
[(20)] .65873 .00222 0 1 Mshowa
|
|
.81746 .01472 m
|
|
.81746 .02097 L
|
|
s
|
|
[(25)] .81746 .00222 0 1 Mshowa
|
|
.97619 .01472 m
|
|
.97619 .02097 L
|
|
s
|
|
[(30)] .97619 .00222 0 1 Mshowa
|
|
.125 Mabswid
|
|
.05556 .01472 m
|
|
.05556 .01847 L
|
|
s
|
|
.0873 .01472 m
|
|
.0873 .01847 L
|
|
s
|
|
.11905 .01472 m
|
|
.11905 .01847 L
|
|
s
|
|
.15079 .01472 m
|
|
.15079 .01847 L
|
|
s
|
|
.21429 .01472 m
|
|
.21429 .01847 L
|
|
s
|
|
.24603 .01472 m
|
|
.24603 .01847 L
|
|
s
|
|
.27778 .01472 m
|
|
.27778 .01847 L
|
|
s
|
|
.30952 .01472 m
|
|
.30952 .01847 L
|
|
s
|
|
.37302 .01472 m
|
|
.37302 .01847 L
|
|
s
|
|
.40476 .01472 m
|
|
.40476 .01847 L
|
|
s
|
|
.43651 .01472 m
|
|
.43651 .01847 L
|
|
s
|
|
.46825 .01472 m
|
|
.46825 .01847 L
|
|
s
|
|
.53175 .01472 m
|
|
.53175 .01847 L
|
|
s
|
|
.56349 .01472 m
|
|
.56349 .01847 L
|
|
s
|
|
.59524 .01472 m
|
|
.59524 .01847 L
|
|
s
|
|
.62698 .01472 m
|
|
.62698 .01847 L
|
|
s
|
|
.69048 .01472 m
|
|
.69048 .01847 L
|
|
s
|
|
.72222 .01472 m
|
|
.72222 .01847 L
|
|
s
|
|
.75397 .01472 m
|
|
.75397 .01847 L
|
|
s
|
|
.78571 .01472 m
|
|
.78571 .01847 L
|
|
s
|
|
.84921 .01472 m
|
|
.84921 .01847 L
|
|
s
|
|
.88095 .01472 m
|
|
.88095 .01847 L
|
|
s
|
|
.9127 .01472 m
|
|
.9127 .01847 L
|
|
s
|
|
.94444 .01472 m
|
|
.94444 .01847 L
|
|
s
|
|
.25 Mabswid
|
|
0 .01472 m
|
|
1 .01472 L
|
|
s
|
|
.02381 .13693 m
|
|
.03006 .13693 L
|
|
s
|
|
[(0.01)] .01131 .13693 1 0 Mshowa
|
|
.02381 .25915 m
|
|
.03006 .25915 L
|
|
s
|
|
[(0.02)] .01131 .25915 1 0 Mshowa
|
|
.02381 .38137 m
|
|
.03006 .38137 L
|
|
s
|
|
[(0.03)] .01131 .38137 1 0 Mshowa
|
|
.02381 .50359 m
|
|
.03006 .50359 L
|
|
s
|
|
[(0.04)] .01131 .50359 1 0 Mshowa
|
|
.125 Mabswid
|
|
.02381 .03916 m
|
|
.02756 .03916 L
|
|
s
|
|
.02381 .0636 m
|
|
.02756 .0636 L
|
|
s
|
|
.02381 .08805 m
|
|
.02756 .08805 L
|
|
s
|
|
.02381 .11249 m
|
|
.02756 .11249 L
|
|
s
|
|
.02381 .16138 m
|
|
.02756 .16138 L
|
|
s
|
|
.02381 .18582 m
|
|
.02756 .18582 L
|
|
s
|
|
.02381 .21026 m
|
|
.02756 .21026 L
|
|
s
|
|
.02381 .23471 m
|
|
.02756 .23471 L
|
|
s
|
|
.02381 .2836 m
|
|
.02756 .2836 L
|
|
s
|
|
.02381 .30804 m
|
|
.02756 .30804 L
|
|
s
|
|
.02381 .33248 m
|
|
.02756 .33248 L
|
|
s
|
|
.02381 .35693 m
|
|
.02756 .35693 L
|
|
s
|
|
.02381 .40581 m
|
|
.02756 .40581 L
|
|
s
|
|
.02381 .43026 m
|
|
.02756 .43026 L
|
|
s
|
|
.02381 .4547 m
|
|
.02756 .4547 L
|
|
s
|
|
.02381 .47914 m
|
|
.02756 .47914 L
|
|
s
|
|
.02381 .52803 m
|
|
.02756 .52803 L
|
|
s
|
|
.02381 .55248 m
|
|
.02756 .55248 L
|
|
s
|
|
.02381 .57692 m
|
|
.02756 .57692 L
|
|
s
|
|
.02381 .60136 m
|
|
.02756 .60136 L
|
|
s
|
|
.25 Mabswid
|
|
.02381 0 m
|
|
.02381 .61803 L
|
|
s
|
|
0 0 m
|
|
1 0 L
|
|
1 .61803 L
|
|
0 .61803 L
|
|
closepath
|
|
clip
|
|
newpath
|
|
.5 Mabswid
|
|
.02381 .01472 m
|
|
.06244 .10806 L
|
|
.10458 .20681 L
|
|
.14415 .29388 L
|
|
.18221 .37017 L
|
|
.22272 .44131 L
|
|
.26171 .49847 L
|
|
.30316 .54591 L
|
|
.32392 .56431 L
|
|
.34309 .5781 L
|
|
.36173 .58858 L
|
|
.37125 .59283 L
|
|
.3815 .59658 L
|
|
.3917 .59947 L
|
|
.40103 .60141 L
|
|
.40552 .6021 L
|
|
.40789 .6024 L
|
|
.41042 .60267 L
|
|
.41284 .60289 L
|
|
.41504 .60305 L
|
|
.41725 .60317 L
|
|
.41834 .60322 L
|
|
.41933 .60325 L
|
|
.4205 .60328 L
|
|
.42174 .60331 L
|
|
.4229 .60332 L
|
|
.42399 .60332 L
|
|
.42526 .60331 L
|
|
.42644 .60329 L
|
|
.42773 .60326 L
|
|
.4291 .60321 L
|
|
.43163 .60308 L
|
|
.434 .60293 L
|
|
.43941 .60241 L
|
|
.44405 .60181 L
|
|
.4483 .60112 L
|
|
.45788 .59913 L
|
|
.46769 .59645 L
|
|
.47681 .59341 L
|
|
.49751 .58461 L
|
|
.53655 .56157 L
|
|
.57805 .52937 L
|
|
.61803 .49268 L
|
|
.6565 .45377 L
|
|
.69742 .4102 L
|
|
.73682 .36757 L
|
|
.77471 .32713 L
|
|
.81505 .2857 L
|
|
.85387 .24819 L
|
|
.89515 .21147 L
|
|
Mistroke
|
|
.93491 .17954 L
|
|
.97316 .15219 L
|
|
.97619 .15016 L
|
|
Mfstroke
|
|
% End of Graphics
|
|
MathPictureEnd
|
|
\
|
|
\>"], "Graphics",
|
|
ImageSize->{288, 177.938},
|
|
ImageMargins->{{43, 0}, {0, 0}},
|
|
ImageRegion->{{0, 1}, {0,
|
|
1}},ImageCache->GraphicsData["CompressedBitmap", "\<\
|
|
eJztnAuQFNUVhnt3ZhZ20WDUGNQo6xPxxe6CgIMgKgI+ACMqoiiswAgK8hTf
|
|
ARR8oXE0iXloLBNjtBJTPmt85E3FMiYpUyZRKzUpraTyKC0tLS1TsUxlMn1v
|
|
9+3ume/cme7phbXKqd3e3v+c85/Tt2/fvvf06ZnVv37Z0pX965cv7u+esbZ/
|
|
9bLli9d1T1+1tgpl2hyn7bHqb1e34+5XHMffVKo/lcfdjYs03l+q/uScUrHg
|
|
5B3/k3cKpbJzjJJlnEqpYCQZte108sWykprfcskp+AT5glMqV5zeGPbkf4xv
|
|
X6lye5KsZ18oVRr674lhT/57pbapxp71ZORXy5wl6s8Qp1SV5wtFp1zWrsql
|
|
oqJzQ5jghVjM552iJ894dpVKuYpryuAQq/9X98da7Gz+/CbVOiWnXP2vXWHD
|
|
HPcsRZtF9t8Tg6dxPEOUjc8TPp1uN2lvoj30sTvLwz2uSuf+N15sqqheu4eV
|
|
i3nTO/vAdijY+s1armJ5L8Rckz56wLYLbPUp74hg6lf/nwHq9mStUk8RtW22
|
|
Vcz1p06U1s026aMXbDstsYT1qJXJR03zuP3U77cD1TxhH+YQVb/WeFwfYVvy
|
|
oU9BNjQEV2MqVZp10x4eyToiA2loMJyYcmNl7O7GhYf1mKd8rGjb2J3bw5xE
|
|
PWxJ2KujR6xJDYalWtpGw1IGfPhHG+4R/tHWjfbaJ523MSLNELhpBO4nxndl
|
|
aTDNljPjZLFUNg2QNfpVzL3VhBquVND2wZE04qhtwOqtp+zesoLG1rewaF9o
|
|
znezXBCDvkea21+SGLB59afdTM8C9XH+6FGl1ZMg5S7ntaJr7raeP/dxI+lj
|
|
k2yTHiMnyFyGhdAJsrllu0xs38VgSufoLm/z7U33pBn2YZ5792OuAHd74ydD
|
|
PtL9oxYXd7qbNtmqqwWs81PbHWI7mGJp1nZoqMupC3fYIA/4U9vBFUvijjYF
|
|
lI4DbHLKeuFAQiL1190Thm6WZyPUvsrW9FVyEZVIQFtCejreTKBQ8W44N/BR
|
|
ub/tgKnt5p1vk5FsNqVrk5VsNqZrk5NsvtSijRInYe+QbK5L12aIZHNtujZD
|
|
JZtrdr4NjZVqe3WLNkpMo67aXiWz7ygbmlWo7ZXp2uwi2VyRrs2uks2GFm2U
|
|
OAn7ZySby9O1GS7ZrE/XZjfJZl1yG30H4gcL/tjpJ/PyxZKTs+hH0tzex7/7
|
|
hh/A0N2oUZze4GJJymchWo3Zc/n+UYazWzSaf1aKcK0XoT4sPx9H6SbKs1PC
|
|
LZtuSD41PYboAveUWhRDUhM1MZA1Oy6QGve7D76Q9pBCWl3Xg8IhST3IlrJN
|
|
LaRscNnpRB/l+UxUdfnAzoieanDIhdKkZk8pslVOdOCCFNmuFlnWtE8kYxgr
|
|
hCUgENZQVp7FIOiUeT4n8SxyN2oFuUsC64UgsPDsJfEsMFEMD1krRdHmfBAM
|
|
l31/XuKZD4LdEvDMM8ewRwLrc8QrDHlGSDxzTRR7JbA+UzxpyLO3xDPHRLF3
|
|
AuvZojLy7CPxnC4qx+M5DQT71vbTfSXrmaYt9pd9i9YzQJCEZzoIRso8X5B4
|
|
poGgOwHPSSA4QObZT+I5AQQHJuCZCoKDZJ79JZ7J5mwfmsCaMmxhnkzQjcB6
|
|
EghGyVGMlHiOBcFhCXgmgmC0zNMt8YwHweEJeI4BwREyzwEST585x0cnsO4F
|
|
gYXnQIlnDAjGJOA5GgQ9Ms9BEs+RIOit7bui9REg6EsQxeEgGCvzHCzxjDLn
|
|
eHwC60NBYOE5ROIhBxMS8FBz6asz1VV8tChAf3Q2PhMpq6BVPDWZ2tKFpEeo
|
|
AVzZB0uV2qrBTKRIhLLW4pHQwJT3jiS9DIDBQlV6lF4dJYVJ95dJkTDTWPka
|
|
21A5HK2kxDDpVn5c6mFG6nW88rUgeSEGR/OwyakHZwo3QzVi9NRCLJygKe+U
|
|
uh4ZP6PQEdFzf72KLJ+m0TU0WoqYli7HexG3mHAYVpdwsBVAUTuLUdOyT884
|
|
W0xGcB0RpWvE2GiBrWfV2G/oBqu2lKo4MQEP5ZVOknlo4qC2lFicloCH0ssn
|
|
yzw0DVJbejwwPcSjJKI1PcSYIUdxlMRDj4FmJuChx1anyDw0yVRbujOdmoCH
|
|
bh2nJeChS+d0mYcm4WpLg9qsBDw0VZot8/RIPG0gmFPb+8j6f+5WTYTPlN3S
|
|
mua/gMWk+BiwuTJFH2AfAXZWPIr/AHa2TDEWsH8Ddk48ig8BmydTjAPsA8DO
|
|
jUfxPmDzZQpacb8H2Hm1PZEM3wXsfNk3ZQ3eAWxBPIq3AbtAppgA2FuAXRiP
|
|
4k3AFsoUlIn5F2CL4lH8E7B+mYLySv9oneLvgF0kU+QB+xtgi2v7JBn+FbAl
|
|
sm/K0L0B2NJ4FK8DVpApKMv4F8AujkdRBmyZTEEVhn8GTL/0lGqewp870+uS
|
|
NAGg4srXALtEhzrQaQn7S4i0MKEDeBWwS70DSC8b0QF6NDc6HrA/AbYiEmGq
|
|
i+iyfRG98yLM+K0WfTUuSENQaH8AbOXANp5lZTwVsJcBu6yuA7ZazuB3wEYZ
|
|
B3qQ9HvAvBqCAUg2WN6aoialgF8CzCvHaD3PUP+uEY2VJwL2O8C8Whq6M9Cz
|
|
wd8AtjYexYuAWcrf6Ennr1uneAEwS+HeyYA9D1i4xlBJyPBXgFmKIOmZ8XbA
|
|
LJWdRPFLwCxFqPQE/OeAWeplieJngFkKh2cC9hPALPXKpwD2HGCWcmyieBYw
|
|
S+X4qYA9DVhdOTwZlgDbKPumQoqnANs0oBRUFvIEYJYXKYjiccCulylmAfYo
|
|
YJZXTahO5keAbYlH8QhgW2WKOYD9ADDLS5xnAPYwYDfV9kkyfAiwm2XfXwTs
|
|
QcBukSmoauoBwG6VKeYC9h3AtsWjuB+w22SKswC7D7DbZYqzAbsXsC/Ho7gH
|
|
sDtkCqqm+yZgRZliHmBfB+zO2j5JhncDdpfs+1zAvgrYV2QKqmq8S6RFivPE
|
|
BotiX4tHcYfYPkhBZZ63i+cm1TRBICuG0gR6GUEz8gWAbQPsGzrUgUsT0Jqn
|
|
2YBvFS+dNNMCuSYjvACwmwH7ViTCZCvbXN0XFrk6+lXRxvUrFwJ2I2D3pBBp
|
|
F3+1UugbIrx2DVIEFN4WwO5NITw6/Tml52P+aacF5CLArgfs23WdstVUQbBE
|
|
di8tnU2LG+lmwO7zIm0xZRDVM0khr0Yhnw/OeI3/fsDU9F491tPTjMT5gUiC
|
|
z5Eb6yLArgXMC4duBfTOw9WAfVemoNcvrgTsAZliKWAbAPtePIrLAXswRKEk
|
|
BVBaB9j3Zd8XA7YGsIdkimWArQLsYZliOWArTJf8oWx4SZNYTAqK5xGZ4lLA
|
|
Cib8R2XDFU32SQvFyiYvrsdkissAW2jCf7K219G5pRvzk7LH1YDRzO4pmWKN
|
|
CXC+2XtaVqfLglYWFor1gNEq6xmZgq7qM0z4P5YNNxil2Wbvp7I6jWGUsLFQ
|
|
XGX8zDR7v5DVrzFK08ze9tqecx0YTgVsu+wnuFFNMXvPy+qbADvWGL4gG242
|
|
ShPM3ouy+g1Gqc8c7W9l9a1G/Sij/pKsfpNRH232XpbVbzFKh5i9P8rq20wI
|
|
3Ub9FVldLdXVJHKE2Xut9kyrteUId68sM6ntIPmysEZytd/gK4mdtv8DOhP8
|
|
Ww==\
|
|
\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \
|
|
{-3.23234, -0.00443741, 0.118269, \
|
|
0.000307202}},ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"],
|
|
|
|
Cell[BoxData[
|
|
TagBox[
|
|
RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
|
|
False,
|
|
Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\
|
|
baecb9a57d9b"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"],
|
|
")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
FractionBox["1", "Cb"], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "y"}],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\
|
|
UUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"d7dfab56-fefd-0149-8a26-6ee16f94ab37"],
|
|
|
|
Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"q", "=",
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]],
|
|
RowBox[{"(",
|
|
RowBox[{"4", "x", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"x", "-", "J1"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}], ")"}], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
|
|
CellChangeTimes->{{3.991850595832054*^9,
|
|
3.991850600247154*^9}},ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-\
|
|
8e83e9537fdc"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"56921c73-2b67-0e4a-9808-5f61de992c7e"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"8ae663ad-3729-254b-9ec7-7f5d00ef81af"],
|
|
|
|
Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"S1", "=",
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]],
|
|
RowBox[{"(",
|
|
RowBox[{"4", "x", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]",
|
|
"*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}], ")"}], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
|
|
CellChangeTimes->{{3.991850617546938*^9,
|
|
3.991850621692934*^9}},ExpressionUUID->"ccaee6a3-c390-0444-bf16-\
|
|
3471356a3614"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"1795c3b9-0182-224c-b986-6414d6712c04"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"c3b31753-a67f-9b45-b822-068e1df11f68"],
|
|
|
|
Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"S2", "=",
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]],
|
|
RowBox[{"(",
|
|
RowBox[{"4", "x", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]",
|
|
"*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}], ")"}], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
|
|
CellChangeTimes->{{3.9918506254460773`*^9,
|
|
3.991850628958872*^9}},ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-\
|
|
286954db37c5"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"32db1bf6-ba11-cb4a-955a-52e174a44e5f"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"4e2b22f2-1724-7649-93fc-33cd27bb415e"],
|
|
|
|
Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
FractionBox["q",
|
|
SqrtBox[
|
|
RowBox[{"S1", "*", "S2"}]]]], "Input",
|
|
CellChangeTimes->{{3.9918506775260105`*^9,
|
|
3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\
|
|
20e078d734cd"],
|
|
|
|
Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Clear", "[",
|
|
RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.9918506873951664`*^9, 3.991850690050791*^9},
|
|
3.9919245116307106`*^9},ExpressionUUID->"ca329276-48d7-8943-8408-\
|
|
dd2997d3499c"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Qb2", "=",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "1"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"Il", "*", "Ih"}],
|
|
RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\
|
|
ae4b-824f-5eb2b3081f6d"],
|
|
|
|
Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hb", "=",
|
|
SqrtBox[
|
|
FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\
|
|
89cd-559587f30b91"],
|
|
|
|
Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cb", "=",
|
|
FractionBox[
|
|
RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\
|
|
afc4-be40-8f37-0116656ecd38"],
|
|
|
|
Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"o1", "=",
|
|
RowBox[{
|
|
RowBox[{"1", "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]], "*", "Cb"}], "+",
|
|
RowBox[{"Cw", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}],
|
|
"2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\
|
|
82a6-7cf06f61e28f"],
|
|
|
|
Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-", "x"}], "*", "x", "*", "o1"}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"b88b1a94-\
|
|
22d7-2843-88e3-f607b95c8af9"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"def6b331-c871-b04d-a16e-4fc00b03d009"],
|
|
|
|
Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"o2", "=",
|
|
RowBox[{
|
|
RowBox[{"1", "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]], "*", "Cb"}], "+",
|
|
RowBox[{"Cw", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\
|
|
9b53-9472e00c4d82"],
|
|
|
|
Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-", "x"}], "*", "x", "*", "o2"}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"47e2a8e8-\
|
|
6af3-374f-9eea-9c2b6faaaf4a"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"c6c8676e-4601-144e-b83c-769e22949175"],
|
|
|
|
Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h1", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}],
|
|
")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
|
|
")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\
|
|
6b0985b9b3bc"],
|
|
|
|
Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h2", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
|
|
")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\
|
|
4868d83e9702"],
|
|
|
|
Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h3", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}],
|
|
")"}]}], ")"}], "/",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
"\[IndentingNewLine]",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\
|
|
9940-98cd-9460e2c074b2"],
|
|
|
|
Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"J1", "=",
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.991850710120125*^9},ExpressionUUID->"db0784f6-51d0-fd44-b0e8-\
|
|
05d6af1a6e52"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"7fd60dea-f794-4744-8801-bfb1a50a0e07"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"0b8c0718-41d2-4542-8afe-212a15805650"],
|
|
|
|
Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"J2", "=",
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.9918507152152424`*^9},ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-\
|
|
f69c33a31448"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"b6f0ccc2-ff83-124b-a341-e143319c7670"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"d4b50e17-5ee4-384c-b81f-c2a36a80320e"],
|
|
|
|
Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"a", "=",
|
|
RowBox[{"Plot", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "1"],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*",
|
|
RowBox[{"Cos", "[",
|
|
FractionBox[
|
|
RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.9918507183992805`*^9},ExpressionUUID->"611f92ea-b199-2643-9788-\
|
|
194fae57c34e"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"7797a546-4085-124a-83da-5f3c472cdc4c"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"bf75ebeb-fc95-1d45-8487-ceed40ec633c"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"ca7472ca-7b27-a54a-84a1-e603fa592207"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"General", "::", "\<\"stop\"\>"}], ":",
|
|
" ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \
|
|
suppressed during this calculation. \
|
|
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
|
|
\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \
|
|
"Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"],
|
|
|
|
Cell[GraphicsData["PostScript", "\<\
|
|
%!
|
|
%%Creator: Mathematica
|
|
%%AspectRatio: .61803
|
|
MathPictureStart
|
|
/Mabs {
|
|
Mgmatrix idtransform
|
|
Mtmatrix dtransform
|
|
} bind def
|
|
/Mabsadd { Mabs
|
|
3 -1 roll add
|
|
3 1 roll add
|
|
exch } bind def
|
|
%% Graphics
|
|
%%IncludeResource: font Courier
|
|
%%IncludeFont: Courier
|
|
/Courier findfont 10 scalefont setfont
|
|
% Scaling calculations
|
|
0.0238095 0.00529101 -0.551091 0.817918 [
|
|
[.15608 .25433 -6 -9 ]
|
|
[.15608 .25433 6 0 ]
|
|
[.28836 .25433 -6 -9 ]
|
|
[.28836 .25433 6 0 ]
|
|
[.42063 .25433 -6 -9 ]
|
|
[.42063 .25433 6 0 ]
|
|
[.55291 .25433 -9 -9 ]
|
|
[.55291 .25433 9 0 ]
|
|
[.68519 .25433 -9 -9 ]
|
|
[.68519 .25433 9 0 ]
|
|
[.81746 .25433 -9 -9 ]
|
|
[.81746 .25433 9 0 ]
|
|
[.94974 .25433 -9 -9 ]
|
|
[.94974 .25433 9 0 ]
|
|
[.01131 .02145 -18 -4.5 ]
|
|
[.01131 .02145 0 4.5 ]
|
|
[.01131 .10324 -18 -4.5 ]
|
|
[.01131 .10324 0 4.5 ]
|
|
[.01131 .18504 -18 -4.5 ]
|
|
[.01131 .18504 0 4.5 ]
|
|
[.01131 .34862 -18 -4.5 ]
|
|
[.01131 .34862 0 4.5 ]
|
|
[.01131 .43041 -18 -4.5 ]
|
|
[.01131 .43041 0 4.5 ]
|
|
[.01131 .5122 -18 -4.5 ]
|
|
[.01131 .5122 0 4.5 ]
|
|
[.01131 .59399 -18 -4.5 ]
|
|
[.01131 .59399 0 4.5 ]
|
|
[ 0 0 0 0 ]
|
|
[ 1 .61803 0 0 ]
|
|
] MathScale
|
|
% Start of Graphics
|
|
1 setlinecap
|
|
1 setlinejoin
|
|
newpath
|
|
0 g
|
|
.25 Mabswid
|
|
[ ] 0 setdash
|
|
.15608 .26683 m
|
|
.15608 .27308 L
|
|
s
|
|
[(25)] .15608 .25433 0 1 Mshowa
|
|
.28836 .26683 m
|
|
.28836 .27308 L
|
|
s
|
|
[(50)] .28836 .25433 0 1 Mshowa
|
|
.42063 .26683 m
|
|
.42063 .27308 L
|
|
s
|
|
[(75)] .42063 .25433 0 1 Mshowa
|
|
.55291 .26683 m
|
|
.55291 .27308 L
|
|
s
|
|
[(100)] .55291 .25433 0 1 Mshowa
|
|
.68519 .26683 m
|
|
.68519 .27308 L
|
|
s
|
|
[(125)] .68519 .25433 0 1 Mshowa
|
|
.81746 .26683 m
|
|
.81746 .27308 L
|
|
s
|
|
[(150)] .81746 .25433 0 1 Mshowa
|
|
.94974 .26683 m
|
|
.94974 .27308 L
|
|
s
|
|
[(175)] .94974 .25433 0 1 Mshowa
|
|
.125 Mabswid
|
|
.05026 .26683 m
|
|
.05026 .27058 L
|
|
s
|
|
.07672 .26683 m
|
|
.07672 .27058 L
|
|
s
|
|
.10317 .26683 m
|
|
.10317 .27058 L
|
|
s
|
|
.12963 .26683 m
|
|
.12963 .27058 L
|
|
s
|
|
.18254 .26683 m
|
|
.18254 .27058 L
|
|
s
|
|
.20899 .26683 m
|
|
.20899 .27058 L
|
|
s
|
|
.23545 .26683 m
|
|
.23545 .27058 L
|
|
s
|
|
.2619 .26683 m
|
|
.2619 .27058 L
|
|
s
|
|
.31481 .26683 m
|
|
.31481 .27058 L
|
|
s
|
|
.34127 .26683 m
|
|
.34127 .27058 L
|
|
s
|
|
.36772 .26683 m
|
|
.36772 .27058 L
|
|
s
|
|
.39418 .26683 m
|
|
.39418 .27058 L
|
|
s
|
|
.44709 .26683 m
|
|
.44709 .27058 L
|
|
s
|
|
.47354 .26683 m
|
|
.47354 .27058 L
|
|
s
|
|
.5 .26683 m
|
|
.5 .27058 L
|
|
s
|
|
.52646 .26683 m
|
|
.52646 .27058 L
|
|
s
|
|
.57937 .26683 m
|
|
.57937 .27058 L
|
|
s
|
|
.60582 .26683 m
|
|
.60582 .27058 L
|
|
s
|
|
.63228 .26683 m
|
|
.63228 .27058 L
|
|
s
|
|
.65873 .26683 m
|
|
.65873 .27058 L
|
|
s
|
|
.71164 .26683 m
|
|
.71164 .27058 L
|
|
s
|
|
.7381 .26683 m
|
|
.7381 .27058 L
|
|
s
|
|
.76455 .26683 m
|
|
.76455 .27058 L
|
|
s
|
|
.79101 .26683 m
|
|
.79101 .27058 L
|
|
s
|
|
.84392 .26683 m
|
|
.84392 .27058 L
|
|
s
|
|
.87037 .26683 m
|
|
.87037 .27058 L
|
|
s
|
|
.89683 .26683 m
|
|
.89683 .27058 L
|
|
s
|
|
.92328 .26683 m
|
|
.92328 .27058 L
|
|
s
|
|
.97619 .26683 m
|
|
.97619 .27058 L
|
|
s
|
|
.25 Mabswid
|
|
0 .26683 m
|
|
1 .26683 L
|
|
s
|
|
.02381 .02145 m
|
|
.03006 .02145 L
|
|
s
|
|
[(0.7)] .01131 .02145 1 0 Mshowa
|
|
.02381 .10324 m
|
|
.03006 .10324 L
|
|
s
|
|
[(0.8)] .01131 .10324 1 0 Mshowa
|
|
.02381 .18504 m
|
|
.03006 .18504 L
|
|
s
|
|
[(0.9)] .01131 .18504 1 0 Mshowa
|
|
.02381 .34862 m
|
|
.03006 .34862 L
|
|
s
|
|
[(1.1)] .01131 .34862 1 0 Mshowa
|
|
.02381 .43041 m
|
|
.03006 .43041 L
|
|
s
|
|
[(1.2)] .01131 .43041 1 0 Mshowa
|
|
.02381 .5122 m
|
|
.03006 .5122 L
|
|
s
|
|
[(1.3)] .01131 .5122 1 0 Mshowa
|
|
.02381 .59399 m
|
|
.03006 .59399 L
|
|
s
|
|
[(1.4)] .01131 .59399 1 0 Mshowa
|
|
.125 Mabswid
|
|
.02381 .03781 m
|
|
.02756 .03781 L
|
|
s
|
|
.02381 .05417 m
|
|
.02756 .05417 L
|
|
s
|
|
.02381 .07053 m
|
|
.02756 .07053 L
|
|
s
|
|
.02381 .08689 m
|
|
.02756 .08689 L
|
|
s
|
|
.02381 .1196 m
|
|
.02756 .1196 L
|
|
s
|
|
.02381 .13596 m
|
|
.02756 .13596 L
|
|
s
|
|
.02381 .15232 m
|
|
.02756 .15232 L
|
|
s
|
|
.02381 .16868 m
|
|
.02756 .16868 L
|
|
s
|
|
.02381 .20139 m
|
|
.02756 .20139 L
|
|
s
|
|
.02381 .21775 m
|
|
.02756 .21775 L
|
|
s
|
|
.02381 .23411 m
|
|
.02756 .23411 L
|
|
s
|
|
.02381 .25047 m
|
|
.02756 .25047 L
|
|
s
|
|
.02381 .28319 m
|
|
.02756 .28319 L
|
|
s
|
|
.02381 .29954 m
|
|
.02756 .29954 L
|
|
s
|
|
.02381 .3159 m
|
|
.02756 .3159 L
|
|
s
|
|
.02381 .33226 m
|
|
.02756 .33226 L
|
|
s
|
|
.02381 .36498 m
|
|
.02756 .36498 L
|
|
s
|
|
.02381 .38134 m
|
|
.02756 .38134 L
|
|
s
|
|
.02381 .39769 m
|
|
.02756 .39769 L
|
|
s
|
|
.02381 .41405 m
|
|
.02756 .41405 L
|
|
s
|
|
.02381 .44677 m
|
|
.02756 .44677 L
|
|
s
|
|
.02381 .46313 m
|
|
.02756 .46313 L
|
|
s
|
|
.02381 .47949 m
|
|
.02756 .47949 L
|
|
s
|
|
.02381 .49584 m
|
|
.02756 .49584 L
|
|
s
|
|
.02381 .52856 m
|
|
.02756 .52856 L
|
|
s
|
|
.02381 .54492 m
|
|
.02756 .54492 L
|
|
s
|
|
.02381 .56128 m
|
|
.02756 .56128 L
|
|
s
|
|
.02381 .57764 m
|
|
.02756 .57764 L
|
|
s
|
|
.02381 .00509 m
|
|
.02756 .00509 L
|
|
s
|
|
.02381 .61035 m
|
|
.02756 .61035 L
|
|
s
|
|
.25 Mabswid
|
|
.02381 0 m
|
|
.02381 .61803 L
|
|
s
|
|
0 0 m
|
|
1 0 L
|
|
1 .61803 L
|
|
0 .61803 L
|
|
closepath
|
|
clip
|
|
newpath
|
|
.5 Mabswid
|
|
.02381 .60332 m
|
|
.02499 .60331 L
|
|
.02605 .6033 L
|
|
.02729 .60328 L
|
|
.02846 .60326 L
|
|
.03053 .60319 L
|
|
.03279 .60309 L
|
|
.03527 .60295 L
|
|
.0379 .60276 L
|
|
.04262 .60232 L
|
|
.04749 .60174 L
|
|
.05205 .60108 L
|
|
.06244 .59913 L
|
|
.07305 .59653 L
|
|
.08274 .59362 L
|
|
.10458 .58527 L
|
|
.14429 .56405 L
|
|
.18248 .53718 L
|
|
.22313 .50297 L
|
|
.26226 .46595 L
|
|
.30384 .4238 L
|
|
.34391 .38185 L
|
|
.38246 .3414 L
|
|
.42346 .29931 L
|
|
.46295 .26047 L
|
|
.50092 .22522 L
|
|
.54134 .19038 L
|
|
.58025 .1597 L
|
|
.62161 .13033 L
|
|
.66146 .10526 L
|
|
.69979 .08415 L
|
|
.74057 .06487 L
|
|
.77984 .04937 L
|
|
.81759 .03723 L
|
|
.85779 .02721 L
|
|
.87627 .0236 L
|
|
.89648 .02036 L
|
|
.91652 .01788 L
|
|
.92745 .01682 L
|
|
.93762 .01604 L
|
|
.9426 .01572 L
|
|
.94801 .01542 L
|
|
.95278 .0152 L
|
|
.95783 .01501 L
|
|
.96238 .01488 L
|
|
.96496 .01483 L
|
|
.96738 .01478 L
|
|
.9696 .01475 L
|
|
.97163 .01473 L
|
|
.97275 .01473 L
|
|
Mistroke
|
|
.97397 .01472 L
|
|
.97512 .01472 L
|
|
.97619 .01472 L
|
|
Mfstroke
|
|
% End of Graphics
|
|
MathPictureEnd
|
|
\
|
|
\>"], "Graphics",
|
|
ImageSize->{288, 177.938},
|
|
ImageMargins->{{43, 0}, {0, 0}},
|
|
ImageRegion->{{0, 1}, {0,
|
|
1}},ImageCache->GraphicsData["CompressedBitmap", "\<\
|
|
eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC
|
|
MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6
|
|
5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX
|
|
nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v
|
|
yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi
|
|
sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG
|
|
tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W
|
|
tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw
|
|
WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq
|
|
Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz
|
|
IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A
|
|
nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc
|
|
Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td
|
|
rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97
|
|
63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp
|
|
CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el
|
|
jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD
|
|
f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA
|
|
eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb
|
|
uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa
|
|
UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au
|
|
6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9
|
|
BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/
|
|
5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX
|
|
XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4
|
|
jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO
|
|
JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme
|
|
IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG
|
|
gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ
|
|
9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ
|
|
ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL
|
|
bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD
|
|
pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN
|
|
ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32
|
|
ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j
|
|
6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE
|
|
iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k
|
|
d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz
|
|
+s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+
|
|
6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C
|
|
2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K
|
|
wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9
|
|
xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43
|
|
9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9
|
|
OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm
|
|
yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj
|
|
GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz
|
|
mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W
|
|
ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8
|
|
pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu
|
|
KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH
|
|
65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD
|
|
bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ
|
|
LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW
|
|
2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx
|
|
bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU
|
|
E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1
|
|
7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0
|
|
5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2
|
|
brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT
|
|
OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o
|
|
Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL
|
|
hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl
|
|
D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm
|
|
v/odiPr3KLwBMhrzH2bRmaY=\
|
|
\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \
|
|
{-14.8518, 0.65382, 0.693802, \
|
|
0.00448812}},ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"],
|
|
|
|
Cell[BoxData[
|
|
TagBox[
|
|
RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
|
|
False,
|
|
Editable->False]], "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-\
|
|
49e8ffb5e8c8"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"x", "=",
|
|
RowBox[{"Plot", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input",
|
|
CellChangeTimes->{{3.9918507211663303`*^9,
|
|
3.991850725479061*^9}},ExpressionUUID->"f4c3d53a-1214-a145-beb0-\
|
|
494cdae35e56"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"b9265795-17b8-4e47-bd29-fee31586537e"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"072fb53f-7116-0f41-a298-6891351a3192"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"General", "::", "\<\"stop\"\>"}], ":",
|
|
" ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \
|
|
suppressed during this calculation. \
|
|
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
|
|
\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \
|
|
"Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"],
|
|
|
|
Cell[GraphicsData["PostScript", "\<\
|
|
%!
|
|
%%Creator: Mathematica
|
|
%%AspectRatio: .61803
|
|
MathPictureStart
|
|
/Mabs {
|
|
Mgmatrix idtransform
|
|
Mtmatrix dtransform
|
|
} bind def
|
|
/Mabsadd { Mabs
|
|
3 -1 roll add
|
|
3 1 roll add
|
|
exch } bind def
|
|
%% Graphics
|
|
%%IncludeResource: font Courier
|
|
%%IncludeFont: Courier
|
|
/Courier findfont 10 scalefont setfont
|
|
% Scaling calculations
|
|
0.0238095 0.0634921 0.0147151 5.37313 [
|
|
[.15079 .00222 -3 -9 ]
|
|
[.15079 .00222 3 0 ]
|
|
[.27778 .00222 -3 -9 ]
|
|
[.27778 .00222 3 0 ]
|
|
[.40476 .00222 -3 -9 ]
|
|
[.40476 .00222 3 0 ]
|
|
[.53175 .00222 -3 -9 ]
|
|
[.53175 .00222 3 0 ]
|
|
[.65873 .00222 -6 -9 ]
|
|
[.65873 .00222 6 0 ]
|
|
[.78571 .00222 -6 -9 ]
|
|
[.78571 .00222 6 0 ]
|
|
[.9127 .00222 -6 -9 ]
|
|
[.9127 .00222 6 0 ]
|
|
[.01131 .12218 -24 -4.5 ]
|
|
[.01131 .12218 0 4.5 ]
|
|
[.01131 .22964 -24 -4.5 ]
|
|
[.01131 .22964 0 4.5 ]
|
|
[.01131 .3371 -24 -4.5 ]
|
|
[.01131 .3371 0 4.5 ]
|
|
[.01131 .44457 -24 -4.5 ]
|
|
[.01131 .44457 0 4.5 ]
|
|
[.01131 .55203 -18 -4.5 ]
|
|
[.01131 .55203 0 4.5 ]
|
|
[ 0 0 0 0 ]
|
|
[ 1 .61803 0 0 ]
|
|
] MathScale
|
|
% Start of Graphics
|
|
1 setlinecap
|
|
1 setlinejoin
|
|
newpath
|
|
0 g
|
|
.25 Mabswid
|
|
[ ] 0 setdash
|
|
.15079 .01472 m
|
|
.15079 .02097 L
|
|
s
|
|
[(2)] .15079 .00222 0 1 Mshowa
|
|
.27778 .01472 m
|
|
.27778 .02097 L
|
|
s
|
|
[(4)] .27778 .00222 0 1 Mshowa
|
|
.40476 .01472 m
|
|
.40476 .02097 L
|
|
s
|
|
[(6)] .40476 .00222 0 1 Mshowa
|
|
.53175 .01472 m
|
|
.53175 .02097 L
|
|
s
|
|
[(8)] .53175 .00222 0 1 Mshowa
|
|
.65873 .01472 m
|
|
.65873 .02097 L
|
|
s
|
|
[(10)] .65873 .00222 0 1 Mshowa
|
|
.78571 .01472 m
|
|
.78571 .02097 L
|
|
s
|
|
[(12)] .78571 .00222 0 1 Mshowa
|
|
.9127 .01472 m
|
|
.9127 .02097 L
|
|
s
|
|
[(14)] .9127 .00222 0 1 Mshowa
|
|
.125 Mabswid
|
|
.05556 .01472 m
|
|
.05556 .01847 L
|
|
s
|
|
.0873 .01472 m
|
|
.0873 .01847 L
|
|
s
|
|
.11905 .01472 m
|
|
.11905 .01847 L
|
|
s
|
|
.18254 .01472 m
|
|
.18254 .01847 L
|
|
s
|
|
.21429 .01472 m
|
|
.21429 .01847 L
|
|
s
|
|
.24603 .01472 m
|
|
.24603 .01847 L
|
|
s
|
|
.30952 .01472 m
|
|
.30952 .01847 L
|
|
s
|
|
.34127 .01472 m
|
|
.34127 .01847 L
|
|
s
|
|
.37302 .01472 m
|
|
.37302 .01847 L
|
|
s
|
|
.43651 .01472 m
|
|
.43651 .01847 L
|
|
s
|
|
.46825 .01472 m
|
|
.46825 .01847 L
|
|
s
|
|
.5 .01472 m
|
|
.5 .01847 L
|
|
s
|
|
.56349 .01472 m
|
|
.56349 .01847 L
|
|
s
|
|
.59524 .01472 m
|
|
.59524 .01847 L
|
|
s
|
|
.62698 .01472 m
|
|
.62698 .01847 L
|
|
s
|
|
.69048 .01472 m
|
|
.69048 .01847 L
|
|
s
|
|
.72222 .01472 m
|
|
.72222 .01847 L
|
|
s
|
|
.75397 .01472 m
|
|
.75397 .01847 L
|
|
s
|
|
.81746 .01472 m
|
|
.81746 .01847 L
|
|
s
|
|
.84921 .01472 m
|
|
.84921 .01847 L
|
|
s
|
|
.88095 .01472 m
|
|
.88095 .01847 L
|
|
s
|
|
.94444 .01472 m
|
|
.94444 .01847 L
|
|
s
|
|
.97619 .01472 m
|
|
.97619 .01847 L
|
|
s
|
|
.25 Mabswid
|
|
0 .01472 m
|
|
1 .01472 L
|
|
s
|
|
.02381 .12218 m
|
|
.03006 .12218 L
|
|
s
|
|
[(0.02)] .01131 .12218 1 0 Mshowa
|
|
.02381 .22964 m
|
|
.03006 .22964 L
|
|
s
|
|
[(0.04)] .01131 .22964 1 0 Mshowa
|
|
.02381 .3371 m
|
|
.03006 .3371 L
|
|
s
|
|
[(0.06)] .01131 .3371 1 0 Mshowa
|
|
.02381 .44457 m
|
|
.03006 .44457 L
|
|
s
|
|
[(0.08)] .01131 .44457 1 0 Mshowa
|
|
.02381 .55203 m
|
|
.03006 .55203 L
|
|
s
|
|
[(0.1)] .01131 .55203 1 0 Mshowa
|
|
.125 Mabswid
|
|
.02381 .04158 m
|
|
.02756 .04158 L
|
|
s
|
|
.02381 .06845 m
|
|
.02756 .06845 L
|
|
s
|
|
.02381 .09531 m
|
|
.02756 .09531 L
|
|
s
|
|
.02381 .14904 m
|
|
.02756 .14904 L
|
|
s
|
|
.02381 .17591 m
|
|
.02756 .17591 L
|
|
s
|
|
.02381 .20277 m
|
|
.02756 .20277 L
|
|
s
|
|
.02381 .25651 m
|
|
.02756 .25651 L
|
|
s
|
|
.02381 .28337 m
|
|
.02756 .28337 L
|
|
s
|
|
.02381 .31024 m
|
|
.02756 .31024 L
|
|
s
|
|
.02381 .36397 m
|
|
.02756 .36397 L
|
|
s
|
|
.02381 .39083 m
|
|
.02756 .39083 L
|
|
s
|
|
.02381 .4177 m
|
|
.02756 .4177 L
|
|
s
|
|
.02381 .47143 m
|
|
.02756 .47143 L
|
|
s
|
|
.02381 .4983 m
|
|
.02756 .4983 L
|
|
s
|
|
.02381 .52516 m
|
|
.02756 .52516 L
|
|
s
|
|
.02381 .57889 m
|
|
.02756 .57889 L
|
|
s
|
|
.02381 .60576 m
|
|
.02756 .60576 L
|
|
s
|
|
.25 Mabswid
|
|
.02381 0 m
|
|
.02381 .61803 L
|
|
s
|
|
0 0 m
|
|
1 0 L
|
|
1 .61803 L
|
|
0 .61803 L
|
|
closepath
|
|
clip
|
|
newpath
|
|
.5 Mabswid
|
|
.02381 .01472 m
|
|
.06244 .12073 L
|
|
.10458 .23188 L
|
|
.14415 .32802 L
|
|
.18221 .40977 L
|
|
.22272 .48259 L
|
|
.26171 .53704 L
|
|
.28302 .55995 L
|
|
.30316 .57709 L
|
|
.31285 .58377 L
|
|
.32313 .58977 L
|
|
.33276 .59437 L
|
|
.34157 .59772 L
|
|
.35098 .60043 L
|
|
.35617 .60154 L
|
|
.3611 .60234 L
|
|
.3633 .60262 L
|
|
.36564 .60287 L
|
|
.36785 .60305 L
|
|
.36985 .60318 L
|
|
.37108 .60323 L
|
|
.37222 .60327 L
|
|
.37346 .6033 L
|
|
.37477 .60332 L
|
|
.37591 .60332 L
|
|
.37698 .60331 L
|
|
.37815 .60328 L
|
|
.3794 .60324 L
|
|
.38062 .60319 L
|
|
.38197 .60311 L
|
|
.38469 .60291 L
|
|
.38721 .60266 L
|
|
.38958 .60237 L
|
|
.3949 .60153 L
|
|
.40064 .60035 L
|
|
.41114 .59744 L
|
|
.42077 .59396 L
|
|
.43969 .58496 L
|
|
.46039 .57209 L
|
|
.50095 .53905 L
|
|
.54 .49958 L
|
|
.58149 .45213 L
|
|
.62148 .40358 L
|
|
.65994 .3563 L
|
|
.70086 .30723 L
|
|
.74026 .26259 L
|
|
.77815 .22302 L
|
|
.81849 .18514 L
|
|
.85731 .15313 L
|
|
.89859 .12393 L
|
|
Mistroke
|
|
.93835 .10033 L
|
|
.97619 .08171 L
|
|
Mfstroke
|
|
% End of Graphics
|
|
MathPictureEnd
|
|
\
|
|
\>"], "Graphics",
|
|
ImageSize->{288, 177.938},
|
|
ImageMargins->{{43, 0}, {0, 0}},
|
|
ImageRegion->{{0, 1}, {0,
|
|
1}},ImageCache->GraphicsData["CompressedBitmap", "\<\
|
|
eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ
|
|
GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM
|
|
b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+
|
|
1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1
|
|
9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX
|
|
KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6
|
|
1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu
|
|
UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV
|
|
Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX
|
|
r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO
|
|
rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q
|
|
pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq
|
|
b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk
|
|
+9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj
|
|
oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi
|
|
z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp
|
|
jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd
|
|
dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw
|
|
cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0
|
|
Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe
|
|
TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj
|
|
UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE
|
|
/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM
|
|
opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3
|
|
RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+
|
|
u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y
|
|
XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV
|
|
nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi
|
|
T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4
|
|
OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U
|
|
ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY
|
|
E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S
|
|
Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT
|
|
vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ
|
|
zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO
|
|
nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm
|
|
oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU
|
|
fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd
|
|
G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han
|
|
eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao
|
|
n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv
|
|
6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2
|
|
gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF
|
|
hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3
|
|
d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS
|
|
0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3
|
|
bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2
|
|
wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF
|
|
7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0
|
|
ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe
|
|
37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg
|
|
X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu
|
|
TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4
|
|
CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2
|
|
FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX
|
|
A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs
|
|
LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr
|
|
AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo
|
|
2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr
|
|
rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1
|
|
1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9
|
|
dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO
|
|
endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2
|
|
mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK
|
|
Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\
|
|
\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \
|
|
{-1.61617, -0.0100934, 0.0591342, \
|
|
0.000698765}},ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"],
|
|
|
|
Cell[BoxData[
|
|
TagBox[
|
|
RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
|
|
False,
|
|
Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\
|
|
87bc9c72594a"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Show", "[",
|
|
RowBox[{"x", ",", "xx"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.9917994642649307`*^9,
|
|
3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\
|
|
53b7ef04b97c"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"],
|
|
")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
FractionBox["1", "Cb"], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "y"}],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\
|
|
UUID->"01995149-3665-fe4e-b326-b20429031afd"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"52cff8eb-0c77-c944-a54f-e282b00ce766"],
|
|
|
|
Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"q", "=",
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]],
|
|
RowBox[{"(",
|
|
RowBox[{"4", "x", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"x", "-", "J1"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}], ")"}], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
|
|
CellChangeTimes->{{3.9918507468132763`*^9,
|
|
3.9918507511809216`*^9}},ExpressionUUID->"11b1e372-f457-5a4d-bcee-\
|
|
062a3c04ed96"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"cb5a1193-7562-6446-a279-d9f6295d156e"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"566b0ad4-7f4e-b04f-8294-646ce1913fac"],
|
|
|
|
Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"S1", "=",
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]],
|
|
RowBox[{"(",
|
|
RowBox[{"4", "x", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]",
|
|
"*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}], ")"}], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
|
|
CellChangeTimes->{{3.99185075434021*^9,
|
|
3.9918507570104733`*^9}},ExpressionUUID->"8cb4e371-90a5-d347-adec-\
|
|
3382e7679ba8"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"4cd45900-7eb0-6b4b-830a-a339e8117392"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"],
|
|
|
|
Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"S2", "=",
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]],
|
|
RowBox[{"(",
|
|
RowBox[{"4", "x", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]",
|
|
"*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}], ")"}], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
|
|
CellChangeTimes->{{3.9918507598219967`*^9,
|
|
3.9918507622107697`*^9}},ExpressionUUID->"732b358a-c98a-0347-8b16-\
|
|
2462b23d6249"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"f702ec8b-e3a1-2f4f-bfef-4278a2688935"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"61220452-df6a-154e-8b5c-fecd0ab287a1"],
|
|
|
|
Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
FractionBox["q",
|
|
SqrtBox[
|
|
RowBox[{"S1", "*", "S2"}]]]], "Input",
|
|
CellChangeTimes->{{3.9918507652122154`*^9,
|
|
3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\
|
|
168ec8f367e1"],
|
|
|
|
Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Clear", "[",
|
|
RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.9918507716362114`*^9, 3.991850773604473*^9},
|
|
3.9919245563167305`*^9},ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-\
|
|
e661a25a7ba1"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Qb1", "=",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "1"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"Ir", "*", "Il"}],
|
|
RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\
|
|
c74d-891b-10a6d009e34b"],
|
|
|
|
Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hb", "=",
|
|
SqrtBox[
|
|
FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\
|
|
bb01-e9142212274d"],
|
|
|
|
Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cb", "=",
|
|
FractionBox[
|
|
RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\
|
|
cb9a-bc4b-93f0-a7873f982a23"],
|
|
|
|
Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"o1", "=",
|
|
RowBox[{
|
|
RowBox[{"1", "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]], "*", "Cb"}], "+",
|
|
RowBox[{"Cw", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}],
|
|
"2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\
|
|
b13c-0185de64c37f"],
|
|
|
|
Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-", "x"}], "*", "x", "*", "o1"}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"731f0e35-\
|
|
7798-8b45-a769-075ac4b3983f"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"],
|
|
|
|
Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"o2", "=",
|
|
RowBox[{
|
|
RowBox[{"1", "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]], "*", "Cb"}], "+",
|
|
RowBox[{"Cw", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\
|
|
9ccb-23aebae2e6d5"],
|
|
|
|
Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-", "x"}], "*", "x", "*", "o2"}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"e11d7eb8-\
|
|
00a8-f540-98a0-89164ac4bae9"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"],
|
|
|
|
Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h1", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}],
|
|
")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
|
|
")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\
|
|
1ee89e798d8f"],
|
|
|
|
Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h2", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
|
|
")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\
|
|
f30d036fcdd2"],
|
|
|
|
Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h3", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}],
|
|
")"}]}], ")"}], "/",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
"\[IndentingNewLine]",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\
|
|
7240-acd2-307af56b44db"],
|
|
|
|
Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"J1", "=",
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.9918507910247746`*^9},ExpressionUUID->"cd516020-ac7f-224d-b1ff-\
|
|
af0307420662"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"b82c1933-5313-1d4c-a858-68be8f118333"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"],
|
|
|
|
Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"J2", "=",
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.9918507936164455`*^9},ExpressionUUID->"a9d0e817-a1c8-6546-a901-\
|
|
34313c6ec04d"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"56712e4d-1aa7-524a-8254-bcfd8978eea0"],
|
|
|
|
Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"a", "=",
|
|
RowBox[{"Plot", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["1", "1"],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*",
|
|
RowBox[{"Cos", "[",
|
|
FractionBox[
|
|
RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.9918507961174965`*^9},ExpressionUUID->"f68960b0-cff6-3245-b906-\
|
|
ad38cf07d634"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"9c6ce535-b42f-3c43-a89e-eda48c04121e"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"General", "::", "\<\"stop\"\>"}], ":",
|
|
" ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \
|
|
suppressed during this calculation. \
|
|
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
|
|
\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \
|
|
"Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"],
|
|
|
|
Cell[GraphicsData["PostScript", "\<\
|
|
%!
|
|
%%Creator: Mathematica
|
|
%%AspectRatio: .61803
|
|
MathPictureStart
|
|
/Mabs {
|
|
Mgmatrix idtransform
|
|
Mtmatrix dtransform
|
|
} bind def
|
|
/Mabsadd { Mabs
|
|
3 -1 roll add
|
|
3 1 roll add
|
|
exch } bind def
|
|
%% Graphics
|
|
%%IncludeResource: font Courier
|
|
%%IncludeFont: Courier
|
|
/Courier findfont 10 scalefont setfont
|
|
% Scaling calculations
|
|
0.0238095 0.00529101 -0.551091 0.817918 [
|
|
[.15608 .25433 -6 -9 ]
|
|
[.15608 .25433 6 0 ]
|
|
[.28836 .25433 -6 -9 ]
|
|
[.28836 .25433 6 0 ]
|
|
[.42063 .25433 -6 -9 ]
|
|
[.42063 .25433 6 0 ]
|
|
[.55291 .25433 -9 -9 ]
|
|
[.55291 .25433 9 0 ]
|
|
[.68519 .25433 -9 -9 ]
|
|
[.68519 .25433 9 0 ]
|
|
[.81746 .25433 -9 -9 ]
|
|
[.81746 .25433 9 0 ]
|
|
[.94974 .25433 -9 -9 ]
|
|
[.94974 .25433 9 0 ]
|
|
[.01131 .02145 -18 -4.5 ]
|
|
[.01131 .02145 0 4.5 ]
|
|
[.01131 .10324 -18 -4.5 ]
|
|
[.01131 .10324 0 4.5 ]
|
|
[.01131 .18504 -18 -4.5 ]
|
|
[.01131 .18504 0 4.5 ]
|
|
[.01131 .34862 -18 -4.5 ]
|
|
[.01131 .34862 0 4.5 ]
|
|
[.01131 .43041 -18 -4.5 ]
|
|
[.01131 .43041 0 4.5 ]
|
|
[.01131 .5122 -18 -4.5 ]
|
|
[.01131 .5122 0 4.5 ]
|
|
[.01131 .59399 -18 -4.5 ]
|
|
[.01131 .59399 0 4.5 ]
|
|
[ 0 0 0 0 ]
|
|
[ 1 .61803 0 0 ]
|
|
] MathScale
|
|
% Start of Graphics
|
|
1 setlinecap
|
|
1 setlinejoin
|
|
newpath
|
|
0 g
|
|
.25 Mabswid
|
|
[ ] 0 setdash
|
|
.15608 .26683 m
|
|
.15608 .27308 L
|
|
s
|
|
[(25)] .15608 .25433 0 1 Mshowa
|
|
.28836 .26683 m
|
|
.28836 .27308 L
|
|
s
|
|
[(50)] .28836 .25433 0 1 Mshowa
|
|
.42063 .26683 m
|
|
.42063 .27308 L
|
|
s
|
|
[(75)] .42063 .25433 0 1 Mshowa
|
|
.55291 .26683 m
|
|
.55291 .27308 L
|
|
s
|
|
[(100)] .55291 .25433 0 1 Mshowa
|
|
.68519 .26683 m
|
|
.68519 .27308 L
|
|
s
|
|
[(125)] .68519 .25433 0 1 Mshowa
|
|
.81746 .26683 m
|
|
.81746 .27308 L
|
|
s
|
|
[(150)] .81746 .25433 0 1 Mshowa
|
|
.94974 .26683 m
|
|
.94974 .27308 L
|
|
s
|
|
[(175)] .94974 .25433 0 1 Mshowa
|
|
.125 Mabswid
|
|
.05026 .26683 m
|
|
.05026 .27058 L
|
|
s
|
|
.07672 .26683 m
|
|
.07672 .27058 L
|
|
s
|
|
.10317 .26683 m
|
|
.10317 .27058 L
|
|
s
|
|
.12963 .26683 m
|
|
.12963 .27058 L
|
|
s
|
|
.18254 .26683 m
|
|
.18254 .27058 L
|
|
s
|
|
.20899 .26683 m
|
|
.20899 .27058 L
|
|
s
|
|
.23545 .26683 m
|
|
.23545 .27058 L
|
|
s
|
|
.2619 .26683 m
|
|
.2619 .27058 L
|
|
s
|
|
.31481 .26683 m
|
|
.31481 .27058 L
|
|
s
|
|
.34127 .26683 m
|
|
.34127 .27058 L
|
|
s
|
|
.36772 .26683 m
|
|
.36772 .27058 L
|
|
s
|
|
.39418 .26683 m
|
|
.39418 .27058 L
|
|
s
|
|
.44709 .26683 m
|
|
.44709 .27058 L
|
|
s
|
|
.47354 .26683 m
|
|
.47354 .27058 L
|
|
s
|
|
.5 .26683 m
|
|
.5 .27058 L
|
|
s
|
|
.52646 .26683 m
|
|
.52646 .27058 L
|
|
s
|
|
.57937 .26683 m
|
|
.57937 .27058 L
|
|
s
|
|
.60582 .26683 m
|
|
.60582 .27058 L
|
|
s
|
|
.63228 .26683 m
|
|
.63228 .27058 L
|
|
s
|
|
.65873 .26683 m
|
|
.65873 .27058 L
|
|
s
|
|
.71164 .26683 m
|
|
.71164 .27058 L
|
|
s
|
|
.7381 .26683 m
|
|
.7381 .27058 L
|
|
s
|
|
.76455 .26683 m
|
|
.76455 .27058 L
|
|
s
|
|
.79101 .26683 m
|
|
.79101 .27058 L
|
|
s
|
|
.84392 .26683 m
|
|
.84392 .27058 L
|
|
s
|
|
.87037 .26683 m
|
|
.87037 .27058 L
|
|
s
|
|
.89683 .26683 m
|
|
.89683 .27058 L
|
|
s
|
|
.92328 .26683 m
|
|
.92328 .27058 L
|
|
s
|
|
.97619 .26683 m
|
|
.97619 .27058 L
|
|
s
|
|
.25 Mabswid
|
|
0 .26683 m
|
|
1 .26683 L
|
|
s
|
|
.02381 .02145 m
|
|
.03006 .02145 L
|
|
s
|
|
[(0.7)] .01131 .02145 1 0 Mshowa
|
|
.02381 .10324 m
|
|
.03006 .10324 L
|
|
s
|
|
[(0.8)] .01131 .10324 1 0 Mshowa
|
|
.02381 .18504 m
|
|
.03006 .18504 L
|
|
s
|
|
[(0.9)] .01131 .18504 1 0 Mshowa
|
|
.02381 .34862 m
|
|
.03006 .34862 L
|
|
s
|
|
[(1.1)] .01131 .34862 1 0 Mshowa
|
|
.02381 .43041 m
|
|
.03006 .43041 L
|
|
s
|
|
[(1.2)] .01131 .43041 1 0 Mshowa
|
|
.02381 .5122 m
|
|
.03006 .5122 L
|
|
s
|
|
[(1.3)] .01131 .5122 1 0 Mshowa
|
|
.02381 .59399 m
|
|
.03006 .59399 L
|
|
s
|
|
[(1.4)] .01131 .59399 1 0 Mshowa
|
|
.125 Mabswid
|
|
.02381 .03781 m
|
|
.02756 .03781 L
|
|
s
|
|
.02381 .05417 m
|
|
.02756 .05417 L
|
|
s
|
|
.02381 .07053 m
|
|
.02756 .07053 L
|
|
s
|
|
.02381 .08689 m
|
|
.02756 .08689 L
|
|
s
|
|
.02381 .1196 m
|
|
.02756 .1196 L
|
|
s
|
|
.02381 .13596 m
|
|
.02756 .13596 L
|
|
s
|
|
.02381 .15232 m
|
|
.02756 .15232 L
|
|
s
|
|
.02381 .16868 m
|
|
.02756 .16868 L
|
|
s
|
|
.02381 .20139 m
|
|
.02756 .20139 L
|
|
s
|
|
.02381 .21775 m
|
|
.02756 .21775 L
|
|
s
|
|
.02381 .23411 m
|
|
.02756 .23411 L
|
|
s
|
|
.02381 .25047 m
|
|
.02756 .25047 L
|
|
s
|
|
.02381 .28319 m
|
|
.02756 .28319 L
|
|
s
|
|
.02381 .29954 m
|
|
.02756 .29954 L
|
|
s
|
|
.02381 .3159 m
|
|
.02756 .3159 L
|
|
s
|
|
.02381 .33226 m
|
|
.02756 .33226 L
|
|
s
|
|
.02381 .36498 m
|
|
.02756 .36498 L
|
|
s
|
|
.02381 .38134 m
|
|
.02756 .38134 L
|
|
s
|
|
.02381 .39769 m
|
|
.02756 .39769 L
|
|
s
|
|
.02381 .41405 m
|
|
.02756 .41405 L
|
|
s
|
|
.02381 .44677 m
|
|
.02756 .44677 L
|
|
s
|
|
.02381 .46313 m
|
|
.02756 .46313 L
|
|
s
|
|
.02381 .47949 m
|
|
.02756 .47949 L
|
|
s
|
|
.02381 .49584 m
|
|
.02756 .49584 L
|
|
s
|
|
.02381 .52856 m
|
|
.02756 .52856 L
|
|
s
|
|
.02381 .54492 m
|
|
.02756 .54492 L
|
|
s
|
|
.02381 .56128 m
|
|
.02756 .56128 L
|
|
s
|
|
.02381 .57764 m
|
|
.02756 .57764 L
|
|
s
|
|
.02381 .00509 m
|
|
.02756 .00509 L
|
|
s
|
|
.02381 .61035 m
|
|
.02756 .61035 L
|
|
s
|
|
.25 Mabswid
|
|
.02381 0 m
|
|
.02381 .61803 L
|
|
s
|
|
0 0 m
|
|
1 0 L
|
|
1 .61803 L
|
|
0 .61803 L
|
|
closepath
|
|
clip
|
|
newpath
|
|
.5 Mabswid
|
|
.02381 .60332 m
|
|
.02499 .60331 L
|
|
.02605 .6033 L
|
|
.02729 .60328 L
|
|
.02846 .60326 L
|
|
.03053 .60319 L
|
|
.03279 .60309 L
|
|
.03527 .60295 L
|
|
.0379 .60276 L
|
|
.04262 .60232 L
|
|
.04749 .60174 L
|
|
.05205 .60108 L
|
|
.06244 .59913 L
|
|
.07305 .59653 L
|
|
.08274 .59362 L
|
|
.10458 .58527 L
|
|
.14429 .56405 L
|
|
.18248 .53718 L
|
|
.22313 .50297 L
|
|
.26226 .46595 L
|
|
.30384 .4238 L
|
|
.34391 .38185 L
|
|
.38246 .3414 L
|
|
.42346 .29931 L
|
|
.46295 .26047 L
|
|
.50092 .22522 L
|
|
.54134 .19038 L
|
|
.58025 .1597 L
|
|
.62161 .13033 L
|
|
.66146 .10526 L
|
|
.69979 .08415 L
|
|
.74057 .06487 L
|
|
.77984 .04937 L
|
|
.81759 .03723 L
|
|
.85779 .02721 L
|
|
.87627 .0236 L
|
|
.89648 .02036 L
|
|
.91652 .01788 L
|
|
.92745 .01682 L
|
|
.93762 .01604 L
|
|
.9426 .01572 L
|
|
.94801 .01542 L
|
|
.95278 .0152 L
|
|
.95783 .01501 L
|
|
.96238 .01488 L
|
|
.96496 .01483 L
|
|
.96738 .01478 L
|
|
.9696 .01475 L
|
|
.97163 .01473 L
|
|
.97275 .01473 L
|
|
Mistroke
|
|
.97397 .01472 L
|
|
.97512 .01472 L
|
|
.97619 .01472 L
|
|
Mfstroke
|
|
% End of Graphics
|
|
MathPictureEnd
|
|
\
|
|
\>"], "Graphics",
|
|
ImageSize->{288, 177.938},
|
|
ImageMargins->{{43, 0}, {0, 0}},
|
|
ImageRegion->{{0, 1}, {0,
|
|
1}},ImageCache->GraphicsData["CompressedBitmap", "\<\
|
|
eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC
|
|
MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6
|
|
5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX
|
|
nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v
|
|
yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi
|
|
sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG
|
|
tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W
|
|
tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw
|
|
WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq
|
|
Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz
|
|
IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A
|
|
nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc
|
|
Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td
|
|
rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97
|
|
63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp
|
|
CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el
|
|
jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD
|
|
f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA
|
|
eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb
|
|
uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa
|
|
UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au
|
|
6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9
|
|
BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/
|
|
5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX
|
|
XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4
|
|
jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO
|
|
JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme
|
|
IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG
|
|
gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ
|
|
9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ
|
|
ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL
|
|
bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD
|
|
pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN
|
|
ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32
|
|
ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j
|
|
6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE
|
|
iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k
|
|
d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz
|
|
+s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+
|
|
6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C
|
|
2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K
|
|
wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9
|
|
xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43
|
|
9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9
|
|
OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm
|
|
yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj
|
|
GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz
|
|
mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W
|
|
ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8
|
|
pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu
|
|
KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH
|
|
65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD
|
|
bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ
|
|
LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW
|
|
2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx
|
|
bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU
|
|
E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1
|
|
7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0
|
|
5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2
|
|
brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT
|
|
OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o
|
|
Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL
|
|
hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl
|
|
D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm
|
|
v/odiPr3KLwBMhrzH2bRmaY=\
|
|
\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \
|
|
{-14.8518, 0.65382, 0.693802, \
|
|
0.00448812}},ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"],
|
|
|
|
Cell[BoxData[
|
|
TagBox[
|
|
RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
|
|
False,
|
|
Editable->False]], "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-\
|
|
8b4ad9ffca61"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"x", "=",
|
|
RowBox[{"Plot", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.99185079904813*^9, {3.9918508647235966`*^9,
|
|
3.991850864992861*^9}},ExpressionUUID->"d43bf17b-b492-0e4a-af4a-\
|
|
6a3bc399953c"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"71d4e039-c2b8-d74d-819a-80d2051e4273"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"63625e13-15ef-1f45-89dc-998a1b63a626"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"General", "::", "\<\"stop\"\>"}], ":",
|
|
" ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \
|
|
suppressed during this calculation. \
|
|
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
|
|
\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \
|
|
"Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"],
|
|
|
|
Cell[GraphicsData["PostScript", "\<\
|
|
%!
|
|
%%Creator: Mathematica
|
|
%%AspectRatio: .61803
|
|
MathPictureStart
|
|
/Mabs {
|
|
Mgmatrix idtransform
|
|
Mtmatrix dtransform
|
|
} bind def
|
|
/Mabsadd { Mabs
|
|
3 -1 roll add
|
|
3 1 roll add
|
|
exch } bind def
|
|
%% Graphics
|
|
%%IncludeResource: font Courier
|
|
%%IncludeFont: Courier
|
|
/Courier findfont 10 scalefont setfont
|
|
% Scaling calculations
|
|
0.0238095 0.0634921 0.0147151 5.37313 [
|
|
[.15079 .00222 -3 -9 ]
|
|
[.15079 .00222 3 0 ]
|
|
[.27778 .00222 -3 -9 ]
|
|
[.27778 .00222 3 0 ]
|
|
[.40476 .00222 -3 -9 ]
|
|
[.40476 .00222 3 0 ]
|
|
[.53175 .00222 -3 -9 ]
|
|
[.53175 .00222 3 0 ]
|
|
[.65873 .00222 -6 -9 ]
|
|
[.65873 .00222 6 0 ]
|
|
[.78571 .00222 -6 -9 ]
|
|
[.78571 .00222 6 0 ]
|
|
[.9127 .00222 -6 -9 ]
|
|
[.9127 .00222 6 0 ]
|
|
[.01131 .12218 -24 -4.5 ]
|
|
[.01131 .12218 0 4.5 ]
|
|
[.01131 .22964 -24 -4.5 ]
|
|
[.01131 .22964 0 4.5 ]
|
|
[.01131 .3371 -24 -4.5 ]
|
|
[.01131 .3371 0 4.5 ]
|
|
[.01131 .44457 -24 -4.5 ]
|
|
[.01131 .44457 0 4.5 ]
|
|
[.01131 .55203 -18 -4.5 ]
|
|
[.01131 .55203 0 4.5 ]
|
|
[ 0 0 0 0 ]
|
|
[ 1 .61803 0 0 ]
|
|
] MathScale
|
|
% Start of Graphics
|
|
1 setlinecap
|
|
1 setlinejoin
|
|
newpath
|
|
0 g
|
|
.25 Mabswid
|
|
[ ] 0 setdash
|
|
.15079 .01472 m
|
|
.15079 .02097 L
|
|
s
|
|
[(2)] .15079 .00222 0 1 Mshowa
|
|
.27778 .01472 m
|
|
.27778 .02097 L
|
|
s
|
|
[(4)] .27778 .00222 0 1 Mshowa
|
|
.40476 .01472 m
|
|
.40476 .02097 L
|
|
s
|
|
[(6)] .40476 .00222 0 1 Mshowa
|
|
.53175 .01472 m
|
|
.53175 .02097 L
|
|
s
|
|
[(8)] .53175 .00222 0 1 Mshowa
|
|
.65873 .01472 m
|
|
.65873 .02097 L
|
|
s
|
|
[(10)] .65873 .00222 0 1 Mshowa
|
|
.78571 .01472 m
|
|
.78571 .02097 L
|
|
s
|
|
[(12)] .78571 .00222 0 1 Mshowa
|
|
.9127 .01472 m
|
|
.9127 .02097 L
|
|
s
|
|
[(14)] .9127 .00222 0 1 Mshowa
|
|
.125 Mabswid
|
|
.05556 .01472 m
|
|
.05556 .01847 L
|
|
s
|
|
.0873 .01472 m
|
|
.0873 .01847 L
|
|
s
|
|
.11905 .01472 m
|
|
.11905 .01847 L
|
|
s
|
|
.18254 .01472 m
|
|
.18254 .01847 L
|
|
s
|
|
.21429 .01472 m
|
|
.21429 .01847 L
|
|
s
|
|
.24603 .01472 m
|
|
.24603 .01847 L
|
|
s
|
|
.30952 .01472 m
|
|
.30952 .01847 L
|
|
s
|
|
.34127 .01472 m
|
|
.34127 .01847 L
|
|
s
|
|
.37302 .01472 m
|
|
.37302 .01847 L
|
|
s
|
|
.43651 .01472 m
|
|
.43651 .01847 L
|
|
s
|
|
.46825 .01472 m
|
|
.46825 .01847 L
|
|
s
|
|
.5 .01472 m
|
|
.5 .01847 L
|
|
s
|
|
.56349 .01472 m
|
|
.56349 .01847 L
|
|
s
|
|
.59524 .01472 m
|
|
.59524 .01847 L
|
|
s
|
|
.62698 .01472 m
|
|
.62698 .01847 L
|
|
s
|
|
.69048 .01472 m
|
|
.69048 .01847 L
|
|
s
|
|
.72222 .01472 m
|
|
.72222 .01847 L
|
|
s
|
|
.75397 .01472 m
|
|
.75397 .01847 L
|
|
s
|
|
.81746 .01472 m
|
|
.81746 .01847 L
|
|
s
|
|
.84921 .01472 m
|
|
.84921 .01847 L
|
|
s
|
|
.88095 .01472 m
|
|
.88095 .01847 L
|
|
s
|
|
.94444 .01472 m
|
|
.94444 .01847 L
|
|
s
|
|
.97619 .01472 m
|
|
.97619 .01847 L
|
|
s
|
|
.25 Mabswid
|
|
0 .01472 m
|
|
1 .01472 L
|
|
s
|
|
.02381 .12218 m
|
|
.03006 .12218 L
|
|
s
|
|
[(0.02)] .01131 .12218 1 0 Mshowa
|
|
.02381 .22964 m
|
|
.03006 .22964 L
|
|
s
|
|
[(0.04)] .01131 .22964 1 0 Mshowa
|
|
.02381 .3371 m
|
|
.03006 .3371 L
|
|
s
|
|
[(0.06)] .01131 .3371 1 0 Mshowa
|
|
.02381 .44457 m
|
|
.03006 .44457 L
|
|
s
|
|
[(0.08)] .01131 .44457 1 0 Mshowa
|
|
.02381 .55203 m
|
|
.03006 .55203 L
|
|
s
|
|
[(0.1)] .01131 .55203 1 0 Mshowa
|
|
.125 Mabswid
|
|
.02381 .04158 m
|
|
.02756 .04158 L
|
|
s
|
|
.02381 .06845 m
|
|
.02756 .06845 L
|
|
s
|
|
.02381 .09531 m
|
|
.02756 .09531 L
|
|
s
|
|
.02381 .14904 m
|
|
.02756 .14904 L
|
|
s
|
|
.02381 .17591 m
|
|
.02756 .17591 L
|
|
s
|
|
.02381 .20277 m
|
|
.02756 .20277 L
|
|
s
|
|
.02381 .25651 m
|
|
.02756 .25651 L
|
|
s
|
|
.02381 .28337 m
|
|
.02756 .28337 L
|
|
s
|
|
.02381 .31024 m
|
|
.02756 .31024 L
|
|
s
|
|
.02381 .36397 m
|
|
.02756 .36397 L
|
|
s
|
|
.02381 .39083 m
|
|
.02756 .39083 L
|
|
s
|
|
.02381 .4177 m
|
|
.02756 .4177 L
|
|
s
|
|
.02381 .47143 m
|
|
.02756 .47143 L
|
|
s
|
|
.02381 .4983 m
|
|
.02756 .4983 L
|
|
s
|
|
.02381 .52516 m
|
|
.02756 .52516 L
|
|
s
|
|
.02381 .57889 m
|
|
.02756 .57889 L
|
|
s
|
|
.02381 .60576 m
|
|
.02756 .60576 L
|
|
s
|
|
.25 Mabswid
|
|
.02381 0 m
|
|
.02381 .61803 L
|
|
s
|
|
0 0 m
|
|
1 0 L
|
|
1 .61803 L
|
|
0 .61803 L
|
|
closepath
|
|
clip
|
|
newpath
|
|
.5 Mabswid
|
|
.02381 .01472 m
|
|
.06244 .12073 L
|
|
.10458 .23188 L
|
|
.14415 .32802 L
|
|
.18221 .40977 L
|
|
.22272 .48259 L
|
|
.26171 .53704 L
|
|
.28302 .55995 L
|
|
.30316 .57709 L
|
|
.31285 .58377 L
|
|
.32313 .58977 L
|
|
.33276 .59437 L
|
|
.34157 .59772 L
|
|
.35098 .60043 L
|
|
.35617 .60154 L
|
|
.3611 .60234 L
|
|
.3633 .60262 L
|
|
.36564 .60287 L
|
|
.36785 .60305 L
|
|
.36985 .60318 L
|
|
.37108 .60323 L
|
|
.37222 .60327 L
|
|
.37346 .6033 L
|
|
.37477 .60332 L
|
|
.37591 .60332 L
|
|
.37698 .60331 L
|
|
.37815 .60328 L
|
|
.3794 .60324 L
|
|
.38062 .60319 L
|
|
.38197 .60311 L
|
|
.38469 .60291 L
|
|
.38721 .60266 L
|
|
.38958 .60237 L
|
|
.3949 .60153 L
|
|
.40064 .60035 L
|
|
.41114 .59744 L
|
|
.42077 .59396 L
|
|
.43969 .58496 L
|
|
.46039 .57209 L
|
|
.50095 .53905 L
|
|
.54 .49958 L
|
|
.58149 .45213 L
|
|
.62148 .40358 L
|
|
.65994 .3563 L
|
|
.70086 .30723 L
|
|
.74026 .26259 L
|
|
.77815 .22302 L
|
|
.81849 .18514 L
|
|
.85731 .15313 L
|
|
.89859 .12393 L
|
|
Mistroke
|
|
.93835 .10033 L
|
|
.97619 .08171 L
|
|
Mfstroke
|
|
% End of Graphics
|
|
MathPictureEnd
|
|
\
|
|
\>"], "Graphics",
|
|
ImageSize->{288, 177.938},
|
|
ImageMargins->{{43, 0}, {0, 0}},
|
|
ImageRegion->{{0, 1}, {0,
|
|
1}},ImageCache->GraphicsData["CompressedBitmap", "\<\
|
|
eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ
|
|
GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM
|
|
b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+
|
|
1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1
|
|
9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX
|
|
KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6
|
|
1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu
|
|
UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV
|
|
Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX
|
|
r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO
|
|
rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q
|
|
pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq
|
|
b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk
|
|
+9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj
|
|
oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi
|
|
z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp
|
|
jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd
|
|
dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw
|
|
cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0
|
|
Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe
|
|
TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj
|
|
UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE
|
|
/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM
|
|
opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3
|
|
RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+
|
|
u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y
|
|
XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV
|
|
nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi
|
|
T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4
|
|
OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U
|
|
ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY
|
|
E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S
|
|
Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT
|
|
vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ
|
|
zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO
|
|
nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm
|
|
oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU
|
|
fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd
|
|
G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han
|
|
eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao
|
|
n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv
|
|
6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2
|
|
gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF
|
|
hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3
|
|
d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS
|
|
0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3
|
|
bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2
|
|
wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF
|
|
7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0
|
|
ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe
|
|
37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg
|
|
X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu
|
|
TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4
|
|
CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2
|
|
FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX
|
|
A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs
|
|
LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr
|
|
AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo
|
|
2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr
|
|
rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1
|
|
1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9
|
|
dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO
|
|
endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2
|
|
mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK
|
|
Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\
|
|
\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \
|
|
{-1.61617, -0.0100934, 0.0591342, \
|
|
0.000698765}},ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"],
|
|
|
|
Cell[BoxData[
|
|
TagBox[
|
|
RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
|
|
False,
|
|
Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\
|
|
1872f77ea023"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Show", "[",
|
|
RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\
|
|
5240-aa41-ba7c8ff64fb9"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"],
|
|
")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
FractionBox["1", "Cb"], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "y"}],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\
|
|
UUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"],
|
|
|
|
Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"q", "=",
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]],
|
|
RowBox[{"(",
|
|
RowBox[{"4", "x", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"x", "-", "J1"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}], ")"}], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
|
|
CellChangeTimes->{{3.991850818889292*^9,
|
|
3.9918508230677433`*^9}},ExpressionUUID->"d2148290-3e90-8347-bddd-\
|
|
5dd8190b0268"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"905b237c-0e51-ab4b-895d-05994c6f1d5f"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"7ad8c79e-9570-a44d-b593-07aa87056e21"],
|
|
|
|
Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"S1", "=",
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]],
|
|
RowBox[{"(",
|
|
RowBox[{"4", "x", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]",
|
|
"*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}], ")"}], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
|
|
CellChangeTimes->{{3.991850826380268*^9,
|
|
3.991850829169306*^9}},ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-\
|
|
98d71f8a8458"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"c516c31a-74b4-f24d-a16a-678221cde87e"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"5c50b555-9ebe-f94d-801f-34634555f622"],
|
|
|
|
Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"S2", "=",
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]],
|
|
RowBox[{"(",
|
|
RowBox[{"4", "x", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]",
|
|
"*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}], ")"}], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input",
|
|
CellChangeTimes->{{3.9918508329145336`*^9,
|
|
3.991850837197098*^9}},ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-\
|
|
57c1fe1d0585"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"7ca591cf-a5ce-ce41-8101-8edfca50e890"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":",
|
|
" ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\
|
|
\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
|
|
ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\
|
|
"cbafd11a-4be0-b541-81e4-e62191ae7695"],
|
|
|
|
Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
FractionBox["q",
|
|
SqrtBox[
|
|
RowBox[{"S1", "*", "S2"}]]]], "Input",
|
|
CellChangeTimes->{{3.9918508397421246`*^9,
|
|
3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\
|
|
1ca469b254bd"],
|
|
|
|
Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"]
|
|
}, Open ]]
|
|
},
|
|
WindowSize->{718.5, 729.75},
|
|
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
|
|
CellContext->Notebook,
|
|
FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)",
|
|
StyleDefinitions->"Default.nb",
|
|
ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a"
|
|
]
|
|
(* End of Notebook Content *)
|
|
|
|
(* Internal cache information *)
|
|
(*CellTagsOutline
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*CellTagsIndex
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*NotebookFileOutline
|
|
Notebook[{
|
|
Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"],
|
|
Cell[706, 26, 152, 3, 28, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"],
|
|
Cell[861, 31, 147, 4, 28, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"],
|
|
Cell[1011, 37, 154, 3, 28, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"],
|
|
Cell[CellGroupData[{
|
|
Cell[1190, 44, 1273, 41, 113, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"],
|
|
Cell[2466, 87, 106, 0, 32, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[2609, 92, 910, 31, 56, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"],
|
|
Cell[3522, 125, 106, 0, 32, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[3665, 130, 885, 30, 56, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"],
|
|
Cell[4553, 162, 106, 0, 32, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[4696, 167, 532, 18, 52, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"],
|
|
Cell[5231, 187, 101, 0, 32, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[5369, 192, 625, 21, 52, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"],
|
|
Cell[5997, 215, 100, 0, 32, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[6134, 220, 144, 4, 56, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"],
|
|
Cell[6281, 226, 101, 0, 32, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[6419, 231, 144, 4, 55, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"],
|
|
Cell[6566, 237, 100, 0, 70, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[6703, 242, 155, 4, 70, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"],
|
|
Cell[6861, 248, 101, 0, 70, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[6999, 253, 155, 4, 70, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"],
|
|
Cell[7157, 259, 101, 0, 70, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[7295, 264, 6029, 184, 70, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"],
|
|
Cell[13327, 450, 102, 0, 70, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[13466, 455, 342, 8, 70, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"],
|
|
Cell[13811, 465, 342, 6, 70, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"],
|
|
Cell[14156, 473, 100, 0, 70, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[14293, 478, 6096, 186, 70, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"],
|
|
Cell[20392, 666, 103, 0, 70, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[20532, 671, 342, 8, 70, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"],
|
|
Cell[20877, 681, 342, 6, 70, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"],
|
|
Cell[21222, 689, 100, 0, 70, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[21359, 694, 2637, 87, 70, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"],
|
|
Cell[23999, 783, 101, 0, 70, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[24137, 788, 2577, 84, 70, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"],
|
|
Cell[26717, 874, 102, 0, 70, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[26856, 879, 3686, 117, 70, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"],
|
|
Cell[30545, 998, 102, 0, 70, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"]
|
|
}, Open ]],
|
|
Cell[30662, 1001, 138, 3, 70, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"],
|
|
Cell[CellGroupData[{
|
|
Cell[30825, 1008, 2054, 59, 70, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"],
|
|
Cell[32882, 1069, 342, 6, 70, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"],
|
|
Cell[33227, 1077, 342, 6, 70, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"],
|
|
Cell[33572, 1085, 100, 0, 70, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[33709, 1090, 2049, 58, 70, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"],
|
|
Cell[35761, 1150, 342, 6, 70, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"],
|
|
Cell[36106, 1158, 342, 6, 70, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"],
|
|
Cell[36451, 1166, 100, 0, 70, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[36588, 1171, 1938, 53, 70, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"],
|
|
Cell[38529, 1226, 342, 6, 70, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"],
|
|
Cell[38874, 1234, 342, 6, 70, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"],
|
|
Cell[39219, 1242, 342, 6, 70, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"],
|
|
Cell[39564, 1250, 407, 7, 70, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"],
|
|
Cell[39974, 1259, 8018, 364, 70, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"],
|
|
Cell[47995, 1625, 191, 5, 70, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[48223, 1635, 2094, 60, 70, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"],
|
|
Cell[50320, 1697, 342, 6, 70, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"],
|
|
Cell[50665, 1705, 342, 6, 70, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"],
|
|
Cell[51010, 1713, 342, 6, 70, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"],
|
|
Cell[51355, 1721, 407, 7, 70, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"],
|
|
Cell[51765, 1730, 8024, 353, 70, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"],
|
|
Cell[59792, 2085, 191, 5, 70, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"]
|
|
}, Open ]],
|
|
Cell[59998, 2093, 232, 6, 70, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"],
|
|
Cell[60233, 2101, 209, 5, 70, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"],
|
|
Cell[CellGroupData[{
|
|
Cell[60467, 2110, 215, 7, 70, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"],
|
|
Cell[60685, 2119, 100, 0, 70, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[60822, 2124, 1814, 53, 70, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"],
|
|
Cell[62639, 2179, 342, 6, 70, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"],
|
|
Cell[62984, 2187, 342, 6, 70, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"],
|
|
Cell[63329, 2195, 342, 6, 70, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"],
|
|
Cell[63674, 2203, 407, 7, 70, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"],
|
|
Cell[64084, 2212, 8187, 365, 70, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"],
|
|
Cell[72274, 2579, 191, 5, 70, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[72502, 2589, 1590, 47, 70, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"],
|
|
Cell[74095, 2638, 342, 6, 70, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"],
|
|
Cell[74440, 2646, 101, 0, 70, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[74578, 2651, 2247, 64, 70, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"],
|
|
Cell[76828, 2717, 342, 6, 70, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"],
|
|
Cell[77173, 2725, 342, 6, 70, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"],
|
|
Cell[77518, 2733, 103, 0, 70, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[77658, 2738, 2219, 64, 70, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"],
|
|
Cell[79880, 2804, 342, 6, 70, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"],
|
|
Cell[80225, 2812, 342, 6, 70, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"],
|
|
Cell[80570, 2820, 100, 0, 70, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[80707, 2825, 2221, 64, 70, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"],
|
|
Cell[82931, 2891, 342, 6, 70, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"],
|
|
Cell[83276, 2899, 342, 6, 70, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"],
|
|
Cell[83621, 2907, 101, 0, 70, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[83759, 2912, 215, 6, 70, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"],
|
|
Cell[83977, 2920, 104, 0, 70, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"]
|
|
}, Open ]],
|
|
Cell[84096, 2923, 247, 5, 70, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"],
|
|
Cell[CellGroupData[{
|
|
Cell[84368, 2932, 532, 18, 70, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"],
|
|
Cell[84903, 2952, 100, 0, 70, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[85040, 2957, 144, 4, 70, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"],
|
|
Cell[85187, 2963, 100, 0, 70, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[85324, 2968, 155, 4, 70, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"],
|
|
Cell[85482, 2974, 100, 0, 70, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[85619, 2979, 6029, 184, 70, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"],
|
|
Cell[91651, 3165, 102, 0, 70, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[91790, 3170, 342, 8, 70, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"],
|
|
Cell[92135, 3180, 342, 6, 70, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"],
|
|
Cell[92480, 3188, 99, 0, 70, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[92616, 3193, 6096, 186, 70, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"],
|
|
Cell[98715, 3381, 102, 0, 70, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[98854, 3386, 342, 8, 70, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"],
|
|
Cell[99199, 3396, 342, 6, 70, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"],
|
|
Cell[99544, 3404, 100, 0, 70, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[99681, 3409, 2637, 87, 70, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"],
|
|
Cell[102321, 3498, 101, 0, 70, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[102459, 3503, 2577, 84, 70, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"],
|
|
Cell[105039, 3589, 102, 0, 70, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[105178, 3594, 3686, 117, 70, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"],
|
|
Cell[108867, 3713, 102, 0, 70, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[109006, 3718, 2052, 59, 70, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"],
|
|
Cell[111061, 3779, 342, 6, 70, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"],
|
|
Cell[111406, 3787, 342, 6, 70, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"],
|
|
Cell[111751, 3795, 101, 0, 70, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[111889, 3800, 2054, 59, 70, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"],
|
|
Cell[113946, 3861, 342, 6, 70, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"],
|
|
Cell[114291, 3869, 342, 6, 70, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"],
|
|
Cell[114636, 3877, 100, 0, 70, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[114773, 3882, 2030, 55, 70, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"],
|
|
Cell[116806, 3939, 342, 6, 70, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"],
|
|
Cell[117151, 3947, 342, 6, 70, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"],
|
|
Cell[117496, 3955, 342, 6, 70, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"],
|
|
Cell[117841, 3963, 407, 7, 70, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"],
|
|
Cell[118251, 3972, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"],
|
|
Cell[127686, 4412, 191, 5, 70, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[127914, 4422, 2118, 60, 70, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"],
|
|
Cell[130035, 4484, 342, 6, 70, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"],
|
|
Cell[130380, 4492, 342, 6, 70, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"],
|
|
Cell[130725, 4500, 342, 6, 70, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"],
|
|
Cell[131070, 4508, 407, 7, 70, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"],
|
|
Cell[131480, 4517, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"],
|
|
Cell[140029, 4887, 191, 5, 70, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"]
|
|
}, Open ]],
|
|
Cell[140235, 4895, 209, 5, 70, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"],
|
|
Cell[CellGroupData[{
|
|
Cell[140469, 4904, 1590, 47, 70, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"],
|
|
Cell[142062, 4953, 342, 6, 70, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"],
|
|
Cell[142407, 4961, 101, 0, 70, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[142545, 4966, 2251, 64, 70, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"],
|
|
Cell[144799, 5032, 342, 6, 70, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"],
|
|
Cell[145144, 5040, 342, 6, 70, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"],
|
|
Cell[145489, 5048, 101, 0, 70, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[145627, 5053, 2220, 64, 70, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"],
|
|
Cell[147850, 5119, 342, 6, 70, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"],
|
|
Cell[148195, 5127, 342, 6, 70, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"],
|
|
Cell[148540, 5135, 101, 0, 70, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[148678, 5140, 2223, 64, 70, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"],
|
|
Cell[150904, 5206, 342, 6, 70, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"],
|
|
Cell[151249, 5214, 342, 6, 70, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"],
|
|
Cell[151594, 5222, 101, 0, 70, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[151732, 5227, 215, 6, 70, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"],
|
|
Cell[151950, 5235, 102, 0, 70, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"]
|
|
}, Open ]],
|
|
Cell[152067, 5238, 247, 5, 70, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"],
|
|
Cell[CellGroupData[{
|
|
Cell[152339, 5247, 532, 18, 70, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"],
|
|
Cell[152874, 5267, 101, 0, 70, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[153012, 5272, 144, 4, 70, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"],
|
|
Cell[153159, 5278, 101, 0, 70, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[153297, 5283, 155, 4, 70, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"],
|
|
Cell[153455, 5289, 100, 0, 70, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[153592, 5294, 6029, 184, 70, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"],
|
|
Cell[159624, 5480, 102, 0, 70, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[159763, 5485, 342, 8, 70, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"],
|
|
Cell[160108, 5495, 342, 6, 70, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"],
|
|
Cell[160453, 5503, 100, 0, 70, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[160590, 5508, 6096, 186, 70, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"],
|
|
Cell[166689, 5696, 102, 0, 70, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[166828, 5701, 342, 8, 70, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"],
|
|
Cell[167173, 5711, 342, 6, 70, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"],
|
|
Cell[167518, 5719, 99, 0, 70, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[167654, 5724, 2637, 87, 70, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"],
|
|
Cell[170294, 5813, 101, 0, 70, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[170432, 5818, 2577, 84, 70, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"],
|
|
Cell[173012, 5904, 102, 0, 70, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[173151, 5909, 3686, 117, 70, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"],
|
|
Cell[176840, 6028, 102, 0, 70, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[176979, 6033, 2054, 59, 70, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"],
|
|
Cell[179036, 6094, 342, 6, 70, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"],
|
|
Cell[179381, 6102, 342, 6, 70, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"],
|
|
Cell[179726, 6110, 100, 0, 70, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[179863, 6115, 2054, 59, 70, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"],
|
|
Cell[181920, 6176, 342, 6, 70, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"],
|
|
Cell[182265, 6184, 342, 6, 70, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"],
|
|
Cell[182610, 6192, 100, 0, 70, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[182747, 6197, 2030, 55, 70, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"],
|
|
Cell[184780, 6254, 342, 6, 70, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"],
|
|
Cell[185125, 6262, 342, 6, 70, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"],
|
|
Cell[185470, 6270, 342, 6, 70, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"],
|
|
Cell[185815, 6278, 407, 7, 70, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"],
|
|
Cell[186225, 6287, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"],
|
|
Cell[195660, 6727, 191, 5, 70, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[195888, 6737, 2143, 61, 70, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"],
|
|
Cell[198034, 6800, 342, 6, 70, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"],
|
|
Cell[198379, 6808, 342, 6, 70, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"],
|
|
Cell[198724, 6816, 342, 6, 70, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"],
|
|
Cell[199069, 6824, 407, 7, 70, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"],
|
|
Cell[199479, 6833, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"],
|
|
Cell[208028, 7203, 191, 5, 70, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"]
|
|
}, Open ]],
|
|
Cell[208234, 7211, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"],
|
|
Cell[CellGroupData[{
|
|
Cell[208397, 7218, 1590, 47, 70, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"],
|
|
Cell[209990, 7267, 342, 6, 70, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"],
|
|
Cell[210335, 7275, 101, 0, 70, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[210473, 7280, 2249, 64, 70, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"],
|
|
Cell[212725, 7346, 342, 6, 70, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"],
|
|
Cell[213070, 7354, 342, 6, 70, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"],
|
|
Cell[213415, 7362, 100, 0, 70, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[213552, 7367, 2219, 64, 70, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"],
|
|
Cell[215774, 7433, 342, 6, 70, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"],
|
|
Cell[216119, 7441, 342, 6, 70, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"],
|
|
Cell[216464, 7449, 99, 0, 70, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[216600, 7454, 2221, 64, 70, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"],
|
|
Cell[218824, 7520, 342, 6, 70, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"],
|
|
Cell[219169, 7528, 342, 6, 70, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"],
|
|
Cell[219514, 7536, 101, 0, 70, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[219652, 7541, 215, 6, 70, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"],
|
|
Cell[219870, 7549, 102, 0, 70, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"]
|
|
}, Open ]]
|
|
}
|
|
]
|
|
*)
|
|
|
|
(* End of internal cache information *)
|
|
|