9769 lines
420 KiB
Mathematica
Executable file
9769 lines
420 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[ 419556, 9759]
|
|
NotebookOptionsPosition[ 394772, 9385]
|
|
NotebookOutlinePosition[ 395226, 9403]
|
|
CellTagsIndexPosition[ 395183, 9400]
|
|
WindowFrame->Normal*)
|
|
|
|
(* Beginning of Notebook Content *)
|
|
Notebook[{
|
|
Cell[BoxData[
|
|
RowBox[{"f1", "="}]], "Input",
|
|
CellChangeTimes->{
|
|
3.9918488488187084`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\
|
|
406cf54e52d1"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.991848849725815*^9,
|
|
3.9918488497328167`*^9}},ExpressionUUID->"a5161e25-7247-124f-8601-\
|
|
7bcc4af89c62"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"f2", "="}]], "Input",
|
|
CellChangeTimes->{
|
|
3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\
|
|
c079ad464f5d"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.991848851636154*^9,
|
|
3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\
|
|
11f4dcb03e07"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Ir", "=",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"A1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.16", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "1"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"1", "/", "3"}]]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.16", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "1"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"1", "/", "3"}]]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.16", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}],
|
|
")"}]}]], "Input",
|
|
CellLabel->
|
|
"In[150]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"],
|
|
|
|
Cell[BoxData["2.3793916761039797`*^-53"], "Output",
|
|
CellChangeTimes->{3.9913279321052856`*^9},
|
|
CellLabel->
|
|
"Out[150]=",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"]
|
|
}, 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.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\
|
|
7221ff813b6d"],
|
|
|
|
Cell[BoxData["8.839304777809617`*^-55"], "Output",
|
|
CellChangeTimes->{3.991327932129387*^9},
|
|
CellLabel->
|
|
"Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"]
|
|
}, 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.9915575683388195`*^9,
|
|
3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\
|
|
fa370a62ac27"],
|
|
|
|
Cell[BoxData["2.0384594858915346`*^-54"], "Output",
|
|
CellChangeTimes->{3.991327932138338*^9},
|
|
CellLabel->
|
|
"Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"]
|
|
}, 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",
|
|
CellLabel->
|
|
"In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"],
|
|
|
|
Cell[BoxData["27.24865368249903`"], "Output",
|
|
CellChangeTimes->{3.9913279321616154`*^9},
|
|
CellLabel->
|
|
"Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Qw3", "=",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "1"}]], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}],
|
|
RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input",
|
|
CellLabel->
|
|
"In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"],
|
|
|
|
Cell[BoxData["37.77192070584817`"], "Output",
|
|
CellChangeTimes->{3.9913279321696014`*^9},
|
|
CellLabel->
|
|
"Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hb", "=",
|
|
SqrtBox[
|
|
FractionBox["Kb", "Qb3"]]}]], "Input",
|
|
CellLabel->
|
|
"In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"],
|
|
|
|
Cell[BoxData["0.718596406513947`"], "Output",
|
|
CellChangeTimes->{3.9913279321926613`*^9},
|
|
CellLabel->
|
|
"Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hw", "=",
|
|
SqrtBox[
|
|
FractionBox["Kw", "Qw3"]]}]], "Input",
|
|
CellLabel->
|
|
"In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"],
|
|
|
|
Cell[BoxData["3.2238916343938024`"], "Output",
|
|
CellChangeTimes->{3.991327932200657*^9},
|
|
CellLabel->
|
|
"Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cw", "=",
|
|
FractionBox[
|
|
RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",
|
|
CellLabel->
|
|
"In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"],
|
|
|
|
Cell[BoxData["121.77257917856996`"], "Output",
|
|
CellChangeTimes->{3.99132793222501*^9},
|
|
CellLabel->
|
|
"Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cb", "=",
|
|
FractionBox[
|
|
RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",
|
|
CellLabel->
|
|
"In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"],
|
|
|
|
Cell[BoxData["19.58078461858683`"], "Output",
|
|
CellChangeTimes->{3.9913279322642612`*^9},
|
|
CellLabel->
|
|
"Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"o1", "=",
|
|
RowBox[{
|
|
RowBox[{"1", "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]], "*", "Cb"}], "+",
|
|
RowBox[{"Cw", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}],
|
|
"2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}]], "Input",
|
|
CellLabel->
|
|
"In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"],
|
|
|
|
Cell[BoxData["0.032550594324745`"], "Output",
|
|
CellChangeTimes->{3.9913279322906475`*^9},
|
|
CellLabel->
|
|
"Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-", "x"}], "*", "x", "*", "o1"}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",
|
|
CellLabel->
|
|
"In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"],
|
|
|
|
Cell[BoxData["4.91208054446651`"], "Output",
|
|
CellChangeTimes->{3.9913279323826447`*^9},
|
|
CellLabel->
|
|
"Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"o2", "=",
|
|
RowBox[{
|
|
RowBox[{"1", "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]], "*", "Cb"}], "+",
|
|
RowBox[{"Cw", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}]], "Input",
|
|
CellLabel->
|
|
"In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"],
|
|
|
|
Cell[BoxData["0.012685641417856707`"], "Output",
|
|
CellChangeTimes->{3.991327932394655*^9},
|
|
CellLabel->
|
|
"Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-", "x"}], "*", "x", "*", "o2"}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",
|
|
CellLabel->
|
|
"In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"],
|
|
|
|
Cell[BoxData["7.868441587445692`"], "Output",
|
|
CellChangeTimes->{3.991327932491659*^9},
|
|
CellLabel->
|
|
"Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h1", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}],
|
|
")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
|
|
")"}]}]}]], "Input",
|
|
CellLabel->
|
|
"In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"],
|
|
|
|
Cell[BoxData["0.6975316474635891`"], "Output",
|
|
CellChangeTimes->{3.991327932509678*^9},
|
|
CellLabel->
|
|
"Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h2", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
|
|
")"}]}]}]], "Input",
|
|
CellLabel->
|
|
"In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"],
|
|
|
|
Cell[BoxData["0.3024683525364109`"], "Output",
|
|
CellChangeTimes->{3.9913279325457134`*^9},
|
|
CellLabel->
|
|
"Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h3", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}],
|
|
")"}]}], ")"}], "/",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
"\[IndentingNewLine]",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"]}]}]], "Input",
|
|
CellLabel->
|
|
"In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"],
|
|
|
|
Cell[BoxData["0.21098124825032033`"], "Output",
|
|
CellChangeTimes->{3.9913279325697117`*^9},
|
|
CellLabel->
|
|
"Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Clear", "[",
|
|
RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\
|
|
eb45-a9e1-7a2f5d020eb1"],
|
|
|
|
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.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\
|
|
c0135e32eaf8"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \
|
|
\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\
|
|
31183104000000000000000000\\\"]\\) is too small to represent as a normalized \
|
|
machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597,
|
|
"Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913279325947113`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \
|
|
\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\
|
|
29806995456000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 166, 110,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913279326047096`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \
|
|
\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\
|
|
66213134598144000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 166, 111,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991327932612709*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 166, 112, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913279326207104`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"],
|
|
|
|
Cell[BoxData["4.912080544466506`"], "Output",
|
|
CellChangeTimes->{3.9913279359974174`*^9},
|
|
CellLabel->
|
|
"Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"]
|
|
}, 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.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\
|
|
b0ab3cd09ac2"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \
|
|
\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\
|
|
31183104000000000000000000\\\"]\\) is too small to represent as a normalized \
|
|
machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597,
|
|
"Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991327936033827*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \
|
|
\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\
|
|
29806995456000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 167, 114,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913279360428295`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \
|
|
\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\
|
|
66213134598144000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 167, 115,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991327936050829*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 167, 116, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913279360588284`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"],
|
|
|
|
Cell[BoxData["7.868441587445692`"], "Output",
|
|
CellChangeTimes->{3.9913279393385086`*^9},
|
|
CellLabel->
|
|
"Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"]
|
|
}, 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.991848869193308*^9},ExpressionUUID->"124cd7db-c537-8943-bef2-\
|
|
1a154ab4a709"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl
|
|
kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M
|
|
c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN
|
|
/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0
|
|
+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3
|
|
Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD
|
|
VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE
|
|
TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG
|
|
+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g
|
|
LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r
|
|
GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO
|
|
zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY
|
|
r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991
|
|
oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh
|
|
xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64
|
|
OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ
|
|
bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6
|
|
fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv
|
|
vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO
|
|
hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD
|
|
1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB
|
|
4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW
|
|
y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/
|
|
lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE
|
|
9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM
|
|
GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN
|
|
15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA
|
|
LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2
|
|
vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw
|
|
/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs
|
|
WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ
|
|
Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5
|
|
BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n
|
|
LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4
|
|
XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8
|
|
7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN
|
|
5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs
|
|
n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO
|
|
GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI
|
|
llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys
|
|
jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw
|
|
frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl
|
|
L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM
|
|
HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq
|
|
TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P
|
|
feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9
|
|
wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T
|
|
1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L
|
|
h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp
|
|
cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4
|
|
luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB
|
|
LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7
|
|
XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd
|
|
i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz
|
|
1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr
|
|
y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW
|
|
gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov
|
|
KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA
|
|
WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1
|
|
c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI
|
|
HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR
|
|
slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc
|
|
QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg
|
|
n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W
|
|
hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1
|
|
RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES
|
|
bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK
|
|
4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV
|
|
IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ
|
|
kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5
|
|
6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV
|
|
fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE
|
|
lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj
|
|
VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9
|
|
E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI
|
|
2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c
|
|
wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H
|
|
f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a
|
|
"]]},
|
|
Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
|
|
{"WolframDynamicHighlight", <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}],
|
|
StyleBox[
|
|
DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {},
|
|
Slot["HighlightElements"],
|
|
Slot["LayoutOptions"],
|
|
Slot["Meta"],
|
|
Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {},
|
|
Annotation[{
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Line[CompressedData["
|
|
1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl
|
|
kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M
|
|
c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN
|
|
/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0
|
|
+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3
|
|
Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD
|
|
VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE
|
|
TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG
|
|
+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g
|
|
LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r
|
|
GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO
|
|
zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY
|
|
r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991
|
|
oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh
|
|
xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64
|
|
OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ
|
|
bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6
|
|
fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv
|
|
vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO
|
|
hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD
|
|
1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB
|
|
4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW
|
|
y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/
|
|
lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE
|
|
9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM
|
|
GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN
|
|
15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA
|
|
LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2
|
|
vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw
|
|
/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs
|
|
WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ
|
|
Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5
|
|
BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n
|
|
LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4
|
|
XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8
|
|
7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN
|
|
5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs
|
|
n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO
|
|
GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI
|
|
llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys
|
|
jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw
|
|
frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl
|
|
L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM
|
|
HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq
|
|
TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P
|
|
feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9
|
|
wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T
|
|
1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L
|
|
h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp
|
|
cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4
|
|
luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB
|
|
LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7
|
|
XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd
|
|
i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz
|
|
1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr
|
|
y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW
|
|
gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov
|
|
KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA
|
|
WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1
|
|
c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI
|
|
HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR
|
|
slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc
|
|
QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg
|
|
n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W
|
|
hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1
|
|
RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES
|
|
bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK
|
|
4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV
|
|
IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ
|
|
kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5
|
|
6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV
|
|
fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE
|
|
lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj
|
|
VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9
|
|
E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI
|
|
2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c
|
|
wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H
|
|
f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.819001000320631},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1),
|
|
"DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" ->
|
|
False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>]]& )[<|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.819001000320631},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1),
|
|
"DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>],
|
|
ImageSizeCache->{{91.80048673422971,
|
|
202.7475686600987}, {-12.9358605040218, 4.401639495978198}}],
|
|
Selectable->False]},
|
|
Annotation[{{{{}, {},
|
|
Annotation[{
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Line[CompressedData["
|
|
1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl
|
|
kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M
|
|
c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN
|
|
/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0
|
|
+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3
|
|
Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD
|
|
VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE
|
|
TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG
|
|
+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g
|
|
LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r
|
|
GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO
|
|
zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY
|
|
r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991
|
|
oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh
|
|
xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64
|
|
OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ
|
|
bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6
|
|
fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv
|
|
vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO
|
|
hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD
|
|
1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB
|
|
4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW
|
|
y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/
|
|
lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE
|
|
9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM
|
|
GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN
|
|
15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA
|
|
LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2
|
|
vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw
|
|
/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs
|
|
WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ
|
|
Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5
|
|
BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n
|
|
LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4
|
|
XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8
|
|
7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN
|
|
5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs
|
|
n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO
|
|
GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI
|
|
llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys
|
|
jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw
|
|
frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl
|
|
L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM
|
|
HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq
|
|
TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P
|
|
feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9
|
|
wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T
|
|
1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L
|
|
h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp
|
|
cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4
|
|
luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB
|
|
LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7
|
|
XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd
|
|
i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz
|
|
1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr
|
|
y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW
|
|
gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov
|
|
KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA
|
|
WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1
|
|
c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI
|
|
HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR
|
|
slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc
|
|
QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg
|
|
n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W
|
|
hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1
|
|
RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES
|
|
bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK
|
|
4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV
|
|
IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ
|
|
kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5
|
|
6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV
|
|
fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE
|
|
lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj
|
|
VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9
|
|
E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI
|
|
2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c
|
|
wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H
|
|
f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.819001000320631},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
|
|
"Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
|
|
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
|
|
Axes->{True, True},
|
|
AxesLabel->{None, None},
|
|
AxesOrigin->{0, 0.819001000320631},
|
|
DisplayFunction->Identity,
|
|
Frame->{{False, False}, {False, False}},
|
|
FrameLabel->{{None, None}, {None, None}},
|
|
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
|
|
GridLines->{None, None},
|
|
GridLinesStyle->Directive[
|
|
GrayLevel[0.5, 0.4]],
|
|
ImagePadding->All,
|
|
Method->{
|
|
"DefaultBoundaryStyle" -> Automatic,
|
|
"DefaultGraphicsInteraction" -> {
|
|
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
|
|
"Effects" -> {
|
|
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
|
|
"Droplines" -> {
|
|
"freeformCursorMode" -> True,
|
|
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
|
|
AbsolutePointSize[6], "ScalingFunctions" -> None,
|
|
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
|
|
(Identity[#]& )[
|
|
Part[#, 1]],
|
|
(Identity[#]& )[
|
|
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
|
|
(Identity[#]& )[
|
|
Part[#, 1]],
|
|
(Identity[#]& )[
|
|
Part[#, 2]]}& )}},
|
|
PlotRange->{{0, 180}, {0.8190010003206292, 1.212160280392001}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.9913281932019863`*^9},
|
|
CellLabel->
|
|
"Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"]
|
|
}, 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.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\
|
|
bade8ae5c530"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \
|
|
\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 169,
|
|
117, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913281934227676`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-279\\\", \
|
|
\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 169,
|
|
118, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913281934317894`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \
|
|
\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \
|
|
to represent as a normalized machine number; precision may be lost.\"", 2,
|
|
169, 119, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913281934409904`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 169, 120, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.99132819344899*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr
|
|
4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X
|
|
RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD
|
|
OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV
|
|
zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn
|
|
l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI
|
|
1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p
|
|
HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t
|
|
nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx
|
|
T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq
|
|
8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT
|
|
gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L
|
|
kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR
|
|
bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R
|
|
rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS
|
|
HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y
|
|
gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg
|
|
bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/
|
|
wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6
|
|
Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO
|
|
1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a
|
|
MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC
|
|
VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy
|
|
Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU
|
|
OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr
|
|
0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7
|
|
WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN
|
|
FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8
|
|
NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW
|
|
uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN
|
|
BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs
|
|
Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy
|
|
O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx
|
|
e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k
|
|
Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU
|
|
/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q
|
|
6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3
|
|
qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu
|
|
/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5
|
|
hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC
|
|
qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij
|
|
bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39
|
|
i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+
|
|
Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja
|
|
ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D
|
|
d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr
|
|
z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA
|
|
MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD
|
|
Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g
|
|
gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv
|
|
eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq
|
|
t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5
|
|
+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m
|
|
848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9
|
|
yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt
|
|
633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI
|
|
4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De
|
|
Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM
|
|
E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6
|
|
Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r
|
|
lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy
|
|
uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb
|
|
tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT
|
|
ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ
|
|
8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats
|
|
MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+
|
|
LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy
|
|
rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h
|
|
EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys
|
|
GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv
|
|
8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK
|
|
E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8
|
|
T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0
|
|
uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl
|
|
dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt
|
|
Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh
|
|
dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH
|
|
E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD
|
|
HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ
|
|
aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh
|
|
2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I
|
|
P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq
|
|
UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G
|
|
c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd
|
|
xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn
|
|
l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e
|
|
zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L
|
|
Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0
|
|
6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU
|
|
4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0
|
|
UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C
|
|
zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n
|
|
TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1
|
|
PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa
|
|
/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP
|
|
4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP
|
|
HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9
|
|
56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT
|
|
fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU
|
|
pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV
|
|
YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq
|
|
mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8
|
|
rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM
|
|
b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN
|
|
ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li
|
|
wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp
|
|
fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0
|
|
EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM
|
|
ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj
|
|
ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT
|
|
T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e
|
|
E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv
|
|
C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a
|
|
Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+
|
|
1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs
|
|
eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN
|
|
4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y
|
|
pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE
|
|
1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu
|
|
6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc
|
|
pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73
|
|
Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ
|
|
Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP
|
|
NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc
|
|
mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh
|
|
27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6
|
|
PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c
|
|
ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi
|
|
0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U
|
|
XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA
|
|
VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT
|
|
gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn
|
|
LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp
|
|
PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n
|
|
23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw
|
|
CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i
|
|
L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc
|
|
KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN
|
|
/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0
|
|
v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5
|
|
1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb
|
|
eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7
|
|
tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q
|
|
sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63
|
|
MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa
|
|
mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o
|
|
aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv
|
|
RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6
|
|
UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde
|
|
aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK
|
|
Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+
|
|
jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA
|
|
LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O
|
|
VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP
|
|
6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1
|
|
Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl
|
|
vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny
|
|
ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf
|
|
PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo
|
|
v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/
|
|
QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1
|
|
JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv
|
|
WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+
|
|
q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8
|
|
HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC
|
|
lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK
|
|
THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K
|
|
LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r
|
|
qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk
|
|
TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt
|
|
XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx
|
|
3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y
|
|
NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy
|
|
Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R
|
|
/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD
|
|
9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J
|
|
eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl
|
|
lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c
|
|
to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9
|
|
mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib
|
|
HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7
|
|
Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89
|
|
RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH
|
|
ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w
|
|
tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK
|
|
EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF
|
|
n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2
|
|
Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl
|
|
kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1
|
|
+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC
|
|
XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf
|
|
+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw
|
|
5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn
|
|
fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8
|
|
GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2
|
|
+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx
|
|
f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI
|
|
cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU
|
|
+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG
|
|
aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL
|
|
eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+
|
|
00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M
|
|
z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf
|
|
O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD
|
|
mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ
|
|
3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA
|
|
61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu
|
|
+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY
|
|
b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J
|
|
EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq
|
|
OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw
|
|
320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq
|
|
T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL
|
|
uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP
|
|
ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E
|
|
mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c
|
|
aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8
|
|
2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t
|
|
HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8
|
|
cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl
|
|
5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs
|
|
bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ
|
|
pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl
|
|
Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7
|
|
RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14
|
|
u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW
|
|
vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8
|
|
JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd
|
|
9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f
|
|
CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS
|
|
GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be
|
|
/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT
|
|
kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI
|
|
8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX
|
|
Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne
|
|
xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ
|
|
EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ
|
|
MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6
|
|
mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl
|
|
kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr
|
|
wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z
|
|
nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo
|
|
Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t
|
|
RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO
|
|
NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T
|
|
6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl
|
|
w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL
|
|
TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L
|
|
7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ
|
|
RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr
|
|
ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag
|
|
gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e
|
|
gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW
|
|
nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538
|
|
ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV
|
|
JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu
|
|
NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ
|
|
wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu
|
|
acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik
|
|
f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1
|
|
Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ
|
|
Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0
|
|
CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9
|
|
ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA
|
|
lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu
|
|
AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN
|
|
SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v
|
|
q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi
|
|
hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L
|
|
ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH
|
|
ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn
|
|
DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL
|
|
8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8
|
|
iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA
|
|
D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA
|
|
V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S
|
|
MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD
|
|
nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+
|
|
MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd
|
|
Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg==
|
|
"]]},
|
|
Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
|
|
{"WolframDynamicHighlight", <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}],
|
|
StyleBox[
|
|
DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {},
|
|
Slot["HighlightElements"],
|
|
Slot["LayoutOptions"],
|
|
Slot["Meta"],
|
|
Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {},
|
|
Annotation[{
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Line[CompressedData["
|
|
1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr
|
|
4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X
|
|
RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD
|
|
OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV
|
|
zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn
|
|
l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI
|
|
1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p
|
|
HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t
|
|
nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx
|
|
T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq
|
|
8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT
|
|
gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L
|
|
kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR
|
|
bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R
|
|
rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS
|
|
HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y
|
|
gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg
|
|
bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/
|
|
wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6
|
|
Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO
|
|
1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a
|
|
MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC
|
|
VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy
|
|
Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU
|
|
OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr
|
|
0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7
|
|
WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN
|
|
FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8
|
|
NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW
|
|
uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN
|
|
BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs
|
|
Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy
|
|
O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx
|
|
e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k
|
|
Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU
|
|
/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q
|
|
6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3
|
|
qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu
|
|
/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5
|
|
hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC
|
|
qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij
|
|
bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39
|
|
i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+
|
|
Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja
|
|
ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D
|
|
d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr
|
|
z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA
|
|
MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD
|
|
Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g
|
|
gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv
|
|
eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq
|
|
t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5
|
|
+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m
|
|
848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9
|
|
yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt
|
|
633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI
|
|
4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De
|
|
Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM
|
|
E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6
|
|
Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r
|
|
lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy
|
|
uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb
|
|
tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT
|
|
ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ
|
|
8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats
|
|
MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+
|
|
LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy
|
|
rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h
|
|
EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys
|
|
GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv
|
|
8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK
|
|
E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8
|
|
T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0
|
|
uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl
|
|
dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt
|
|
Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh
|
|
dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH
|
|
E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD
|
|
HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ
|
|
aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh
|
|
2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I
|
|
P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq
|
|
UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G
|
|
c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd
|
|
xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn
|
|
l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e
|
|
zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L
|
|
Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0
|
|
6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU
|
|
4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0
|
|
UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C
|
|
zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n
|
|
TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1
|
|
PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa
|
|
/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP
|
|
4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP
|
|
HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9
|
|
56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT
|
|
fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU
|
|
pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV
|
|
YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq
|
|
mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8
|
|
rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM
|
|
b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN
|
|
ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li
|
|
wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp
|
|
fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0
|
|
EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM
|
|
ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj
|
|
ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT
|
|
T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e
|
|
E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv
|
|
C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a
|
|
Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+
|
|
1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs
|
|
eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN
|
|
4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y
|
|
pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE
|
|
1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu
|
|
6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc
|
|
pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73
|
|
Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ
|
|
Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP
|
|
NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc
|
|
mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh
|
|
27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6
|
|
PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c
|
|
ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi
|
|
0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U
|
|
XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA
|
|
VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT
|
|
gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn
|
|
LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp
|
|
PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n
|
|
23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw
|
|
CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i
|
|
L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc
|
|
KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN
|
|
/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0
|
|
v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5
|
|
1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb
|
|
eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7
|
|
tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q
|
|
sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63
|
|
MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa
|
|
mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o
|
|
aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv
|
|
RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6
|
|
UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde
|
|
aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK
|
|
Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+
|
|
jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA
|
|
LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O
|
|
VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP
|
|
6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1
|
|
Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl
|
|
vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny
|
|
ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf
|
|
PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo
|
|
v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/
|
|
QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1
|
|
JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv
|
|
WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+
|
|
q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8
|
|
HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC
|
|
lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK
|
|
THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K
|
|
LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r
|
|
qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk
|
|
TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt
|
|
XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx
|
|
3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y
|
|
NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy
|
|
Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R
|
|
/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD
|
|
9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J
|
|
eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl
|
|
lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c
|
|
to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9
|
|
mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib
|
|
HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7
|
|
Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89
|
|
RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH
|
|
ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w
|
|
tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK
|
|
EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF
|
|
n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2
|
|
Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl
|
|
kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1
|
|
+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC
|
|
XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf
|
|
+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw
|
|
5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn
|
|
fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8
|
|
GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2
|
|
+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx
|
|
f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI
|
|
cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU
|
|
+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG
|
|
aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL
|
|
eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+
|
|
00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M
|
|
z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf
|
|
O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD
|
|
mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ
|
|
3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA
|
|
61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu
|
|
+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY
|
|
b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J
|
|
EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq
|
|
OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw
|
|
320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq
|
|
T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL
|
|
uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP
|
|
ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E
|
|
mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c
|
|
aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8
|
|
2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t
|
|
HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8
|
|
cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl
|
|
5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs
|
|
bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ
|
|
pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl
|
|
Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7
|
|
RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14
|
|
u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW
|
|
vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8
|
|
JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd
|
|
9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f
|
|
CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS
|
|
GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be
|
|
/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT
|
|
kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI
|
|
8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX
|
|
Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne
|
|
xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ
|
|
EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ
|
|
MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6
|
|
mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl
|
|
kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr
|
|
wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z
|
|
nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo
|
|
Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t
|
|
RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO
|
|
NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T
|
|
6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl
|
|
w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL
|
|
TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L
|
|
7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ
|
|
RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr
|
|
ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag
|
|
gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e
|
|
gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW
|
|
nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538
|
|
ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV
|
|
JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu
|
|
NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ
|
|
wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu
|
|
acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik
|
|
f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1
|
|
Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ
|
|
Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0
|
|
CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9
|
|
ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA
|
|
lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu
|
|
AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN
|
|
SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v
|
|
q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi
|
|
hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L
|
|
ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH
|
|
ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn
|
|
DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL
|
|
8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8
|
|
iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA
|
|
D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA
|
|
V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S
|
|
MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD
|
|
nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+
|
|
MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd
|
|
Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio},
|
|
"Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" ->
|
|
GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" ->
|
|
False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>]]& )[<|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}},
|
|
"Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1),
|
|
"DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>],
|
|
ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
|
|
4.503599627370496*^15, -4.503599627370496*^15}}],
|
|
Selectable->False]},
|
|
Annotation[{{{{}, {},
|
|
Annotation[{
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Line[CompressedData["
|
|
1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr
|
|
4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X
|
|
RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD
|
|
OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV
|
|
zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn
|
|
l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI
|
|
1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p
|
|
HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t
|
|
nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx
|
|
T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq
|
|
8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT
|
|
gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L
|
|
kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR
|
|
bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R
|
|
rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS
|
|
HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y
|
|
gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg
|
|
bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/
|
|
wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6
|
|
Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO
|
|
1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a
|
|
MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC
|
|
VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy
|
|
Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU
|
|
OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr
|
|
0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7
|
|
WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN
|
|
FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8
|
|
NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW
|
|
uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN
|
|
BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs
|
|
Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy
|
|
O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx
|
|
e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k
|
|
Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU
|
|
/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q
|
|
6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3
|
|
qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu
|
|
/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5
|
|
hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC
|
|
qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij
|
|
bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39
|
|
i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+
|
|
Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja
|
|
ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D
|
|
d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr
|
|
z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA
|
|
MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD
|
|
Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g
|
|
gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv
|
|
eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq
|
|
t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5
|
|
+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m
|
|
848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9
|
|
yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt
|
|
633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI
|
|
4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De
|
|
Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM
|
|
E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6
|
|
Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r
|
|
lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy
|
|
uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb
|
|
tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT
|
|
ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ
|
|
8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats
|
|
MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+
|
|
LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy
|
|
rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h
|
|
EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys
|
|
GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv
|
|
8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK
|
|
E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8
|
|
T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0
|
|
uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl
|
|
dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt
|
|
Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh
|
|
dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH
|
|
E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD
|
|
HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ
|
|
aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh
|
|
2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I
|
|
P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq
|
|
UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G
|
|
c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd
|
|
xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn
|
|
l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e
|
|
zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L
|
|
Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0
|
|
6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU
|
|
4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0
|
|
UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C
|
|
zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n
|
|
TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1
|
|
PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa
|
|
/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP
|
|
4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP
|
|
HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9
|
|
56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT
|
|
fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU
|
|
pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV
|
|
YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq
|
|
mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8
|
|
rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM
|
|
b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN
|
|
ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li
|
|
wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp
|
|
fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0
|
|
EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM
|
|
ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj
|
|
ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT
|
|
T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e
|
|
E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv
|
|
C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a
|
|
Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+
|
|
1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs
|
|
eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN
|
|
4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y
|
|
pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE
|
|
1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu
|
|
6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc
|
|
pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73
|
|
Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ
|
|
Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP
|
|
NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc
|
|
mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh
|
|
27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6
|
|
PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c
|
|
ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi
|
|
0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U
|
|
XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA
|
|
VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT
|
|
gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn
|
|
LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp
|
|
PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n
|
|
23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw
|
|
CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i
|
|
L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc
|
|
KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN
|
|
/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0
|
|
v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5
|
|
1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb
|
|
eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7
|
|
tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q
|
|
sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63
|
|
MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa
|
|
mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o
|
|
aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv
|
|
RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6
|
|
UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde
|
|
aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK
|
|
Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+
|
|
jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA
|
|
LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O
|
|
VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP
|
|
6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1
|
|
Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl
|
|
vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny
|
|
ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf
|
|
PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo
|
|
v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/
|
|
QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1
|
|
JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv
|
|
WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+
|
|
q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8
|
|
HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC
|
|
lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK
|
|
THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K
|
|
LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r
|
|
qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk
|
|
TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt
|
|
XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx
|
|
3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y
|
|
NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy
|
|
Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R
|
|
/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD
|
|
9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J
|
|
eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl
|
|
lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c
|
|
to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9
|
|
mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib
|
|
HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7
|
|
Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89
|
|
RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH
|
|
ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w
|
|
tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK
|
|
EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF
|
|
n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2
|
|
Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl
|
|
kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1
|
|
+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC
|
|
XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf
|
|
+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw
|
|
5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn
|
|
fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8
|
|
GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2
|
|
+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx
|
|
f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI
|
|
cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU
|
|
+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG
|
|
aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL
|
|
eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+
|
|
00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M
|
|
z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf
|
|
O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD
|
|
mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ
|
|
3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA
|
|
61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu
|
|
+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY
|
|
b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J
|
|
EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq
|
|
OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw
|
|
320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq
|
|
T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL
|
|
uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP
|
|
ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E
|
|
mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c
|
|
aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8
|
|
2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t
|
|
HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8
|
|
cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl
|
|
5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs
|
|
bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ
|
|
pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl
|
|
Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7
|
|
RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14
|
|
u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW
|
|
vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8
|
|
JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd
|
|
9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f
|
|
CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS
|
|
GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be
|
|
/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT
|
|
kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI
|
|
8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX
|
|
Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne
|
|
xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ
|
|
EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ
|
|
MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6
|
|
mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl
|
|
kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr
|
|
wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z
|
|
nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo
|
|
Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t
|
|
RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO
|
|
NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T
|
|
6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl
|
|
w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL
|
|
TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L
|
|
7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ
|
|
RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr
|
|
ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag
|
|
gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e
|
|
gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW
|
|
nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538
|
|
ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV
|
|
JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu
|
|
NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ
|
|
wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu
|
|
acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik
|
|
f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1
|
|
Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ
|
|
Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0
|
|
CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9
|
|
ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA
|
|
lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu
|
|
AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN
|
|
SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v
|
|
q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi
|
|
hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L
|
|
ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH
|
|
ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn
|
|
DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL
|
|
8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8
|
|
iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA
|
|
D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA
|
|
V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S
|
|
MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD
|
|
nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+
|
|
MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd
|
|
Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}},
|
|
"Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
|
|
"Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
|
|
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
|
|
Axes->{True, True},
|
|
AxesLabel->{None, None},
|
|
AxesOrigin->{0, 0},
|
|
DisplayFunction->Identity,
|
|
Frame->{{False, False}, {False, False}},
|
|
FrameLabel->{{None, None}, {None, None}},
|
|
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
|
|
GridLines->{None, None},
|
|
GridLinesStyle->Directive[
|
|
GrayLevel[0.5, 0.4]],
|
|
ImagePadding->All,
|
|
Method->{
|
|
"DefaultBoundaryStyle" -> Automatic,
|
|
"DefaultGraphicsInteraction" -> {
|
|
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
|
|
"Effects" -> {
|
|
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
|
|
"Droplines" -> {
|
|
"freeformCursorMode" -> True,
|
|
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
|
|
AbsolutePointSize[6], "ScalingFunctions" -> None,
|
|
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
|
|
(Identity[#]& )[
|
|
Part[#, 1]],
|
|
(Identity[#]& )[
|
|
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
|
|
(Identity[#]& )[
|
|
Part[#, 1]],
|
|
(Identity[#]& )[
|
|
Part[#, 2]]}& )}},
|
|
PlotRange->{{0, 30}, {0., 0.15475569508294718`}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.9913290128289948`*^9},
|
|
CellLabel->
|
|
"Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"xx", "=",
|
|
RowBox[{"ListPlot", "[",
|
|
RowBox[{"{", "}"}], "]"}]}]], "Input",
|
|
CellChangeTimes->{{3.991799458254999*^9,
|
|
3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\
|
|
511095eaf120"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Show", "[",
|
|
RowBox[{"x", ",", "xx"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.9917994642649307`*^9,
|
|
3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\
|
|
89d3982ba28f"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"L", "=",
|
|
FractionBox[
|
|
SqrtBox[
|
|
RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\
|
|
3438788b15d6"],
|
|
|
|
Cell[BoxData["9.779568499633264`"], "Output",
|
|
CellChangeTimes->{3.9913294794877434`*^9},
|
|
CellLabel->
|
|
"Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"]
|
|
}, 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.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\
|
|
0e75880d5d98"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \
|
|
\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \
|
|
small to represent as a normalized machine number; precision may be lost.\"",
|
|
2, 172, 125, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913294796838703`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[172]:=",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \
|
|
\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \
|
|
small to represent as a normalized machine number; precision may be lost.\"",
|
|
2, 172, 126, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991329479692892*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[172]:=",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \
|
|
\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \
|
|
too small to represent as a normalized machine number; precision may be lost.\
|
|
\"", 2, 172, 127, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913294797011433`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 172, 128, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991329479709572*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU
|
|
cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u
|
|
4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf
|
|
U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF
|
|
PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur
|
|
M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw
|
|
2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3
|
|
W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh
|
|
xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV
|
|
SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn
|
|
q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf
|
|
DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz
|
|
jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF
|
|
g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla
|
|
wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo
|
|
vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw
|
|
aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ
|
|
Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN
|
|
Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV
|
|
weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy
|
|
KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL
|
|
typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ
|
|
HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy
|
|
qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC
|
|
ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp
|
|
ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u
|
|
8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT
|
|
5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ
|
|
O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y
|
|
hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N
|
|
8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL
|
|
FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8
|
|
VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD
|
|
QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio
|
|
X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa
|
|
idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935
|
|
98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp
|
|
E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi
|
|
LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev
|
|
FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ
|
|
N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F
|
|
tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6
|
|
2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J
|
|
o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe
|
|
9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG
|
|
mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n
|
|
sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi
|
|
Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN
|
|
QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl
|
|
WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8
|
|
OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9
|
|
jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z
|
|
I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9
|
|
8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY
|
|
kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7
|
|
cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR
|
|
87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs
|
|
dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX
|
|
Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P
|
|
uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8
|
|
uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm
|
|
szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl
|
|
LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef
|
|
fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ
|
|
8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW
|
|
rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ
|
|
5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8
|
|
nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J
|
|
H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq
|
|
4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD
|
|
o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/
|
|
C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt
|
|
1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ
|
|
d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY
|
|
ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6
|
|
/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx
|
|
8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu
|
|
Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc
|
|
OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg
|
|
nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG
|
|
f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz
|
|
m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ
|
|
+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea
|
|
Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9
|
|
B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG
|
|
pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft
|
|
R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+
|
|
//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL
|
|
fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa
|
|
H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj
|
|
1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw
|
|
8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y
|
|
PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4
|
|
OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g
|
|
41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3
|
|
j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b
|
|
LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m
|
|
MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W
|
|
9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/
|
|
v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U
|
|
N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb
|
|
be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq
|
|
XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl
|
|
vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF
|
|
7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI
|
|
1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg
|
|
cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD
|
|
wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO
|
|
D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK
|
|
"]]},
|
|
Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
|
|
{"WolframDynamicHighlight", <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}],
|
|
StyleBox[
|
|
DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {},
|
|
Slot["HighlightElements"],
|
|
Slot["LayoutOptions"],
|
|
Slot["Meta"],
|
|
Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {},
|
|
Annotation[{
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Line[CompressedData["
|
|
1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU
|
|
cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u
|
|
4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf
|
|
U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF
|
|
PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur
|
|
M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw
|
|
2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3
|
|
W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh
|
|
xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV
|
|
SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn
|
|
q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf
|
|
DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz
|
|
jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF
|
|
g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla
|
|
wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo
|
|
vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw
|
|
aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ
|
|
Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN
|
|
Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV
|
|
weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy
|
|
KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL
|
|
typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ
|
|
HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy
|
|
qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC
|
|
ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp
|
|
ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u
|
|
8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT
|
|
5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ
|
|
O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y
|
|
hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N
|
|
8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL
|
|
FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8
|
|
VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD
|
|
QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio
|
|
X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa
|
|
idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935
|
|
98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp
|
|
E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi
|
|
LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev
|
|
FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ
|
|
N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F
|
|
tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6
|
|
2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J
|
|
o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe
|
|
9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG
|
|
mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n
|
|
sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi
|
|
Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN
|
|
QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl
|
|
WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8
|
|
OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9
|
|
jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z
|
|
I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9
|
|
8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY
|
|
kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7
|
|
cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR
|
|
87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs
|
|
dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX
|
|
Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P
|
|
uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8
|
|
uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm
|
|
szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl
|
|
LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef
|
|
fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ
|
|
8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW
|
|
rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ
|
|
5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8
|
|
nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J
|
|
H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq
|
|
4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD
|
|
o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/
|
|
C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt
|
|
1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ
|
|
d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY
|
|
ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6
|
|
/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx
|
|
8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu
|
|
Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc
|
|
OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg
|
|
nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG
|
|
f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz
|
|
m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ
|
|
+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea
|
|
Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9
|
|
B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG
|
|
pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft
|
|
R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+
|
|
//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL
|
|
fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa
|
|
H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj
|
|
1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw
|
|
8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y
|
|
PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4
|
|
OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g
|
|
41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3
|
|
j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b
|
|
LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m
|
|
MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W
|
|
9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/
|
|
v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U
|
|
N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb
|
|
be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq
|
|
XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl
|
|
vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF
|
|
7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI
|
|
1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg
|
|
cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD
|
|
wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO
|
|
D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 30}, {0., 0.07773075306777268}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio},
|
|
"Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" ->
|
|
GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" ->
|
|
False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>]]& )[<|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 30}, {0., 0.07773075306777268}},
|
|
"Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1),
|
|
"DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>],
|
|
ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
|
|
4.503599627370496*^15, -4.503599627370496*^15}}],
|
|
Selectable->False]},
|
|
Annotation[{{{{}, {},
|
|
Annotation[{
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Line[CompressedData["
|
|
1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU
|
|
cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u
|
|
4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf
|
|
U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF
|
|
PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur
|
|
M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw
|
|
2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3
|
|
W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh
|
|
xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV
|
|
SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn
|
|
q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf
|
|
DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz
|
|
jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF
|
|
g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla
|
|
wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo
|
|
vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw
|
|
aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ
|
|
Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN
|
|
Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV
|
|
weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy
|
|
KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL
|
|
typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ
|
|
HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy
|
|
qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC
|
|
ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp
|
|
ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u
|
|
8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT
|
|
5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ
|
|
O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y
|
|
hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N
|
|
8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL
|
|
FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8
|
|
VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD
|
|
QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio
|
|
X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa
|
|
idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935
|
|
98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp
|
|
E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi
|
|
LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev
|
|
FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ
|
|
N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F
|
|
tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6
|
|
2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J
|
|
o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe
|
|
9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG
|
|
mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n
|
|
sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi
|
|
Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN
|
|
QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl
|
|
WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8
|
|
OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9
|
|
jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z
|
|
I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9
|
|
8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY
|
|
kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7
|
|
cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR
|
|
87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs
|
|
dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX
|
|
Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P
|
|
uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8
|
|
uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm
|
|
szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl
|
|
LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef
|
|
fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ
|
|
8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW
|
|
rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ
|
|
5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8
|
|
nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J
|
|
H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq
|
|
4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD
|
|
o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/
|
|
C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt
|
|
1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ
|
|
d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY
|
|
ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6
|
|
/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx
|
|
8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu
|
|
Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc
|
|
OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg
|
|
nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG
|
|
f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz
|
|
m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ
|
|
+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea
|
|
Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9
|
|
B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG
|
|
pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft
|
|
R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+
|
|
//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL
|
|
fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa
|
|
H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj
|
|
1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw
|
|
8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y
|
|
PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4
|
|
OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g
|
|
41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3
|
|
j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b
|
|
LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m
|
|
MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W
|
|
9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/
|
|
v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U
|
|
N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb
|
|
be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq
|
|
XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl
|
|
vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF
|
|
7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI
|
|
1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg
|
|
cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD
|
|
wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO
|
|
D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 30}, {0., 0.07773075306777268}},
|
|
"Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
|
|
"Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
|
|
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
|
|
Axes->{True, True},
|
|
AxesLabel->{None, None},
|
|
AxesOrigin->{0, 0},
|
|
DisplayFunction->Identity,
|
|
Frame->{{False, False}, {False, False}},
|
|
FrameLabel->{{None, None}, {None, None}},
|
|
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
|
|
GridLines->{None, None},
|
|
GridLinesStyle->Directive[
|
|
GrayLevel[0.5, 0.4]],
|
|
ImagePadding->All,
|
|
Method->{
|
|
"DefaultBoundaryStyle" -> Automatic,
|
|
"DefaultGraphicsInteraction" -> {
|
|
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
|
|
"Effects" -> {
|
|
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
|
|
"Droplines" -> {
|
|
"freeformCursorMode" -> True,
|
|
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
|
|
AbsolutePointSize[6], "ScalingFunctions" -> None,
|
|
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
|
|
(Identity[#]& )[
|
|
Part[#, 1]],
|
|
(Identity[#]& )[
|
|
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
|
|
(Identity[#]& )[
|
|
Part[#, 1]],
|
|
(Identity[#]& )[
|
|
Part[#, 2]]}& )}},
|
|
PlotRange->{{0, 30}, {0., 0.07773075306777268}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.9913298974454536`*^9},
|
|
CellLabel->
|
|
"Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"],
|
|
")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
FractionBox["1", "Cb"], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "y"}],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",
|
|
CellLabel->
|
|
"In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \
|
|
\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\
|
|
7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \
|
|
to represent as a normalized machine number; precision may be lost.\"", 2,
|
|
173, 129, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913298974999084`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \
|
|
\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\
|
|
35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \
|
|
small to represent as a normalized machine number; precision may be lost.\"",
|
|
2, 173, 130, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991329897510906*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \
|
|
\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\
|
|
54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \
|
|
small to represent as a normalized machine number; precision may be lost.\"",
|
|
2, 173, 131, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913298975189075`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 173, 132, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991329897526905*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"],
|
|
|
|
Cell[BoxData["9.77956849963325`"], "Output",
|
|
CellChangeTimes->{3.991329904262455*^9},
|
|
CellLabel->
|
|
"Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"]
|
|
}, 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.9918489049186344`*^9,
|
|
3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\
|
|
a57fd4094f56"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \
|
|
\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\
|
|
31183104000000000000000000\\\"]\\) is too small to represent as a normalized \
|
|
machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597,
|
|
"Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991329904300501*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \
|
|
\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\
|
|
29806995456000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 174, 134,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991329904310505*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \
|
|
\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\
|
|
66213134598144000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 174, 135,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913299043185062`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 174, 136, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913299043256874`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"],
|
|
|
|
Cell[BoxData["0.1491428555515254`"], "Output",
|
|
CellChangeTimes->{3.9913299110465336`*^9},
|
|
CellLabel->
|
|
"Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"]
|
|
}, 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.9918489121661835`*^9,
|
|
3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\
|
|
47c1a485c608"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \
|
|
\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\
|
|
31183104000000000000000000\\\"]\\) is too small to represent as a normalized \
|
|
machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597,
|
|
"Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991329911081766*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \
|
|
\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\
|
|
29806995456000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 175, 138,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991329911090769*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \
|
|
\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\
|
|
66213134598144000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 175, 139,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991329911098768*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 175, 140, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913299111067944`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"],
|
|
|
|
Cell[BoxData["6.5928699937564845`"], "Output",
|
|
CellChangeTimes->{3.9913299163114815`*^9},
|
|
CellLabel->
|
|
"Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"]
|
|
}, 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.9918489192162857`*^9,
|
|
3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\
|
|
0d79e6ed8953"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \
|
|
\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\
|
|
31183104000000000000000000\\\"]\\) is too small to represent as a normalized \
|
|
machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597,
|
|
"Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913299163444805`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \
|
|
\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\
|
|
29806995456000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 176, 142,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991329916354479*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \
|
|
\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\
|
|
66213134598144000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 176, 143,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913299163634796`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 176, 144, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991329916371479*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"],
|
|
|
|
Cell[BoxData["16.916908616104454`"], "Output",
|
|
CellChangeTimes->{3.9913299193276234`*^9},
|
|
CellLabel->
|
|
"Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
FractionBox["q",
|
|
SqrtBox[
|
|
RowBox[{"S1", "*", "S2"}]]]], "Input",
|
|
CellChangeTimes->{{3.991848926103155*^9,
|
|
3.9918489295815735`*^9}},ExpressionUUID->"8c5df121-e0b9-a146-bc34-\
|
|
b231aa8028b9"],
|
|
|
|
Cell[BoxData["0.01412227604937243`"], "Output",
|
|
CellChangeTimes->{3.99132991935894*^9},
|
|
CellLabel->
|
|
"Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Clear", "[",
|
|
RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.9918489327910748`*^9, 3.991848934830887*^9},
|
|
3.991924914130762*^9},ExpressionUUID->"831a27fc-89ff-e041-97f1-\
|
|
0ec5d19a7879"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Qb2", "=",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "1"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"Il", "*", "Ih"}],
|
|
RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",
|
|
CellLabel->
|
|
"In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"],
|
|
|
|
Cell[BoxData["8.947947137013426`"], "Output",
|
|
CellChangeTimes->{3.9913299193849545`*^9},
|
|
CellLabel->
|
|
"Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hb", "=",
|
|
SqrtBox[
|
|
FractionBox["Kb", "Qb2"]]}]], "Input",
|
|
CellLabel->
|
|
"In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"],
|
|
|
|
Cell[BoxData["1.2539951617800844`"], "Output",
|
|
CellChangeTimes->{3.9913299194207077`*^9},
|
|
CellLabel->
|
|
"Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cb", "=",
|
|
FractionBox[
|
|
RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",
|
|
CellLabel->
|
|
"In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"],
|
|
|
|
Cell[BoxData["11.220682417678793`"], "Output",
|
|
CellChangeTimes->{3.9913299194738407`*^9},
|
|
CellLabel->
|
|
"Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"o1", "=",
|
|
RowBox[{
|
|
RowBox[{"1", "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]], "*", "Cb"}], "+",
|
|
RowBox[{"Cw", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}],
|
|
"2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}]], "Input",
|
|
CellLabel->
|
|
"In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"],
|
|
|
|
Cell[BoxData["0.04472011299838893`"], "Output",
|
|
CellChangeTimes->{3.991329919501911*^9},
|
|
CellLabel->
|
|
"Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-", "x"}], "*", "x", "*", "o1"}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",
|
|
CellLabel->
|
|
"In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"],
|
|
|
|
Cell[BoxData["4.190766798679958`"], "Output",
|
|
CellChangeTimes->{3.991329919596855*^9},
|
|
CellLabel->
|
|
"Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"o2", "=",
|
|
RowBox[{
|
|
RowBox[{"1", "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]], "*", "Cb"}], "+",
|
|
RowBox[{"Cw", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}]], "Input",
|
|
CellLabel->
|
|
"In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"],
|
|
|
|
Cell[BoxData["0.014190600885170185`"], "Output",
|
|
CellChangeTimes->{3.9913299196126003`*^9},
|
|
CellLabel->
|
|
"Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-", "x"}], "*", "x", "*", "o2"}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",
|
|
CellLabel->
|
|
"In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"],
|
|
|
|
Cell[BoxData["7.439513700547701`"], "Output",
|
|
CellChangeTimes->{3.9913299197036095`*^9},
|
|
CellLabel->
|
|
"Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h1", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}],
|
|
")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
|
|
")"}]}]}]], "Input",
|
|
CellLabel->
|
|
"In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"],
|
|
|
|
Cell[BoxData["0.6975316474635891`"], "Output",
|
|
CellChangeTimes->{3.9913299197165985`*^9},
|
|
CellLabel->
|
|
"Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h2", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
|
|
")"}]}]}]], "Input",
|
|
CellLabel->
|
|
"In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"],
|
|
|
|
Cell[BoxData["0.3024683525364109`"], "Output",
|
|
CellChangeTimes->{3.991329919739599*^9},
|
|
CellLabel->
|
|
"Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h3", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}],
|
|
")"}]}], ")"}], "/",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
"\[IndentingNewLine]",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"]}]}]], "Input",
|
|
CellLabel->
|
|
"In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"],
|
|
|
|
Cell[BoxData["0.21098124825032033`"], "Output",
|
|
CellChangeTimes->{3.9913299197646008`*^9},
|
|
CellLabel->
|
|
"Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"]
|
|
}, 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.991848964116934*^9},ExpressionUUID->"220bdeed-2e17-e94c-a7b0-\
|
|
3e066daf15d7"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 192,
|
|
145, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991329919788595*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \
|
|
\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\
|
|
6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 192,
|
|
146, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913299197985992`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \
|
|
\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\
|
|
7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \
|
|
to represent as a normalized machine number; precision may be lost.\"", 2,
|
|
192, 147, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913299198065968`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 192, 148, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991329919814598*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"],
|
|
|
|
Cell[BoxData["4.190766798679958`"], "Output",
|
|
CellChangeTimes->{3.991329923627493*^9},
|
|
CellLabel->
|
|
"Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"]
|
|
}, 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.9918489685110855`*^9},ExpressionUUID->"b8791a07-33fe-8c4f-9c59-\
|
|
dd23af9a4471"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 193,
|
|
149, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913299236609*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \
|
|
\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\
|
|
6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 193,
|
|
150, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991329923669897*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \
|
|
\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\
|
|
7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \
|
|
to represent as a normalized machine number; precision may be lost.\"", 2,
|
|
193, 151, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913299236779003`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 193, 152, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913299236858997`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"],
|
|
|
|
Cell[BoxData["7.439513700547696`"], "Output",
|
|
CellChangeTimes->{3.9913299274564743`*^9},
|
|
CellLabel->
|
|
"Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"]
|
|
}, 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.991848973885317*^9},ExpressionUUID->"3fe6e7f1-b44a-234f-af77-\
|
|
3cf1fdaf28d9"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R
|
|
gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj
|
|
6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0
|
|
eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx
|
|
TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY
|
|
kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8
|
|
AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM
|
|
TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+
|
|
D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez
|
|
H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/
|
|
bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2
|
|
lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+
|
|
rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx
|
|
4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW
|
|
PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi
|
|
4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs
|
|
Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw
|
|
wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L
|
|
k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8
|
|
IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB
|
|
vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33
|
|
Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r
|
|
8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8
|
|
/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn
|
|
edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb
|
|
93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG
|
|
o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo
|
|
GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV
|
|
lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he
|
|
nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X
|
|
vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ
|
|
ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN
|
|
G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz
|
|
Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w
|
|
2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF
|
|
j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6
|
|
ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g
|
|
jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz
|
|
AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY
|
|
1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+
|
|
R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n
|
|
6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR
|
|
Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9
|
|
yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA
|
|
Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU
|
|
9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2
|
|
32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn
|
|
Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia
|
|
EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu
|
|
PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG
|
|
W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ
|
|
eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb
|
|
Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU
|
|
YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ
|
|
t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben
|
|
tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1
|
|
Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh
|
|
fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0
|
|
vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz
|
|
sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/
|
|
3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2
|
|
ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa
|
|
b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO
|
|
dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL
|
|
SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR
|
|
jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX
|
|
XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz
|
|
lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy
|
|
r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc
|
|
IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH
|
|
91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1
|
|
uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga
|
|
BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6
|
|
yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl
|
|
TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ==
|
|
|
|
"]]},
|
|
Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
|
|
{"WolframDynamicHighlight", <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}],
|
|
StyleBox[
|
|
DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {},
|
|
Slot["HighlightElements"],
|
|
Slot["LayoutOptions"],
|
|
Slot["Meta"],
|
|
Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {},
|
|
Annotation[{
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Line[CompressedData["
|
|
1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R
|
|
gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj
|
|
6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0
|
|
eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx
|
|
TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY
|
|
kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8
|
|
AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM
|
|
TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+
|
|
D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez
|
|
H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/
|
|
bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2
|
|
lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+
|
|
rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx
|
|
4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW
|
|
PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi
|
|
4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs
|
|
Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw
|
|
wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L
|
|
k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8
|
|
IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB
|
|
vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33
|
|
Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r
|
|
8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8
|
|
/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn
|
|
edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb
|
|
93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG
|
|
o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo
|
|
GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV
|
|
lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he
|
|
nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X
|
|
vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ
|
|
ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN
|
|
G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz
|
|
Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w
|
|
2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF
|
|
j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6
|
|
ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g
|
|
jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz
|
|
AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY
|
|
1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+
|
|
R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n
|
|
6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR
|
|
Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9
|
|
yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA
|
|
Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU
|
|
9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2
|
|
32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn
|
|
Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia
|
|
EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu
|
|
PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG
|
|
W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ
|
|
eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb
|
|
Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU
|
|
YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ
|
|
t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben
|
|
tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1
|
|
Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh
|
|
fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0
|
|
vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz
|
|
sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/
|
|
3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2
|
|
ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa
|
|
b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO
|
|
dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL
|
|
SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR
|
|
jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX
|
|
XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz
|
|
lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy
|
|
r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc
|
|
IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH
|
|
91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1
|
|
uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga
|
|
BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6
|
|
yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl
|
|
TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ==
|
|
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.5311368545847401,
|
|
1.7610246145622632`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.5311368545847414},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1),
|
|
"DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" ->
|
|
False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>]]& )[<|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.5311368545847401,
|
|
1.7610246145622632`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.5311368545847414},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1),
|
|
"DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>],
|
|
ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
|
|
4.503599627370496*^15, -4.503599627370496*^15}}],
|
|
Selectable->False]},
|
|
Annotation[{{{{}, {},
|
|
Annotation[{
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Line[CompressedData["
|
|
1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R
|
|
gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj
|
|
6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0
|
|
eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx
|
|
TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY
|
|
kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8
|
|
AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM
|
|
TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+
|
|
D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez
|
|
H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/
|
|
bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2
|
|
lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+
|
|
rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx
|
|
4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW
|
|
PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi
|
|
4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs
|
|
Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw
|
|
wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L
|
|
k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8
|
|
IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB
|
|
vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33
|
|
Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r
|
|
8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8
|
|
/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn
|
|
edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb
|
|
93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG
|
|
o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo
|
|
GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV
|
|
lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he
|
|
nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X
|
|
vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ
|
|
ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN
|
|
G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz
|
|
Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w
|
|
2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF
|
|
j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6
|
|
ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g
|
|
jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz
|
|
AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY
|
|
1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+
|
|
R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n
|
|
6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR
|
|
Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9
|
|
yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA
|
|
Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU
|
|
9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2
|
|
32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn
|
|
Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia
|
|
EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu
|
|
PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG
|
|
W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ
|
|
eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb
|
|
Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU
|
|
YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ
|
|
t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben
|
|
tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1
|
|
Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh
|
|
fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0
|
|
vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz
|
|
sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/
|
|
3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2
|
|
ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa
|
|
b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO
|
|
dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL
|
|
SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR
|
|
jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX
|
|
XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz
|
|
lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy
|
|
r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc
|
|
IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH
|
|
91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1
|
|
uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga
|
|
BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6
|
|
yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl
|
|
TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ==
|
|
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.5311368545847414},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
|
|
"Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
|
|
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
|
|
Axes->{True, True},
|
|
AxesLabel->{None, None},
|
|
AxesOrigin->{0, 0.5311368545847414},
|
|
DisplayFunction->Identity,
|
|
Frame->{{False, False}, {False, False}},
|
|
FrameLabel->{{None, None}, {None, None}},
|
|
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
|
|
GridLines->{None, None},
|
|
GridLinesStyle->Directive[
|
|
GrayLevel[0.5, 0.4]],
|
|
ImagePadding->All,
|
|
Method->{
|
|
"DefaultBoundaryStyle" -> Automatic,
|
|
"DefaultGraphicsInteraction" -> {
|
|
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
|
|
"Effects" -> {
|
|
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
|
|
"Droplines" -> {
|
|
"freeformCursorMode" -> True,
|
|
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
|
|
AbsolutePointSize[6], "ScalingFunctions" -> None,
|
|
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
|
|
(Identity[#]& )[
|
|
Part[#, 1]],
|
|
(Identity[#]& )[
|
|
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
|
|
(Identity[#]& )[
|
|
Part[#, 1]],
|
|
(Identity[#]& )[
|
|
Part[#, 2]]}& )}},
|
|
PlotRange->{{0, 180}, {0.5311368545847401, 1.7610246145622632`}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.9913301734961166`*^9},
|
|
CellLabel->
|
|
"Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"]
|
|
}, 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.991848978152012*^9,
|
|
3.99184898469532*^9}},ExpressionUUID->"ab29778f-f183-804b-b871-\
|
|
4070462057d7"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.47138536392029`*^-264\\\", \
|
|
\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 195,
|
|
153, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913301737143345`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[195]:=",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.656148098260251`*^-275\\\", \
|
|
\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \
|
|
to represent as a normalized machine number; precision may be lost.\"", 2,
|
|
195, 154, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991330173723337*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[195]:=",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.85074473590452`*^-286\\\", \
|
|
\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \
|
|
small to represent as a normalized machine number; precision may be lost.\"",
|
|
2, 195, 155, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991330173731432*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[195]:=",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 195, 156, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991330173739336*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR
|
|
klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW
|
|
lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv
|
|
TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc
|
|
73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw
|
|
RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X
|
|
gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68
|
|
Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI
|
|
PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy
|
|
W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx
|
|
SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4
|
|
V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY
|
|
9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw
|
|
N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM
|
|
vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz
|
|
tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6
|
|
GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT
|
|
0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA
|
|
udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF
|
|
4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y
|
|
Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a
|
|
eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl
|
|
p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN
|
|
TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC
|
|
SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw
|
|
e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu
|
|
HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn
|
|
Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l
|
|
RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X
|
|
udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7
|
|
DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM
|
|
JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC
|
|
PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC
|
|
eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn
|
|
wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY
|
|
XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK
|
|
jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb
|
|
0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0
|
|
GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2
|
|
fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN
|
|
PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T
|
|
MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt
|
|
LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH
|
|
TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY
|
|
565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U
|
|
PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F
|
|
yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx
|
|
3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP
|
|
19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1
|
|
9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp
|
|
zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0
|
|
VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP
|
|
Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio
|
|
aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX
|
|
UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo
|
|
Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p
|
|
ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP
|
|
DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo
|
|
pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg
|
|
5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg
|
|
2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW
|
|
9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr
|
|
BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm
|
|
QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF
|
|
m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i
|
|
o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v
|
|
Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH
|
|
IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw
|
|
kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j
|
|
lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO
|
|
UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1
|
|
w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI
|
|
bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc
|
|
A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa
|
|
l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA
|
|
2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug
|
|
gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN
|
|
VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv
|
|
5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l
|
|
9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv
|
|
r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H
|
|
I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp
|
|
s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx
|
|
NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c
|
|
ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc
|
|
iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z
|
|
pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz
|
|
oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv
|
|
HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd
|
|
Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR
|
|
/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI
|
|
LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC
|
|
eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R
|
|
EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM
|
|
IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d
|
|
JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp
|
|
CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe
|
|
n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ
|
|
QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX
|
|
4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM
|
|
J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx
|
|
baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X
|
|
/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby
|
|
clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+
|
|
SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg
|
|
dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs
|
|
YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa
|
|
LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva
|
|
gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i
|
|
1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N
|
|
ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz
|
|
7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+
|
|
f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa
|
|
wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom
|
|
XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ
|
|
e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk
|
|
XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM
|
|
TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD
|
|
i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9
|
|
LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM
|
|
kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj
|
|
qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B
|
|
uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF
|
|
nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2
|
|
dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ
|
|
kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q
|
|
8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3
|
|
FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR
|
|
CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW
|
|
io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU
|
|
qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X
|
|
B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ
|
|
0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r
|
|
W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ
|
|
zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs
|
|
HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB
|
|
IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg
|
|
FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE
|
|
fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC
|
|
cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh
|
|
DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5
|
|
RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d
|
|
z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM
|
|
rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH
|
|
L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ==
|
|
"]]},
|
|
Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
|
|
{"WolframDynamicHighlight", <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}],
|
|
StyleBox[
|
|
DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {},
|
|
Slot["HighlightElements"],
|
|
Slot["LayoutOptions"],
|
|
Slot["Meta"],
|
|
Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {},
|
|
Annotation[{
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Line[CompressedData["
|
|
1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR
|
|
klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW
|
|
lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv
|
|
TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc
|
|
73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw
|
|
RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X
|
|
gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68
|
|
Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI
|
|
PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy
|
|
W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx
|
|
SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4
|
|
V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY
|
|
9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw
|
|
N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM
|
|
vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz
|
|
tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6
|
|
GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT
|
|
0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA
|
|
udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF
|
|
4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y
|
|
Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a
|
|
eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl
|
|
p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN
|
|
TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC
|
|
SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw
|
|
e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu
|
|
HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn
|
|
Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l
|
|
RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X
|
|
udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7
|
|
DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM
|
|
JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC
|
|
PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC
|
|
eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn
|
|
wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY
|
|
XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK
|
|
jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb
|
|
0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0
|
|
GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2
|
|
fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN
|
|
PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T
|
|
MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt
|
|
LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH
|
|
TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY
|
|
565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U
|
|
PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F
|
|
yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx
|
|
3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP
|
|
19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1
|
|
9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp
|
|
zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0
|
|
VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP
|
|
Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio
|
|
aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX
|
|
UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo
|
|
Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p
|
|
ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP
|
|
DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo
|
|
pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg
|
|
5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg
|
|
2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW
|
|
9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr
|
|
BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm
|
|
QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF
|
|
m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i
|
|
o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v
|
|
Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH
|
|
IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw
|
|
kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j
|
|
lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO
|
|
UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1
|
|
w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI
|
|
bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc
|
|
A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa
|
|
l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA
|
|
2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug
|
|
gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN
|
|
VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv
|
|
5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l
|
|
9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv
|
|
r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H
|
|
I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp
|
|
s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx
|
|
NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c
|
|
ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc
|
|
iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z
|
|
pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz
|
|
oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv
|
|
HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd
|
|
Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR
|
|
/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI
|
|
LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC
|
|
eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R
|
|
EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM
|
|
IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d
|
|
JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp
|
|
CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe
|
|
n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ
|
|
QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX
|
|
4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM
|
|
J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx
|
|
baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X
|
|
/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby
|
|
clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+
|
|
SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg
|
|
dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs
|
|
YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa
|
|
LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva
|
|
gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i
|
|
1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N
|
|
ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz
|
|
7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+
|
|
f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa
|
|
wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom
|
|
XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ
|
|
e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk
|
|
XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM
|
|
TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD
|
|
i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9
|
|
LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM
|
|
kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj
|
|
qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B
|
|
uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF
|
|
nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2
|
|
dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ
|
|
kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q
|
|
8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3
|
|
FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR
|
|
CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW
|
|
io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU
|
|
qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X
|
|
B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ
|
|
0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r
|
|
W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ
|
|
zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs
|
|
HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB
|
|
IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg
|
|
FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE
|
|
fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC
|
|
cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh
|
|
DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5
|
|
RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d
|
|
z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM
|
|
rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH
|
|
L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 15}, {0., 0.1813924222088017}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio},
|
|
"Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" ->
|
|
GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" ->
|
|
False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>]]& )[<|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 15}, {0., 0.1813924222088017}},
|
|
"Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1),
|
|
"DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>],
|
|
ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
|
|
4.503599627370496*^15, -4.503599627370496*^15}}],
|
|
Selectable->False]},
|
|
Annotation[{{{{}, {},
|
|
Annotation[{
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Line[CompressedData["
|
|
1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR
|
|
klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW
|
|
lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv
|
|
TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc
|
|
73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw
|
|
RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X
|
|
gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68
|
|
Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI
|
|
PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy
|
|
W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx
|
|
SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4
|
|
V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY
|
|
9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw
|
|
N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM
|
|
vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz
|
|
tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6
|
|
GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT
|
|
0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA
|
|
udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF
|
|
4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y
|
|
Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a
|
|
eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl
|
|
p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN
|
|
TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC
|
|
SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw
|
|
e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu
|
|
HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn
|
|
Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l
|
|
RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X
|
|
udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7
|
|
DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM
|
|
JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC
|
|
PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC
|
|
eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn
|
|
wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY
|
|
XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK
|
|
jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb
|
|
0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0
|
|
GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2
|
|
fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN
|
|
PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T
|
|
MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt
|
|
LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH
|
|
TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY
|
|
565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U
|
|
PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F
|
|
yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx
|
|
3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP
|
|
19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1
|
|
9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp
|
|
zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0
|
|
VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP
|
|
Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio
|
|
aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX
|
|
UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo
|
|
Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p
|
|
ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP
|
|
DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo
|
|
pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg
|
|
5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg
|
|
2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW
|
|
9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr
|
|
BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm
|
|
QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF
|
|
m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i
|
|
o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v
|
|
Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH
|
|
IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw
|
|
kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j
|
|
lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO
|
|
UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1
|
|
w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI
|
|
bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc
|
|
A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa
|
|
l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA
|
|
2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug
|
|
gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN
|
|
VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv
|
|
5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l
|
|
9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv
|
|
r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H
|
|
I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp
|
|
s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx
|
|
NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c
|
|
ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc
|
|
iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z
|
|
pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz
|
|
oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv
|
|
HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd
|
|
Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR
|
|
/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI
|
|
LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC
|
|
eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R
|
|
EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM
|
|
IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d
|
|
JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp
|
|
CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe
|
|
n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ
|
|
QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX
|
|
4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM
|
|
J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx
|
|
baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X
|
|
/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby
|
|
clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+
|
|
SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg
|
|
dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs
|
|
YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa
|
|
LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva
|
|
gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i
|
|
1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N
|
|
ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz
|
|
7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+
|
|
f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa
|
|
wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom
|
|
XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ
|
|
e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk
|
|
XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM
|
|
TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD
|
|
i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9
|
|
LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM
|
|
kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj
|
|
qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B
|
|
uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF
|
|
nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2
|
|
dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ
|
|
kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q
|
|
8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3
|
|
FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR
|
|
CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW
|
|
io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU
|
|
qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X
|
|
B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ
|
|
0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r
|
|
W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ
|
|
zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs
|
|
HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB
|
|
IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg
|
|
FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE
|
|
fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC
|
|
cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh
|
|
DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5
|
|
RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d
|
|
z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM
|
|
rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH
|
|
L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 15}, {0., 0.1813924222088017}},
|
|
"Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
|
|
"Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
|
|
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
|
|
Axes->{True, True},
|
|
AxesLabel->{None, None},
|
|
AxesOrigin->{0, 0},
|
|
DisplayFunction->Identity,
|
|
Frame->{{False, False}, {False, False}},
|
|
FrameLabel->{{None, None}, {None, None}},
|
|
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
|
|
GridLines->{None, None},
|
|
GridLinesStyle->Directive[
|
|
GrayLevel[0.5, 0.4]],
|
|
ImagePadding->All,
|
|
Method->{
|
|
"DefaultBoundaryStyle" -> Automatic,
|
|
"DefaultGraphicsInteraction" -> {
|
|
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
|
|
"Effects" -> {
|
|
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
|
|
"Droplines" -> {
|
|
"freeformCursorMode" -> True,
|
|
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
|
|
AbsolutePointSize[6], "ScalingFunctions" -> None,
|
|
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
|
|
(Identity[#]& )[
|
|
Part[#, 1]],
|
|
(Identity[#]& )[
|
|
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
|
|
(Identity[#]& )[
|
|
Part[#, 1]],
|
|
(Identity[#]& )[
|
|
Part[#, 2]]}& )}},
|
|
PlotRange->{{0, 15}, {0., 0.1813924222088017}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.9913306567510605`*^9},
|
|
CellLabel->
|
|
"Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Show", "[",
|
|
RowBox[{"x", ",", "xx"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.9917994642649307`*^9,
|
|
3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\
|
|
6bd251746ea6"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"],
|
|
")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
FractionBox["1", "Cb"], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "y"}],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",
|
|
CellLabel->
|
|
"In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \
|
|
\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\
|
|
116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \
|
|
is too small to represent as a normalized machine number; precision may be \
|
|
lost.\"", 2, 199, 165, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991331752212366*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \
|
|
\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\
|
|
2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\
|
|
\\) is too small to represent as a normalized machine number; precision may \
|
|
be lost.\"", 2, 199, 166, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.99133175222237*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \
|
|
\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\
|
|
2672150136605792106222330469781300859512072804761600000000000000000000000000\\\
|
|
\"]\\) is too small to represent as a normalized machine number; precision \
|
|
may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913317522303677`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 199, 168, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991331752237467*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"],
|
|
|
|
Cell[BoxData["9.779568499633264`"], "Output",
|
|
CellChangeTimes->{3.991331759108553*^9},
|
|
CellLabel->
|
|
"Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"]
|
|
}, 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.991849016830597*^9,
|
|
3.991849020984995*^9}},ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-\
|
|
7a397847208f"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 200,
|
|
169, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913317591425533`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \
|
|
\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\
|
|
6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 200,
|
|
170, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913317591525517`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \
|
|
\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\
|
|
7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \
|
|
to represent as a normalized machine number; precision may be lost.\"", 2,
|
|
200, 171, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991331759160553*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 200, 172, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913317591685543`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"],
|
|
|
|
Cell[BoxData["1.044718879268698`"], "Output",
|
|
CellChangeTimes->{3.991331766558941*^9},
|
|
CellLabel->
|
|
"Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"]
|
|
}, 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.991849024657757*^9,
|
|
3.991849027138817*^9}},ExpressionUUID->"22b50200-0b82-dc47-9932-\
|
|
f1f0210d6caf"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 201,
|
|
173, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913317665951805`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \
|
|
\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\
|
|
6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 201,
|
|
174, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913317666041794`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \
|
|
\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\
|
|
7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \
|
|
to represent as a normalized machine number; precision may be lost.\"", 2,
|
|
201, 175, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913317666131783`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 201, 176, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913317666211815`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"],
|
|
|
|
Cell[BoxData["4.7987767072565894`"], "Output",
|
|
CellChangeTimes->{3.991331773590704*^9},
|
|
CellLabel->
|
|
"Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"]
|
|
}, 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.991849031047804*^9,
|
|
3.9918490341764317`*^9}},ExpressionUUID->"8a5105db-666c-444e-9451-\
|
|
d3e8d1574bcd"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 202,
|
|
177, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913317736257057`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \
|
|
\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\
|
|
6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 202,
|
|
178, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913317736361847`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \
|
|
\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\
|
|
7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \
|
|
to represent as a normalized machine number; precision may be lost.\"", 2,
|
|
202, 179, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991331773644182*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 202, 180, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991331773653183*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"],
|
|
|
|
Cell[BoxData["15.12281532960454`"], "Output",
|
|
CellChangeTimes->{3.991331777337887*^9},
|
|
CellLabel->
|
|
"Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
FractionBox["q",
|
|
SqrtBox[
|
|
RowBox[{"S1", "*", "S2"}]]]], "Input",
|
|
CellChangeTimes->{{3.9918490375675926`*^9,
|
|
3.991849040901537*^9}},ExpressionUUID->"d0efa798-230b-fa46-b413-\
|
|
76bfd8e40ccb"],
|
|
|
|
Cell[BoxData["0.12263596348954131`"], "Output",
|
|
CellChangeTimes->{3.9913317773679104`*^9},
|
|
CellLabel->
|
|
"Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Clear", "[",
|
|
RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.9918490438339844`*^9, 3.991849046673996*^9},
|
|
3.9919249287922287`*^9},ExpressionUUID->"f842f74e-f562-934a-9011-\
|
|
6604b8708636"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Qb1", "=",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "1"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"Ir", "*", "Il"}],
|
|
RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",
|
|
CellLabel->
|
|
"In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"],
|
|
|
|
Cell[BoxData["12.368532070745184`"], "Output",
|
|
CellChangeTimes->{3.9913317774008274`*^9},
|
|
CellLabel->
|
|
"Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hb", "=",
|
|
SqrtBox[
|
|
FractionBox["Kb", "Qb1"]]}]], "Input",
|
|
CellLabel->
|
|
"In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"],
|
|
|
|
Cell[BoxData["1.0665924029125342`"], "Output",
|
|
CellChangeTimes->{3.9913317774358253`*^9},
|
|
CellLabel->
|
|
"Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cb", "=",
|
|
FractionBox[
|
|
RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",
|
|
CellLabel->
|
|
"In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"],
|
|
|
|
Cell[BoxData["13.192182341836848`"], "Output",
|
|
CellChangeTimes->{3.991331777510603*^9},
|
|
CellLabel->
|
|
"Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"o1", "=",
|
|
RowBox[{
|
|
RowBox[{"1", "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]], "*", "Cb"}], "+",
|
|
RowBox[{"Cw", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}],
|
|
"2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}]], "Input",
|
|
CellLabel->
|
|
"In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"],
|
|
|
|
Cell[BoxData["0.041096786108657246`"], "Output",
|
|
CellChangeTimes->{3.991331777537592*^9},
|
|
CellLabel->
|
|
"Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-", "x"}], "*", "x", "*", "o1"}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",
|
|
CellLabel->
|
|
"In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"],
|
|
|
|
Cell[BoxData["4.371605972693579`"], "Output",
|
|
CellChangeTimes->{3.9913317776362495`*^9},
|
|
CellLabel->
|
|
"Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"o2", "=",
|
|
RowBox[{
|
|
RowBox[{"1", "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]], "*", "Cb"}], "+",
|
|
RowBox[{"Cw", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}], ")"}]}],
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "2"}]]}]}]], "Input",
|
|
CellLabel->
|
|
"In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"],
|
|
|
|
Cell[BoxData["0.013804398425195999`"], "Output",
|
|
CellChangeTimes->{3.9913317776511555`*^9},
|
|
CellLabel->
|
|
"Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-", "x"}], "*", "x", "*", "o2"}]],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",
|
|
CellLabel->
|
|
"In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"],
|
|
|
|
Cell[BoxData["7.5428626210616345`"], "Output",
|
|
CellChangeTimes->{3.991331777742655*^9},
|
|
CellLabel->
|
|
"Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h1", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}],
|
|
")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
|
|
")"}]}]}]], "Input",
|
|
CellLabel->
|
|
"In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"],
|
|
|
|
Cell[BoxData["0.6975316474635891`"], "Output",
|
|
CellChangeTimes->{3.9913317777546787`*^9},
|
|
CellLabel->
|
|
"Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h2", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}],
|
|
")"}]}]}]], "Input",
|
|
CellLabel->
|
|
"In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"],
|
|
|
|
Cell[BoxData["0.3024683525364109`"], "Output",
|
|
CellChangeTimes->{3.991331777779663*^9},
|
|
CellLabel->
|
|
"Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"h3", "=",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}],
|
|
")"}]}], ")"}], "/",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+",
|
|
"\[IndentingNewLine]",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.3", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}], ")"}], "2"]}]}]], "Input",
|
|
CellLabel->
|
|
"In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"],
|
|
|
|
Cell[BoxData["0.21098124825032033`"], "Output",
|
|
CellChangeTimes->{3.9913317778036633`*^9},
|
|
CellLabel->
|
|
"Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"]
|
|
}, 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.9918490946810665`*^9},ExpressionUUID->"1dec41a6-6752-2041-9d38-\
|
|
804123b5ccd0"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 218, 181,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913317778296604`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 218,
|
|
182, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991331777838663*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 218,
|
|
183, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913317778466587`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 218, 184, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991331777854885*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"],
|
|
|
|
Cell[BoxData["4.37160597269358`"], "Output",
|
|
CellChangeTimes->{3.991331781456501*^9},
|
|
CellLabel->
|
|
"Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"]
|
|
}, 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.99184909912471*^9},ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 219, 185,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991331781491499*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 219,
|
|
186, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913317815004997`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 219,
|
|
187, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913317815094967`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 219, 188, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913317815164986`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"],
|
|
|
|
Cell[BoxData["7.54286262106163`"], "Output",
|
|
CellChangeTimes->{3.9913317851500416`*^9},
|
|
CellLabel->
|
|
"Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"]
|
|
}, 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.9918491043389053`*^9},ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-\
|
|
b799ae260294"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS
|
|
N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS
|
|
KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5
|
|
CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ
|
|
2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ
|
|
YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP
|
|
oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R
|
|
iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx
|
|
EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1
|
|
ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6
|
|
hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF
|
|
i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn
|
|
tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc
|
|
f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6
|
|
tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py
|
|
d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z
|
|
znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw
|
|
qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I
|
|
gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA
|
|
TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge
|
|
wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo
|
|
+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg
|
|
Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL
|
|
IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+
|
|
vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj
|
|
ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE
|
|
7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N
|
|
UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h
|
|
bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON
|
|
R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr
|
|
JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/
|
|
i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY
|
|
nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je
|
|
4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J
|
|
ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v
|
|
x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8
|
|
7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX
|
|
RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy
|
|
e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF
|
|
G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI
|
|
h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8
|
|
8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb
|
|
+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa
|
|
5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7
|
|
qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL
|
|
+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV
|
|
ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72
|
|
NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag
|
|
mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol
|
|
A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO
|
|
zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf
|
|
1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3
|
|
KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr
|
|
KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3
|
|
4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR
|
|
R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x
|
|
BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv
|
|
fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC
|
|
nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q
|
|
e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ
|
|
sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY
|
|
XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4
|
|
uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B
|
|
CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07
|
|
GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl
|
|
XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo
|
|
+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb
|
|
5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb
|
|
4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz
|
|
rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw
|
|
q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS
|
|
xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26
|
|
QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI
|
|
0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77
|
|
r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY=
|
|
|
|
"]]},
|
|
Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
|
|
{"WolframDynamicHighlight", <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}],
|
|
StyleBox[
|
|
DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {},
|
|
Slot["HighlightElements"],
|
|
Slot["LayoutOptions"],
|
|
Slot["Meta"],
|
|
Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {},
|
|
Annotation[{
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Line[CompressedData["
|
|
1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS
|
|
N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS
|
|
KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5
|
|
CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ
|
|
2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ
|
|
YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP
|
|
oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R
|
|
iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx
|
|
EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1
|
|
ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6
|
|
hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF
|
|
i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn
|
|
tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc
|
|
f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6
|
|
tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py
|
|
d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z
|
|
znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw
|
|
qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I
|
|
gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA
|
|
TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge
|
|
wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo
|
|
+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg
|
|
Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL
|
|
IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+
|
|
vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj
|
|
ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE
|
|
7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N
|
|
UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h
|
|
bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON
|
|
R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr
|
|
JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/
|
|
i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY
|
|
nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je
|
|
4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J
|
|
ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v
|
|
x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8
|
|
7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX
|
|
RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy
|
|
e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF
|
|
G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI
|
|
h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8
|
|
8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb
|
|
+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa
|
|
5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7
|
|
qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL
|
|
+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV
|
|
ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72
|
|
NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag
|
|
mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol
|
|
A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO
|
|
zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf
|
|
1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3
|
|
KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr
|
|
KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3
|
|
4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR
|
|
R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x
|
|
BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv
|
|
fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC
|
|
nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q
|
|
e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ
|
|
sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY
|
|
XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4
|
|
uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B
|
|
CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07
|
|
GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl
|
|
XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo
|
|
+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb
|
|
5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb
|
|
4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz
|
|
rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw
|
|
q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS
|
|
xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26
|
|
QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI
|
|
0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77
|
|
r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY=
|
|
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.6044061540843431,
|
|
1.5841467887057727`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.6044061540843444},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1),
|
|
"DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" ->
|
|
False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>]]& )[<|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.6044061540843431,
|
|
1.5841467887057727`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.6044061540843444},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1),
|
|
"DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>],
|
|
ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
|
|
4.503599627370496*^15, -4.503599627370496*^15}}],
|
|
Selectable->False]},
|
|
Annotation[{{{{}, {},
|
|
Annotation[{
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Line[CompressedData["
|
|
1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS
|
|
N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS
|
|
KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5
|
|
CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ
|
|
2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ
|
|
YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP
|
|
oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R
|
|
iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx
|
|
EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1
|
|
ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6
|
|
hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF
|
|
i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn
|
|
tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc
|
|
f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6
|
|
tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py
|
|
d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z
|
|
znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw
|
|
qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I
|
|
gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA
|
|
TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge
|
|
wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo
|
|
+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg
|
|
Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL
|
|
IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+
|
|
vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj
|
|
ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE
|
|
7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N
|
|
UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h
|
|
bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON
|
|
R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr
|
|
JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/
|
|
i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY
|
|
nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je
|
|
4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J
|
|
ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v
|
|
x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8
|
|
7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX
|
|
RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy
|
|
e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF
|
|
G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI
|
|
h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8
|
|
8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb
|
|
+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa
|
|
5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7
|
|
qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL
|
|
+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV
|
|
ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72
|
|
NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag
|
|
mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol
|
|
A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO
|
|
zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf
|
|
1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3
|
|
KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr
|
|
KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3
|
|
4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR
|
|
R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x
|
|
BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv
|
|
fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC
|
|
nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q
|
|
e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ
|
|
sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY
|
|
XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4
|
|
uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B
|
|
CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07
|
|
GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl
|
|
XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo
|
|
+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb
|
|
5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb
|
|
4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz
|
|
rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw
|
|
q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS
|
|
xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26
|
|
QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI
|
|
0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77
|
|
r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY=
|
|
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.6044061540843444},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
|
|
"Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
|
|
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
|
|
Axes->{True, True},
|
|
AxesLabel->{None, None},
|
|
AxesOrigin->{0, 0.6044061540843444},
|
|
DisplayFunction->Identity,
|
|
Frame->{{False, False}, {False, False}},
|
|
FrameLabel->{{None, None}, {None, None}},
|
|
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
|
|
GridLines->{None, None},
|
|
GridLinesStyle->Directive[
|
|
GrayLevel[0.5, 0.4]],
|
|
ImagePadding->All,
|
|
Method->{
|
|
"DefaultBoundaryStyle" -> Automatic,
|
|
"DefaultGraphicsInteraction" -> {
|
|
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
|
|
"Effects" -> {
|
|
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
|
|
"Droplines" -> {
|
|
"freeformCursorMode" -> True,
|
|
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
|
|
AbsolutePointSize[6], "ScalingFunctions" -> None,
|
|
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
|
|
(Identity[#]& )[
|
|
Part[#, 1]],
|
|
(Identity[#]& )[
|
|
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
|
|
(Identity[#]& )[
|
|
Part[#, 1]],
|
|
(Identity[#]& )[
|
|
Part[#, 2]]}& )}},
|
|
PlotRange->{{0, 180}, {0.6044061540843431, 1.5841467887057727`}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.9913320330871353`*^9},
|
|
CellLabel->
|
|
"Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"]
|
|
}, 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.9918491076725483`*^9,
|
|
3.9918491120260525`*^9}},ExpressionUUID->"cbec275e-4d01-7747-9ece-\
|
|
7fa9a2a651b1"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.2976471457269651`*^-270\\\", \
|
|
\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 221,
|
|
189, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991332033325203*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \
|
|
\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \
|
|
to represent as a normalized machine number; precision may be lost.\"", 2,
|
|
221, 190, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913320333342056`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \
|
|
\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \
|
|
small to represent as a normalized machine number; precision may be lost.\"",
|
|
2, 221, 191, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991332033342205*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 221, 192, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991332033351204*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK
|
|
SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx
|
|
/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr
|
|
12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI
|
|
64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs
|
|
Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+
|
|
g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q
|
|
LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o
|
|
2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL
|
|
6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u
|
|
nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr
|
|
t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8
|
|
MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6
|
|
eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M
|
|
qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD
|
|
y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+
|
|
1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh
|
|
a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk
|
|
LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz
|
|
5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4
|
|
bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg
|
|
PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx
|
|
ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg
|
|
RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87
|
|
Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab
|
|
+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l
|
|
8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm
|
|
JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7
|
|
Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk
|
|
7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar
|
|
LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0
|
|
KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR
|
|
zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e
|
|
aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/
|
|
EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr
|
|
xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ
|
|
lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh
|
|
7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX
|
|
jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw
|
|
Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9
|
|
VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK
|
|
wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I
|
|
3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h
|
|
YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS
|
|
a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG
|
|
+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk
|
|
30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE
|
|
aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/
|
|
gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk
|
|
pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8
|
|
/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5
|
|
BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB
|
|
DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm
|
|
Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU
|
|
mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg
|
|
srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa
|
|
elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp
|
|
F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR
|
|
vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO
|
|
p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe
|
|
zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y
|
|
c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS
|
|
5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD
|
|
ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF
|
|
aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX
|
|
oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD
|
|
KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE
|
|
ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv
|
|
XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y
|
|
HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T
|
|
SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol
|
|
DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN
|
|
kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK
|
|
J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0
|
|
XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw
|
|
YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl
|
|
49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi
|
|
hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV
|
|
sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8
|
|
NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR
|
|
P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy
|
|
r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+
|
|
sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp
|
|
3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L
|
|
TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG
|
|
cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU
|
|
XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB
|
|
oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX
|
|
flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N
|
|
Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j
|
|
GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8
|
|
8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+
|
|
lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr
|
|
MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC
|
|
ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi
|
|
z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq
|
|
frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T
|
|
VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda
|
|
R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a
|
|
d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP
|
|
cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24
|
|
ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/
|
|
2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM
|
|
uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B
|
|
8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7
|
|
SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV
|
|
rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw
|
|
u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B
|
|
jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO
|
|
FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz
|
|
oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE
|
|
zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0
|
|
hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb
|
|
QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe
|
|
htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b
|
|
gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr
|
|
CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d
|
|
3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V
|
|
Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr
|
|
t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS
|
|
d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ
|
|
TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb
|
|
EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK
|
|
Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ
|
|
KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb
|
|
vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU
|
|
/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808
|
|
JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG
|
|
bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD
|
|
VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2
|
|
0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z
|
|
j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+
|
|
z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2
|
|
dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs
|
|
D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/
|
|
M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/
|
|
3z9DIQ==
|
|
"]]},
|
|
Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
|
|
{"WolframDynamicHighlight", <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}],
|
|
StyleBox[
|
|
DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {},
|
|
Slot["HighlightElements"],
|
|
Slot["LayoutOptions"],
|
|
Slot["Meta"],
|
|
Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {},
|
|
Annotation[{
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Line[CompressedData["
|
|
1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK
|
|
SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx
|
|
/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr
|
|
12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI
|
|
64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs
|
|
Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+
|
|
g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q
|
|
LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o
|
|
2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL
|
|
6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u
|
|
nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr
|
|
t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8
|
|
MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6
|
|
eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M
|
|
qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD
|
|
y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+
|
|
1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh
|
|
a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk
|
|
LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz
|
|
5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4
|
|
bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg
|
|
PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx
|
|
ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg
|
|
RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87
|
|
Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab
|
|
+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l
|
|
8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm
|
|
JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7
|
|
Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk
|
|
7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar
|
|
LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0
|
|
KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR
|
|
zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e
|
|
aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/
|
|
EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr
|
|
xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ
|
|
lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh
|
|
7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX
|
|
jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw
|
|
Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9
|
|
VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK
|
|
wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I
|
|
3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h
|
|
YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS
|
|
a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG
|
|
+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk
|
|
30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE
|
|
aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/
|
|
gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk
|
|
pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8
|
|
/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5
|
|
BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB
|
|
DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm
|
|
Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU
|
|
mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg
|
|
srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa
|
|
elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp
|
|
F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR
|
|
vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO
|
|
p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe
|
|
zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y
|
|
c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS
|
|
5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD
|
|
ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF
|
|
aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX
|
|
oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD
|
|
KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE
|
|
ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv
|
|
XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y
|
|
HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T
|
|
SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol
|
|
DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN
|
|
kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK
|
|
J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0
|
|
XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw
|
|
YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl
|
|
49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi
|
|
hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV
|
|
sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8
|
|
NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR
|
|
P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy
|
|
r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+
|
|
sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp
|
|
3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L
|
|
TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG
|
|
cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU
|
|
XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB
|
|
oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX
|
|
flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N
|
|
Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j
|
|
GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8
|
|
8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+
|
|
lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr
|
|
MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC
|
|
ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi
|
|
z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq
|
|
frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T
|
|
VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda
|
|
R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a
|
|
d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP
|
|
cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24
|
|
ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/
|
|
2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM
|
|
uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B
|
|
8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7
|
|
SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV
|
|
rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw
|
|
u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B
|
|
jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO
|
|
FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz
|
|
oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE
|
|
zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0
|
|
hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb
|
|
QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe
|
|
htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b
|
|
gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr
|
|
CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d
|
|
3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V
|
|
Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr
|
|
t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS
|
|
d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ
|
|
TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb
|
|
EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK
|
|
Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ
|
|
KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb
|
|
vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU
|
|
/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808
|
|
JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG
|
|
bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD
|
|
VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2
|
|
0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z
|
|
j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+
|
|
z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2
|
|
dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs
|
|
D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/
|
|
M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/
|
|
3z9DIQ==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio},
|
|
"Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" ->
|
|
GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" ->
|
|
False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>]]& )[<|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}},
|
|
"Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1),
|
|
"DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>],
|
|
ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
|
|
4.503599627370496*^15, -4.503599627370496*^15}}],
|
|
Selectable->False]},
|
|
Annotation[{{{{}, {},
|
|
Annotation[{
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Line[CompressedData["
|
|
1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK
|
|
SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx
|
|
/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr
|
|
12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI
|
|
64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs
|
|
Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+
|
|
g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q
|
|
LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o
|
|
2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL
|
|
6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u
|
|
nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr
|
|
t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8
|
|
MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6
|
|
eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M
|
|
qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD
|
|
y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+
|
|
1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh
|
|
a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk
|
|
LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz
|
|
5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4
|
|
bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg
|
|
PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx
|
|
ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg
|
|
RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87
|
|
Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab
|
|
+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l
|
|
8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm
|
|
JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7
|
|
Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk
|
|
7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar
|
|
LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0
|
|
KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR
|
|
zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e
|
|
aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/
|
|
EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr
|
|
xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ
|
|
lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh
|
|
7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX
|
|
jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw
|
|
Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9
|
|
VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK
|
|
wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I
|
|
3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h
|
|
YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS
|
|
a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG
|
|
+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk
|
|
30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE
|
|
aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/
|
|
gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk
|
|
pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8
|
|
/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5
|
|
BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB
|
|
DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm
|
|
Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU
|
|
mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg
|
|
srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa
|
|
elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp
|
|
F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR
|
|
vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO
|
|
p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe
|
|
zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y
|
|
c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS
|
|
5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD
|
|
ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF
|
|
aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX
|
|
oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD
|
|
KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE
|
|
ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv
|
|
XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y
|
|
HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T
|
|
SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol
|
|
DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN
|
|
kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK
|
|
J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0
|
|
XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw
|
|
YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl
|
|
49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi
|
|
hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV
|
|
sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8
|
|
NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR
|
|
P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy
|
|
r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+
|
|
sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp
|
|
3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L
|
|
TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG
|
|
cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU
|
|
XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB
|
|
oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX
|
|
flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N
|
|
Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j
|
|
GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8
|
|
8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+
|
|
lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr
|
|
MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC
|
|
ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi
|
|
z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq
|
|
frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T
|
|
VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda
|
|
R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a
|
|
d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP
|
|
cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24
|
|
ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/
|
|
2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM
|
|
uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B
|
|
8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7
|
|
SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV
|
|
rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw
|
|
u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B
|
|
jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO
|
|
FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz
|
|
oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE
|
|
zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0
|
|
hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb
|
|
QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe
|
|
htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b
|
|
gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr
|
|
CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d
|
|
3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V
|
|
Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr
|
|
t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS
|
|
d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ
|
|
TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb
|
|
EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK
|
|
Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ
|
|
KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb
|
|
vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU
|
|
/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808
|
|
JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG
|
|
bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD
|
|
VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2
|
|
0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z
|
|
j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+
|
|
z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2
|
|
dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs
|
|
D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/
|
|
M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/
|
|
3z9DIQ==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}},
|
|
"Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
|
|
"Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
|
|
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
|
|
Axes->{True, True},
|
|
AxesLabel->{None, None},
|
|
AxesOrigin->{0, 0},
|
|
DisplayFunction->Identity,
|
|
Frame->{{False, False}, {False, False}},
|
|
FrameLabel->{{None, None}, {None, None}},
|
|
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
|
|
GridLines->{None, None},
|
|
GridLinesStyle->Directive[
|
|
GrayLevel[0.5, 0.4]],
|
|
ImagePadding->All,
|
|
Method->{
|
|
"DefaultBoundaryStyle" -> Automatic,
|
|
"DefaultGraphicsInteraction" -> {
|
|
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
|
|
"Effects" -> {
|
|
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
|
|
"Droplines" -> {
|
|
"freeformCursorMode" -> True,
|
|
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
|
|
AbsolutePointSize[6], "ScalingFunctions" -> None,
|
|
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
|
|
(Identity[#]& )[
|
|
Part[#, 1]],
|
|
(Identity[#]& )[
|
|
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
|
|
(Identity[#]& )[
|
|
Part[#, 1]],
|
|
(Identity[#]& )[
|
|
Part[#, 2]]}& )}},
|
|
PlotRange->{{0, 15}, {0., 0.17388882737814787`}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.9913324679337597`*^9},
|
|
CellLabel->
|
|
"Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Show", "[",
|
|
RowBox[{"x", ",", "xx"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.9917994642649307`*^9,
|
|
3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\
|
|
b989835aa113"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"],
|
|
")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
FractionBox["1", "Cb"], ")"}]}]],
|
|
RowBox[{"\[DifferentialD]", "y"}],
|
|
RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",
|
|
CellLabel->
|
|
"In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \
|
|
\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\
|
|
734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \
|
|
too small to represent as a normalized machine number; precision may be lost.\
|
|
\"", 2, 225, 201, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991333512859148*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \
|
|
\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\
|
|
116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \
|
|
is too small to represent as a normalized machine number; precision may be \
|
|
lost.\"", 2, 225, 202, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991333512868147*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \
|
|
\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\
|
|
2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\
|
|
\\) is too small to represent as a normalized machine number; precision may \
|
|
be lost.\"", 2, 225, 203, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913335128761463`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 225, 204, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991333512885145*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"],
|
|
|
|
Cell[BoxData["9.779568499633264`"], "Output",
|
|
CellChangeTimes->{3.9913335200445786`*^9},
|
|
CellLabel->
|
|
"Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"]
|
|
}, 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.9918491385551624`*^9,
|
|
3.991849142620474*^9}},ExpressionUUID->"f2835c98-560f-8e47-bdab-\
|
|
0d2700971836"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 226, 205,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913335200775414`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 226,
|
|
206, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913335200875454`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 226,
|
|
207, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913335200945435`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 226, 208, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913335201035423`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"],
|
|
|
|
Cell[BoxData["0.7348275136088338`"], "Output",
|
|
CellChangeTimes->{3.9913335271231823`*^9},
|
|
CellLabel->
|
|
"Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"]
|
|
}, 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.991849146408966*^9,
|
|
3.9918491485488663`*^9}},ExpressionUUID->"ca837916-250f-4d4e-8368-\
|
|
5a08f479e656"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 227, 209,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913335271591835`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 227,
|
|
210, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913335271681843`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 227,
|
|
211, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991333527176182*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 227, 212, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991333527184183*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"],
|
|
|
|
Cell[BoxData["5.221864211842707`"], "Output",
|
|
CellChangeTimes->{3.9913335331581306`*^9},
|
|
CellLabel->
|
|
"Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"]
|
|
}, 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.9918491518098984`*^9,
|
|
3.9918491543107758`*^9}},ExpressionUUID->"b579991f-985b-234a-94aa-\
|
|
ed18c097f8c0"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 228, 213,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913335331923027`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 228,
|
|
214, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991333533202278*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 228,
|
|
215, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913335332102795`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 228, 216, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991333533218281*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"],
|
|
|
|
Cell[BoxData["15.545902834190647`"], "Output",
|
|
CellChangeTimes->{3.9913335366055527`*^9},
|
|
CellLabel->
|
|
"Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
FractionBox["q",
|
|
SqrtBox[
|
|
RowBox[{"S1", "*", "S2"}]]]], "Input",
|
|
CellChangeTimes->{{3.9918491594691143`*^9,
|
|
3.9918491632611027`*^9}},ExpressionUUID->"afb7855c-8700-d444-926c-\
|
|
6d96abe14e67"],
|
|
|
|
Cell[BoxData["0.08155763943441016`"], "Output",
|
|
CellChangeTimes->{3.9913335366395893`*^9},
|
|
CellLabel->
|
|
"Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"]
|
|
}, Open ]]
|
|
},
|
|
WindowSize->{718.5, 729.75},
|
|
WindowMargins->{{0, Automatic}, {Automatic, 0}},
|
|
CellContext->Notebook,
|
|
Magnification:>0.8 Inherited,
|
|
FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)",
|
|
StyleDefinitions->"Default.nb",
|
|
ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0"
|
|
]
|
|
(* End of Notebook Content *)
|
|
|
|
(* Internal cache information *)
|
|
(*CellTagsOutline
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*CellTagsIndex
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*NotebookFileOutline
|
|
Notebook[{
|
|
Cell[554, 20, 149, 4, 22, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"],
|
|
Cell[706, 26, 154, 3, 22, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"],
|
|
Cell[863, 31, 149, 4, 22, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"],
|
|
Cell[1015, 37, 154, 3, 22, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"],
|
|
Cell[CellGroupData[{
|
|
Cell[1194, 44, 1301, 43, 39, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"],
|
|
Cell[2498, 89, 178, 3, 25, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[2713, 97, 910, 31, 46, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"],
|
|
Cell[3626, 130, 175, 3, 25, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[3838, 138, 887, 30, 46, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"],
|
|
Cell[4728, 170, 176, 3, 25, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[4941, 178, 558, 19, 42, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"],
|
|
Cell[5502, 199, 172, 3, 25, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[5711, 207, 623, 21, 42, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"],
|
|
Cell[6337, 230, 172, 3, 25, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[6546, 238, 170, 5, 46, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"],
|
|
Cell[6719, 245, 172, 3, 25, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[6928, 253, 170, 5, 45, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"],
|
|
Cell[7101, 260, 171, 3, 25, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[7309, 268, 181, 5, 35, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"],
|
|
Cell[7493, 275, 170, 3, 25, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[7700, 283, 181, 5, 35, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"],
|
|
Cell[7884, 290, 172, 3, 25, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[8093, 298, 6055, 185, 310, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"],
|
|
Cell[14151, 485, 172, 3, 25, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[14360, 493, 368, 9, 33, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"],
|
|
Cell[14731, 504, 171, 3, 25, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[14939, 512, 6122, 187, 353, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"],
|
|
Cell[21064, 701, 173, 3, 25, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[21274, 709, 368, 9, 33, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"],
|
|
Cell[21645, 720, 170, 3, 25, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[21852, 728, 2663, 88, 135, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"],
|
|
Cell[24518, 818, 171, 3, 25, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[24726, 826, 2603, 85, 135, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"],
|
|
Cell[27332, 913, 173, 3, 25, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[27542, 921, 3712, 118, 197, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"],
|
|
Cell[31257, 1041, 174, 3, 25, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"]
|
|
}, Open ]],
|
|
Cell[31446, 1047, 138, 3, 34, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"],
|
|
Cell[CellGroupData[{
|
|
Cell[31609, 1054, 2054, 59, 92, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"],
|
|
Cell[33666, 1115, 557, 12, 50, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"],
|
|
Cell[34226, 1129, 559, 12, 50, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"],
|
|
Cell[34788, 1143, 561, 12, 50, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"],
|
|
Cell[35352, 1157, 458, 10, 20, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"],
|
|
Cell[35813, 1169, 172, 3, 25, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[36022, 1177, 2052, 59, 92, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"],
|
|
Cell[38077, 1238, 555, 12, 50, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"],
|
|
Cell[38635, 1252, 559, 12, 50, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"],
|
|
Cell[39197, 1266, 561, 12, 50, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"],
|
|
Cell[39761, 1280, 458, 10, 20, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"],
|
|
Cell[40222, 1292, 172, 3, 25, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[40431, 1300, 1936, 53, 69, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"],
|
|
Cell[42370, 1355, 20440, 382, 190, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[62847, 1742, 2094, 60, 56, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"],
|
|
Cell[64944, 1804, 500, 11, 56, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"],
|
|
Cell[65447, 1817, 503, 11, 33, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"],
|
|
Cell[65953, 1830, 506, 11, 33, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"],
|
|
Cell[66462, 1843, 455, 10, 20, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"],
|
|
Cell[66920, 1855, 57321, 985, 187, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"]
|
|
}, Open ]],
|
|
Cell[124256, 2843, 232, 6, 34, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"],
|
|
Cell[124491, 2851, 209, 5, 34, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"],
|
|
Cell[CellGroupData[{
|
|
Cell[124725, 2860, 217, 7, 39, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"],
|
|
Cell[124945, 2869, 172, 3, 25, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[125154, 2877, 1816, 53, 92, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"],
|
|
Cell[126973, 2932, 508, 11, 50, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"],
|
|
Cell[127484, 2945, 508, 11, 50, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"],
|
|
Cell[127995, 2958, 511, 11, 50, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"],
|
|
Cell[128509, 2971, 456, 10, 20, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"],
|
|
Cell[128968, 2983, 26000, 472, 187, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[155005, 3460, 1616, 48, 69, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"],
|
|
Cell[156624, 3510, 584, 12, 53, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"],
|
|
Cell[157211, 3524, 588, 12, 53, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"],
|
|
Cell[157802, 3538, 592, 12, 53, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"],
|
|
Cell[158397, 3552, 456, 10, 20, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"],
|
|
Cell[158856, 3564, 169, 3, 25, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[159062, 3572, 2249, 64, 131, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"],
|
|
Cell[161314, 3638, 555, 12, 50, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"],
|
|
Cell[161872, 3652, 557, 12, 56, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"],
|
|
Cell[162432, 3666, 563, 12, 56, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"],
|
|
Cell[162998, 3680, 458, 10, 56, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"],
|
|
Cell[163459, 3692, 173, 3, 56, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[163669, 3700, 2223, 64, 56, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"],
|
|
Cell[165895, 3766, 555, 12, 56, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"],
|
|
Cell[166453, 3780, 557, 12, 56, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"],
|
|
Cell[167013, 3794, 561, 12, 56, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"],
|
|
Cell[167577, 3808, 458, 10, 56, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"],
|
|
Cell[168038, 3820, 173, 3, 56, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[168248, 3828, 2221, 64, 56, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"],
|
|
Cell[170472, 3894, 557, 12, 56, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"],
|
|
Cell[171032, 3908, 557, 12, 56, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"],
|
|
Cell[171592, 3922, 563, 12, 56, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"],
|
|
Cell[172158, 3936, 456, 10, 56, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"],
|
|
Cell[172617, 3948, 173, 3, 56, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[172827, 3956, 213, 6, 56, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"],
|
|
Cell[173043, 3964, 171, 3, 56, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"]
|
|
}, Open ]],
|
|
Cell[173229, 3970, 245, 5, 56, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"],
|
|
Cell[CellGroupData[{
|
|
Cell[173499, 3979, 558, 19, 56, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"],
|
|
Cell[174060, 4000, 172, 3, 56, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[174269, 4008, 170, 5, 56, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"],
|
|
Cell[174442, 4015, 173, 3, 56, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[174652, 4023, 181, 5, 56, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"],
|
|
Cell[174836, 4030, 173, 3, 56, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[175046, 4038, 6055, 185, 56, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"],
|
|
Cell[181104, 4225, 172, 3, 56, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[181313, 4233, 368, 9, 56, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"],
|
|
Cell[181684, 4244, 170, 3, 56, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[181891, 4252, 6122, 187, 56, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"],
|
|
Cell[188016, 4441, 175, 3, 56, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[188228, 4449, 368, 9, 56, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"],
|
|
Cell[188599, 4460, 172, 3, 56, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[188808, 4468, 2663, 88, 56, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"],
|
|
Cell[191474, 4558, 173, 3, 56, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[191684, 4566, 2603, 85, 56, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"],
|
|
Cell[194290, 4653, 171, 3, 56, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[194498, 4661, 3712, 118, 56, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"],
|
|
Cell[198213, 4781, 174, 3, 56, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[198424, 4789, 2052, 59, 56, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"],
|
|
Cell[200479, 4850, 578, 12, 56, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"],
|
|
Cell[201060, 4864, 583, 12, 56, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"],
|
|
Cell[201646, 4878, 586, 12, 56, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"],
|
|
Cell[202235, 4892, 456, 10, 56, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"],
|
|
Cell[202694, 4904, 170, 3, 56, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[202901, 4912, 2054, 59, 56, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"],
|
|
Cell[204958, 4973, 576, 12, 56, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"],
|
|
Cell[205537, 4987, 581, 12, 56, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"],
|
|
Cell[206121, 5001, 586, 12, 56, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"],
|
|
Cell[206710, 5015, 458, 10, 56, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"],
|
|
Cell[207171, 5027, 172, 3, 56, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[207380, 5035, 2028, 55, 56, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"],
|
|
Cell[209411, 5092, 20011, 378, 56, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[229459, 5475, 2115, 60, 56, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"],
|
|
Cell[231577, 5537, 501, 11, 56, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"],
|
|
Cell[232081, 5550, 503, 11, 56, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"],
|
|
Cell[232587, 5563, 505, 11, 56, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"],
|
|
Cell[233095, 5576, 456, 10, 56, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"],
|
|
Cell[233554, 5588, 32548, 580, 56, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"]
|
|
}, Open ]],
|
|
Cell[266117, 6171, 209, 5, 56, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"],
|
|
Cell[CellGroupData[{
|
|
Cell[266351, 6180, 1616, 48, 56, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"],
|
|
Cell[267970, 6230, 596, 12, 56, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"],
|
|
Cell[268569, 6244, 599, 12, 56, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"],
|
|
Cell[269171, 6258, 605, 12, 56, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"],
|
|
Cell[269779, 6272, 456, 10, 56, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"],
|
|
Cell[270238, 6284, 170, 3, 56, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[270445, 6292, 2247, 64, 56, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"],
|
|
Cell[272695, 6358, 580, 12, 56, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"],
|
|
Cell[273278, 6372, 583, 12, 56, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"],
|
|
Cell[273864, 6386, 584, 12, 56, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"],
|
|
Cell[274451, 6400, 458, 10, 56, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"],
|
|
Cell[274912, 6412, 170, 3, 56, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[275119, 6420, 2219, 64, 56, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"],
|
|
Cell[277341, 6486, 580, 12, 56, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"],
|
|
Cell[277924, 6500, 583, 12, 56, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"],
|
|
Cell[278510, 6514, 586, 12, 56, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"],
|
|
Cell[279099, 6528, 458, 10, 56, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"],
|
|
Cell[279560, 6540, 171, 3, 56, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[279768, 6548, 2221, 64, 56, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"],
|
|
Cell[281992, 6614, 580, 12, 56, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"],
|
|
Cell[282575, 6628, 583, 12, 56, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"],
|
|
Cell[283161, 6642, 584, 12, 56, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"],
|
|
Cell[283748, 6656, 456, 10, 56, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"],
|
|
Cell[284207, 6668, 170, 3, 56, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[284414, 6676, 213, 6, 56, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"],
|
|
Cell[284630, 6684, 174, 3, 56, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"]
|
|
}, Open ]],
|
|
Cell[284819, 6690, 247, 5, 56, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"],
|
|
Cell[CellGroupData[{
|
|
Cell[285091, 6699, 558, 19, 56, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"],
|
|
Cell[285652, 6720, 173, 3, 56, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[285862, 6728, 170, 5, 56, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"],
|
|
Cell[286035, 6735, 173, 3, 56, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[286245, 6743, 181, 5, 56, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"],
|
|
Cell[286429, 6750, 171, 3, 56, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[286637, 6758, 6055, 185, 56, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"],
|
|
Cell[292695, 6945, 173, 3, 56, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[292905, 6953, 368, 9, 56, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"],
|
|
Cell[293276, 6964, 172, 3, 56, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[293485, 6972, 6122, 187, 56, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"],
|
|
Cell[299610, 7161, 175, 3, 56, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[299822, 7169, 368, 9, 56, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"],
|
|
Cell[300193, 7180, 171, 3, 56, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[300401, 7188, 2663, 88, 56, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"],
|
|
Cell[303067, 7278, 173, 3, 56, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[303277, 7286, 2603, 85, 56, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"],
|
|
Cell[305883, 7373, 171, 3, 56, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[306091, 7381, 3712, 118, 56, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"],
|
|
Cell[309806, 7501, 174, 3, 56, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[310017, 7509, 2054, 59, 56, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"],
|
|
Cell[312074, 7570, 572, 12, 56, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"],
|
|
Cell[312649, 7584, 573, 12, 56, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"],
|
|
Cell[313225, 7598, 579, 12, 56, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"],
|
|
Cell[313807, 7612, 456, 10, 56, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"],
|
|
Cell[314266, 7624, 169, 3, 56, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[314472, 7632, 2049, 58, 56, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"],
|
|
Cell[316524, 7692, 570, 12, 56, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"],
|
|
Cell[317097, 7706, 575, 12, 56, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"],
|
|
Cell[317675, 7720, 579, 12, 56, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"],
|
|
Cell[318257, 7734, 458, 10, 56, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"],
|
|
Cell[318718, 7746, 171, 3, 56, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[318926, 7754, 2030, 55, 56, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"],
|
|
Cell[320959, 7811, 20011, 378, 56, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[341007, 8194, 2120, 60, 56, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"],
|
|
Cell[343130, 8256, 501, 11, 56, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"],
|
|
Cell[343634, 8269, 505, 11, 56, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"],
|
|
Cell[344142, 8282, 506, 11, 56, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"],
|
|
Cell[344651, 8295, 456, 10, 56, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"],
|
|
Cell[345110, 8307, 31008, 556, 56, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"]
|
|
}, Open ]],
|
|
Cell[376133, 8866, 209, 5, 56, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"],
|
|
Cell[CellGroupData[{
|
|
Cell[376367, 8875, 1616, 48, 56, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"],
|
|
Cell[377986, 8925, 593, 12, 56, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"],
|
|
Cell[378582, 8939, 595, 12, 56, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"],
|
|
Cell[379180, 8953, 602, 12, 56, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"],
|
|
Cell[379785, 8967, 456, 10, 56, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"],
|
|
Cell[380244, 8979, 172, 3, 56, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[380453, 8987, 2249, 64, 56, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"],
|
|
Cell[382705, 9053, 572, 12, 56, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"],
|
|
Cell[383280, 9067, 575, 12, 56, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"],
|
|
Cell[383858, 9081, 579, 12, 56, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"],
|
|
Cell[384440, 9095, 458, 10, 56, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"],
|
|
Cell[384901, 9107, 173, 3, 56, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[385111, 9115, 2221, 64, 56, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"],
|
|
Cell[387335, 9181, 572, 12, 56, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"],
|
|
Cell[387910, 9195, 575, 12, 56, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"],
|
|
Cell[388488, 9209, 577, 12, 56, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"],
|
|
Cell[389068, 9223, 456, 10, 56, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"],
|
|
Cell[389527, 9235, 172, 3, 56, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[389736, 9243, 2223, 64, 56, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"],
|
|
Cell[391962, 9309, 572, 12, 56, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"],
|
|
Cell[392537, 9323, 573, 12, 56, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"],
|
|
Cell[393113, 9337, 579, 12, 56, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"],
|
|
Cell[393695, 9351, 456, 10, 56, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"],
|
|
Cell[394154, 9363, 173, 3, 56, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[394364, 9371, 215, 6, 56, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"],
|
|
Cell[394582, 9379, 174, 3, 56, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"]
|
|
}, Open ]]
|
|
}
|
|
]
|
|
*)
|
|
|
|
(* End of internal cache information *)
|
|
|