10224 lines
431 KiB
Mathematica
Executable file
10224 lines
431 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[ 430808, 10214]
|
|
NotebookOptionsPosition[ 405158, 9822]
|
|
NotebookOutlinePosition[ 405582, 9839]
|
|
CellTagsIndexPosition[ 405539, 9836]
|
|
WindowFrame->Normal*)
|
|
|
|
(* Beginning of Notebook Content *)
|
|
Notebook[{
|
|
|
|
Cell[CellGroupData[{
|
|
Cell[BoxData[
|
|
RowBox[{"f1", "="}]], "Input",
|
|
CellChangeTimes->{
|
|
3.991846457174755*^9},ExpressionUUID->"58382c59-dd64-b449-aa77-\
|
|
b500c631729a"],
|
|
|
|
Cell[BoxData["0.62`"], "Output",
|
|
CellChangeTimes->{3.991339230490425*^9},
|
|
CellLabel->
|
|
"Out[314]=",ExpressionUUID->"8bc528b5-d7e5-b04f-8824-04a5ba44f02f"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"f2", "="}]], "Input",
|
|
CellChangeTimes->{
|
|
3.9918464585717087`*^9},ExpressionUUID->"1e2a9573-08d6-094d-b2f8-\
|
|
1c2ad58521b5"],
|
|
|
|
Cell[BoxData["0.84`"], "Output",
|
|
CellChangeTimes->{3.991339230517523*^9},
|
|
CellLabel->
|
|
"Out[315]=",ExpressionUUID->"c1c87292-1cd0-7148-ae35-05da8f9df00b"]
|
|
}, Open ]],
|
|
|
|
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[316]:=",ExpressionUUID->"ee9e3f9b-cd15-314a-959e-23f6767d8629"],
|
|
|
|
Cell[BoxData["2.3793916761039797`*^-53"], "Output",
|
|
CellChangeTimes->{3.991339230528511*^9},
|
|
CellLabel->
|
|
"Out[316]=",ExpressionUUID->"f9bebeff-7b36-a841-ae60-79aab85878cb"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Il", "=",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.16", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.991557615205345*^9, {3.9915581887684402`*^9,
|
|
3.991558193612196*^9}},ExpressionUUID->"edc47846-771c-164b-bedc-\
|
|
99ac8c0783df"],
|
|
|
|
Cell[BoxData["2.192147584896785`*^-54"], "Output",
|
|
CellChangeTimes->{3.991339230554512*^9},
|
|
CellLabel->
|
|
"Out[317]=",ExpressionUUID->"dd9bd6be-98ec-9547-9e2c-ebed31965dd0"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Ih", "=",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.16", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}]], "Input",
|
|
CellChangeTimes->{{3.991557618917984*^9, 3.9915576208320503`*^9},
|
|
3.9915581864980736`*^9},ExpressionUUID->"a1f930ec-56b4-2f43-abd0-\
|
|
dd8b8a4708b1"],
|
|
|
|
Cell[BoxData["3.508823705223133`*^-54"], "Output",
|
|
CellChangeTimes->{3.9913392305796223`*^9},
|
|
CellLabel->
|
|
"Out[318]=",ExpressionUUID->"2d6d3a17-c283-8646-b256-a9dbc673c9bc"]
|
|
}, 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[319]:=",ExpressionUUID->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"],
|
|
|
|
Cell[BoxData["44.37747929594205`"], "Output",
|
|
CellChangeTimes->{3.9913392305906105`*^9},
|
|
CellLabel->
|
|
"Out[319]=",ExpressionUUID->"98b38576-def0-1e40-8080-5c3f5765197b"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Qw3", "=",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "1"}]], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"Ih", "+", "Il"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",
|
|
CellLabel->
|
|
"In[320]:=",ExpressionUUID->"163fb4a0-76e7-4649-86cb-bfaf41944c98"],
|
|
|
|
Cell[BoxData["102.55835649176893`"], "Output",
|
|
CellChangeTimes->{3.99133923061561*^9},
|
|
CellLabel->
|
|
"Out[320]=",ExpressionUUID->"ea23bd61-3699-734f-8a76-9cad8281ef61"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hb", "=",
|
|
SqrtBox[
|
|
FractionBox["Kb", "Qb3"]]}]], "Input",
|
|
CellLabel->
|
|
"In[321]:=",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"],
|
|
|
|
Cell[BoxData["0.5630879721742558`"], "Output",
|
|
CellChangeTimes->{3.9913392306426105`*^9},
|
|
CellLabel->
|
|
"Out[321]=",ExpressionUUID->"6002c9fb-3c6f-5a46-96f3-d95ebe5fcb07"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hw", "=",
|
|
SqrtBox[
|
|
FractionBox["Kw", "Qw3"]]}]], "Input",
|
|
CellLabel->
|
|
"In[322]:=",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"],
|
|
|
|
Cell[BoxData["1.956498159343112`"], "Output",
|
|
CellChangeTimes->{3.99133923065361*^9},
|
|
CellLabel->
|
|
"Out[322]=",ExpressionUUID->"54e7ec9c-75a9-1d4e-a041-1032d97b3c9c"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cw", "=",
|
|
FractionBox[
|
|
RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",
|
|
CellLabel->
|
|
"In[323]:=",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"],
|
|
|
|
Cell[BoxData["200.65523570140064`"], "Output",
|
|
CellChangeTimes->{3.9913392306776104`*^9},
|
|
CellLabel->
|
|
"Out[323]=",ExpressionUUID->"aa339681-2ea5-f647-b66a-0492fa8f2ab6"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cb", "=",
|
|
FractionBox[
|
|
RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",
|
|
CellLabel->
|
|
"In[324]:=",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"],
|
|
|
|
Cell[BoxData["24.98842482695703`"], "Output",
|
|
CellChangeTimes->{3.991339230703802*^9},
|
|
CellLabel->
|
|
"Out[324]=",ExpressionUUID->"2418bfa6-2d55-cb40-b519-958a954750e7"]
|
|
}, 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[325]:=",ExpressionUUID->"aca75c7d-c5bb-8b47-872f-20148e5c7111"],
|
|
|
|
Cell[BoxData["0.01829601703069907`"], "Output",
|
|
CellChangeTimes->{3.9913392307297993`*^9},
|
|
CellLabel->
|
|
"Out[325]=",ExpressionUUID->"f503c6c4-4e73-ad4e-8d38-70a1b8888f41"]
|
|
}, 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[326]:=",ExpressionUUID->"cd1abe66-0480-c04d-bbfd-f65271be3b80"],
|
|
|
|
Cell[BoxData["6.551890985609901`"], "Output",
|
|
CellChangeTimes->{3.991339230837267*^9},
|
|
CellLabel->
|
|
"Out[326]=",ExpressionUUID->"d5c10871-8190-e34b-bafd-c8f1bf959b75"]
|
|
}, 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[327]:=",ExpressionUUID->"c96cc89e-a2d4-f442-8558-837587935139"],
|
|
|
|
Cell[BoxData["0.00990105610750653`"], "Output",
|
|
CellChangeTimes->{3.9913392308522797`*^9},
|
|
CellLabel->
|
|
"Out[327]=",ExpressionUUID->"21257e6b-3192-d14d-ae2c-f6bb441a55d5"]
|
|
}, 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[328]:=",ExpressionUUID->"1997c8c5-b99e-0343-82de-11d88a9a1347"],
|
|
|
|
Cell[BoxData["8.906440683949702`"], "Output",
|
|
CellChangeTimes->{3.991339230966341*^9},
|
|
CellLabel->
|
|
"Out[328]=",ExpressionUUID->"6e224ad7-7bb4-3d4b-9ad8-ee907ebc0667"]
|
|
}, 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[329]:=",ExpressionUUID->"b151d79d-271f-514b-8b93-936c1a72f6cb"],
|
|
|
|
Cell[BoxData["0.6154782275967796`"], "Output",
|
|
CellChangeTimes->{3.991339230988348*^9},
|
|
CellLabel->
|
|
"Out[329]=",ExpressionUUID->"8f4a029e-ffe6-ac48-ac2f-26d4c6f8ae6c"]
|
|
}, 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[330]:=",ExpressionUUID->"ca085857-4c01-0248-853e-e9dc47d19120"],
|
|
|
|
Cell[BoxData["0.3845217724032204`"], "Output",
|
|
CellChangeTimes->{3.991339231030445*^9},
|
|
CellLabel->
|
|
"Out[330]=",ExpressionUUID->"a0d0e412-b0a8-da49-99d6-5e8fa7d61f8f"]
|
|
}, 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[331]:=",ExpressionUUID->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"],
|
|
|
|
Cell[BoxData["0.2366647789511063`"], "Output",
|
|
CellChangeTimes->{3.991339231060343*^9},
|
|
CellLabel->
|
|
"Out[331]=",ExpressionUUID->"113275b9-f155-0c40-9fb5-4237227d5946"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Clear", "[",
|
|
RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ea9dfb1b-57ad-\
|
|
0148-b647-106c07557f97"],
|
|
|
|
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.9918464744109974`*^9},ExpressionUUID->"b8b3f009-678c-e54b-8a0c-\
|
|
4de3179a9fb0"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \
|
|
\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\
|
|
32188628582006784000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 332, 325,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913392310873375`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[332]:=",ExpressionUUID->"c2771e87-d21b-5a4e-975c-e841dd59c44a"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \
|
|
\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\
|
|
445181972878563737600000000000000000000\\\"]\\) is too small to represent as \
|
|
a normalized machine number; precision may be lost.\"", 2, 332, 326,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913392310973415`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[332]:=",ExpressionUUID->"ff170e27-3c46-a544-b2dd-c8eb8ed350ea"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 332, 327,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991339231105339*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[332]:=",ExpressionUUID->"1becfb7e-341c-2c43-a01b-4766385a028d"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 332, 328, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913392311143417`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[332]:=",ExpressionUUID->"17ed9ce9-43ce-c04b-9baf-441313120d44"],
|
|
|
|
Cell[BoxData["6.551890985609901`"], "Output",
|
|
CellChangeTimes->{3.9913392346332226`*^9},
|
|
CellLabel->
|
|
"Out[332]=",ExpressionUUID->"125cfb6f-a2d2-194d-9427-f352c26ad1ae"]
|
|
}, 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.9918464780941105`*^9},ExpressionUUID->"d9fdb976-d745-4c44-9c66-\
|
|
2929c00590fc"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \
|
|
\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\
|
|
32188628582006784000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 333, 329,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991339234667631*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[333]:=",ExpressionUUID->"53bbc450-5242-e641-942d-bc7e5add9ee6"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \
|
|
\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\
|
|
445181972878563737600000000000000000000\\\"]\\) is too small to represent as \
|
|
a normalized machine number; precision may be lost.\"", 2, 333, 330,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991339234676628*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[333]:=",ExpressionUUID->"2da21055-0b71-ca4c-a4e7-b80153da78d0"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 333, 331,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991339234685627*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[333]:=",ExpressionUUID->"a669604f-6176-dd48-8e79-07fc64e4d41b"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 333, 332, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.99133923469363*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[333]:=",ExpressionUUID->"b2fab6ca-4706-de4f-990c-effa48d983de"],
|
|
|
|
Cell[BoxData["8.906440683949707`"], "Output",
|
|
CellChangeTimes->{3.99133923819088*^9},
|
|
CellLabel->
|
|
"Out[333]=",ExpressionUUID->"eb68ee17-dac2-1e46-84d5-909c4cb50318"]
|
|
}, 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.9918464867236023`*^9},ExpressionUUID->"a3abef6a-80f9-8c44-ac94-\
|
|
1eacd8c5b802"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK
|
|
Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee
|
|
8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94
|
|
s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP
|
|
tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey
|
|
E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP
|
|
HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay
|
|
ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje
|
|
fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh
|
|
OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n
|
|
13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP
|
|
WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl
|
|
4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+
|
|
U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8
|
|
tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P
|
|
s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94
|
|
mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9
|
|
t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07
|
|
O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy
|
|
xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ
|
|
Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH
|
|
N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv
|
|
mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR
|
|
gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0
|
|
99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA
|
|
+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC
|
|
ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ
|
|
7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN
|
|
v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q
|
|
bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0
|
|
ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0
|
|
KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs
|
|
LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW
|
|
pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi
|
|
ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj
|
|
oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O
|
|
7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu
|
|
/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf
|
|
OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4
|
|
8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a
|
|
z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8
|
|
P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg
|
|
g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB
|
|
KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM
|
|
y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx
|
|
8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR
|
|
3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky
|
|
bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD
|
|
jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9
|
|
wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8
|
|
GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB
|
|
LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV
|
|
Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL
|
|
kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN
|
|
fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG
|
|
xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu
|
|
t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0
|
|
uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0
|
|
PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV
|
|
XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H
|
|
Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym
|
|
mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy
|
|
vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/
|
|
EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF
|
|
DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu
|
|
bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG
|
|
TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I
|
|
9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw
|
|
2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7
|
|
/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb
|
|
7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om
|
|
QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD
|
|
whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz
|
|
9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i
|
|
i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA==
|
|
"]]},
|
|
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:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK
|
|
Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee
|
|
8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94
|
|
s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP
|
|
tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey
|
|
E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP
|
|
HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay
|
|
ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje
|
|
fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh
|
|
OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n
|
|
13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP
|
|
WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl
|
|
4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+
|
|
U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8
|
|
tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P
|
|
s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94
|
|
mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9
|
|
t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07
|
|
O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy
|
|
xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ
|
|
Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH
|
|
N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv
|
|
mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR
|
|
gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0
|
|
99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA
|
|
+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC
|
|
ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ
|
|
7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN
|
|
v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q
|
|
bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0
|
|
ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0
|
|
KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs
|
|
LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW
|
|
pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi
|
|
ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj
|
|
oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O
|
|
7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu
|
|
/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf
|
|
OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4
|
|
8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a
|
|
z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8
|
|
P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg
|
|
g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB
|
|
KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM
|
|
y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx
|
|
8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR
|
|
3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky
|
|
bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD
|
|
jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9
|
|
wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8
|
|
GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB
|
|
LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV
|
|
Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL
|
|
kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN
|
|
fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG
|
|
xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu
|
|
t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0
|
|
uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0
|
|
PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV
|
|
XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H
|
|
Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym
|
|
mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy
|
|
vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/
|
|
EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF
|
|
DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu
|
|
bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG
|
|
TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I
|
|
9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw
|
|
2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7
|
|
/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb
|
|
7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om
|
|
QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD
|
|
whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz
|
|
9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i
|
|
i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.5986424829233534,
|
|
1.5968711170700145`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.5986424829233548},
|
|
"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.5986424829233534,
|
|
1.5968711170700145`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.5986424829233548},
|
|
"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->{{115.12306105754327`,
|
|
253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}],
|
|
Selectable->False]},
|
|
Annotation[{{{{}, {},
|
|
Annotation[{
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Line[CompressedData["
|
|
1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK
|
|
Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee
|
|
8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94
|
|
s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP
|
|
tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey
|
|
E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP
|
|
HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay
|
|
ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje
|
|
fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh
|
|
OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n
|
|
13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP
|
|
WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl
|
|
4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+
|
|
U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8
|
|
tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P
|
|
s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94
|
|
mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9
|
|
t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07
|
|
O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy
|
|
xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ
|
|
Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH
|
|
N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv
|
|
mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR
|
|
gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0
|
|
99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA
|
|
+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC
|
|
ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ
|
|
7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN
|
|
v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q
|
|
bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0
|
|
ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0
|
|
KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs
|
|
LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW
|
|
pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi
|
|
ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj
|
|
oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O
|
|
7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu
|
|
/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf
|
|
OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4
|
|
8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a
|
|
z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8
|
|
P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg
|
|
g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB
|
|
KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM
|
|
y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx
|
|
8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR
|
|
3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky
|
|
bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD
|
|
jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9
|
|
wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8
|
|
GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB
|
|
LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV
|
|
Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL
|
|
kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN
|
|
fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG
|
|
xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu
|
|
t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0
|
|
uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0
|
|
PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV
|
|
XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H
|
|
Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym
|
|
mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy
|
|
vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/
|
|
EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF
|
|
DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu
|
|
bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG
|
|
TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I
|
|
9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw
|
|
2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7
|
|
/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb
|
|
7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om
|
|
QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD
|
|
whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz
|
|
9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i
|
|
i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.5986424829233548},
|
|
"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.5986424829233548},
|
|
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.5986424829233534, 1.5968711170700145`}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.991339493274267*^9},
|
|
CellLabel->
|
|
"Out[334]=",ExpressionUUID->"419e66ef-e794-0e41-8cfb-f36151a9a031"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"x", "=",
|
|
RowBox[{"Plot", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input",
|
|
CellChangeTimes->{{3.9918464901028175`*^9,
|
|
3.9918465034759026`*^9}},ExpressionUUID->"5b0c09f8-5e46-a545-8946-\
|
|
a08264de1b62"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.2261575897868585`*^-267\\\", \
|
|
\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 335,
|
|
333, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991339493498577*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[335]:=",ExpressionUUID->"a4931f15-eaa0-1242-81c3-10e27a7c5ad4"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"9.273330099721687`*^-279\\\", \
|
|
\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \
|
|
to represent as a normalized machine number; precision may be lost.\"", 2,
|
|
335, 334, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991339493508564*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[335]:=",ExpressionUUID->"ab5949a3-42fa-c340-946f-728a0b7f660d"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"7.013344112917215`*^-290\\\", \
|
|
\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \
|
|
small to represent as a normalized machine number; precision may be lost.\"",
|
|
2, 335, 335, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991339493517563*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[335]:=",ExpressionUUID->"e6df8db5-d6c5-4b4a-ae1b-671c3aaa30b3"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 335, 336, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991339493525564*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[335]:=",ExpressionUUID->"0387496f-9be6-1343-8ff5-34662019e71b"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S
|
|
UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/
|
|
f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP
|
|
IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w
|
|
4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF
|
|
SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC
|
|
tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S
|
|
r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY
|
|
IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm
|
|
WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE
|
|
b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n
|
|
cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA
|
|
7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc
|
|
HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26
|
|
uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG
|
|
e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW
|
|
g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh
|
|
tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E
|
|
bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb
|
|
36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf
|
|
HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf
|
|
sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8
|
|
fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1
|
|
4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q
|
|
bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH
|
|
czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F
|
|
fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb
|
|
wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7
|
|
PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O
|
|
f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8
|
|
+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f
|
|
7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3
|
|
sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK
|
|
TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40
|
|
tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp
|
|
9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv
|
|
AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5
|
|
vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz
|
|
83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw
|
|
sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j
|
|
76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy
|
|
GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih
|
|
ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/
|
|
miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO
|
|
4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH
|
|
vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT
|
|
/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY
|
|
kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5
|
|
O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA
|
|
OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB
|
|
POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR
|
|
4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd
|
|
ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd
|
|
BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na
|
|
AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB
|
|
SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC
|
|
EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C
|
|
QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ
|
|
FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB
|
|
U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+
|
|
FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX
|
|
dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm
|
|
b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT
|
|
mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI
|
|
RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U
|
|
6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e
|
|
j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b
|
|
6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3
|
|
zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC
|
|
rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn
|
|
uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F
|
|
cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk
|
|
RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU
|
|
XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD
|
|
f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1
|
|
vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT
|
|
pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy
|
|
ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR
|
|
6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3
|
|
wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r
|
|
l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY
|
|
tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR
|
|
k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z
|
|
FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO
|
|
wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz
|
|
hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/
|
|
y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq
|
|
XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh
|
|
KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK
|
|
F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO
|
|
bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF
|
|
9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK
|
|
itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN
|
|
qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62
|
|
iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS
|
|
Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5
|
|
OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu
|
|
x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1
|
|
urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM
|
|
EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh
|
|
7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh
|
|
Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q
|
|
mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe
|
|
XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS
|
|
+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU
|
|
25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw
|
|
QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T
|
|
BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk
|
|
uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k
|
|
dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP
|
|
y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9
|
|
LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4
|
|
IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1
|
|
rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE
|
|
AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1
|
|
QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0
|
|
aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr
|
|
rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf
|
|
pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f
|
|
5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte
|
|
W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6
|
|
punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh
|
|
3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI
|
|
IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB
|
|
UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2
|
|
CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh
|
|
ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St
|
|
63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K
|
|
Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar
|
|
5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z
|
|
YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953
|
|
t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3
|
|
wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a
|
|
+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w
|
|
7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS
|
|
rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN
|
|
D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+
|
|
HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp
|
|
MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j
|
|
Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22
|
|
hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT
|
|
PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke
|
|
Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE
|
|
TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz
|
|
8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291
|
|
wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO
|
|
zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs
|
|
N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO
|
|
2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/
|
|
+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR
|
|
WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax
|
|
kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl
|
|
F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY
|
|
1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU
|
|
4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ
|
|
PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d
|
|
HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY
|
|
RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma
|
|
X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ
|
|
IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu
|
|
h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D
|
|
S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21
|
|
e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv
|
|
DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ
|
|
6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6
|
|
8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw
|
|
nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L
|
|
MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4
|
|
l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I
|
|
nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW
|
|
59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op
|
|
cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy
|
|
la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK
|
|
eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0
|
|
ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD
|
|
1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q
|
|
eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY
|
|
9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM
|
|
8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu
|
|
9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR
|
|
D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK
|
|
06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde
|
|
JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK
|
|
7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV
|
|
dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63
|
|
pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr
|
|
Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk
|
|
9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9
|
|
lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o
|
|
xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su
|
|
YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l
|
|
IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i
|
|
AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3
|
|
A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww==
|
|
"]]},
|
|
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:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S
|
|
UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/
|
|
f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP
|
|
IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w
|
|
4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF
|
|
SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC
|
|
tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S
|
|
r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY
|
|
IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm
|
|
WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE
|
|
b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n
|
|
cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA
|
|
7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc
|
|
HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26
|
|
uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG
|
|
e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW
|
|
g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh
|
|
tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E
|
|
bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb
|
|
36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf
|
|
HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf
|
|
sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8
|
|
fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1
|
|
4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q
|
|
bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH
|
|
czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F
|
|
fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb
|
|
wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7
|
|
PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O
|
|
f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8
|
|
+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f
|
|
7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3
|
|
sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK
|
|
TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40
|
|
tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp
|
|
9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv
|
|
AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5
|
|
vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz
|
|
83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw
|
|
sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j
|
|
76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy
|
|
GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih
|
|
ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/
|
|
miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO
|
|
4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH
|
|
vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT
|
|
/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY
|
|
kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5
|
|
O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA
|
|
OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB
|
|
POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR
|
|
4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd
|
|
ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd
|
|
BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na
|
|
AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB
|
|
SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC
|
|
EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C
|
|
QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ
|
|
FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB
|
|
U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+
|
|
FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX
|
|
dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm
|
|
b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT
|
|
mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI
|
|
RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U
|
|
6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e
|
|
j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b
|
|
6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3
|
|
zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC
|
|
rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn
|
|
uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F
|
|
cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk
|
|
RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU
|
|
XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD
|
|
f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1
|
|
vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT
|
|
pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy
|
|
ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR
|
|
6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3
|
|
wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r
|
|
l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY
|
|
tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR
|
|
k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z
|
|
FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO
|
|
wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz
|
|
hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/
|
|
y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq
|
|
XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh
|
|
KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK
|
|
F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO
|
|
bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF
|
|
9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK
|
|
itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN
|
|
qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62
|
|
iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS
|
|
Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5
|
|
OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu
|
|
x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1
|
|
urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM
|
|
EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh
|
|
7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh
|
|
Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q
|
|
mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe
|
|
XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS
|
|
+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU
|
|
25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw
|
|
QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T
|
|
BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk
|
|
uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k
|
|
dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP
|
|
y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9
|
|
LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4
|
|
IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1
|
|
rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE
|
|
AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1
|
|
QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0
|
|
aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr
|
|
rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf
|
|
pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f
|
|
5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte
|
|
W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6
|
|
punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh
|
|
3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI
|
|
IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB
|
|
UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2
|
|
CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh
|
|
ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St
|
|
63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K
|
|
Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar
|
|
5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z
|
|
YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953
|
|
t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3
|
|
wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a
|
|
+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w
|
|
7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS
|
|
rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN
|
|
D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+
|
|
HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp
|
|
MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j
|
|
Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22
|
|
hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT
|
|
PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke
|
|
Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE
|
|
TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz
|
|
8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291
|
|
wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO
|
|
zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs
|
|
N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO
|
|
2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/
|
|
+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR
|
|
WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax
|
|
kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl
|
|
F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY
|
|
1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU
|
|
4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ
|
|
PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d
|
|
HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY
|
|
RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma
|
|
X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ
|
|
IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu
|
|
h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D
|
|
S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21
|
|
e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv
|
|
DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ
|
|
6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6
|
|
8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw
|
|
nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L
|
|
MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4
|
|
l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I
|
|
nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW
|
|
59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op
|
|
cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy
|
|
la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK
|
|
eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0
|
|
ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD
|
|
1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q
|
|
eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY
|
|
9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM
|
|
8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu
|
|
9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR
|
|
D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK
|
|
06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde
|
|
JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK
|
|
7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV
|
|
dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63
|
|
pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr
|
|
Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk
|
|
9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9
|
|
lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o
|
|
xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su
|
|
YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l
|
|
IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i
|
|
AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3
|
|
A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}},
|
|
"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.11602348907445073`}},
|
|
"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:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S
|
|
UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/
|
|
f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP
|
|
IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w
|
|
4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF
|
|
SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC
|
|
tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S
|
|
r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY
|
|
IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm
|
|
WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE
|
|
b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n
|
|
cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA
|
|
7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc
|
|
HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26
|
|
uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG
|
|
e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW
|
|
g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh
|
|
tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E
|
|
bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb
|
|
36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf
|
|
HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf
|
|
sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8
|
|
fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1
|
|
4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q
|
|
bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH
|
|
czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F
|
|
fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb
|
|
wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7
|
|
PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O
|
|
f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8
|
|
+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f
|
|
7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3
|
|
sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK
|
|
TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40
|
|
tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp
|
|
9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv
|
|
AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5
|
|
vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz
|
|
83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw
|
|
sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j
|
|
76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy
|
|
GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih
|
|
ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/
|
|
miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO
|
|
4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH
|
|
vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT
|
|
/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY
|
|
kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5
|
|
O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA
|
|
OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB
|
|
POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR
|
|
4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd
|
|
ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd
|
|
BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na
|
|
AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB
|
|
SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC
|
|
EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C
|
|
QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ
|
|
FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB
|
|
U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+
|
|
FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX
|
|
dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm
|
|
b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT
|
|
mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI
|
|
RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U
|
|
6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e
|
|
j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b
|
|
6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3
|
|
zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC
|
|
rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn
|
|
uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F
|
|
cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk
|
|
RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU
|
|
XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD
|
|
f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1
|
|
vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT
|
|
pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy
|
|
ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR
|
|
6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3
|
|
wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r
|
|
l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY
|
|
tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR
|
|
k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z
|
|
FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO
|
|
wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz
|
|
hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/
|
|
y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq
|
|
XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh
|
|
KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK
|
|
F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO
|
|
bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF
|
|
9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK
|
|
itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN
|
|
qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62
|
|
iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS
|
|
Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5
|
|
OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu
|
|
x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1
|
|
urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM
|
|
EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh
|
|
7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh
|
|
Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q
|
|
mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe
|
|
XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS
|
|
+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU
|
|
25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw
|
|
QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T
|
|
BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk
|
|
uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k
|
|
dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP
|
|
y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9
|
|
LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4
|
|
IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1
|
|
rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE
|
|
AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1
|
|
QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0
|
|
aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr
|
|
rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf
|
|
pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f
|
|
5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte
|
|
W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6
|
|
punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh
|
|
3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI
|
|
IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB
|
|
UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2
|
|
CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh
|
|
ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St
|
|
63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K
|
|
Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar
|
|
5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z
|
|
YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953
|
|
t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3
|
|
wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a
|
|
+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w
|
|
7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS
|
|
rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN
|
|
D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+
|
|
HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp
|
|
MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j
|
|
Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22
|
|
hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT
|
|
PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke
|
|
Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE
|
|
TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz
|
|
8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291
|
|
wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO
|
|
zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs
|
|
N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO
|
|
2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/
|
|
+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR
|
|
WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax
|
|
kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl
|
|
F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY
|
|
1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU
|
|
4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ
|
|
PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d
|
|
HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY
|
|
RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma
|
|
X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ
|
|
IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu
|
|
h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D
|
|
S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21
|
|
e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv
|
|
DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ
|
|
6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6
|
|
8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw
|
|
nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L
|
|
MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4
|
|
l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I
|
|
nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW
|
|
59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op
|
|
cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy
|
|
la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK
|
|
eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0
|
|
ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD
|
|
1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q
|
|
eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY
|
|
9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM
|
|
8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu
|
|
9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR
|
|
D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK
|
|
06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde
|
|
JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK
|
|
7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV
|
|
dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63
|
|
pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr
|
|
Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk
|
|
9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9
|
|
lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o
|
|
xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su
|
|
YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l
|
|
IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i
|
|
AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3
|
|
A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}},
|
|
"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.11602348907445073`}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.991340117671425*^9},
|
|
CellLabel->
|
|
"Out[335]=",ExpressionUUID->"9d88b545-fa49-1040-a93c-61d85d3a7a24"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"xx", "=",
|
|
RowBox[{"ListPlot", "[",
|
|
RowBox[{"{", "}"}], "]"}]}]], "Input",
|
|
CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, {
|
|
3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9,
|
|
3.9917953263701286`*^9},ExpressionUUID->"a890eeb1-6bca-424f-a8f9-\
|
|
1a35c4cca33c"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[{{},
|
|
InterpretationBox[{
|
|
TagBox[
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
|
|
0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData["
|
|
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
|
|
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
|
|
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
|
|
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
|
|
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
|
|
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
|
|
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
|
|
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
|
|
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
|
|
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
|
|
"]]},
|
|
Annotation[#, "Charting`Private`Tag#1"]& ],
|
|
{"WolframDynamicHighlight", <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}],
|
|
StyleBox[
|
|
DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {},
|
|
Slot["HighlightElements"],
|
|
Slot["LayoutOptions"],
|
|
Slot["Meta"],
|
|
Charting`HighlightActionFunction["DynamicHighlight", {{
|
|
Annotation[{
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Point[CompressedData["
|
|
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
|
|
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
|
|
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
|
|
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
|
|
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
|
|
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
|
|
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
|
|
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
|
|
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
|
|
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
|
|
"]]}, "Charting`Private`Tag#1"]}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 52.}, {0, 0.120683}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio},
|
|
"Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" ->
|
|
GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" ->
|
|
False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
ListPlot, "GroupHighlight" -> False|>|>]]& )[<|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio},
|
|
"Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" ->
|
|
GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" ->
|
|
False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
ListPlot, "GroupHighlight" -> False|>|>],
|
|
ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
|
|
4.503599627370496*^15, -4.503599627370496*^15}}],
|
|
Selectable->False]},
|
|
Annotation[{{
|
|
Annotation[{
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Point[CompressedData["
|
|
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
|
|
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
|
|
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
|
|
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
|
|
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
|
|
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
|
|
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
|
|
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
|
|
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
|
|
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
|
|
"]]}, "Charting`Private`Tag#1"]}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}},
|
|
"Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
ListPlot, "GroupHighlight" -> False|>|>,
|
|
"DynamicHighlight"]], {{}, {}}},
|
|
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
|
|
Axes->{True, True},
|
|
AxesLabel->{None, None},
|
|
AxesOrigin->{0, 0},
|
|
DisplayFunction->Identity,
|
|
Frame->{{False, False}, {False, False}},
|
|
FrameLabel->{{None, None}, {None, None}},
|
|
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
|
|
GridLines->{None, None},
|
|
GridLinesStyle->Directive[
|
|
GrayLevel[0.5, 0.4]],
|
|
Method->{
|
|
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic,
|
|
"DefaultGraphicsInteraction" -> {
|
|
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
|
|
"Effects" -> {
|
|
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
|
|
"Droplines" -> {
|
|
"freeformCursorMode" -> True,
|
|
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
|
|
AbsolutePointSize[6], "DefaultPlotStyle" -> {
|
|
Directive[
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.880722, 0.611041, 0.142051],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.560181, 0.691569, 0.194885],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.922526, 0.385626, 0.209179],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.528488, 0.470624, 0.701351],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.772079, 0.431554, 0.102387],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.363898, 0.618501, 0.782349],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[1, 0.75, 0],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.647624, 0.37816, 0.614037],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.571589, 0.586483, 0.],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.915, 0.3325, 0.2125],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.736782672705901, 0.358, 0.5030266573755369],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965],
|
|
AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02],
|
|
"PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05],
|
|
"OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint",
|
|
"HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True,
|
|
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& )}},
|
|
PlotRange->{{0, 52.}, {0, 0.120683}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.02],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.9917148467316074`*^9},
|
|
CellLabel->
|
|
"Out[529]=",ExpressionUUID->"cc6e68e6-6d62-0046-bbd0-fe05510d86ec"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Show", "[",
|
|
RowBox[{"x", ",", "xx"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, {
|
|
3.991795329890896*^9,
|
|
3.99179533223897*^9}},ExpressionUUID->"b1f266e4-128a-e44e-90be-\
|
|
31846216bd9c"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"Show", "gcomb",
|
|
"\"Could not combine the graphics objects in \
|
|
\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \
|
|
GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \
|
|
Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \
|
|
List[List[], List[]]], List[Rule[DisplayFunction, Identity], \
|
|
Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \
|
|
Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \
|
|
Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \
|
|
Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \
|
|
Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \
|
|
List[List[None, None], List[None, None]]], Rule[FrameTicks, \
|
|
List[List[Automatic, Automatic], List[Automatic, Automatic]]], \
|
|
Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \
|
|
Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \
|
|
List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \
|
|
Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \
|
|
Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \
|
|
Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \
|
|
AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \
|
|
List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
|
|
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
|
|
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
|
|
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
|
|
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \
|
|
Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \
|
|
\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \
|
|
Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\
|
|
\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \
|
|
Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \
|
|
List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \
|
|
52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \
|
|
Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \
|
|
List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \
|
|
Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879,
|
|
"Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[532]:=",ExpressionUUID->"e5cadd69-92fe-044c-9cd3-27a3efb8f2cf"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Show", "[",
|
|
RowBox[{"x130", ",",
|
|
GraphicsBox[{{},
|
|
InterpretationBox[{
|
|
TagBox[
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
|
|
0.011000000000000001`], AbsoluteThickness[2],
|
|
PointBox[CompressedData["
|
|
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
|
|
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
|
|
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
|
|
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
|
|
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
|
|
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
|
|
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
|
|
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
|
|
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
|
|
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
|
|
"]]},
|
|
Annotation[#, "Charting`Private`Tag#1"]& ],
|
|
{"WolframDynamicHighlight", <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}],
|
|
StyleBox[
|
|
DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {},
|
|
Slot["HighlightElements"],
|
|
Slot["LayoutOptions"],
|
|
Slot["Meta"],
|
|
Charting`HighlightActionFunction["DynamicHighlight", {{
|
|
Annotation[{
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Point[CompressedData["
|
|
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
|
|
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
|
|
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
|
|
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
|
|
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
|
|
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
|
|
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
|
|
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
|
|
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
|
|
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
|
|
"]]}, "Charting`Private`Tag#1"]}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 52.}, {0, 0.120683}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio},
|
|
"Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" ->
|
|
GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" ->
|
|
False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {},
|
|
"Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 52.}, {0, 0.120683}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio},
|
|
"Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" ->
|
|
GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" ->
|
|
False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {},
|
|
"Function" -> ListPlot, "GroupHighlight" -> False|>|>],
|
|
ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
|
|
4.503599627370496*^15, -4.503599627370496*^15}}],
|
|
Selectable->False]},
|
|
Annotation[{{
|
|
Annotation[{
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Point[CompressedData["
|
|
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
|
|
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
|
|
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
|
|
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
|
|
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
|
|
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
|
|
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
|
|
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
|
|
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
|
|
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
|
|
"]]}, "Charting`Private`Tag#1"]}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}},
|
|
"Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1),
|
|
"DefaultStyle" -> {
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
ListPlot, "GroupHighlight" -> False|>|>,
|
|
"DynamicHighlight"]], {{}, {}}},
|
|
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
|
|
Axes->{True, True},
|
|
AxesLabel->{None, None},
|
|
AxesOrigin->{0, 0},
|
|
DisplayFunction->Identity,
|
|
Frame->{{False, False}, {False, False}},
|
|
FrameLabel->{{None, None}, {None, None}},
|
|
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
|
|
GridLines->{None, None},
|
|
GridLinesStyle->Directive[
|
|
GrayLevel[0.5, 0.4]],
|
|
Method->{
|
|
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic,
|
|
"DefaultGraphicsInteraction" -> {
|
|
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
|
|
"Effects" -> {
|
|
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
|
|
"Droplines" -> {
|
|
"freeformCursorMode" -> True,
|
|
"placement" -> {"x" -> "All", "y" -> "None"}}}},
|
|
"DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
|
|
Directive[
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.880722, 0.611041, 0.142051],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.560181, 0.691569, 0.194885],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.922526, 0.385626, 0.209179],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.528488, 0.470624, 0.701351],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.772079, 0.431554, 0.102387],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.363898, 0.618501, 0.782349],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[1, 0.75, 0],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.647624, 0.37816, 0.614037],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.571589, 0.586483, 0.],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.915, 0.3325, 0.2125],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.736782672705901, 0.358, 0.5030266573755369],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965],
|
|
AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02],
|
|
"PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05],
|
|
"OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint",
|
|
"HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True,
|
|
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& )}},
|
|
PlotRange->{{0, 52.}, {0, 0.120683}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.02],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]}], "]"}]], "Output",
|
|
CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}},
|
|
CellLabel->
|
|
"Out[532]=",ExpressionUUID->"8c16d688-6604-f441-a079-29d116d7f98b"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"L", "=",
|
|
FractionBox[
|
|
SqrtBox[
|
|
RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.991923767707161*^9},ExpressionUUID->"15c72253-d078-7f43-9f29-\
|
|
7ac094706013"],
|
|
|
|
Cell[BoxData["12.55365498952246`"], "Output",
|
|
CellChangeTimes->{3.991340544411957*^9},
|
|
CellLabel->
|
|
"Out[337]=",ExpressionUUID->"6748be9e-23e0-b742-b32d-b4d0b2af2d47"]
|
|
}, 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.9919237699816914`*^9},ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-\
|
|
eb9eba4ac874"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \
|
|
\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \
|
|
small to represent as a normalized machine number; precision may be lost.\"",
|
|
2, 338, 341, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340544611845*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[338]:=",ExpressionUUID->"68caf80c-08a0-5a4f-86e7-94369a91094e"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \
|
|
\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \
|
|
small to represent as a normalized machine number; precision may be lost.\"",
|
|
2, 338, 342, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913405446218624`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[338]:=",ExpressionUUID->"99e2d7e0-6b3a-4241-b934-9876555b06af"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \
|
|
\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \
|
|
too small to represent as a normalized machine number; precision may be lost.\
|
|
\"", 2, 338, 343, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340544630844*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[338]:=",ExpressionUUID->"35c8608a-cdb9-7b49-a349-ff93419909b7"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 338, 344, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340544639845*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[338]:=",ExpressionUUID->"be12d8f1-8442-ce44-8064-691aa975f7de"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk
|
|
DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE
|
|
i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3
|
|
tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM
|
|
NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S
|
|
RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB
|
|
j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd
|
|
kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT
|
|
u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5
|
|
T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j
|
|
8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm
|
|
bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg
|
|
k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl
|
|
UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd
|
|
5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8
|
|
sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227
|
|
1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK
|
|
Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS
|
|
vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH
|
|
Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+
|
|
Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL
|
|
C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf
|
|
8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6
|
|
oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT
|
|
7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW
|
|
mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8
|
|
6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe
|
|
8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3
|
|
us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9
|
|
0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm
|
|
3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v
|
|
K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU
|
|
+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY
|
|
e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im
|
|
r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K
|
|
iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac
|
|
p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M
|
|
knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS
|
|
9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq
|
|
K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK
|
|
Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh
|
|
+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD
|
|
LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq
|
|
cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl
|
|
x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji
|
|
J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX
|
|
9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d
|
|
T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR
|
|
GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE
|
|
YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q
|
|
eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2
|
|
nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB
|
|
i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17
|
|
UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC
|
|
4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+
|
|
+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d
|
|
UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M
|
|
6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l
|
|
wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW
|
|
ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt
|
|
UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry
|
|
tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP
|
|
3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz
|
|
PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP
|
|
crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z
|
|
fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT
|
|
KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0
|
|
dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq
|
|
RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf
|
|
auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY
|
|
+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD
|
|
3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause
|
|
loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G
|
|
+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu
|
|
LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/
|
|
KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv
|
|
7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw
|
|
ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN
|
|
RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg
|
|
k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp
|
|
oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx
|
|
8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x
|
|
UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ
|
|
GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa
|
|
jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2
|
|
svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8
|
|
GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf
|
|
aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj
|
|
C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg==
|
|
"]]},
|
|
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:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk
|
|
DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE
|
|
i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3
|
|
tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM
|
|
NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S
|
|
RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB
|
|
j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd
|
|
kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT
|
|
u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5
|
|
T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j
|
|
8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm
|
|
bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg
|
|
k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl
|
|
UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd
|
|
5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8
|
|
sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227
|
|
1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK
|
|
Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS
|
|
vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH
|
|
Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+
|
|
Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL
|
|
C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf
|
|
8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6
|
|
oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT
|
|
7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW
|
|
mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8
|
|
6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe
|
|
8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3
|
|
us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9
|
|
0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm
|
|
3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v
|
|
K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU
|
|
+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY
|
|
e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im
|
|
r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K
|
|
iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac
|
|
p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M
|
|
knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS
|
|
9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq
|
|
K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK
|
|
Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh
|
|
+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD
|
|
LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq
|
|
cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl
|
|
x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji
|
|
J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX
|
|
9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d
|
|
T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR
|
|
GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE
|
|
YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q
|
|
eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2
|
|
nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB
|
|
i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17
|
|
UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC
|
|
4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+
|
|
+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d
|
|
UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M
|
|
6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l
|
|
wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW
|
|
ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt
|
|
UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry
|
|
tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP
|
|
3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz
|
|
PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP
|
|
crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z
|
|
fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT
|
|
KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0
|
|
dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq
|
|
RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf
|
|
auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY
|
|
+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD
|
|
3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause
|
|
loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G
|
|
+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu
|
|
LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/
|
|
KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv
|
|
7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw
|
|
ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN
|
|
RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg
|
|
k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp
|
|
oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx
|
|
8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x
|
|
UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ
|
|
GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa
|
|
jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2
|
|
svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8
|
|
GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf
|
|
aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj
|
|
C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}},
|
|
"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.060553949877372025`}},
|
|
"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:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk
|
|
DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE
|
|
i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3
|
|
tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM
|
|
NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S
|
|
RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB
|
|
j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd
|
|
kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT
|
|
u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5
|
|
T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j
|
|
8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm
|
|
bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg
|
|
k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl
|
|
UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd
|
|
5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8
|
|
sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227
|
|
1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK
|
|
Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS
|
|
vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH
|
|
Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+
|
|
Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL
|
|
C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf
|
|
8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6
|
|
oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT
|
|
7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW
|
|
mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8
|
|
6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe
|
|
8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3
|
|
us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9
|
|
0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm
|
|
3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v
|
|
K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU
|
|
+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY
|
|
e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im
|
|
r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K
|
|
iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac
|
|
p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M
|
|
knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS
|
|
9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq
|
|
K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK
|
|
Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh
|
|
+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD
|
|
LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq
|
|
cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl
|
|
x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji
|
|
J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX
|
|
9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d
|
|
T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR
|
|
GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE
|
|
YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q
|
|
eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2
|
|
nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB
|
|
i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17
|
|
UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC
|
|
4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+
|
|
+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d
|
|
UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M
|
|
6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l
|
|
wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW
|
|
ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt
|
|
UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry
|
|
tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP
|
|
3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz
|
|
PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP
|
|
crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z
|
|
fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT
|
|
KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0
|
|
dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq
|
|
RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf
|
|
auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY
|
|
+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD
|
|
3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause
|
|
loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G
|
|
+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu
|
|
LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/
|
|
KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv
|
|
7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw
|
|
ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN
|
|
RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg
|
|
k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp
|
|
oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx
|
|
8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x
|
|
UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ
|
|
GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa
|
|
jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2
|
|
svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8
|
|
GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf
|
|
aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj
|
|
C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}},
|
|
"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.060553949877372025`}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.9913408819317417`*^9},
|
|
CellLabel->
|
|
"Out[338]=",ExpressionUUID->"331394c4-497c-0346-8d4a-8dd138d0b1ec"]
|
|
}, 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[339]:=",ExpressionUUID->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \
|
|
\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\
|
|
7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \
|
|
to represent as a normalized machine number; precision may be lost.\"", 2,
|
|
339, 345, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340881982744*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[339]:=",ExpressionUUID->"c81c58e6-5421-304d-872c-00439d312fe4"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \
|
|
\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\
|
|
35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \
|
|
small to represent as a normalized machine number; precision may be lost.\"",
|
|
2, 339, 346, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340881991743*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[339]:=",ExpressionUUID->"55f72141-2a48-cb49-9d96-f54968f261ca"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \
|
|
\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\
|
|
54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \
|
|
small to represent as a normalized machine number; precision may be lost.\"",
|
|
2, 339, 347, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340882000746*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[339]:=",ExpressionUUID->"02912ea6-4ba4-644f-aec0-867d70fcdcf0"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 339, 348, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340882008745*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[339]:=",ExpressionUUID->"b4acd794-c7cb-6242-90b6-7a7453ebdeb1"],
|
|
|
|
Cell[BoxData["12.553654989521348`"], "Output",
|
|
CellChangeTimes->{3.9913408882266617`*^9},
|
|
CellLabel->
|
|
"Out[339]=",ExpressionUUID->"320f82af-6278-6a41-a4de-a355ccf7664a"]
|
|
}, 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.9918465455039177`*^9,
|
|
3.9918465541706066`*^9}},ExpressionUUID->"55574de4-5bf4-6a47-8b7c-\
|
|
0502360e0741"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \
|
|
\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\
|
|
32188628582006784000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 340, 349,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913408882626343`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[340]:=",ExpressionUUID->"ad528e52-1db8-df47-9908-86690dda4ace"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \
|
|
\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\
|
|
445181972878563737600000000000000000000\\\"]\\) is too small to represent as \
|
|
a normalized machine number; precision may be lost.\"", 2, 340, 350,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913408882726326`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[340]:=",ExpressionUUID->"a92c32b5-c23e-7943-9656-aea4b5c428d7"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 340, 351,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913408882816315`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[340]:=",ExpressionUUID->"278bf77a-d73c-c84a-8914-85a2a0d1559c"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 340, 352, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913408882906322`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[340]:=",ExpressionUUID->"341ce956-49ff-8f46-84bb-bcaaba1e8ea9"],
|
|
|
|
Cell[BoxData["1.3456729512531673`"], "Output",
|
|
CellChangeTimes->{3.991340895263792*^9},
|
|
CellLabel->
|
|
"Out[340]=",ExpressionUUID->"94404803-8b83-8a42-8385-1167ffd078a8"]
|
|
}, 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.991846558454563*^9,
|
|
3.991846561166006*^9}},ExpressionUUID->"a62e28a7-2963-b449-b2d2-\
|
|
4774e534a560"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \
|
|
\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\
|
|
32188628582006784000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 341, 353,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340895297941*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[341]:=",ExpressionUUID->"c97b7826-1134-834a-8813-439f81fdc13f"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \
|
|
\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\
|
|
445181972878563737600000000000000000000\\\"]\\) is too small to represent as \
|
|
a normalized machine number; precision may be lost.\"", 2, 341, 354,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340895308939*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[341]:=",ExpressionUUID->"5648dba3-b48a-c549-a33c-f599b4e5b995"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 341, 355,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340895316965*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[341]:=",ExpressionUUID->"7563d59f-361e-3948-b073-d7842f12334e"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 341, 356, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340895324953*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[341]:=",ExpressionUUID->"726f2b8e-ea46-7c48-8586-2eb207eadde6"],
|
|
|
|
Cell[BoxData["11.729429210875175`"], "Output",
|
|
CellChangeTimes->{3.9913409010488796`*^9},
|
|
CellLabel->
|
|
"Out[341]=",ExpressionUUID->"db379c33-b649-2d43-ac47-d39edb6bd127"]
|
|
}, 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.991846565092888*^9,
|
|
3.991846568588709*^9}},ExpressionUUID->"9dbddde0-a221-414e-bf4d-\
|
|
6be0dfb61fa1"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \
|
|
\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\
|
|
32188628582006784000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 342, 357,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913409010848827`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[342]:=",ExpressionUUID->"230d0e01-4d30-3142-81a2-ed4c42905a05"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \
|
|
\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\
|
|
445181972878563737600000000000000000000\\\"]\\) is too small to represent as \
|
|
a normalized machine number; precision may be lost.\"", 2, 342, 358,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913409010938797`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[342]:=",ExpressionUUID->"77058178-333e-354d-80c4-e12104a807ce"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 342, 359,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340901101883*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[342]:=",ExpressionUUID->"b5bc528a-d748-0f4f-94e7-12c75a1d74a6"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 342, 360, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913409011098804`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[342]:=",ExpressionUUID->"2107b1d1-4ebe-2440-81fa-60e90e5253f9"],
|
|
|
|
Cell[BoxData["21.67464099510054`"], "Output",
|
|
CellChangeTimes->{3.991340904517517*^9},
|
|
CellLabel->
|
|
"Out[342]=",ExpressionUUID->"7bdb3303-182d-9d45-b807-70346e03e157"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
FractionBox["q",
|
|
SqrtBox[
|
|
RowBox[{"S1", "*", "S2"}]]]], "Input",
|
|
CellChangeTimes->{{3.991846571659788*^9,
|
|
3.991846575865097*^9}},ExpressionUUID->"a4f97f96-646f-ae45-96cc-\
|
|
9c4165440b9d"],
|
|
|
|
Cell[BoxData["0.0843966342510027`"], "Output",
|
|
CellChangeTimes->{3.991340904549515*^9},
|
|
CellLabel->
|
|
"Out[343]=",ExpressionUUID->"37b2a818-74be-9440-ae6a-a43cc0ec40a8"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Clear", "[",
|
|
RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.9918465789006596`*^9, 3.9918465811046677`*^9},
|
|
3.991923777228119*^9},ExpressionUUID->"35c63783-19fc-b040-b8f7-\
|
|
ef972ba7b6ed"],
|
|
|
|
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[345]:=",ExpressionUUID->"82776c92-7c10-2f45-a63e-50057ffca54a"],
|
|
|
|
Cell[BoxData["19.580504093356314`"], "Output",
|
|
CellChangeTimes->{3.9913409045775146`*^9},
|
|
CellLabel->
|
|
"Out[345]=",ExpressionUUID->"37bd912e-575b-eb4f-8032-971d1e707228"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hb", "=",
|
|
SqrtBox[
|
|
FractionBox["Kb", "Qb2"]]}]], "Input",
|
|
CellLabel->
|
|
"In[347]:=",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"],
|
|
|
|
Cell[BoxData["0.8477067309358528`"], "Output",
|
|
CellChangeTimes->{3.991340904625164*^9},
|
|
CellLabel->
|
|
"Out[347]=",ExpressionUUID->"3a344811-90b2-ec44-89d0-1c709ea9d046"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cb", "=",
|
|
FractionBox[
|
|
RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",
|
|
CellLabel->
|
|
"In[350]:=",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"],
|
|
|
|
Cell[BoxData["16.598525115055164`"], "Output",
|
|
CellChangeTimes->{3.9913409046880226`*^9},
|
|
CellLabel->
|
|
"Out[350]=",ExpressionUUID->"665369d7-97a6-fa48-bef2-b3decb044e25"]
|
|
}, 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[351]:=",ExpressionUUID->"276e96f1-558d-9846-adb4-2350594341f3"],
|
|
|
|
Cell[BoxData["0.021613768236132463`"], "Output",
|
|
CellChangeTimes->{3.9913409047132187`*^9},
|
|
CellLabel->
|
|
"Out[351]=",ExpressionUUID->"ffc1a009-137c-b34d-9076-1696d057b6db"]
|
|
}, 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[352]:=",ExpressionUUID->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"],
|
|
|
|
Cell[BoxData["6.028089553291302`"], "Output",
|
|
CellChangeTimes->{3.9913409048112164`*^9},
|
|
CellLabel->
|
|
"Out[352]=",ExpressionUUID->"895d1a28-2153-a84d-81e3-1cdf5d6d48ed"]
|
|
}, 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[353]:=",ExpressionUUID->"37b23358-bc27-224f-b5f7-62b1fc97e785"],
|
|
|
|
Cell[BoxData["0.010798036798660033`"], "Output",
|
|
CellChangeTimes->{3.991340904825058*^9},
|
|
CellLabel->
|
|
"Out[353]=",ExpressionUUID->"d4750c6a-3354-8a41-a70f-517b49b84087"]
|
|
}, 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[354]:=",ExpressionUUID->"eeb5992b-a45f-a14b-8a22-14af99af15e2"],
|
|
|
|
Cell[BoxData["8.5284977476633`"], "Output",
|
|
CellChangeTimes->{3.9913409049303207`*^9},
|
|
CellLabel->
|
|
"Out[354]=",ExpressionUUID->"5a3e32eb-a9a4-414a-82df-9b56efed1b93"]
|
|
}, 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[355]:=",ExpressionUUID->"6ddb4033-5394-f34c-95af-22d1f1297351"],
|
|
|
|
Cell[BoxData["0.6154782275967796`"], "Output",
|
|
CellChangeTimes->{3.991340904948307*^9},
|
|
CellLabel->
|
|
"Out[355]=",ExpressionUUID->"69873497-f6d3-324c-852f-4bb50568f85a"]
|
|
}, 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[356]:=",ExpressionUUID->"22b71737-ea19-a348-af70-a874963373f8"],
|
|
|
|
Cell[BoxData["0.3845217724032204`"], "Output",
|
|
CellChangeTimes->{3.991340904981308*^9},
|
|
CellLabel->
|
|
"Out[356]=",ExpressionUUID->"13526c56-3d85-3c46-83ee-6fb4edbe82d4"]
|
|
}, 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[357]:=",ExpressionUUID->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"],
|
|
|
|
Cell[BoxData["0.2366647789511063`"], "Output",
|
|
CellChangeTimes->{3.99134090500931*^9},
|
|
CellLabel->
|
|
"Out[357]=",ExpressionUUID->"b4a365f6-f572-034d-a2e6-640ba90b8a4e"]
|
|
}, 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.9918465999055576`*^9},ExpressionUUID->"d3f05697-a372-2a42-8c9c-\
|
|
ccc9289a44b2"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 358,
|
|
361, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340905038307*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[358]:=",ExpressionUUID->"dedd9f21-b30a-8e42-82f2-2e7179121ba4"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 358,
|
|
362, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340905047306*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[358]:=",ExpressionUUID->"93a73c80-9680-654d-99e9-e1bbed8734bd"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \
|
|
\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\
|
|
6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 358,
|
|
363, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340905056307*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[358]:=",ExpressionUUID->"424f437d-38a4-9145-b6b6-1508229b7d8c"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 358, 364, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340905064308*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[358]:=",ExpressionUUID->"e793f45c-63f6-1a4c-a8b0-a632d0f13f9c"],
|
|
|
|
Cell[BoxData["6.028089553291301`"], "Output",
|
|
CellChangeTimes->{3.991340908920454*^9},
|
|
CellLabel->
|
|
"Out[358]=",ExpressionUUID->"ce1fa0ad-8b26-074b-acfe-1ea0d6a21afc"]
|
|
}, 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.991846603740141*^9},ExpressionUUID->"7ddfee1b-0897-3d44-810e-\
|
|
ee309c4e8981"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 359,
|
|
365, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340908954941*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[359]:=",ExpressionUUID->"36d155d3-589e-794d-9cf1-db14439adeb2"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 359,
|
|
366, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340908964924*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[359]:=",ExpressionUUID->"96775aa8-3123-8641-a422-091bbfbfb205"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \
|
|
\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\
|
|
6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 359,
|
|
367, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913409089739246`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[359]:=",ExpressionUUID->"bc2025f1-37fb-ab47-8425-81a033e22370"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 359, 368, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991340908981924*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[359]:=",ExpressionUUID->"be10e44a-c9da-4b44-b4a3-1024a86046c1"],
|
|
|
|
Cell[BoxData["8.528497747663296`"], "Output",
|
|
CellChangeTimes->{3.991340912767397*^9},
|
|
CellLabel->
|
|
"Out[359]=",ExpressionUUID->"d3ed87ff-6c98-ec45-a1b5-3155c267d9aa"]
|
|
}, 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.9918466101881027`*^9},ExpressionUUID->"edc0f744-d665-ee48-9e1d-\
|
|
32ecc25a02c4"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo
|
|
kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv
|
|
3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2
|
|
ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf
|
|
W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d
|
|
SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9
|
|
AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3
|
|
E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH
|
|
L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx
|
|
C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I
|
|
QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7
|
|
9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U
|
|
PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039
|
|
h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+
|
|
1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK
|
|
UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx
|
|
taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb
|
|
eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN
|
|
ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr
|
|
RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q
|
|
FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d
|
|
2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd
|
|
kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo
|
|
HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu
|
|
AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv
|
|
Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN
|
|
GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U
|
|
BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog
|
|
f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957
|
|
YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca
|
|
gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG
|
|
G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3
|
|
zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3
|
|
27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo
|
|
/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW
|
|
35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75
|
|
cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2
|
|
SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou
|
|
N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH
|
|
oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q
|
|
u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA
|
|
22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG
|
|
DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0
|
|
sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV
|
|
dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A
|
|
+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE
|
|
x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT
|
|
ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E
|
|
2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M
|
|
OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh
|
|
sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/
|
|
CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ
|
|
2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f
|
|
pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf
|
|
/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI
|
|
Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc
|
|
9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY
|
|
/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR
|
|
lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j
|
|
KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr
|
|
q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a
|
|
drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L
|
|
lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2
|
|
KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS
|
|
gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+
|
|
77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t
|
|
On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI
|
|
EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS
|
|
etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg
|
|
2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs
|
|
/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX
|
|
sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK
|
|
Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf
|
|
xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6
|
|
wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ
|
|
IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O
|
|
GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia
|
|
70x+Lkfh53XZ2uCv/w8uxqIW
|
|
"]]},
|
|
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:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo
|
|
kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv
|
|
3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2
|
|
ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf
|
|
W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d
|
|
SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9
|
|
AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3
|
|
E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH
|
|
L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx
|
|
C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I
|
|
QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7
|
|
9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U
|
|
PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039
|
|
h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+
|
|
1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK
|
|
UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx
|
|
taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb
|
|
eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN
|
|
ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr
|
|
RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q
|
|
FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d
|
|
2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd
|
|
kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo
|
|
HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu
|
|
AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv
|
|
Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN
|
|
GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U
|
|
BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog
|
|
f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957
|
|
YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca
|
|
gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG
|
|
G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3
|
|
zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3
|
|
27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo
|
|
/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW
|
|
35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75
|
|
cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2
|
|
SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou
|
|
N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH
|
|
oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q
|
|
u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA
|
|
22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG
|
|
DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0
|
|
sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV
|
|
dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A
|
|
+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE
|
|
x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT
|
|
ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E
|
|
2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M
|
|
OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh
|
|
sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/
|
|
CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ
|
|
2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f
|
|
pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf
|
|
/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI
|
|
Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc
|
|
9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY
|
|
/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR
|
|
lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j
|
|
KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr
|
|
q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a
|
|
drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L
|
|
lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2
|
|
KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS
|
|
gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+
|
|
77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t
|
|
On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI
|
|
EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS
|
|
etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg
|
|
2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs
|
|
/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX
|
|
sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK
|
|
Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf
|
|
xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6
|
|
wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ
|
|
IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O
|
|
GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia
|
|
70x+Lkfh53XZ2uCv/w8uxqIW
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.42228371308737755`},
|
|
"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.4222837130873766, 2.103798844286089}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.42228371308737755`},
|
|
"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:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo
|
|
kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv
|
|
3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2
|
|
ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf
|
|
W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d
|
|
SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9
|
|
AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3
|
|
E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH
|
|
L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx
|
|
C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I
|
|
QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7
|
|
9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U
|
|
PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039
|
|
h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+
|
|
1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK
|
|
UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx
|
|
taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb
|
|
eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN
|
|
ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr
|
|
RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q
|
|
FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d
|
|
2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd
|
|
kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo
|
|
HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu
|
|
AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv
|
|
Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN
|
|
GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U
|
|
BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog
|
|
f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957
|
|
YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca
|
|
gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG
|
|
G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3
|
|
zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3
|
|
27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo
|
|
/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW
|
|
35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75
|
|
cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2
|
|
SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou
|
|
N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH
|
|
oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q
|
|
u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA
|
|
22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG
|
|
DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0
|
|
sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV
|
|
dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A
|
|
+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE
|
|
x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT
|
|
ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E
|
|
2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M
|
|
OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh
|
|
sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/
|
|
CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ
|
|
2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f
|
|
pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf
|
|
/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI
|
|
Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc
|
|
9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY
|
|
/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR
|
|
lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j
|
|
KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr
|
|
q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a
|
|
drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L
|
|
lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2
|
|
KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS
|
|
gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+
|
|
77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t
|
|
On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI
|
|
EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS
|
|
etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg
|
|
2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs
|
|
/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX
|
|
sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK
|
|
Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf
|
|
xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6
|
|
wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ
|
|
IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O
|
|
GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia
|
|
70x+Lkfh53XZ2uCv/w8uxqIW
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.42228371308737755`},
|
|
"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.42228371308737755`},
|
|
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.4222837130873766, 2.103798844286089}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.9913411752988663`*^9},
|
|
CellLabel->
|
|
"Out[360]=",ExpressionUUID->"f43b713e-4442-024e-aa3a-d7907c7b2d57"]
|
|
}, 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", ",", "15"}], "}"}]}], "]"}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.9918466141799603`*^9},ExpressionUUID->"556a1eda-5f63-f94a-8981-\
|
|
af3901893679"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \
|
|
\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 361,
|
|
369, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913411755393047`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[361]:=",ExpressionUUID->"346e0290-ff74-c04a-98f4-4b3b3d9364c5"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \
|
|
\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \
|
|
to represent as a normalized machine number; precision may be lost.\"", 2,
|
|
361, 370, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913411755492897`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[361]:=",ExpressionUUID->"ce3310df-8528-a243-9163-01df1bba8789"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \
|
|
\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \
|
|
small to represent as a normalized machine number; precision may be lost.\"",
|
|
2, 361, 371, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991341175557289*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[361]:=",ExpressionUUID->"ac270026-fa69-2b44-8823-7a4a31d727b7"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 361, 372, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913411755664787`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[361]:=",ExpressionUUID->"bb15b9e5-873c-b443-b9aa-a9ce94c451b4"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK
|
|
FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE
|
|
hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux
|
|
IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B
|
|
8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K
|
|
ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS
|
|
jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78
|
|
CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs
|
|
KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC
|
|
owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55
|
|
9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV
|
|
MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3
|
|
h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC
|
|
Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp
|
|
9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ
|
|
oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt
|
|
GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN
|
|
62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw
|
|
rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3
|
|
M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS
|
|
dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ
|
|
Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ
|
|
bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys
|
|
CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp
|
|
YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF
|
|
Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc
|
|
mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn
|
|
Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM
|
|
PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u
|
|
4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K
|
|
R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l
|
|
F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y
|
|
6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q
|
|
FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF
|
|
0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9
|
|
dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG
|
|
jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU
|
|
s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq
|
|
KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g
|
|
aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx
|
|
0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ
|
|
bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4
|
|
emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY
|
|
+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix
|
|
Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK
|
|
ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv
|
|
HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt
|
|
pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR
|
|
URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp
|
|
/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K
|
|
MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh
|
|
VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi
|
|
Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i
|
|
bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys
|
|
Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf
|
|
kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9
|
|
mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+
|
|
emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X
|
|
PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC
|
|
5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr
|
|
ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk
|
|
8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr
|
|
qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO
|
|
6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY
|
|
ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6
|
|
w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m
|
|
Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb
|
|
eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo
|
|
/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm
|
|
N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx
|
|
4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq
|
|
QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya
|
|
LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF
|
|
jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm
|
|
m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8
|
|
d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX
|
|
WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D
|
|
0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD
|
|
uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk
|
|
u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT
|
|
V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6
|
|
ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT
|
|
PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9
|
|
ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q
|
|
bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA
|
|
OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC
|
|
oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8
|
|
YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL
|
|
/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ=
|
|
"]]},
|
|
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:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK
|
|
FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE
|
|
hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux
|
|
IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B
|
|
8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K
|
|
ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS
|
|
jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78
|
|
CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs
|
|
KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC
|
|
owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55
|
|
9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV
|
|
MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3
|
|
h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC
|
|
Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp
|
|
9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ
|
|
oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt
|
|
GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN
|
|
62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw
|
|
rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3
|
|
M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS
|
|
dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ
|
|
Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ
|
|
bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys
|
|
CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp
|
|
YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF
|
|
Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc
|
|
mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn
|
|
Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM
|
|
PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u
|
|
4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K
|
|
R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l
|
|
F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y
|
|
6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q
|
|
FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF
|
|
0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9
|
|
dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG
|
|
jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU
|
|
s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq
|
|
KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g
|
|
aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx
|
|
0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ
|
|
bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4
|
|
emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY
|
|
+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix
|
|
Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK
|
|
ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv
|
|
HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt
|
|
pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR
|
|
URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp
|
|
/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K
|
|
MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh
|
|
VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi
|
|
Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i
|
|
bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys
|
|
Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf
|
|
kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9
|
|
mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+
|
|
emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X
|
|
PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC
|
|
5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr
|
|
ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk
|
|
8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr
|
|
qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO
|
|
6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY
|
|
ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6
|
|
w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m
|
|
Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb
|
|
eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo
|
|
/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm
|
|
N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx
|
|
4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq
|
|
QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya
|
|
LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF
|
|
jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm
|
|
m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8
|
|
d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX
|
|
WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D
|
|
0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD
|
|
uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk
|
|
u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT
|
|
V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6
|
|
ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT
|
|
PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9
|
|
ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q
|
|
bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA
|
|
OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC
|
|
oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8
|
|
YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL
|
|
/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ=
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 15}, {0., 0.1261051971575712}},
|
|
"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.1261051971575712}},
|
|
"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:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK
|
|
FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE
|
|
hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux
|
|
IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B
|
|
8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K
|
|
ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS
|
|
jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78
|
|
CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs
|
|
KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC
|
|
owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55
|
|
9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV
|
|
MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3
|
|
h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC
|
|
Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp
|
|
9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ
|
|
oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt
|
|
GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN
|
|
62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw
|
|
rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3
|
|
M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS
|
|
dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ
|
|
Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ
|
|
bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys
|
|
CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp
|
|
YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF
|
|
Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc
|
|
mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn
|
|
Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM
|
|
PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u
|
|
4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K
|
|
R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l
|
|
F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y
|
|
6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q
|
|
FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF
|
|
0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9
|
|
dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG
|
|
jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU
|
|
s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq
|
|
KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g
|
|
aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx
|
|
0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ
|
|
bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4
|
|
emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY
|
|
+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix
|
|
Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK
|
|
ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv
|
|
HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt
|
|
pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR
|
|
URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp
|
|
/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K
|
|
MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh
|
|
VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi
|
|
Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i
|
|
bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys
|
|
Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf
|
|
kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9
|
|
mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+
|
|
emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X
|
|
PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC
|
|
5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr
|
|
ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk
|
|
8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr
|
|
qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO
|
|
6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY
|
|
ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6
|
|
w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m
|
|
Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb
|
|
eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo
|
|
/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm
|
|
N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx
|
|
4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq
|
|
QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya
|
|
LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF
|
|
jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm
|
|
m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8
|
|
d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX
|
|
WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D
|
|
0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD
|
|
uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk
|
|
u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT
|
|
V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6
|
|
ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT
|
|
PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9
|
|
ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q
|
|
bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA
|
|
OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC
|
|
oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8
|
|
YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL
|
|
/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ=
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 15}, {0., 0.1261051971575712}},
|
|
"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.1261051971575712}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.9913414579436264`*^9},
|
|
CellLabel->
|
|
"Out[361]=",ExpressionUUID->"787ac492-4e0a-fd43-b6f7-df921f726ea4"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Show", "[",
|
|
RowBox[{"x", ",", "xx"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, {
|
|
3.991795329890896*^9,
|
|
3.99179533223897*^9}},ExpressionUUID->"adc3c3bb-baff-7c45-bc8f-\
|
|
885e51cde7ff"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"Show", "gcomb",
|
|
"\"Could not combine the graphics objects in \
|
|
\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \
|
|
GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \
|
|
Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \
|
|
List[List[], List[]]], List[Rule[DisplayFunction, Identity], \
|
|
Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \
|
|
Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \
|
|
Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \
|
|
Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \
|
|
Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \
|
|
List[List[None, None], List[None, None]]], Rule[FrameTicks, \
|
|
List[List[Automatic, Automatic], List[Automatic, Automatic]]], \
|
|
Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \
|
|
Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \
|
|
List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \
|
|
Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \
|
|
Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \
|
|
Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \
|
|
AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \
|
|
List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
|
|
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
|
|
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
|
|
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
|
|
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \
|
|
Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \
|
|
\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \
|
|
Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\
|
|
\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \
|
|
Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \
|
|
List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \
|
|
52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \
|
|
Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \
|
|
List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \
|
|
Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879,
|
|
"Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[532]:=",ExpressionUUID->"db9cfc30-6083-5745-956a-039ca4224774"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Show", "[",
|
|
RowBox[{"x130", ",",
|
|
GraphicsBox[{{},
|
|
InterpretationBox[{
|
|
TagBox[
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
|
|
0.011000000000000001`], AbsoluteThickness[2],
|
|
PointBox[CompressedData["
|
|
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
|
|
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
|
|
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
|
|
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
|
|
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
|
|
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
|
|
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
|
|
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
|
|
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
|
|
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
|
|
"]]},
|
|
Annotation[#, "Charting`Private`Tag#1"]& ],
|
|
{"WolframDynamicHighlight", <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}],
|
|
StyleBox[
|
|
DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {},
|
|
Slot["HighlightElements"],
|
|
Slot["LayoutOptions"],
|
|
Slot["Meta"],
|
|
Charting`HighlightActionFunction["DynamicHighlight", {{
|
|
Annotation[{
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Point[CompressedData["
|
|
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
|
|
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
|
|
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
|
|
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
|
|
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
|
|
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
|
|
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
|
|
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
|
|
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
|
|
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
|
|
"]]}, "Charting`Private`Tag#1"]}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 52.}, {0, 0.120683}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio},
|
|
"Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" ->
|
|
GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" ->
|
|
False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {},
|
|
"Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 52.}, {0, 0.120683}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio},
|
|
"Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" ->
|
|
GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" ->
|
|
False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {},
|
|
"Function" -> ListPlot, "GroupHighlight" -> False|>|>],
|
|
ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
|
|
4.503599627370496*^15, -4.503599627370496*^15}}],
|
|
Selectable->False]},
|
|
Annotation[{{
|
|
Annotation[{
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Point[CompressedData["
|
|
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
|
|
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
|
|
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
|
|
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
|
|
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
|
|
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
|
|
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
|
|
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
|
|
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
|
|
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
|
|
"]]}, "Charting`Private`Tag#1"]}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}},
|
|
"Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1),
|
|
"DefaultStyle" -> {
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
ListPlot, "GroupHighlight" -> False|>|>,
|
|
"DynamicHighlight"]], {{}, {}}},
|
|
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
|
|
Axes->{True, True},
|
|
AxesLabel->{None, None},
|
|
AxesOrigin->{0, 0},
|
|
DisplayFunction->Identity,
|
|
Frame->{{False, False}, {False, False}},
|
|
FrameLabel->{{None, None}, {None, None}},
|
|
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
|
|
GridLines->{None, None},
|
|
GridLinesStyle->Directive[
|
|
GrayLevel[0.5, 0.4]],
|
|
Method->{
|
|
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic,
|
|
"DefaultGraphicsInteraction" -> {
|
|
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
|
|
"Effects" -> {
|
|
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
|
|
"Droplines" -> {
|
|
"freeformCursorMode" -> True,
|
|
"placement" -> {"x" -> "All", "y" -> "None"}}}},
|
|
"DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
|
|
Directive[
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.880722, 0.611041, 0.142051],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.560181, 0.691569, 0.194885],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.922526, 0.385626, 0.209179],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.528488, 0.470624, 0.701351],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.772079, 0.431554, 0.102387],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.363898, 0.618501, 0.782349],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[1, 0.75, 0],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.647624, 0.37816, 0.614037],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.571589, 0.586483, 0.],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.915, 0.3325, 0.2125],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.736782672705901, 0.358, 0.5030266573755369],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965],
|
|
AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02],
|
|
"PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05],
|
|
"OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint",
|
|
"HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True,
|
|
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& )}},
|
|
PlotRange->{{0, 52.}, {0, 0.120683}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.02],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]}], "]"}]], "Output",
|
|
CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}},
|
|
CellLabel->
|
|
"Out[532]=",ExpressionUUID->"31a2c0a3-c39f-8a4d-bdef-7b36360aabf7"]
|
|
}, 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[365]:=",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \
|
|
\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\
|
|
734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \
|
|
too small to represent as a normalized machine number; precision may be lost.\
|
|
\"", 2, 365, 381, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913423358439445`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[365]:=",ExpressionUUID->"ff5f87ad-0547-2e4d-89ac-2a19dabd294e"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \
|
|
\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\
|
|
116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \
|
|
is too small to represent as a normalized machine number; precision may be \
|
|
lost.\"", 2, 365, 382, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991342335853943*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[365]:=",ExpressionUUID->"4f2b71d6-333a-cf47-9307-2421af7d6535"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \
|
|
\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\
|
|
2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\
|
|
\\) is too small to represent as a normalized machine number; precision may \
|
|
be lost.\"", 2, 365, 383, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991342335861944*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[365]:=",ExpressionUUID->"d1d04bbb-5842-0645-bad0-4769b073ee9a"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 365, 384, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991342335870945*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[365]:=",ExpressionUUID->"6eb43be6-bae6-ed4a-aaaf-c88bf605b97b"],
|
|
|
|
Cell[BoxData["12.5536549879565`"], "Output",
|
|
CellChangeTimes->{3.9913423425170345`*^9},
|
|
CellLabel->
|
|
"Out[365]=",ExpressionUUID->"edccccc4-7997-b54a-b45b-3f22383f2466"]
|
|
}, 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.9918466382952557`*^9,
|
|
3.9918466432862854`*^9}},ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-\
|
|
d4efe503e761"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 366,
|
|
385, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913423425545177`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[366]:=",ExpressionUUID->"6b4a6697-4d78-6348-aa33-09faf2e911d5"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 366,
|
|
386, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991342342564516*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[366]:=",ExpressionUUID->"ff3f230d-c2f3-0a4b-92bb-4d06b5d3791d"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \
|
|
\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\
|
|
6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 366,
|
|
387, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913423425725136`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[366]:=",ExpressionUUID->"ef73945b-c6bc-b44c-a3fe-a5985e6926fb"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 366, 388, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913423425815163`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[366]:=",ExpressionUUID->"0dbccea2-a398-8e4f-96d9-c32a7f87f538"],
|
|
|
|
Cell[BoxData["2.904399821349581`"], "Output",
|
|
CellChangeTimes->{3.9913423499055786`*^9},
|
|
CellLabel->
|
|
"Out[366]=",ExpressionUUID->"288e2dce-c937-8742-9640-a3e8f057e389"]
|
|
}, 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.9918466470672035`*^9,
|
|
3.991846650208416*^9}},ExpressionUUID->"43c7013a-a6e2-1a44-9690-\
|
|
1cefd2c28187"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 367,
|
|
389, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913423499435787`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[367]:=",ExpressionUUID->"f13edf30-029d-f44b-80aa-7454fa8a48eb"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 367,
|
|
390, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991342349953579*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[367]:=",ExpressionUUID->"9d4bffff-d8ba-5a4b-ba27-25e0bcf141ed"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \
|
|
\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\
|
|
6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 367,
|
|
391, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913423499625797`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[367]:=",ExpressionUUID->"03541b7d-a305-9542-b64e-53c12d61a33e"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 367, 392, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913423499715805`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[367]:=",ExpressionUUID->"1c28a402-6927-1f4a-8631-2d356954a732"],
|
|
|
|
Cell[BoxData["9.928941323789857`"], "Output",
|
|
CellChangeTimes->{3.991342356382967*^9},
|
|
CellLabel->
|
|
"Out[367]=",ExpressionUUID->"f80ab114-db4a-5644-a33e-f2edc512069c"]
|
|
}, 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.99184665401457*^9,
|
|
3.991846657234188*^9}},ExpressionUUID->"41fb449c-01a0-ed48-856e-\
|
|
cc313bd0a6c7"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 368,
|
|
393, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991342356420965*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[368]:=",ExpressionUUID->"00b8f68b-770c-674c-8948-37aa9dbeba3b"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 368,
|
|
394, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991342356431965*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[368]:=",ExpressionUUID->"8193dcf9-288a-d04f-81d0-67db9580cad4"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \
|
|
\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\
|
|
6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 368,
|
|
395, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991342356441965*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[368]:=",ExpressionUUID->"f07c17e3-2923-c44f-8e3c-8f3ec985f07f"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 368, 396, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991342356450968*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[368]:=",ExpressionUUID->"6165087b-71c6-5242-84a4-b7f2ddeda33f"],
|
|
|
|
Cell[BoxData["19.874153108015193`"], "Output",
|
|
CellChangeTimes->{3.9913423600715523`*^9},
|
|
CellLabel->
|
|
"Out[368]=",ExpressionUUID->"f6c86172-b23f-f047-b574-633c44f7d8cf"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
FractionBox["q",
|
|
SqrtBox[
|
|
RowBox[{"S1", "*", "S2"}]]]], "Input",
|
|
CellChangeTimes->{{3.991846664151518*^9,
|
|
3.991846668968689*^9}},ExpressionUUID->"63e2fa1e-7c56-c749-a270-\
|
|
c9c703386fca"],
|
|
|
|
Cell[BoxData["0.2067571864462191`"], "Output",
|
|
CellChangeTimes->{3.9913423601046352`*^9},
|
|
CellLabel->
|
|
"Out[369]=",ExpressionUUID->"61a3e242-6b8f-6c43-96c1-0f461f3aa111"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Clear", "[",
|
|
RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.991846671829691*^9, 3.991846673735302*^9},
|
|
3.9919237989916477`*^9},ExpressionUUID->"8b2e971d-5760-5e43-92fb-\
|
|
a0baf224e1e6"],
|
|
|
|
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[371]:=",ExpressionUUID->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"],
|
|
|
|
Cell[BoxData["29.129739599983825`"], "Output",
|
|
CellChangeTimes->{3.9913423601345863`*^9},
|
|
CellLabel->
|
|
"Out[371]=",ExpressionUUID->"73bada1a-f8bf-544a-9ef4-a0ed1cad3a20"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hb", "=",
|
|
SqrtBox[
|
|
FractionBox["Kb", "Qb1"]]}]], "Input",
|
|
CellLabel->
|
|
"In[373]:=",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"],
|
|
|
|
Cell[BoxData["0.6950071373045505`"], "Output",
|
|
CellChangeTimes->{3.9913423601709976`*^9},
|
|
CellLabel->
|
|
"Out[373]=",ExpressionUUID->"a055216b-2938-334b-91b2-e1767bdc02c1"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cb", "=",
|
|
FractionBox[
|
|
RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",
|
|
CellLabel->
|
|
"In[376]:=",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"],
|
|
|
|
Cell[BoxData["20.245376929811762`"], "Output",
|
|
CellChangeTimes->{3.9913423602320137`*^9},
|
|
CellLabel->
|
|
"Out[376]=",ExpressionUUID->"1cb3b090-b3a4-5041-90d2-cd331e939555"]
|
|
}, 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[377]:=",ExpressionUUID->"26b3e9a1-c12d-c340-b102-39e3418b2423"],
|
|
|
|
Cell[BoxData["0.02003459702393596`"], "Output",
|
|
CellChangeTimes->{3.991342360260002*^9},
|
|
CellLabel->
|
|
"Out[377]=",ExpressionUUID->"d87c8c95-b548-7743-a9ae-ba00333bd7d5"]
|
|
}, 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[378]:=",ExpressionUUID->"f1c368f7-48c1-ae41-985d-84d539f430bf"],
|
|
|
|
Cell[BoxData["6.261157591052328`"], "Output",
|
|
CellChangeTimes->{3.9913423603598785`*^9},
|
|
CellLabel->
|
|
"Out[378]=",ExpressionUUID->"5c166658-06fc-9646-bfdb-835a116404d0"]
|
|
}, 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[379]:=",ExpressionUUID->"8303e334-ad11-5445-af0f-63c02c371294"],
|
|
|
|
Cell[BoxData["0.010388932679900494`"], "Output",
|
|
CellChangeTimes->{3.991342360375868*^9},
|
|
CellLabel->
|
|
"Out[379]=",ExpressionUUID->"f5459de9-bc9d-bb43-82ac-bbb255c0bb6b"]
|
|
}, 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[380]:=",ExpressionUUID->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"],
|
|
|
|
Cell[BoxData["8.694797556550151`"], "Output",
|
|
CellChangeTimes->{3.991342360471882*^9},
|
|
CellLabel->
|
|
"Out[380]=",ExpressionUUID->"7547cec8-bbb9-474e-a326-2aa5b5d0ea0e"]
|
|
}, 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[381]:=",ExpressionUUID->"d36c329f-0f97-3149-b3e7-38d2ece236d0"],
|
|
|
|
Cell[BoxData["0.6154782275967796`"], "Output",
|
|
CellChangeTimes->{3.991342360486868*^9},
|
|
CellLabel->
|
|
"Out[381]=",ExpressionUUID->"67a86a49-0510-5043-b0e4-0c9fbd007328"]
|
|
}, 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[382]:=",ExpressionUUID->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"],
|
|
|
|
Cell[BoxData["0.3845217724032204`"], "Output",
|
|
CellChangeTimes->{3.9913423605138645`*^9},
|
|
CellLabel->
|
|
"Out[382]=",ExpressionUUID->"4375608b-4469-c645-b9da-2341df1da6f3"]
|
|
}, 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[383]:=",ExpressionUUID->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"],
|
|
|
|
Cell[BoxData["0.2366647789511063`"], "Output",
|
|
CellChangeTimes->{3.9913423605448647`*^9},
|
|
CellLabel->
|
|
"Out[383]=",ExpressionUUID->"d85e146c-555e-ff43-a64b-dc61481e05ba"]
|
|
}, 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.9918466934711*^9},ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \
|
|
\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\
|
|
445181972878563737600000000000000000000\\\"]\\) is too small to represent as \
|
|
a normalized machine number; precision may be lost.\"", 2, 384, 397,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991342360571863*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[384]:=",ExpressionUUID->"0b50a344-9b6a-6f43-a31a-1906b6b83303"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 384, 398,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913423605818653`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[384]:=",ExpressionUUID->"a61f676b-80fb-564e-91e4-f0d82f0e9781"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 384,
|
|
399, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913423605898647`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[384]:=",ExpressionUUID->"6e5727c3-e53a-0d47-882d-51da7563867b"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 384, 400, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913423605988636`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[384]:=",ExpressionUUID->"d4019ad4-a9c4-064b-945e-f11a073e5bac"],
|
|
|
|
Cell[BoxData["6.261157591052324`"], "Output",
|
|
CellChangeTimes->{3.9913423642473736`*^9},
|
|
CellLabel->
|
|
"Out[384]=",ExpressionUUID->"c8ba2a53-8163-c84b-820e-bd4c6c80df97"]
|
|
}, 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.9918466985968094`*^9},ExpressionUUID->"61250ade-2a8a-1a4d-bb58-\
|
|
5bb7aa60c04a"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \
|
|
\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\
|
|
445181972878563737600000000000000000000\\\"]\\) is too small to represent as \
|
|
a normalized machine number; precision may be lost.\"", 2, 385, 401,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991342364284378*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[385]:=",ExpressionUUID->"337843af-226f-af40-a4c7-0e7c7d9ce578"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 385, 402,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913423642935734`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[385]:=",ExpressionUUID->"5caa0d49-db8e-7047-81dc-724c9a57223e"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 385,
|
|
403, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991342364302574*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[385]:=",ExpressionUUID->"89243390-869b-ab4b-bd60-81c23885cae2"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 385, 404, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913423643105717`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[385]:=",ExpressionUUID->"7212133e-ab68-b54b-b1d5-ecb5b003feb9"],
|
|
|
|
Cell[BoxData["8.694797556550144`"], "Output",
|
|
CellChangeTimes->{3.9913423679416714`*^9},
|
|
CellLabel->
|
|
"Out[385]=",ExpressionUUID->"68a706fc-6e54-074e-91f9-e60e01512997"]
|
|
}, 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.991846701939392*^9},ExpressionUUID->"020bdd6e-add3-0a46-9b39-\
|
|
04b7ffae8470"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C
|
|
qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P
|
|
P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC
|
|
usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx
|
|
y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM
|
|
UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6
|
|
4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1
|
|
LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4
|
|
LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ
|
|
tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N
|
|
AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T
|
|
HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF
|
|
K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj
|
|
T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt
|
|
q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US
|
|
zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS
|
|
fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ
|
|
Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa
|
|
eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t
|
|
r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB
|
|
R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX
|
|
ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk
|
|
7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i
|
|
4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr
|
|
1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr
|
|
rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd
|
|
lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc
|
|
8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd
|
|
VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX
|
|
lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc
|
|
2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K
|
|
BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB
|
|
GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c
|
|
hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1
|
|
DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/
|
|
xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr
|
|
PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4
|
|
qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U
|
|
DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1
|
|
gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf
|
|
7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6
|
|
4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG
|
|
u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6
|
|
xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm
|
|
YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U
|
|
Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L
|
|
3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi
|
|
OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb
|
|
+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj
|
|
9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw
|
|
kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf
|
|
sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz
|
|
oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb
|
|
sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P
|
|
iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV
|
|
hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy
|
|
53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU
|
|
hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz
|
|
2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02
|
|
ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz
|
|
5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ
|
|
sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh
|
|
ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00
|
|
TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C
|
|
zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf
|
|
YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR
|
|
raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk
|
|
TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ
|
|
G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR
|
|
p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u
|
|
bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT
|
|
wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e
|
|
y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8
|
|
pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF
|
|
U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei
|
|
Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef
|
|
kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8=
|
|
|
|
"]]},
|
|
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:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C
|
|
qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P
|
|
P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC
|
|
usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx
|
|
y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM
|
|
UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6
|
|
4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1
|
|
LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4
|
|
LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ
|
|
tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N
|
|
AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T
|
|
HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF
|
|
K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj
|
|
T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt
|
|
q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US
|
|
zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS
|
|
fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ
|
|
Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa
|
|
eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t
|
|
r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB
|
|
R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX
|
|
ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk
|
|
7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i
|
|
4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr
|
|
1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr
|
|
rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd
|
|
lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc
|
|
8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd
|
|
VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX
|
|
lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc
|
|
2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K
|
|
BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB
|
|
GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c
|
|
hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1
|
|
DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/
|
|
xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr
|
|
PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4
|
|
qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U
|
|
DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1
|
|
gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf
|
|
7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6
|
|
4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG
|
|
u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6
|
|
xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm
|
|
YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U
|
|
Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L
|
|
3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi
|
|
OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb
|
|
+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj
|
|
9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw
|
|
kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf
|
|
sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz
|
|
oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb
|
|
sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P
|
|
iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV
|
|
hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy
|
|
53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU
|
|
hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz
|
|
2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02
|
|
ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz
|
|
5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ
|
|
sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh
|
|
ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00
|
|
TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C
|
|
zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf
|
|
YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR
|
|
raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk
|
|
TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ
|
|
G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR
|
|
p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u
|
|
bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT
|
|
wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e
|
|
y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8
|
|
pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF
|
|
U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei
|
|
Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef
|
|
kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8=
|
|
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.5012481131960838,
|
|
1.8440472181603567`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.5012481131960849},
|
|
"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.5012481131960838,
|
|
1.8440472181603567`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.5012481131960849},
|
|
"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:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C
|
|
qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P
|
|
P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC
|
|
usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx
|
|
y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM
|
|
UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6
|
|
4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1
|
|
LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4
|
|
LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ
|
|
tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N
|
|
AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T
|
|
HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF
|
|
K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj
|
|
T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt
|
|
q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US
|
|
zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS
|
|
fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ
|
|
Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa
|
|
eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t
|
|
r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB
|
|
R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX
|
|
ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk
|
|
7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i
|
|
4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr
|
|
1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr
|
|
rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd
|
|
lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc
|
|
8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd
|
|
VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX
|
|
lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc
|
|
2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K
|
|
BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB
|
|
GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c
|
|
hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1
|
|
DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/
|
|
xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr
|
|
PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4
|
|
qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U
|
|
DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1
|
|
gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf
|
|
7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6
|
|
4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG
|
|
u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6
|
|
xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm
|
|
YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U
|
|
Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L
|
|
3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi
|
|
OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb
|
|
+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj
|
|
9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw
|
|
kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf
|
|
sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz
|
|
oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb
|
|
sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P
|
|
iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV
|
|
hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy
|
|
53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU
|
|
hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz
|
|
2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02
|
|
ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz
|
|
5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ
|
|
sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh
|
|
ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00
|
|
TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C
|
|
zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf
|
|
YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR
|
|
raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk
|
|
TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ
|
|
G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR
|
|
p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u
|
|
bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT
|
|
wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e
|
|
y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8
|
|
pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF
|
|
U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei
|
|
Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef
|
|
kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8=
|
|
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.5012481131960849},
|
|
"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.5012481131960849},
|
|
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.5012481131960838, 1.8440472181603567`}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.991342629715925*^9},
|
|
CellLabel->
|
|
"Out[386]=",ExpressionUUID->"24c99615-29ec-434a-9120-6a0e664bd2c0"]
|
|
}, 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", ",", "15"}], "}"}]}], "]"}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.9918467058861084`*^9},ExpressionUUID->"5cbca01a-701c-5744-b740-\
|
|
3bf6288a42b7"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.03396961278019`*^-273\\\", \
|
|
\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 387,
|
|
405, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913426299467087`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[387]:=",ExpressionUUID->"012afcdf-095f-f547-ae49-5e5eab6ac53d"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \
|
|
\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \
|
|
to represent as a normalized machine number; precision may be lost.\"", 2,
|
|
387, 406, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991342629956772*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[387]:=",ExpressionUUID->"efe4240f-cfb2-1544-b97a-0d31a46a5acc"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \
|
|
\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \
|
|
small to represent as a normalized machine number; precision may be lost.\"",
|
|
2, 387, 407, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991342629966284*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[387]:=",ExpressionUUID->"f00a9c55-0183-344a-88dd-02375b09fbdb"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 387, 408, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913426299753895`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[387]:=",ExpressionUUID->"948ef9a9-e05b-a247-a398-dab2b9b01e6c"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL
|
|
FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg
|
|
ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX
|
|
BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ
|
|
e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL
|
|
i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx
|
|
lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK
|
|
ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR
|
|
PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU
|
|
6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj
|
|
7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ
|
|
b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5
|
|
uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr
|
|
tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY
|
|
sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ
|
|
FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl
|
|
UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN
|
|
L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk
|
|
3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz
|
|
SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt
|
|
KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y
|
|
9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS
|
|
GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS
|
|
cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR
|
|
kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0
|
|
tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4
|
|
SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj
|
|
Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw
|
|
KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx
|
|
jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB
|
|
dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6
|
|
PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm
|
|
syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet
|
|
/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70
|
|
XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx
|
|
pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT
|
|
fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L
|
|
Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm
|
|
lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl
|
|
xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9
|
|
SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs
|
|
ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B
|
|
Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y
|
|
xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK
|
|
8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS
|
|
k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI
|
|
fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M
|
|
aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF
|
|
hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt
|
|
GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi
|
|
mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm
|
|
LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF
|
|
5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF
|
|
V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu
|
|
DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL
|
|
mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl
|
|
9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/
|
|
04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1
|
|
Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv
|
|
CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ
|
|
Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f
|
|
hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo
|
|
+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X
|
|
hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l
|
|
Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw
|
|
qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U
|
|
eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi
|
|
4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN
|
|
ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX
|
|
B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M
|
|
5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0
|
|
cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj
|
|
66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3
|
|
VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US
|
|
FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh
|
|
kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78
|
|
2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca
|
|
+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG
|
|
E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O
|
|
x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy
|
|
+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4
|
|
2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak
|
|
vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo
|
|
d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC
|
|
Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd
|
|
sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj
|
|
Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr
|
|
ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w==
|
|
"]]},
|
|
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:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL
|
|
FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg
|
|
ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX
|
|
BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ
|
|
e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL
|
|
i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx
|
|
lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK
|
|
ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR
|
|
PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU
|
|
6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj
|
|
7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ
|
|
b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5
|
|
uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr
|
|
tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY
|
|
sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ
|
|
FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl
|
|
UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN
|
|
L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk
|
|
3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz
|
|
SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt
|
|
KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y
|
|
9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS
|
|
GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS
|
|
cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR
|
|
kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0
|
|
tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4
|
|
SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj
|
|
Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw
|
|
KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx
|
|
jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB
|
|
dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6
|
|
PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm
|
|
syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet
|
|
/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70
|
|
XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx
|
|
pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT
|
|
fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L
|
|
Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm
|
|
lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl
|
|
xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9
|
|
SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs
|
|
ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B
|
|
Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y
|
|
xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK
|
|
8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS
|
|
k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI
|
|
fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M
|
|
aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF
|
|
hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt
|
|
GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi
|
|
mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm
|
|
LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF
|
|
5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF
|
|
V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu
|
|
DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL
|
|
mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl
|
|
9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/
|
|
04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1
|
|
Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv
|
|
CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ
|
|
Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f
|
|
hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo
|
|
+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X
|
|
hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l
|
|
Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw
|
|
qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U
|
|
eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi
|
|
4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN
|
|
ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX
|
|
B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M
|
|
5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0
|
|
cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj
|
|
66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3
|
|
VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US
|
|
FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh
|
|
kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78
|
|
2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca
|
|
+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG
|
|
E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O
|
|
x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy
|
|
+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4
|
|
2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak
|
|
vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo
|
|
d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC
|
|
Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd
|
|
sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj
|
|
Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr
|
|
ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}},
|
|
"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.12141098789525176`}},
|
|
"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:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL
|
|
FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg
|
|
ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX
|
|
BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ
|
|
e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL
|
|
i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx
|
|
lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK
|
|
ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR
|
|
PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU
|
|
6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj
|
|
7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ
|
|
b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5
|
|
uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr
|
|
tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY
|
|
sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ
|
|
FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl
|
|
UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN
|
|
L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk
|
|
3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz
|
|
SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt
|
|
KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y
|
|
9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS
|
|
GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS
|
|
cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR
|
|
kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0
|
|
tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4
|
|
SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj
|
|
Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw
|
|
KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx
|
|
jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB
|
|
dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6
|
|
PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm
|
|
syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet
|
|
/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70
|
|
XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx
|
|
pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT
|
|
fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L
|
|
Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm
|
|
lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl
|
|
xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9
|
|
SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs
|
|
ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B
|
|
Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y
|
|
xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK
|
|
8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS
|
|
k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI
|
|
fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M
|
|
aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF
|
|
hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt
|
|
GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi
|
|
mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm
|
|
LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF
|
|
5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF
|
|
V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu
|
|
DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL
|
|
mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl
|
|
9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/
|
|
04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1
|
|
Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv
|
|
CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ
|
|
Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f
|
|
hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo
|
|
+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X
|
|
hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l
|
|
Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw
|
|
qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U
|
|
eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi
|
|
4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN
|
|
ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX
|
|
B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M
|
|
5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0
|
|
cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj
|
|
66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3
|
|
VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US
|
|
FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh
|
|
kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78
|
|
2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca
|
|
+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG
|
|
E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O
|
|
x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy
|
|
+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4
|
|
2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak
|
|
vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo
|
|
d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC
|
|
Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd
|
|
sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj
|
|
Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr
|
|
ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}},
|
|
"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.12141098789525176`}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.9913429049348164`*^9},
|
|
CellLabel->
|
|
"Out[387]=",ExpressionUUID->"3cb194f4-3fee-2848-822d-18b4cc4f12ed"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Show", "[",
|
|
RowBox[{"x", ",", "xx"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, {
|
|
3.991795329890896*^9,
|
|
3.99179533223897*^9}},ExpressionUUID->"dfd70d8f-49d3-a04f-a31c-\
|
|
55e81ecceef1"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"Show", "gcomb",
|
|
"\"Could not combine the graphics objects in \
|
|
\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \
|
|
GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \
|
|
Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \
|
|
List[List[], List[]]], List[Rule[DisplayFunction, Identity], \
|
|
Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \
|
|
Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \
|
|
Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \
|
|
Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \
|
|
Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \
|
|
List[List[None, None], List[None, None]]], Rule[FrameTicks, \
|
|
List[List[Automatic, Automatic], List[Automatic, Automatic]]], \
|
|
Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \
|
|
Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \
|
|
List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \
|
|
Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \
|
|
Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \
|
|
Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \
|
|
AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \
|
|
List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
|
|
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
|
|
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
|
|
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
|
|
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \
|
|
Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \
|
|
\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \
|
|
Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\
|
|
\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \
|
|
Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \
|
|
List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \
|
|
52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \
|
|
Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \
|
|
List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \
|
|
Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879,
|
|
"Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[532]:=",ExpressionUUID->"1aca1256-d868-9b45-945c-81093b7e2535"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Show", "[",
|
|
RowBox[{"x130", ",",
|
|
GraphicsBox[{{},
|
|
InterpretationBox[{
|
|
TagBox[
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
|
|
0.011000000000000001`], AbsoluteThickness[2],
|
|
PointBox[CompressedData["
|
|
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
|
|
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
|
|
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
|
|
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
|
|
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
|
|
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
|
|
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
|
|
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
|
|
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
|
|
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
|
|
"]]},
|
|
Annotation[#, "Charting`Private`Tag#1"]& ],
|
|
{"WolframDynamicHighlight", <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}],
|
|
StyleBox[
|
|
DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {},
|
|
Slot["HighlightElements"],
|
|
Slot["LayoutOptions"],
|
|
Slot["Meta"],
|
|
Charting`HighlightActionFunction["DynamicHighlight", {{
|
|
Annotation[{
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Point[CompressedData["
|
|
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
|
|
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
|
|
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
|
|
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
|
|
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
|
|
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
|
|
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
|
|
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
|
|
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
|
|
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
|
|
"]]}, "Charting`Private`Tag#1"]}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 52.}, {0, 0.120683}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio},
|
|
"Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" ->
|
|
GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" ->
|
|
False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {},
|
|
"Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 52.}, {0, 0.120683}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio},
|
|
"Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" ->
|
|
GoldenRatio^(-1), "DefaultStyle" -> {
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" ->
|
|
False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {},
|
|
"Function" -> ListPlot, "GroupHighlight" -> False|>|>],
|
|
ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
|
|
4.503599627370496*^15, -4.503599627370496*^15}}],
|
|
Selectable->False]},
|
|
Annotation[{{
|
|
Annotation[{
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Point[CompressedData["
|
|
1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV
|
|
1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y
|
|
F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH
|
|
8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB
|
|
8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ
|
|
vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5
|
|
5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f
|
|
Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT
|
|
UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc
|
|
0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ==
|
|
"]]}, "Charting`Private`Tag#1"]}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}},
|
|
"Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1),
|
|
"DefaultStyle" -> {
|
|
Directive[
|
|
PointSize[0.011000000000000001`],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
ListPlot, "GroupHighlight" -> False|>|>,
|
|
"DynamicHighlight"]], {{}, {}}},
|
|
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
|
|
Axes->{True, True},
|
|
AxesLabel->{None, None},
|
|
AxesOrigin->{0, 0},
|
|
DisplayFunction->Identity,
|
|
Frame->{{False, False}, {False, False}},
|
|
FrameLabel->{{None, None}, {None, None}},
|
|
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
|
|
GridLines->{None, None},
|
|
GridLinesStyle->Directive[
|
|
GrayLevel[0.5, 0.4]],
|
|
Method->{
|
|
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic,
|
|
"DefaultGraphicsInteraction" -> {
|
|
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
|
|
"Effects" -> {
|
|
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
|
|
"Droplines" -> {
|
|
"freeformCursorMode" -> True,
|
|
"placement" -> {"x" -> "All", "y" -> "None"}}}},
|
|
"DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
|
|
Directive[
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.880722, 0.611041, 0.142051],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.560181, 0.691569, 0.194885],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.922526, 0.385626, 0.209179],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.528488, 0.470624, 0.701351],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.772079, 0.431554, 0.102387],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.363898, 0.618501, 0.782349],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[1, 0.75, 0],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.647624, 0.37816, 0.614037],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.571589, 0.586483, 0.],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.915, 0.3325, 0.2125],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.736782672705901, 0.358, 0.5030266573755369],
|
|
AbsoluteThickness[2]],
|
|
Directive[
|
|
RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965],
|
|
AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02],
|
|
"PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05],
|
|
"OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint",
|
|
"HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True,
|
|
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& )}},
|
|
PlotRange->{{0, 52.}, {0, 0.120683}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.02],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]}], "]"}]], "Output",
|
|
CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}},
|
|
CellLabel->
|
|
"Out[532]=",ExpressionUUID->"5b219220-e727-7947-b93a-690cc8839c38"]
|
|
}, 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[391]:=",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \
|
|
\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\
|
|
35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \
|
|
small to represent as a normalized machine number; precision may be lost.\"",
|
|
2, 391, 417, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913437636167164`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[391]:=",ExpressionUUID->"16053233-c82a-df40-9f76-57858a5ce653"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \
|
|
\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\
|
|
54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \
|
|
small to represent as a normalized machine number; precision may be lost.\"",
|
|
2, 391, 418, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991343763625717*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[391]:=",ExpressionUUID->"c17aef07-6675-4240-9659-a4faf651ba84"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \
|
|
\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\
|
|
734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \
|
|
too small to represent as a normalized machine number; precision may be lost.\
|
|
\"", 2, 391, 419, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991343763634718*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[391]:=",ExpressionUUID->"7e2cd7a6-7004-5545-8ead-85e58be0261f"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 391, 420, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991343763643717*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[391]:=",ExpressionUUID->"133cf53d-6aa7-f54b-97b8-85e2d528574d"],
|
|
|
|
Cell[BoxData["12.55365498945131`"], "Output",
|
|
CellChangeTimes->{3.991343769962549*^9},
|
|
CellLabel->
|
|
"Out[391]=",ExpressionUUID->"4a14d2c1-d4aa-bb44-a445-b9d5e6a8ec44"]
|
|
}, 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.991846744062315*^9,
|
|
3.9918467481290073`*^9}},ExpressionUUID->"aa4ca102-401f-6c45-84ea-\
|
|
b21fa4222eb4"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \
|
|
\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\
|
|
445181972878563737600000000000000000000\\\"]\\) is too small to represent as \
|
|
a normalized machine number; precision may be lost.\"", 2, 392, 421,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991343769999645*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[392]:=",ExpressionUUID->"67370f99-93a3-2a4c-abfb-9ec2739f82e3"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 392, 422,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913437700095463`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[392]:=",ExpressionUUID->"c65b7f06-a5d9-2b42-b82a-61a8418de1aa"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 392,
|
|
423, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991343770018547*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[392]:=",ExpressionUUID->"c5205368-7549-5d4a-91b5-fc0c385cffcd"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 392, 424, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913437700265465`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[392]:=",ExpressionUUID->"75f147e7-0111-f945-9d68-054bd31d6468"],
|
|
|
|
Cell[BoxData["2.1234790234082306`"], "Output",
|
|
CellChangeTimes->{3.9913437771602173`*^9},
|
|
CellLabel->
|
|
"Out[392]=",ExpressionUUID->"5463c495-050f-3a48-ad8b-56249455c6df"]
|
|
}, 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.9918467529108715`*^9,
|
|
3.9918467555119896`*^9}},ExpressionUUID->"6ecebc3a-297f-ad45-be0e-\
|
|
687cb63b6c02"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \
|
|
\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\
|
|
445181972878563737600000000000000000000\\\"]\\) is too small to represent as \
|
|
a normalized machine number; precision may be lost.\"", 2, 393, 425,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913437771982174`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[393]:=",ExpressionUUID->"f1435cf6-8920-cf4a-89bd-205dc850fb13"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 393, 426,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913437772082157`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[393]:=",ExpressionUUID->"153c989b-3e07-ba44-9502-ce5eeeaef20b"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 393,
|
|
427, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.99134377721661*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[393]:=",ExpressionUUID->"f96787a5-8527-9249-955c-61c282829a8e"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 393, 428, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913437772256165`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[393]:=",ExpressionUUID->"74b767aa-86c3-b342-aaa5-b3aa8db05a0c"],
|
|
|
|
Cell[BoxData["10.711562421053975`"], "Output",
|
|
CellChangeTimes->{3.991343783589731*^9},
|
|
CellLabel->
|
|
"Out[393]=",ExpressionUUID->"428a5219-3885-624b-b9ef-667a709b85a0"]
|
|
}, 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.9918467593835926`*^9,
|
|
3.991846761720169*^9}},ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-\
|
|
f1844b022d84"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \
|
|
\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\
|
|
445181972878563737600000000000000000000\\\"]\\) is too small to represent as \
|
|
a normalized machine number; precision may be lost.\"", 2, 394, 429,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913437836316223`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[394]:=",ExpressionUUID->"003d8265-71b4-9b48-956a-875004c8f691"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 394, 430,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913437836416245`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[394]:=",ExpressionUUID->"58af30c7-a170-574d-a307-1d28d4712f2c"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 394,
|
|
431, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991343783649622*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[394]:=",ExpressionUUID->"503404b6-a33b-f146-8dab-1a0f0a48a6bb"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 394, 432, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913437836576347`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[394]:=",ExpressionUUID->"ec987c19-b918-e54c-a15c-61c6a7a0cb83"],
|
|
|
|
Cell[BoxData["20.656774205279326`"], "Output",
|
|
CellChangeTimes->{3.9913437870822353`*^9},
|
|
CellLabel->
|
|
"Out[394]=",ExpressionUUID->"fd0d79df-b556-504a-b816-cff0691012a5"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
FractionBox["q",
|
|
SqrtBox[
|
|
RowBox[{"S1", "*", "S2"}]]]], "Input",
|
|
CellChangeTimes->{{3.9918467646351814`*^9,
|
|
3.99184676823822*^9}},ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-\
|
|
fd76363577db"],
|
|
|
|
Cell[BoxData["0.14275466609450368`"], "Output",
|
|
CellChangeTimes->{3.991343787117275*^9},
|
|
CellLabel->
|
|
"Out[395]=",ExpressionUUID->"e1ed9356-8f68-774e-9d61-631f2714eaaf"]
|
|
}, Open ]]
|
|
},
|
|
WindowSize->{718.5, 729.75},
|
|
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
|
|
CellContext->Notebook,
|
|
FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)",
|
|
StyleDefinitions->"Default.nb",
|
|
ExpressionUUID->"feb57727-78bd-5c41-b356-12adf3ce0cb1"
|
|
]
|
|
(* End of Notebook Content *)
|
|
|
|
(* Internal cache information *)
|
|
(*CellTagsOutline
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*CellTagsIndex
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*NotebookFileOutline
|
|
Notebook[{
|
|
Cell[CellGroupData[{
|
|
Cell[576, 22, 147, 4, 28, "Input",ExpressionUUID->"58382c59-dd64-b449-aa77-b500c631729a"],
|
|
Cell[726, 28, 157, 3, 32, "Output",ExpressionUUID->"8bc528b5-d7e5-b04f-8824-04a5ba44f02f"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[920, 36, 149, 4, 28, "Input",ExpressionUUID->"1e2a9573-08d6-094d-b2f8-1c2ad58521b5"],
|
|
Cell[1072, 42, 157, 3, 32, "Output",ExpressionUUID->"c1c87292-1cd0-7148-ae35-05da8f9df00b"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[1266, 50, 1301, 43, 113, "Input",ExpressionUUID->"ee9e3f9b-cd15-314a-959e-23f6767d8629"],
|
|
Cell[2570, 95, 176, 3, 32, "Output",ExpressionUUID->"f9bebeff-7b36-a841-ae60-79aab85878cb"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[2783, 103, 909, 30, 56, "Input",ExpressionUUID->"edc47846-771c-164b-bedc-99ac8c0783df"],
|
|
Cell[3695, 135, 175, 3, 32, "Output",ExpressionUUID->"dd9bd6be-98ec-9547-9e2c-ebed31965dd0"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[3907, 143, 963, 32, 56, "Input",ExpressionUUID->"a1f930ec-56b4-2f43-abd0-dd8b8a4708b1"],
|
|
Cell[4873, 177, 177, 3, 32, "Output",ExpressionUUID->"2d6d3a17-c283-8646-b256-a9dbc673c9bc"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[5087, 185, 558, 19, 52, "Input",ExpressionUUID->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"],
|
|
Cell[5648, 206, 172, 3, 32, "Output",ExpressionUUID->"98b38576-def0-1e40-8080-5c3f5765197b"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[5857, 214, 651, 22, 52, "Input",ExpressionUUID->"163fb4a0-76e7-4649-86cb-bfaf41944c98"],
|
|
Cell[6511, 238, 170, 3, 32, "Output",ExpressionUUID->"ea23bd61-3699-734f-8a76-9cad8281ef61"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[6718, 246, 170, 5, 56, "Input",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"],
|
|
Cell[6891, 253, 173, 3, 32, "Output",ExpressionUUID->"6002c9fb-3c6f-5a46-96f3-d95ebe5fcb07"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[7101, 261, 170, 5, 55, "Input",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"],
|
|
Cell[7274, 268, 169, 3, 70, "Output",ExpressionUUID->"54e7ec9c-75a9-1d4e-a041-1032d97b3c9c"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[7480, 276, 181, 5, 70, "Input",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"],
|
|
Cell[7664, 283, 173, 3, 70, "Output",ExpressionUUID->"aa339681-2ea5-f647-b66a-0492fa8f2ab6"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[7874, 291, 181, 5, 70, "Input",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"],
|
|
Cell[8058, 298, 170, 3, 70, "Output",ExpressionUUID->"2418bfa6-2d55-cb40-b519-958a954750e7"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[8265, 306, 6055, 185, 70, "Input",ExpressionUUID->"aca75c7d-c5bb-8b47-872f-20148e5c7111"],
|
|
Cell[14323, 493, 174, 3, 70, "Output",ExpressionUUID->"f503c6c4-4e73-ad4e-8d38-70a1b8888f41"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[14534, 501, 368, 9, 70, "Input",ExpressionUUID->"cd1abe66-0480-c04d-bbfd-f65271be3b80"],
|
|
Cell[14905, 512, 170, 3, 70, "Output",ExpressionUUID->"d5c10871-8190-e34b-bafd-c8f1bf959b75"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[15112, 520, 6122, 187, 70, "Input",ExpressionUUID->"c96cc89e-a2d4-f442-8558-837587935139"],
|
|
Cell[21237, 709, 174, 3, 70, "Output",ExpressionUUID->"21257e6b-3192-d14d-ae2c-f6bb441a55d5"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[21448, 717, 368, 9, 70, "Input",ExpressionUUID->"1997c8c5-b99e-0343-82de-11d88a9a1347"],
|
|
Cell[21819, 728, 170, 3, 70, "Output",ExpressionUUID->"6e224ad7-7bb4-3d4b-9ad8-ee907ebc0667"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[22026, 736, 2663, 88, 70, "Input",ExpressionUUID->"b151d79d-271f-514b-8b93-936c1a72f6cb"],
|
|
Cell[24692, 826, 171, 3, 70, "Output",ExpressionUUID->"8f4a029e-ffe6-ac48-ac2f-26d4c6f8ae6c"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[24900, 834, 2603, 85, 70, "Input",ExpressionUUID->"ca085857-4c01-0248-853e-e9dc47d19120"],
|
|
Cell[27506, 921, 171, 3, 70, "Output",ExpressionUUID->"a0d0e412-b0a8-da49-99d6-5e8fa7d61f8f"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[27714, 929, 3712, 118, 70, "Input",ExpressionUUID->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"],
|
|
Cell[31429, 1049, 171, 3, 70, "Output",ExpressionUUID->"113275b9-f155-0c40-9fb5-4237227d5946"]
|
|
}, Open ]],
|
|
Cell[31615, 1055, 138, 3, 70, "Input",ExpressionUUID->"ea9dfb1b-57ad-0148-b647-106c07557f97"],
|
|
Cell[CellGroupData[{
|
|
Cell[31778, 1062, 2054, 59, 70, "Input",ExpressionUUID->"b8b3f009-678c-e54b-8a0c-4de3179a9fb0"],
|
|
Cell[33835, 1123, 566, 12, 70, "Message",ExpressionUUID->"c2771e87-d21b-5a4e-975c-e841dd59c44a"],
|
|
Cell[34404, 1137, 569, 12, 70, "Message",ExpressionUUID->"ff170e27-3c46-a544-b2dd-c8eb8ed350ea"],
|
|
Cell[34976, 1151, 570, 12, 70, "Message",ExpressionUUID->"1becfb7e-341c-2c43-a01b-4766385a028d"],
|
|
Cell[35549, 1165, 458, 10, 70, "Message",ExpressionUUID->"17ed9ce9-43ce-c04b-9baf-441313120d44"],
|
|
Cell[36010, 1177, 172, 3, 70, "Output",ExpressionUUID->"125cfb6f-a2d2-194d-9427-f352c26ad1ae"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[36219, 1185, 2054, 59, 70, "Input",ExpressionUUID->"d9fdb976-d745-4c44-9c66-2929c00590fc"],
|
|
Cell[38276, 1246, 564, 12, 70, "Message",ExpressionUUID->"53bbc450-5242-e641-942d-bc7e5add9ee6"],
|
|
Cell[38843, 1260, 567, 12, 70, "Message",ExpressionUUID->"2da21055-0b71-ca4c-a4e7-b80153da78d0"],
|
|
Cell[39413, 1274, 570, 12, 70, "Message",ExpressionUUID->"a669604f-6176-dd48-8e79-07fc64e4d41b"],
|
|
Cell[39986, 1288, 455, 10, 70, "Message",ExpressionUUID->"b2fab6ca-4706-de4f-990c-effa48d983de"],
|
|
Cell[40444, 1300, 169, 3, 70, "Output",ExpressionUUID->"eb68ee17-dac2-1e46-84d5-909c4cb50318"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[40650, 1308, 1938, 53, 70, "Input",ExpressionUUID->"a3abef6a-80f9-8c44-ac94-1eacd8c5b802"],
|
|
Cell[42591, 1363, 19983, 375, 70, "Output",ExpressionUUID->"419e66ef-e794-0e41-8cfb-f36151a9a031"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[62611, 1743, 2120, 60, 70, "Input",ExpressionUUID->"5b0c09f8-5e46-a545-8946-a08264de1b62"],
|
|
Cell[64734, 1805, 501, 11, 70, "Message",ExpressionUUID->"a4931f15-eaa0-1242-81c3-10e27a7c5ad4"],
|
|
Cell[65238, 1818, 503, 11, 70, "Message",ExpressionUUID->"ab5949a3-42fa-c340-946f-728a0b7f660d"],
|
|
Cell[65744, 1831, 506, 11, 70, "Message",ExpressionUUID->"e6df8db5-d6c5-4b4a-ae1b-671c3aaa30b3"],
|
|
Cell[66253, 1844, 456, 10, 70, "Message",ExpressionUUID->"0387496f-9be6-1343-8ff5-34662019e71b"],
|
|
Cell[66712, 1856, 41581, 727, 70, "Output",ExpressionUUID->"9d88b545-fa49-1040-a93c-61d85d3a7a24"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[108330, 2588, 327, 7, 70, "Input",ExpressionUUID->"a890eeb1-6bca-424f-a8f9-1a35c4cca33c"],
|
|
Cell[108660, 2597, 9707, 222, 70, "Output",ExpressionUUID->"cc6e68e6-6d62-0046-bbd0-fe05510d86ec"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[118404, 2824, 257, 6, 70, "Input",ExpressionUUID->"b1f266e4-128a-e44e-90be-31846216bd9c"],
|
|
Cell[118664, 2832, 2580, 42, 70, "Message",ExpressionUUID->"e5cadd69-92fe-044c-9cd3-27a3efb8f2cf"],
|
|
Cell[121247, 2876, 10201, 227, 70, "Output",ExpressionUUID->"8c16d688-6604-f441-a079-29d116d7f98b"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[131485, 3108, 215, 7, 70, "Input",ExpressionUUID->"15c72253-d078-7f43-9f29-7ac094706013"],
|
|
Cell[131703, 3117, 170, 3, 70, "Output",ExpressionUUID->"6748be9e-23e0-b742-b32d-b4d0b2af2d47"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[131910, 3125, 1816, 53, 70, "Input",ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-eb9eba4ac874"],
|
|
Cell[133729, 3180, 506, 11, 70, "Message",ExpressionUUID->"68caf80c-08a0-5a4f-86e7-94369a91094e"],
|
|
Cell[134238, 3193, 512, 11, 70, "Message",ExpressionUUID->"99e2d7e0-6b3a-4241-b934-9876555b06af"],
|
|
Cell[134753, 3206, 509, 11, 70, "Message",ExpressionUUID->"35c8608a-cdb9-7b49-a349-ff93419909b7"],
|
|
Cell[135265, 3219, 456, 10, 70, "Message",ExpressionUUID->"be12d8f1-8442-ce44-8064-691aa975f7de"],
|
|
Cell[135724, 3231, 22336, 412, 70, "Output",ExpressionUUID->"331394c4-497c-0346-8d4a-8dd138d0b1ec"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[158097, 3648, 1616, 48, 70, "Input",ExpressionUUID->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"],
|
|
Cell[159716, 3698, 584, 12, 70, "Message",ExpressionUUID->"c81c58e6-5421-304d-872c-00439d312fe4"],
|
|
Cell[160303, 3712, 588, 12, 70, "Message",ExpressionUUID->"55f72141-2a48-cb49-9d96-f54968f261ca"],
|
|
Cell[160894, 3726, 591, 12, 70, "Message",ExpressionUUID->"02912ea6-4ba4-644f-aec0-867d70fcdcf0"],
|
|
Cell[161488, 3740, 456, 10, 70, "Message",ExpressionUUID->"b4acd794-c7cb-6242-90b6-7a7453ebdeb1"],
|
|
Cell[161947, 3752, 173, 3, 70, "Output",ExpressionUUID->"320f82af-6278-6a41-a4de-a355ccf7664a"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[162157, 3760, 2251, 64, 70, "Input",ExpressionUUID->"55574de4-5bf4-6a47-8b7c-0502360e0741"],
|
|
Cell[164411, 3826, 566, 12, 70, "Message",ExpressionUUID->"ad528e52-1db8-df47-9908-86690dda4ace"],
|
|
Cell[164980, 3840, 569, 12, 70, "Message",ExpressionUUID->"a92c32b5-c23e-7943-9656-aea4b5c428d7"],
|
|
Cell[165552, 3854, 572, 12, 70, "Message",ExpressionUUID->"278bf77a-d73c-c84a-8914-85a2a0d1559c"],
|
|
Cell[166127, 3868, 458, 10, 70, "Message",ExpressionUUID->"341ce956-49ff-8f46-84bb-bcaaba1e8ea9"],
|
|
Cell[166588, 3880, 171, 3, 70, "Output",ExpressionUUID->"94404803-8b83-8a42-8385-1167ffd078a8"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[166796, 3888, 2219, 64, 70, "Input",ExpressionUUID->"a62e28a7-2963-b449-b2d2-4774e534a560"],
|
|
Cell[169018, 3954, 564, 12, 70, "Message",ExpressionUUID->"c97b7826-1134-834a-8813-439f81fdc13f"],
|
|
Cell[169585, 3968, 567, 12, 70, "Message",ExpressionUUID->"5648dba3-b48a-c549-a33c-f599b4e5b995"],
|
|
Cell[170155, 3982, 570, 12, 70, "Message",ExpressionUUID->"7563d59f-361e-3948-b073-d7842f12334e"],
|
|
Cell[170728, 3996, 456, 10, 70, "Message",ExpressionUUID->"726f2b8e-ea46-7c48-8586-2eb207eadde6"],
|
|
Cell[171187, 4008, 173, 3, 70, "Output",ExpressionUUID->"db379c33-b649-2d43-ac47-d39edb6bd127"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[171397, 4016, 2219, 64, 70, "Input",ExpressionUUID->"9dbddde0-a221-414e-bf4d-6be0dfb61fa1"],
|
|
Cell[173619, 4082, 566, 12, 70, "Message",ExpressionUUID->"230d0e01-4d30-3142-81a2-ed4c42905a05"],
|
|
Cell[174188, 4096, 569, 12, 70, "Message",ExpressionUUID->"77058178-333e-354d-80c4-e12104a807ce"],
|
|
Cell[174760, 4110, 570, 12, 70, "Message",ExpressionUUID->"b5bc528a-d748-0f4f-94e7-12c75a1d74a6"],
|
|
Cell[175333, 4124, 458, 10, 70, "Message",ExpressionUUID->"2107b1d1-4ebe-2440-81fa-60e90e5253f9"],
|
|
Cell[175794, 4136, 170, 3, 70, "Output",ExpressionUUID->"7bdb3303-182d-9d45-b807-70346e03e157"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[176001, 4144, 211, 6, 70, "Input",ExpressionUUID->"a4f97f96-646f-ae45-96cc-9c4165440b9d"],
|
|
Cell[176215, 4152, 171, 3, 70, "Output",ExpressionUUID->"37b2a818-74be-9440-ae6a-a43cc0ec40a8"]
|
|
}, Open ]],
|
|
Cell[176401, 4158, 247, 5, 70, "Input",ExpressionUUID->"35c63783-19fc-b040-b8f7-ef972ba7b6ed"],
|
|
Cell[CellGroupData[{
|
|
Cell[176673, 4167, 558, 19, 70, "Input",ExpressionUUID->"82776c92-7c10-2f45-a63e-50057ffca54a"],
|
|
Cell[177234, 4188, 173, 3, 70, "Output",ExpressionUUID->"37bd912e-575b-eb4f-8032-971d1e707228"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[177444, 4196, 170, 5, 70, "Input",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"],
|
|
Cell[177617, 4203, 171, 3, 70, "Output",ExpressionUUID->"3a344811-90b2-ec44-89d0-1c709ea9d046"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[177825, 4211, 181, 5, 70, "Input",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"],
|
|
Cell[178009, 4218, 173, 3, 70, "Output",ExpressionUUID->"665369d7-97a6-fa48-bef2-b3decb044e25"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[178219, 4226, 6055, 185, 70, "Input",ExpressionUUID->"276e96f1-558d-9846-adb4-2350594341f3"],
|
|
Cell[184277, 4413, 175, 3, 70, "Output",ExpressionUUID->"ffc1a009-137c-b34d-9076-1696d057b6db"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[184489, 4421, 368, 9, 70, "Input",ExpressionUUID->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"],
|
|
Cell[184860, 4432, 172, 3, 70, "Output",ExpressionUUID->"895d1a28-2153-a84d-81e3-1cdf5d6d48ed"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[185069, 4440, 6122, 187, 70, "Input",ExpressionUUID->"37b23358-bc27-224f-b5f7-62b1fc97e785"],
|
|
Cell[191194, 4629, 173, 3, 70, "Output",ExpressionUUID->"d4750c6a-3354-8a41-a70f-517b49b84087"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[191404, 4637, 368, 9, 70, "Input",ExpressionUUID->"eeb5992b-a45f-a14b-8a22-14af99af15e2"],
|
|
Cell[191775, 4648, 170, 3, 70, "Output",ExpressionUUID->"5a3e32eb-a9a4-414a-82df-9b56efed1b93"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[191982, 4656, 2663, 88, 70, "Input",ExpressionUUID->"6ddb4033-5394-f34c-95af-22d1f1297351"],
|
|
Cell[194648, 4746, 171, 3, 70, "Output",ExpressionUUID->"69873497-f6d3-324c-852f-4bb50568f85a"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[194856, 4754, 2603, 85, 70, "Input",ExpressionUUID->"22b71737-ea19-a348-af70-a874963373f8"],
|
|
Cell[197462, 4841, 171, 3, 70, "Output",ExpressionUUID->"13526c56-3d85-3c46-83ee-6fb4edbe82d4"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[197670, 4849, 3712, 118, 70, "Input",ExpressionUUID->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"],
|
|
Cell[201385, 4969, 170, 3, 70, "Output",ExpressionUUID->"b4a365f6-f572-034d-a2e6-640ba90b8a4e"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[201592, 4977, 2054, 59, 70, "Input",ExpressionUUID->"d3f05697-a372-2a42-8c9c-ccc9289a44b2"],
|
|
Cell[203649, 5038, 573, 12, 70, "Message",ExpressionUUID->"dedd9f21-b30a-8e42-82f2-2e7179121ba4"],
|
|
Cell[204225, 5052, 577, 12, 70, "Message",ExpressionUUID->"93a73c80-9680-654d-99e9-e1bbed8734bd"],
|
|
Cell[204805, 5066, 580, 12, 70, "Message",ExpressionUUID->"424f437d-38a4-9145-b6b6-1508229b7d8c"],
|
|
Cell[205388, 5080, 456, 10, 70, "Message",ExpressionUUID->"e793f45c-63f6-1a4c-a8b0-a632d0f13f9c"],
|
|
Cell[205847, 5092, 170, 3, 70, "Output",ExpressionUUID->"ce1fa0ad-8b26-074b-acfe-1ea0d6a21afc"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[206054, 5100, 2052, 59, 70, "Input",ExpressionUUID->"7ddfee1b-0897-3d44-810e-ee309c4e8981"],
|
|
Cell[208109, 5161, 573, 12, 70, "Message",ExpressionUUID->"36d155d3-589e-794d-9cf1-db14439adeb2"],
|
|
Cell[208685, 5175, 577, 12, 70, "Message",ExpressionUUID->"96775aa8-3123-8641-a422-091bbfbfb205"],
|
|
Cell[209265, 5189, 582, 12, 70, "Message",ExpressionUUID->"bc2025f1-37fb-ab47-8425-81a033e22370"],
|
|
Cell[209850, 5203, 456, 10, 70, "Message",ExpressionUUID->"be10e44a-c9da-4b44-b4a3-1024a86046c1"],
|
|
Cell[210309, 5215, 170, 3, 70, "Output",ExpressionUUID->"d3ed87ff-6c98-ec45-a1b5-3155c267d9aa"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[210516, 5223, 2030, 55, 70, "Input",ExpressionUUID->"edc0f744-d665-ee48-9e1d-32ecc25a02c4"],
|
|
Cell[212549, 5280, 20422, 382, 70, "Output",ExpressionUUID->"f43b713e-4442-024e-aa3a-d7907c7b2d57"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[233008, 5667, 2094, 60, 70, "Input",ExpressionUUID->"556a1eda-5f63-f94a-8981-af3901893679"],
|
|
Cell[235105, 5729, 502, 11, 70, "Message",ExpressionUUID->"346e0290-ff74-c04a-98f4-4b3b3d9364c5"],
|
|
Cell[235610, 5742, 506, 11, 70, "Message",ExpressionUUID->"ce3310df-8528-a243-9163-01df1bba8789"],
|
|
Cell[236119, 5755, 505, 11, 70, "Message",ExpressionUUID->"ac270026-fa69-2b44-8823-7a4a31d727b7"],
|
|
Cell[236627, 5768, 458, 10, 70, "Message",ExpressionUUID->"bb15b9e5-873c-b443-b9aa-a9ce94c451b4"],
|
|
Cell[237088, 5780, 22288, 412, 70, "Output",ExpressionUUID->"787ac492-4e0a-fd43-b6f7-df921f726ea4"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[259413, 6197, 257, 6, 70, "Input",ExpressionUUID->"adc3c3bb-baff-7c45-bc8f-885e51cde7ff"],
|
|
Cell[259673, 6205, 2580, 42, 70, "Message",ExpressionUUID->"db9cfc30-6083-5745-956a-039ca4224774"],
|
|
Cell[262256, 6249, 10201, 227, 70, "Output",ExpressionUUID->"31a2c0a3-c39f-8a4d-bdef-7b36360aabf7"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[272494, 6481, 1616, 48, 70, "Input",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"],
|
|
Cell[274113, 6531, 595, 12, 70, "Message",ExpressionUUID->"ff5f87ad-0547-2e4d-89ac-2a19dabd294e"],
|
|
Cell[274711, 6545, 595, 12, 70, "Message",ExpressionUUID->"4f2b71d6-333a-cf47-9307-2421af7d6535"],
|
|
Cell[275309, 6559, 599, 12, 70, "Message",ExpressionUUID->"d1d04bbb-5842-0645-bad0-4769b073ee9a"],
|
|
Cell[275911, 6573, 456, 10, 70, "Message",ExpressionUUID->"6eb43be6-bae6-ed4a-aaaf-c88bf605b97b"],
|
|
Cell[276370, 6585, 171, 3, 70, "Output",ExpressionUUID->"edccccc4-7997-b54a-b45b-3f22383f2466"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[276578, 6593, 2251, 64, 70, "Input",ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-d4efe503e761"],
|
|
Cell[278832, 6659, 575, 12, 70, "Message",ExpressionUUID->"6b4a6697-4d78-6348-aa33-09faf2e911d5"],
|
|
Cell[279410, 6673, 577, 12, 70, "Message",ExpressionUUID->"ff3f230d-c2f3-0a4b-92bb-4d06b5d3791d"],
|
|
Cell[279990, 6687, 582, 12, 70, "Message",ExpressionUUID->"ef73945b-c6bc-b44c-a3fe-a5985e6926fb"],
|
|
Cell[280575, 6701, 458, 10, 70, "Message",ExpressionUUID->"0dbccea2-a398-8e4f-96d9-c32a7f87f538"],
|
|
Cell[281036, 6713, 172, 3, 70, "Output",ExpressionUUID->"288e2dce-c937-8742-9640-a3e8f057e389"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[281245, 6721, 2221, 64, 70, "Input",ExpressionUUID->"43c7013a-a6e2-1a44-9690-1cefd2c28187"],
|
|
Cell[283469, 6787, 575, 12, 70, "Message",ExpressionUUID->"f13edf30-029d-f44b-80aa-7454fa8a48eb"],
|
|
Cell[284047, 6801, 577, 12, 70, "Message",ExpressionUUID->"9d4bffff-d8ba-5a4b-ba27-25e0bcf141ed"],
|
|
Cell[284627, 6815, 582, 12, 70, "Message",ExpressionUUID->"03541b7d-a305-9542-b64e-53c12d61a33e"],
|
|
Cell[285212, 6829, 458, 10, 70, "Message",ExpressionUUID->"1c28a402-6927-1f4a-8631-2d356954a732"],
|
|
Cell[285673, 6841, 170, 3, 70, "Output",ExpressionUUID->"f80ab114-db4a-5644-a33e-f2edc512069c"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[285880, 6849, 2218, 64, 70, "Input",ExpressionUUID->"41fb449c-01a0-ed48-856e-cc313bd0a6c7"],
|
|
Cell[288101, 6915, 573, 12, 70, "Message",ExpressionUUID->"00b8f68b-770c-674c-8948-37aa9dbeba3b"],
|
|
Cell[288677, 6929, 577, 12, 70, "Message",ExpressionUUID->"8193dcf9-288a-d04f-81d0-67db9580cad4"],
|
|
Cell[289257, 6943, 580, 12, 70, "Message",ExpressionUUID->"f07c17e3-2923-c44f-8e3c-8f3ec985f07f"],
|
|
Cell[289840, 6957, 456, 10, 70, "Message",ExpressionUUID->"6165087b-71c6-5242-84a4-b7f2ddeda33f"],
|
|
Cell[290299, 6969, 173, 3, 70, "Output",ExpressionUUID->"f6c86172-b23f-f047-b574-633c44f7d8cf"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[290509, 6977, 211, 6, 70, "Input",ExpressionUUID->"63e2fa1e-7c56-c749-a270-c9c703386fca"],
|
|
Cell[290723, 6985, 173, 3, 70, "Output",ExpressionUUID->"61a3e242-6b8f-6c43-96c1-0f461f3aa111"]
|
|
}, Open ]],
|
|
Cell[290911, 6991, 245, 5, 70, "Input",ExpressionUUID->"8b2e971d-5760-5e43-92fb-a0baf224e1e6"],
|
|
Cell[CellGroupData[{
|
|
Cell[291181, 7000, 558, 19, 70, "Input",ExpressionUUID->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"],
|
|
Cell[291742, 7021, 173, 3, 70, "Output",ExpressionUUID->"73bada1a-f8bf-544a-9ef4-a0ed1cad3a20"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[291952, 7029, 170, 5, 70, "Input",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"],
|
|
Cell[292125, 7036, 173, 3, 70, "Output",ExpressionUUID->"a055216b-2938-334b-91b2-e1767bdc02c1"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[292335, 7044, 181, 5, 70, "Input",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"],
|
|
Cell[292519, 7051, 173, 3, 70, "Output",ExpressionUUID->"1cb3b090-b3a4-5041-90d2-cd331e939555"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[292729, 7059, 6055, 185, 70, "Input",ExpressionUUID->"26b3e9a1-c12d-c340-b102-39e3418b2423"],
|
|
Cell[298787, 7246, 172, 3, 70, "Output",ExpressionUUID->"d87c8c95-b548-7743-a9ae-ba00333bd7d5"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[298996, 7254, 368, 9, 70, "Input",ExpressionUUID->"f1c368f7-48c1-ae41-985d-84d539f430bf"],
|
|
Cell[299367, 7265, 172, 3, 70, "Output",ExpressionUUID->"5c166658-06fc-9646-bfdb-835a116404d0"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[299576, 7273, 6122, 187, 70, "Input",ExpressionUUID->"8303e334-ad11-5445-af0f-63c02c371294"],
|
|
Cell[305701, 7462, 173, 3, 70, "Output",ExpressionUUID->"f5459de9-bc9d-bb43-82ac-bbb255c0bb6b"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[305911, 7470, 368, 9, 70, "Input",ExpressionUUID->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"],
|
|
Cell[306282, 7481, 170, 3, 70, "Output",ExpressionUUID->"7547cec8-bbb9-474e-a326-2aa5b5d0ea0e"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[306489, 7489, 2663, 88, 70, "Input",ExpressionUUID->"d36c329f-0f97-3149-b3e7-38d2ece236d0"],
|
|
Cell[309155, 7579, 171, 3, 70, "Output",ExpressionUUID->"67a86a49-0510-5043-b0e4-0c9fbd007328"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[309363, 7587, 2603, 85, 70, "Input",ExpressionUUID->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"],
|
|
Cell[311969, 7674, 173, 3, 70, "Output",ExpressionUUID->"4375608b-4469-c645-b9da-2341df1da6f3"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[312179, 7682, 3712, 118, 70, "Input",ExpressionUUID->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"],
|
|
Cell[315894, 7802, 173, 3, 70, "Output",ExpressionUUID->"d85e146c-555e-ff43-a64b-dc61481e05ba"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[316104, 7810, 2048, 58, 70, "Input",ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"],
|
|
Cell[318155, 7870, 568, 12, 70, "Message",ExpressionUUID->"0b50a344-9b6a-6f43-a31a-1906b6b83303"],
|
|
Cell[318726, 7884, 573, 12, 70, "Message",ExpressionUUID->"a61f676b-80fb-564e-91e4-f0d82f0e9781"],
|
|
Cell[319302, 7898, 576, 12, 70, "Message",ExpressionUUID->"6e5727c3-e53a-0d47-882d-51da7563867b"],
|
|
Cell[319881, 7912, 458, 10, 70, "Message",ExpressionUUID->"d4019ad4-a9c4-064b-945e-f11a073e5bac"],
|
|
Cell[320342, 7924, 172, 3, 70, "Output",ExpressionUUID->"c8ba2a53-8163-c84b-820e-bd4c6c80df97"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[320551, 7932, 2054, 59, 70, "Input",ExpressionUUID->"61250ade-2a8a-1a4d-bb58-5bb7aa60c04a"],
|
|
Cell[322608, 7993, 568, 12, 70, "Message",ExpressionUUID->"337843af-226f-af40-a4c7-0e7c7d9ce578"],
|
|
Cell[323179, 8007, 573, 12, 70, "Message",ExpressionUUID->"5caa0d49-db8e-7047-81dc-724c9a57223e"],
|
|
Cell[323755, 8021, 574, 12, 70, "Message",ExpressionUUID->"89243390-869b-ab4b-bd60-81c23885cae2"],
|
|
Cell[324332, 8035, 458, 10, 70, "Message",ExpressionUUID->"7212133e-ab68-b54b-b1d5-ecb5b003feb9"],
|
|
Cell[324793, 8047, 172, 3, 70, "Output",ExpressionUUID->"68a706fc-6e54-074e-91f9-e60e01512997"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[325002, 8055, 2028, 55, 70, "Input",ExpressionUUID->"020bdd6e-add3-0a46-9b39-04b7ffae8470"],
|
|
Cell[327033, 8112, 20375, 384, 70, "Output",ExpressionUUID->"24c99615-29ec-434a-9120-6a0e664bd2c0"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[347445, 8501, 2094, 60, 70, "Input",ExpressionUUID->"5cbca01a-701c-5744-b740-3bf6288a42b7"],
|
|
Cell[349542, 8563, 501, 11, 70, "Message",ExpressionUUID->"012afcdf-095f-f547-ae49-5e5eab6ac53d"],
|
|
Cell[350046, 8576, 503, 11, 70, "Message",ExpressionUUID->"efe4240f-cfb2-1544-b97a-0d31a46a5acc"],
|
|
Cell[350552, 8589, 506, 11, 70, "Message",ExpressionUUID->"f00a9c55-0183-344a-88dd-02375b09fbdb"],
|
|
Cell[351061, 8602, 458, 10, 70, "Message",ExpressionUUID->"948ef9a9-e05b-a247-a398-dab2b9b01e6c"],
|
|
Cell[351522, 8614, 22161, 409, 70, "Output",ExpressionUUID->"3cb194f4-3fee-2848-822d-18b4cc4f12ed"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[373720, 9028, 257, 6, 70, "Input",ExpressionUUID->"dfd70d8f-49d3-a04f-a31c-55e81ecceef1"],
|
|
Cell[373980, 9036, 2580, 42, 70, "Message",ExpressionUUID->"1aca1256-d868-9b45-945c-81093b7e2535"],
|
|
Cell[376563, 9080, 10201, 227, 70, "Output",ExpressionUUID->"5b219220-e727-7947-b93a-690cc8839c38"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[386801, 9312, 1616, 48, 70, "Input",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"],
|
|
Cell[388420, 9362, 590, 12, 70, "Message",ExpressionUUID->"16053233-c82a-df40-9f76-57858a5ce653"],
|
|
Cell[389013, 9376, 589, 12, 70, "Message",ExpressionUUID->"c17aef07-6675-4240-9659-a4faf651ba84"],
|
|
Cell[389605, 9390, 593, 12, 70, "Message",ExpressionUUID->"7e2cd7a6-7004-5545-8ead-85e58be0261f"],
|
|
Cell[390201, 9404, 456, 10, 70, "Message",ExpressionUUID->"133cf53d-6aa7-f54b-97b8-85e2d528574d"],
|
|
Cell[390660, 9416, 170, 3, 70, "Output",ExpressionUUID->"4a14d2c1-d4aa-bb44-a445-b9d5e6a8ec44"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[390867, 9424, 2249, 64, 70, "Input",ExpressionUUID->"aa4ca102-401f-6c45-84ea-b21fa4222eb4"],
|
|
Cell[393119, 9490, 568, 12, 70, "Message",ExpressionUUID->"67370f99-93a3-2a4c-abfb-9ec2739f82e3"],
|
|
Cell[393690, 9504, 573, 12, 70, "Message",ExpressionUUID->"c65b7f06-a5d9-2b42-b82a-61a8418de1aa"],
|
|
Cell[394266, 9518, 574, 12, 70, "Message",ExpressionUUID->"c5205368-7549-5d4a-91b5-fc0c385cffcd"],
|
|
Cell[394843, 9532, 458, 10, 70, "Message",ExpressionUUID->"75f147e7-0111-f945-9d68-054bd31d6468"],
|
|
Cell[395304, 9544, 173, 3, 70, "Output",ExpressionUUID->"5463c495-050f-3a48-ad8b-56249455c6df"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[395514, 9552, 2223, 64, 70, "Input",ExpressionUUID->"6ecebc3a-297f-ad45-be0e-687cb63b6c02"],
|
|
Cell[397740, 9618, 570, 12, 70, "Message",ExpressionUUID->"f1435cf6-8920-cf4a-89bd-205dc850fb13"],
|
|
Cell[398313, 9632, 573, 12, 70, "Message",ExpressionUUID->"153c989b-3e07-ba44-9502-ce5eeeaef20b"],
|
|
Cell[398889, 9646, 573, 12, 70, "Message",ExpressionUUID->"f96787a5-8527-9249-955c-61c282829a8e"],
|
|
Cell[399465, 9660, 458, 10, 70, "Message",ExpressionUUID->"74b767aa-86c3-b342-aaa5-b3aa8db05a0c"],
|
|
Cell[399926, 9672, 171, 3, 70, "Output",ExpressionUUID->"428a5219-3885-624b-b9ef-667a709b85a0"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[400134, 9680, 2221, 64, 70, "Input",ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-f1844b022d84"],
|
|
Cell[402358, 9746, 570, 12, 70, "Message",ExpressionUUID->"003d8265-71b4-9b48-956a-875004c8f691"],
|
|
Cell[402931, 9760, 573, 12, 70, "Message",ExpressionUUID->"58af30c7-a170-574d-a307-1d28d4712f2c"],
|
|
Cell[403507, 9774, 574, 12, 70, "Message",ExpressionUUID->"503404b6-a33b-f146-8dab-1a0f0a48a6bb"],
|
|
Cell[404084, 9788, 458, 10, 70, "Message",ExpressionUUID->"ec987c19-b918-e54c-a15c-61c6a7a0cb83"],
|
|
Cell[404545, 9800, 173, 3, 70, "Output",ExpressionUUID->"fd0d79df-b556-504a-b816-cff0691012a5"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[404755, 9808, 212, 6, 70, "Input",ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-fd76363577db"],
|
|
Cell[404970, 9816, 172, 3, 70, "Output",ExpressionUUID->"e1ed9356-8f68-774e-9d61-631f2714eaaf"]
|
|
}, Open ]]
|
|
}
|
|
]
|
|
*)
|
|
|
|
(* End of internal cache information *)
|
|
|