14326 lines
582 KiB
Mathematica
Executable file
14326 lines
582 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[ 581439, 14318]
|
|
NotebookOptionsPosition[ 540981, 13683]
|
|
NotebookOutlinePosition[ 541435, 13701]
|
|
CellTagsIndexPosition[ 541392, 13698]
|
|
WindowFrame->Normal*)
|
|
|
|
(* Beginning of Notebook Content *)
|
|
Notebook[{
|
|
|
|
Cell[CellGroupData[{
|
|
Cell[BoxData[
|
|
RowBox[{"d", "=", "3"}]], "Input",
|
|
CellChangeTimes->{
|
|
3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9},
|
|
3.9920650045886707`*^9},ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-\
|
|
8326f7c1a9b1"],
|
|
|
|
Cell[BoxData["3"], "Output",
|
|
CellChangeTimes->{3.991320420900818*^9},
|
|
CellLabel->"Out[46]=",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"A", "=", "236"}]], "Input",
|
|
CellChangeTimes->{{3.9915672960517406`*^9,
|
|
3.991567297688427*^9}},ExpressionUUID->"40a7803b-9334-ef42-a720-\
|
|
539edfcf67a8"],
|
|
|
|
Cell[BoxData["252"], "Output",
|
|
CellChangeTimes->{3.9913196497381973`*^9},
|
|
CellLabel->"Out[2]=",ExpressionUUID->"d21d7bec-caad-aa4f-9200-81feafc4acec"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"A1", "="}]], "Input",
|
|
CellChangeTimes->{
|
|
3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\
|
|
53970f892dbb"],
|
|
|
|
Cell[BoxData["130"], "Output",
|
|
CellChangeTimes->{3.9913196497578354`*^9},
|
|
CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"a1", "=", "0.55"}]], "Input",
|
|
CellChangeTimes->{3.9434144380252676`*^9},
|
|
CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"],
|
|
|
|
Cell[BoxData["0.55`"], "Output",
|
|
CellChangeTimes->{3.991319649777508*^9},
|
|
CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"a2", "=",
|
|
RowBox[{"a1", "-",
|
|
RowBox[{"0.015", "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input",
|
|
CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"],
|
|
|
|
Cell[BoxData["0.5495238095238095`"], "Output",
|
|
CellChangeTimes->{3.9913196497965145`*^9},
|
|
CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"p0", "=", "0.17"}]], "Input",
|
|
CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"],
|
|
|
|
Cell[BoxData["0.17`"], "Output",
|
|
CellChangeTimes->{3.9913196498144608`*^9},
|
|
CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"R01", "=",
|
|
RowBox[{"1.16", "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"1", "/", "3"}]]}]}]], "Input",
|
|
CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}},
|
|
CellLabel->"In[7]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"],
|
|
|
|
Cell[BoxData["5.876324542157027`"], "Output",
|
|
CellChangeTimes->{3.9913196498225155`*^9},
|
|
CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"R02", "=",
|
|
RowBox[{"1.16", "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"1", "/", "3"}]]}]}]], "Input",
|
|
CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"],
|
|
|
|
Cell[BoxData["5.753223770057068`"], "Output",
|
|
CellChangeTimes->{3.9913196498425236`*^9},
|
|
CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"b1", "="}]], "Input",
|
|
CellChangeTimes->{
|
|
3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\
|
|
b3f5cb1cffbb"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"b2", "="}]], "Input",
|
|
CellChangeTimes->{
|
|
3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\
|
|
50fde111107a"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"x1", "=", "0"}]], "Input",
|
|
CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"],
|
|
|
|
Cell[BoxData["0"], "Output",
|
|
CellChangeTimes->{3.9913196498927155`*^9},
|
|
CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"x2", "=", "0"}]], "Input",
|
|
CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"],
|
|
|
|
Cell[BoxData["0"], "Output",
|
|
CellChangeTimes->{3.9913196498996067`*^9},
|
|
CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"w1", "=",
|
|
FractionBox[
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b1", "*", "b1"}],
|
|
RowBox[{"4", "\[Pi]"}]], "+",
|
|
RowBox[{"b1", "*",
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]]}]}],
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b1", "*", "b1"}],
|
|
RowBox[{"4", "\[Pi]"}]], "-",
|
|
RowBox[{"b1", "*",
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input",
|
|
CellLabel->"In[13]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"],
|
|
|
|
Cell[BoxData["1.4975864418719793`"], "Output",
|
|
CellChangeTimes->{3.9913197863028755`*^9},
|
|
CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"w2", "=",
|
|
FractionBox[
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b2", "*", "b2"}],
|
|
RowBox[{"4", "\[Pi]"}]], "+",
|
|
RowBox[{"b2", "*",
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]]}]}],
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b2", "*", "b2"}],
|
|
RowBox[{"4", "\[Pi]"}]], "-",
|
|
RowBox[{"b2", "*",
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input",
|
|
CellLabel->"In[14]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"],
|
|
|
|
Cell[BoxData["2.555495302485258`"], "Output",
|
|
CellChangeTimes->{3.9913197864610195`*^9},
|
|
CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"c11", "=",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"R02", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b2", "*", "b2"}],
|
|
RowBox[{"4", "\[Pi]"}]], "+",
|
|
RowBox[{"b2", "*",
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+",
|
|
RowBox[{"d", "*",
|
|
SuperscriptBox["w2", "2"]}]}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}],
|
|
RowBox[{
|
|
RowBox[{"R01", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b1", "*", "b1"}],
|
|
RowBox[{"4", "\[Pi]"}]], "+",
|
|
RowBox[{"b1", "*",
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*",
|
|
SuperscriptBox["w2", "2"]}], "+",
|
|
RowBox[{"R02", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b2", "*", "b2"}],
|
|
RowBox[{"4", "\[Pi]"}]], "+",
|
|
RowBox[{"b2", "*",
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*",
|
|
SuperscriptBox["w1", "2"]}], "+",
|
|
RowBox[{"d", "*",
|
|
SuperscriptBox["w2", "2"], "*",
|
|
SuperscriptBox["w1", "2"]}]}]]}]}]], "Input",
|
|
CellLabel->"In[16]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"],
|
|
|
|
Cell[BoxData["0.6849608803764016`"], "Output",
|
|
CellChangeTimes->{3.991319786533783*^9},
|
|
CellLabel->"Out[16]=",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"c12", "=",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"R02", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b2", "*", "b2"}],
|
|
RowBox[{"4", "\[Pi]"}]], "+",
|
|
RowBox[{"b2", "*",
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
SuperscriptBox["w2", "2"]}], ")"}]}],
|
|
RowBox[{
|
|
RowBox[{"R01", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b1", "*", "b1"}],
|
|
RowBox[{"4", "\[Pi]"}]], "+",
|
|
RowBox[{"b1", "*",
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*",
|
|
SuperscriptBox["w2", "2"]}], "+",
|
|
RowBox[{"R02", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b2", "*", "b2"}],
|
|
RowBox[{"4", "\[Pi]"}]], "+",
|
|
RowBox[{"b2", "*",
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*",
|
|
SuperscriptBox["w1", "2"]}], "+",
|
|
RowBox[{"d", "*",
|
|
SuperscriptBox["w2", "2"], "*",
|
|
SuperscriptBox["w1", "2"]}]}]]}]], "Input",
|
|
CellLabel->"In[17]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-", "0.43849259375441973`"}]], "Output",
|
|
CellChangeTimes->{3.991319786540777*^9},
|
|
CellLabel->"Out[17]=",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"c21", "=",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"R01", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b1", "*", "b1"}],
|
|
RowBox[{"4", "\[Pi]"}]], "+",
|
|
RowBox[{"b1", "*",
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
SuperscriptBox["w1", "2"]}], ")"}]}],
|
|
RowBox[{
|
|
RowBox[{"R01", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b1", "*", "b1"}],
|
|
RowBox[{"4", "\[Pi]"}]], "+",
|
|
RowBox[{"b1", "*",
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*",
|
|
SuperscriptBox["w2", "2"]}], "+",
|
|
RowBox[{"R02", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b2", "*", "b2"}],
|
|
RowBox[{"4", "\[Pi]"}]], "+",
|
|
RowBox[{"b2", "*",
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*",
|
|
SuperscriptBox["w1", "2"]}], "+",
|
|
RowBox[{"d", "*",
|
|
SuperscriptBox["w2", "2"], "*",
|
|
SuperscriptBox["w1", "2"]}]}]]}]], "Input",
|
|
CellLabel->"In[18]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-", "0.08210730792808285`"}]], "Output",
|
|
CellChangeTimes->{3.9913197865777817`*^9},
|
|
CellLabel->"Out[18]=",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"c22", "=",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"R01", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b1", "*", "b1"}],
|
|
RowBox[{"4", "\[Pi]"}]], "+",
|
|
RowBox[{"b1", "*",
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+",
|
|
RowBox[{"d", "*",
|
|
SuperscriptBox["w1", "2"]}]}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}],
|
|
RowBox[{
|
|
RowBox[{"R01", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b1", "*", "b1"}],
|
|
RowBox[{"4", "\[Pi]"}]], "+",
|
|
RowBox[{"b1", "*",
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*",
|
|
SuperscriptBox["w2", "2"]}], "+",
|
|
RowBox[{"R02", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b2", "*", "b2"}],
|
|
RowBox[{"4", "\[Pi]"}]], "+",
|
|
RowBox[{"b2", "*",
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*",
|
|
SuperscriptBox["w1", "2"]}], "+",
|
|
RowBox[{"d", "*",
|
|
SuperscriptBox["w2", "2"], "*",
|
|
SuperscriptBox["w1", "2"]}]}]]}]}]], "Input",
|
|
CellLabel->"In[19]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"],
|
|
|
|
Cell[BoxData["0.30371622798853437`"], "Output",
|
|
CellChangeTimes->{3.9913197866129*^9},
|
|
CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"C0", "=", "300"}]], "Input",
|
|
CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"],
|
|
|
|
Cell[BoxData["300"], "Output",
|
|
CellChangeTimes->{3.991319786620775*^9},
|
|
CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"fin", "=", "0.09"}]], "Input",
|
|
CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"],
|
|
|
|
Cell[BoxData["0.09`"], "Output",
|
|
CellChangeTimes->{3.991319786657793*^9},
|
|
CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"ffin", "=", "0.42"}]], "Input",
|
|
CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"],
|
|
|
|
Cell[BoxData["0.42`"], "Output",
|
|
CellChangeTimes->{3.9913197866657925`*^9},
|
|
CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"fex", "=",
|
|
RowBox[{"-", "2.59"}]}]], "Input",
|
|
CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}},
|
|
CellLabel->"In[23]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-", "2.59`"}]], "Output",
|
|
CellChangeTimes->{3.9913197866996*^9},
|
|
CellLabel->"Out[23]=",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"ffex", "=", "0.54"}]], "Input",
|
|
CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"],
|
|
|
|
Cell[BoxData["0.54`"], "Output",
|
|
CellChangeTimes->{3.9913197867406044`*^9},
|
|
CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Z1", "="}]], "Input",
|
|
CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, {
|
|
3.943437514738135*^9, 3.9434375159795218`*^9},
|
|
3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\
|
|
56c0ae53ef15"],
|
|
|
|
Cell[BoxData["50"], "Output",
|
|
CellChangeTimes->{3.9913197867861958`*^9},
|
|
CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Z2", "=",
|
|
RowBox[{"92", "-", "Z1"}]}]], "Input",
|
|
CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9},
|
|
3.9916443064841423`*^9},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\
|
|
990caacde85d"],
|
|
|
|
Cell[BoxData["48"], "Output",
|
|
CellChangeTimes->{3.9913197867928696`*^9},
|
|
CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"A2", "=",
|
|
RowBox[{"A", "-", "A1"}]}]], "Input",
|
|
CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}},
|
|
CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"],
|
|
|
|
Cell[BoxData["122"], "Output",
|
|
CellChangeTimes->{3.991319786827894*^9},
|
|
CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Din", "=",
|
|
RowBox[{"fin", "+",
|
|
RowBox[{"ffin", "*",
|
|
FractionBox[
|
|
RowBox[{"A1", "-",
|
|
RowBox[{"2", "*", "Z1"}]}], "A1"], "*",
|
|
FractionBox[
|
|
RowBox[{"A2", "-",
|
|
RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input",
|
|
CellLabel->"In[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"],
|
|
|
|
Cell[BoxData["0.11065573770491803`"], "Output",
|
|
CellChangeTimes->{3.9913197868648605`*^9},
|
|
CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Dex", "=",
|
|
RowBox[{"fex", "+",
|
|
RowBox[{"ffex", "*",
|
|
FractionBox[
|
|
RowBox[{"A1", "-",
|
|
RowBox[{"2", "*", "Z1"}]}], "A1"], "*",
|
|
FractionBox[
|
|
RowBox[{"A2", "-",
|
|
RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input",
|
|
CellLabel->"In[29]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-", "2.5634426229508196`"}]], "Output",
|
|
CellChangeTimes->{3.9913197868718567`*^9},
|
|
CellLabel->"Out[29]=",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"R00", "=",
|
|
RowBox[{
|
|
RowBox[{"R01", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b1", "*", "b1"}],
|
|
RowBox[{"4", "\[Pi]"}]], "+",
|
|
RowBox[{"b1", "*",
|
|
RowBox[{"SphericalHarmonicY", "[",
|
|
RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}],
|
|
"+",
|
|
RowBox[{"R02", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
FractionBox[
|
|
RowBox[{"b2", "*", "b2"}],
|
|
RowBox[{"4", "\[Pi]"}]], "+",
|
|
RowBox[{"b2", "*",
|
|
RowBox[{"SphericalHarmonicY", "[",
|
|
RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}],
|
|
"+", "d"}]}]], "Input",
|
|
CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, {
|
|
3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9,
|
|
3.943418448948422*^9}, {3.9919752185010967`*^9,
|
|
3.9919752200326233`*^9}},ExpressionUUID->"957e37d7-d728-e448-9a63-\
|
|
f9d65131b81c"],
|
|
|
|
Cell[BoxData["19.346196963603006`"], "Output",
|
|
CellChangeTimes->{3.9913197869068584`*^9},
|
|
CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"C0", "=", "300"}]], "Input",
|
|
CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}},
|
|
CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"],
|
|
|
|
Cell[BoxData["300"], "Output",
|
|
CellChangeTimes->{3.991319786940857*^9},
|
|
CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"v1", "="}]], "Input",
|
|
CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9},
|
|
3.943437451104373*^9, 3.9917179877659073`*^9,
|
|
3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\
|
|
58a9467eced9"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.9918486394740562`*^9,
|
|
3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\
|
|
bb644ea0ddfa"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"n1", "="}]], "Input",
|
|
CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9},
|
|
3.9434374542625003`*^9, 3.9917179964399834`*^9,
|
|
3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\
|
|
b6480cd2846d"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.991848641020609*^9,
|
|
3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\
|
|
07cc8884f5b8"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"vv1", "="}]], "Input",
|
|
CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, {
|
|
3.943437458959346*^9, 3.943437459115596*^9},
|
|
3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\
|
|
b46079e5a618"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.9918486421415234`*^9,
|
|
3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\
|
|
e81404b2a0db"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"nn1", "="}]], "Input",
|
|
CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, {
|
|
3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9,
|
|
3.991799359954439*^9},ExpressionUUID->"81b490c7-39d4-f348-8914-\
|
|
f54b23f74296"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.991848643356409*^9,
|
|
3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\
|
|
ccc2627a783c"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"v2", "="}]], "Input",
|
|
CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9},
|
|
3.991718016467348*^9,
|
|
3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\
|
|
e70aa92597e4"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.991848644751276*^9,
|
|
3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\
|
|
a3b9eef1576d"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"n2", "="}]], "Input",
|
|
CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9},
|
|
3.9917180279399567`*^9,
|
|
3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\
|
|
b94745a1c38a"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.9918486484561863`*^9,
|
|
3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\
|
|
7d827c4ef6de"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"vv2", "="}]], "Input",
|
|
CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9},
|
|
3.9917180507508755`*^9,
|
|
3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\
|
|
264265a5c2d2"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.99184864995627*^9,
|
|
3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\
|
|
01ae055dd38b"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"nn2", "="}]], "Input",
|
|
CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9},
|
|
3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\
|
|
0fd7b04115ca"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.9918486513316555`*^9,
|
|
3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\
|
|
e22b0839e976"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"U31", "=",
|
|
RowBox[{"C0", "*", "b2", "*", "b2", "*",
|
|
FractionBox[
|
|
RowBox[{"R02", "*", "R02"}], "2"], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"v2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(", "a1", ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-",
|
|
RowBox[{"v2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R01", "a1"], "]"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+",
|
|
RowBox[{"vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(", "nn2", ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*",
|
|
"p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-",
|
|
RowBox[{"vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R2", "nn2"], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ")"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-",
|
|
RowBox[{"2", "*", "vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R2", "nn2"], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ")"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-",
|
|
RowBox[{"vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R02", "nn2"], "]"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+",
|
|
RowBox[{"Dex", "*", "v2", "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input",
|
|
CellChangeTimes->CompressedData["
|
|
1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in
|
|
g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb
|
|
HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg
|
|
uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt
|
|
Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr
|
|
ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A==
|
|
"],
|
|
CellLabel->"In[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"],
|
|
|
|
Cell[BoxData["2.0187310532697746`"], "Output",
|
|
CellChangeTimes->{3.991319787430073*^9},
|
|
CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"U33", "=",
|
|
RowBox[{"C0", "*", "b1", "*", "b1", "*",
|
|
FractionBox[
|
|
RowBox[{"R01", "*", "R01"}], "2"], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"vv1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(", "nn1", ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*",
|
|
"p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
StyleBox[
|
|
RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}],
|
|
")"}]}], "-",
|
|
RowBox[{"vv1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R01", "nn1"], "]"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
StyleBox[
|
|
RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}],
|
|
"-",
|
|
RowBox[{"vv1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R1", "nn1"], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ")"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
StyleBox[
|
|
RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}],
|
|
"-",
|
|
RowBox[{"2", "*", "vv1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R1", "nn1"], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ")"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
StyleBox[
|
|
RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}],
|
|
"+",
|
|
RowBox[{"v1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(", "a2", ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
StyleBox[
|
|
RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}],
|
|
")"}]}], "-",
|
|
RowBox[{"v1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R02", "a2"], "]"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
StyleBox[
|
|
RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}],
|
|
"+",
|
|
RowBox[{"Dex", "*", "v1", "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
StyleBox[
|
|
RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}],
|
|
"]"}]}]}], ")"}]}]}]], "Input",
|
|
CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, {
|
|
3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9,
|
|
3.943439550065191*^9}},
|
|
CellLabel->"In[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"],
|
|
|
|
Cell[BoxData["0.14694138435338647`"], "Output",
|
|
CellChangeTimes->{3.991319787574972*^9},
|
|
CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"U32", "=",
|
|
RowBox[{"C0", "*", "b1", "*", "b2", "*",
|
|
FractionBox[
|
|
RowBox[{"R01", "*", "R02"}], "1"], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"vv1", "*", "v2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(", "nn1", ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*",
|
|
"p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-",
|
|
RowBox[{"vv1", "*", "v2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R01", "nn1"], "]"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-",
|
|
RowBox[{"vv1", "*", "v2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R1", "nn1"], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ")"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+",
|
|
RowBox[{"v1", "*", "vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(", "n2", ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*",
|
|
"p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-",
|
|
RowBox[{"v1", "*", "vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R02", "n2"], "]"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-",
|
|
RowBox[{"v1", "*", "vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R2", "n2"], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ")"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+",
|
|
RowBox[{"v2", "*", "v1", "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input",
|
|
CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, {
|
|
3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9,
|
|
3.943439550065191*^9}},
|
|
CellLabel->"In[42]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-", "32.27220689122579`"}]], "Output",
|
|
CellChangeTimes->{3.991319787641424*^9},
|
|
CellLabel->"Out[42]=",ExpressionUUID->"43eaee96-3646-954d-899a-d1e3ee2edd5e"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"U41", "=",
|
|
RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*",
|
|
FractionBox[
|
|
RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"vv1", "*", "v2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(", "nn1", ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*",
|
|
"p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-",
|
|
RowBox[{"vv1", "*", "v2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R01", "nn1"], "]"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-",
|
|
RowBox[{"vv1", "*", "v2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R1", "nn1"], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ")"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+",
|
|
RowBox[{"v1", "*", "vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(", "n2", ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*",
|
|
"p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-",
|
|
RowBox[{"v1", "*", "vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R02", "n2"], "]"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-",
|
|
RowBox[{"2", "*", "v1", "*", "vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R2", "n2"], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ")"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-",
|
|
RowBox[{"v1", "*", "vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R2", "n2"], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ")"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+",
|
|
RowBox[{"v2", "*", "v1", "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input",
|
|
CellLabel->"In[43]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-", "81.2532555132978`"}]], "Output",
|
|
CellChangeTimes->{3.991319787711939*^9},
|
|
CellLabel->"Out[43]=",ExpressionUUID->"a8d59888-f6f0-0746-9034-5e74c45610b1"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"U42", "=",
|
|
RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*",
|
|
FractionBox[
|
|
RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"vv1", "*", "v2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(", "nn1", ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*",
|
|
"p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-",
|
|
RowBox[{"vv1", "*", "v2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R01", "nn1"], "]"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-",
|
|
RowBox[{"2", "*", "vv1", "*", "v2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R1", "nn1"], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ")"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-",
|
|
RowBox[{"vv1", "*", "v2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R1", "nn1"], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ")"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+",
|
|
RowBox[{"v1", "*", "vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(", "n2", ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*",
|
|
"p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-",
|
|
RowBox[{"v1", "*", "vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R02", "n2"], "]"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-",
|
|
RowBox[{"v1", "*", "vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R2", "n2"], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ")"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+",
|
|
RowBox[{"v2", "*", "v1", "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input",
|
|
CellLabel->"In[44]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-", "38.89688349410641`"}]], "Output",
|
|
CellChangeTimes->{3.9913197877723045`*^9},
|
|
CellLabel->"Out[44]=",ExpressionUUID->"dd5d5506-e4f6-7d4c-bcd9-ea70659f69e1"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"U51", "=",
|
|
RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*",
|
|
FractionBox[
|
|
RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"vv1", "*", "v2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(", "nn1", ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*",
|
|
"p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-",
|
|
RowBox[{"vv1", "*", "v2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R01", "nn1"], "]"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-",
|
|
RowBox[{"2", "*", "vv1", "*", "v2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R1", "nn1"], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ")"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-",
|
|
RowBox[{"vv1", "*", "v2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R1", "nn1"], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ")"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+",
|
|
RowBox[{"v1", "*", "vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(", "n2", ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*",
|
|
"p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-",
|
|
RowBox[{"v1", "*", "vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R02", "n2"], "]"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-",
|
|
RowBox[{"2", "*", "v1", "*", "vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R2", "n2"], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ")"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-",
|
|
RowBox[{"v1", "*", "vv2", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{"Coth", "[",
|
|
FractionBox["R2", "n2"], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ")"}], "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+",
|
|
RowBox[{"v2", "*", "v1", "*",
|
|
RowBox[{"NIntegrate", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"D", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "4"}], "\[Pi]",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}],
|
|
RowBox[{"r", "*",
|
|
RowBox[{"Sinh", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}], "*",
|
|
RowBox[{"Coth", "[",
|
|
RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*",
|
|
FractionBox[
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"r", "*", "R00"}], "]"}],
|
|
RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R2", "->", "R02"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.",
|
|
RowBox[{"R1", "->", "R01"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
|
|
RowBox[{"Method", "\[Rule]",
|
|
StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input",
|
|
CellLabel->"In[45]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-", "199.04976850122156`"}]], "Output",
|
|
CellChangeTimes->{3.991319787833355*^9},
|
|
CellLabel->"Out[45]=",ExpressionUUID->"b983c8d8-6a34-fb4a-8a0a-8960e79ae993"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"U21", "=", "0"}]], "Input",
|
|
CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"],
|
|
|
|
Cell[BoxData["0"], "Output",
|
|
CellChangeTimes->{3.9913204210013676`*^9},
|
|
CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"U22", "=", "0"}]], "Input",
|
|
CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"],
|
|
|
|
Cell[BoxData["0"], "Output",
|
|
CellChangeTimes->{3.9913204210355663`*^9},
|
|
CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "3"}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]], "*",
|
|
SuperscriptBox["c11", "2"],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U33"}], "+", "U32", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]], "*",
|
|
SuperscriptBox["c21", "2"],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U31"}], "+", "U32", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input",
|
|
CellLabel->"In[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"],
|
|
|
|
Cell[BoxData["165.32626018052665`"], "Output",
|
|
CellChangeTimes->{3.991320421068556*^9},
|
|
CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["15",
|
|
RowBox[{"4", "\[Pi]"}]]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"c11", "*", "c12",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U33"}], "+", "U32", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+",
|
|
RowBox[{"c21", "*", "c22",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U31"}], "+", "U32", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input",
|
|
CellLabel->"In[50]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-", "113.55836273207095`"}]], "Output",
|
|
CellChangeTimes->{3.991320421098543*^9},
|
|
CellLabel->"Out[50]=",ExpressionUUID->"222cd90e-6438-0a46-88d0-fcdd10fc9432"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "3"}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]], "*",
|
|
SuperscriptBox["c22", "2"],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U31"}], "+", "U32", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]], "*",
|
|
SuperscriptBox["c12", "2"],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U33"}], "+", "U32", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input",
|
|
CellLabel->"In[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"],
|
|
|
|
Cell[BoxData["101.25756231997637`"], "Output",
|
|
CellChangeTimes->{3.9913204211275444`*^9},
|
|
CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["c11"], "Input",
|
|
CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"],
|
|
|
|
Cell[BoxData["0.6849608803764016`"], "Output",
|
|
CellChangeTimes->{3.9913204211385536`*^9},
|
|
CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["c12"], "Input",
|
|
CellLabel->"In[53]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-", "0.43849259375441973`"}]], "Output",
|
|
CellChangeTimes->{3.9913204211683464`*^9},
|
|
CellLabel->"Out[53]=",ExpressionUUID->"5baa5811-6d68-0847-bfa7-611a7f282595"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["c21"], "Input",
|
|
CellLabel->"In[54]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-", "0.08210730792808285`"}]], "Output",
|
|
CellChangeTimes->{3.991320421199068*^9},
|
|
CellLabel->"Out[54]=",ExpressionUUID->"66d60cf8-894b-f64c-bc5e-4862fc34e98d"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["c22"], "Input",
|
|
CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"],
|
|
|
|
Cell[BoxData["0.30371622798853437`"], "Output",
|
|
CellChangeTimes->{3.991320421228037*^9},
|
|
CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["w1"], "Input",
|
|
CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"],
|
|
|
|
Cell[BoxData["1.4975864418719793`"], "Output",
|
|
CellChangeTimes->{3.9913204212585373`*^9},
|
|
CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["w2"], "Input",
|
|
CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"],
|
|
|
|
Cell[BoxData["2.555495302485258`"], "Output",
|
|
CellChangeTimes->{3.9913204212884274`*^9},
|
|
CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "3"}],
|
|
FractionBox[
|
|
RowBox[{"Z1", "*", "Z2", "*", "1.44"}],
|
|
SuperscriptBox["R00", "3"]],
|
|
SuperscriptBox["R01", "2"], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["9",
|
|
RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["6",
|
|
RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input",
|
|
CellLabel->"In[58]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-", "10.968150500985438`"}]], "Output",
|
|
CellChangeTimes->{3.9913204213185234`*^9},
|
|
CellLabel->"Out[58]=",ExpressionUUID->"ed7537ce-20e6-4246-aac0-4a4b9f4faed7"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"-", "3"}],
|
|
FractionBox[
|
|
RowBox[{"Z1", "*", "Z2", "*", "1.44"}],
|
|
SuperscriptBox["R00", "3"]],
|
|
SuperscriptBox["R02", "2"], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["9",
|
|
RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["6",
|
|
RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input",
|
|
CellLabel->"In[59]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-", "30.737279670206195`"}]], "Output",
|
|
CellChangeTimes->{3.991320421349531*^9},
|
|
CellLabel->"Out[59]=",ExpressionUUID->"643b7429-505f-4045-a97f-7e6871b3f504"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"BBB11", "=",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "3"}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]], "*",
|
|
SuperscriptBox["c11", "2"],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U33"}], "+", "U32", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]], "*",
|
|
SuperscriptBox["c21", "2"],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U31"}], "+", "U32", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-",
|
|
RowBox[{"3",
|
|
FractionBox[
|
|
RowBox[{"Z1", "*", "Z2", "*", "1.44"}],
|
|
SuperscriptBox["R00", "3"]],
|
|
SuperscriptBox["R01", "2"], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["9",
|
|
RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["6",
|
|
RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}],
|
|
")"}]}]}]}]], "Input",
|
|
CellLabel->"In[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"],
|
|
|
|
Cell[BoxData["154.3581096795412`"], "Output",
|
|
CellChangeTimes->{3.9913204213784294`*^9},
|
|
CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"BBB12", "=",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["15",
|
|
RowBox[{"4", "\[Pi]"}]]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"c11", "*", "c12",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U33"}], "+", "U32", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+",
|
|
RowBox[{"c21", "*", "c22",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U31"}], "+", "U32", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input",
|
|
CellLabel->"In[61]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"-", "113.55836273207095`"}]], "Output",
|
|
CellChangeTimes->{3.9913204213904285`*^9},
|
|
CellLabel->"Out[61]=",ExpressionUUID->"f7cceab2-e319-0345-98f3-b759ec5fa40c"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"BBB22", "=",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "3"}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]], "*",
|
|
SuperscriptBox["c22", "2"],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U31"}], "+", "U32", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+",
|
|
"\[IndentingNewLine]",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]], "*",
|
|
SuperscriptBox["c12", "2"],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U33"}], "+", "U32", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+",
|
|
RowBox[{
|
|
FractionBox["5",
|
|
RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-",
|
|
RowBox[{"3",
|
|
FractionBox[
|
|
RowBox[{"Z1", "*", "Z2", "*", "1.44"}],
|
|
SuperscriptBox["R00", "3"]],
|
|
SuperscriptBox["R02", "2"], "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["9",
|
|
RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["6",
|
|
RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}],
|
|
")"}]}]}]}]], "Input",
|
|
CellLabel->"In[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"],
|
|
|
|
Cell[BoxData["70.52028264977018`"], "Output",
|
|
CellChangeTimes->{3.991320421419428*^9},
|
|
CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Kb", "=",
|
|
RowBox[{
|
|
RowBox[{"(", "BBB11", ")"}], "+",
|
|
RowBox[{"2",
|
|
FractionBox[
|
|
RowBox[{"R01", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}],
|
|
RowBox[{"R02", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*",
|
|
RowBox[{"(", "BBB12", ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"R01", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}],
|
|
RowBox[{"R02", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}],
|
|
"2"], "*",
|
|
RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input",
|
|
CellLabel->"In[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"],
|
|
|
|
Cell[BoxData["14.070681463640064`"], "Output",
|
|
CellChangeTimes->{3.9913204214494324`*^9},
|
|
CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Kw", "=",
|
|
RowBox[{
|
|
RowBox[{"(", "BBB11", ")"}], "-",
|
|
RowBox[{"2",
|
|
FractionBox[
|
|
RowBox[{"R01", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}],
|
|
RowBox[{"R02", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*",
|
|
RowBox[{"(", "BBB12", ")"}]}], "+",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"R01", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}],
|
|
RowBox[{"R02", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-",
|
|
RowBox[{
|
|
FractionBox["1",
|
|
RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}],
|
|
"2"], "*",
|
|
RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input",
|
|
CellLabel->"In[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"],
|
|
|
|
Cell[BoxData["392.58159931234866`"], "Output",
|
|
CellChangeTimes->{3.991320421481529*^9},
|
|
CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"f1", "="}]], "Input",
|
|
CellChangeTimes->{
|
|
3.991799412462593*^9},ExpressionUUID->"8ee71d5b-854f-5949-88a2-\
|
|
843ffd08641f"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.99184866880085*^9,
|
|
3.9918486688048573`*^9}},ExpressionUUID->"13f65097-48a8-0b48-8f26-\
|
|
bfa63ff56738"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"f2", "="}]], "Input",
|
|
CellChangeTimes->{
|
|
3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\
|
|
23c469148e55"],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.991848669922333*^9,
|
|
3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\
|
|
049e50ab8a2a"],
|
|
|
|
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[67]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"],
|
|
|
|
Cell[BoxData["2.3793916761039797`*^-53"], "Output",
|
|
CellChangeTimes->{3.99132042156752*^9},
|
|
CellLabel->"Out[67]=",ExpressionUUID->"83707082-f118-c146-a95c-693158b61875"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Il", "=",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.16", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"A", "-", "A1"}], ")"}],
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*", "f1", "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b1"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.991557471461853*^9},ExpressionUUID->"4237f61c-7340-ae4e-a030-\
|
|
5501c3a85c24"],
|
|
|
|
Cell[BoxData["2.192147584896785`*^-54"], "Output",
|
|
CellChangeTimes->{3.99132042159643*^9},
|
|
CellLabel->"Out[68]=",ExpressionUUID->"93dbdfa1-2e9a-2d49-80d6-05af3e592734"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Ih", "=",
|
|
RowBox[{
|
|
FractionBox["2", "5"], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.16", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "15"}]]}], ")"}], "2"], "*",
|
|
SuperscriptBox["A1",
|
|
RowBox[{"5", "/", "3"}]], "*",
|
|
FractionBox[
|
|
RowBox[{"931.5", "*", "1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}],
|
|
RowBox[{"9", "*",
|
|
SuperscriptBox["10", "16"]}]], "*",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{
|
|
FractionBox["1", "2"],
|
|
SqrtBox[
|
|
FractionBox["5",
|
|
RowBox[{"4", "\[Pi]"}]]], "b2"}], "+",
|
|
RowBox[{
|
|
FractionBox["25",
|
|
RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*",
|
|
"f2"}]}]], "Input",
|
|
CellChangeTimes->{{3.991557474366678*^9,
|
|
3.99155747655138*^9}},ExpressionUUID->"8a758118-d07d-d243-b7d7-\
|
|
f8e668175458"],
|
|
|
|
Cell[BoxData["3.508823705223133`*^-54"], "Output",
|
|
CellChangeTimes->{3.9913204216085243`*^9},
|
|
CellLabel->"Out[69]=",ExpressionUUID->"afd7d2f8-cc87-734c-9c81-c0621f31e0e5"]
|
|
}, Open ]],
|
|
|
|
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[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"],
|
|
|
|
Cell[BoxData["20.232611751799567`"], "Output",
|
|
CellChangeTimes->{
|
|
3.991323706886154*^9, 3.9917089973478775`*^9, 3.9920860582546215`*^9,
|
|
3.992086268464361*^9, 3.992086312066765*^9, 3.9920865713192253`*^9,
|
|
3.992086602134493*^9, 3.9920866682814503`*^9, {3.992086776768282*^9,
|
|
3.99208680410137*^9}, 3.992091247458048*^9, {3.992091392660454*^9,
|
|
3.992091446805294*^9}, {3.9920915031404457`*^9, 3.992091522601553*^9}, {
|
|
3.9920915619364376`*^9, 3.9920915885645847`*^9}},
|
|
CellLabel->
|
|
"Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Qw2", "=",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "1"}]], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}],
|
|
RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input",
|
|
CellChangeTimes->{3.992086162437586*^9},
|
|
CellLabel->
|
|
"In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"],
|
|
|
|
Cell[BoxData["61.811743284264836`"], "Output",
|
|
CellChangeTimes->{
|
|
3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9,
|
|
3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9,
|
|
3.992086668289461*^9, {3.992086776775297*^9, 3.9920868041333256`*^9},
|
|
3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, {
|
|
3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9,
|
|
3.992091588571615*^9}},
|
|
CellLabel->
|
|
"Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hb", "=",
|
|
SqrtBox[
|
|
FractionBox["Kb", "Qb2"]]}]], "Input",
|
|
CellLabel->
|
|
"In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"],
|
|
|
|
Cell[BoxData["2.078701539535334`"], "Output",
|
|
CellChangeTimes->{
|
|
3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9,
|
|
3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9,
|
|
3.992086602164238*^9, 3.9920866683116226`*^9, {3.9920867767991753`*^9,
|
|
3.9920868041580334`*^9}, 3.9920912474925404`*^9, {3.9920913926935654`*^9,
|
|
3.992091446837303*^9}, {3.9920915031795254`*^9, 3.992091522629343*^9}, {
|
|
3.9920915619686337`*^9, 3.992091588596325*^9}},
|
|
CellLabel->
|
|
"Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hw", "=",
|
|
SqrtBox[
|
|
FractionBox["Kw", "Qw2"]]}]], "Input",
|
|
CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}},
|
|
CellLabel->
|
|
"In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"],
|
|
|
|
Cell[BoxData["5.12428714806174`"], "Output",
|
|
CellChangeTimes->{
|
|
3.991320421726494*^9, 3.9917083769120636`*^9, 3.992086312117838*^9,
|
|
3.99208657136524*^9, 3.9920866021953373`*^9, 3.9920866683231354`*^9, {
|
|
3.9920867768061504`*^9, 3.9920868041630306`*^9}, 3.992091247522402*^9, {
|
|
3.992091392715067*^9, 3.9920914468593006`*^9}, {3.992091503202347*^9,
|
|
3.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}},
|
|
CellLabel->
|
|
"Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cw", "=",
|
|
FractionBox[
|
|
RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input",
|
|
CellChangeTimes->{3.992086167409481*^9},
|
|
CellLabel->
|
|
"In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"],
|
|
|
|
Cell[BoxData["316.7411217108498`"], "Output",
|
|
CellChangeTimes->{
|
|
3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9,
|
|
3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9,
|
|
3.9920866683466625`*^9, {3.9920867768341465`*^9, 3.9920868041850357`*^9},
|
|
3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, {
|
|
3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9,
|
|
3.9920915886284447`*^9}},
|
|
CellLabel->
|
|
"Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cb", "=",
|
|
FractionBox[
|
|
RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",
|
|
CellLabel->
|
|
"In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"],
|
|
|
|
Cell[BoxData["42.05756119728645`"], "Output",
|
|
CellChangeTimes->{
|
|
3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9,
|
|
3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9,
|
|
3.99208660222736*^9, 3.9920866683701725`*^9, {3.9920867768552227`*^9,
|
|
3.992086804192051*^9}, 3.9920912475547256`*^9, {3.9920913927436028`*^9,
|
|
3.992091446891386*^9}, {3.9920915032325726`*^9, 3.992091522664852*^9}, {
|
|
3.992091562006651*^9, 3.992091588636162*^9}},
|
|
CellLabel->
|
|
"Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"]
|
|
}, 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[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"],
|
|
|
|
Cell[BoxData["0.007069898460535921`"], "Output",
|
|
CellChangeTimes->{
|
|
3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9,
|
|
3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9,
|
|
3.992086602254381*^9, {3.992086776882221*^9, 3.9920868042180786`*^9},
|
|
3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, {
|
|
3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9,
|
|
3.992091588657053*^9}},
|
|
CellLabel->
|
|
"Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"]
|
|
}, 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[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"],
|
|
|
|
Cell[BoxData["10.539945190547895`"], "Output",
|
|
CellChangeTimes->{
|
|
3.991323707203314*^9, 3.991708997556095*^9, 3.99208606078174*^9,
|
|
3.992086270465349*^9, 3.9920863122235165`*^9, 3.992086602309389*^9, {
|
|
3.9920867769392548`*^9, 3.9920868042750893`*^9}, 3.992091250499668*^9, {
|
|
3.9920913928462048`*^9, 3.9920914469749584`*^9}, {3.992091503316616*^9,
|
|
3.9920915227624416`*^9}, {3.9920915621031647`*^9, 3.9920915887305927`*^9}},
|
|
CellLabel->
|
|
"Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Clear", "[",
|
|
RowBox[{
|
|
"Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}],
|
|
"]"}]], "Input",
|
|
CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, {
|
|
3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9,
|
|
3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, {
|
|
3.9920869541635437`*^9, 3.992086954848522*^9}},
|
|
CellLabel->
|
|
"In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"],
|
|
|
|
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[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"],
|
|
|
|
Cell[BoxData["44.37747929594205`"], "Output",
|
|
CellChangeTimes->{3.991320421637537*^9},
|
|
CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Qw3", "=",
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{"1.05", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "34"}]]}], ")"}], "2"],
|
|
RowBox[{"1.6", "*",
|
|
SuperscriptBox["10",
|
|
RowBox[{"-", "13"}]]}]], ")"}],
|
|
RowBox[{"-", "1"}]], "*",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}],
|
|
RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input",
|
|
CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"],
|
|
|
|
Cell[BoxData["66.74356871519693`"], "Output",
|
|
CellChangeTimes->{3.9913204216685333`*^9},
|
|
CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hb", "=",
|
|
SqrtBox[
|
|
FractionBox["Kb", "Qb3"]]}]], "Input",
|
|
CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"],
|
|
|
|
Cell[BoxData["0.5630879721742558`"], "Output",
|
|
CellChangeTimes->{3.991320421698473*^9},
|
|
CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hw", "=",
|
|
SqrtBox[
|
|
FractionBox["Kw", "Qw3"]]}]], "Input",
|
|
CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"],
|
|
|
|
Cell[BoxData["2.425270911118517`"], "Output",
|
|
CellChangeTimes->{3.991320421726494*^9},
|
|
CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cw", "=",
|
|
FractionBox[
|
|
RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",
|
|
CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"],
|
|
|
|
Cell[BoxData["161.87123570920699`"], "Output",
|
|
CellChangeTimes->{3.9913204217554817`*^9},
|
|
CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cb", "=",
|
|
FractionBox[
|
|
RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",
|
|
CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"],
|
|
|
|
Cell[BoxData["24.98842482695703`"], "Output",
|
|
CellChangeTimes->{3.9913204217855225`*^9},
|
|
CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"]
|
|
}, 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[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"],
|
|
|
|
Cell[BoxData["0.020440609994923815`"], "Output",
|
|
CellChangeTimes->{3.9913204218154297`*^9},
|
|
CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"]
|
|
}, 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[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"],
|
|
|
|
Cell[BoxData["6.198662839936796`"], "Output",
|
|
CellChangeTimes->{3.991320422776104*^9},
|
|
CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"]
|
|
}, 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[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"],
|
|
|
|
Cell[BoxData["0.01158648853220534`"], "Output",
|
|
CellChangeTimes->{3.9913204229248886`*^9},
|
|
CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"]
|
|
}, 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[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"],
|
|
|
|
Cell[BoxData["8.233206772574567`"], "Output",
|
|
CellChangeTimes->{3.9913204230053368`*^9},
|
|
CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"]
|
|
}, 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[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"],
|
|
|
|
Cell[BoxData["0.6154782275967796`"], "Output",
|
|
CellChangeTimes->{3.9913204230393543`*^9},
|
|
CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"]
|
|
}, 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[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"],
|
|
|
|
Cell[BoxData["0.3845217724032204`"], "Output",
|
|
CellChangeTimes->{3.9913204230728855`*^9},
|
|
CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"]
|
|
}, 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[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"],
|
|
|
|
Cell[BoxData["0.2366647789511063`"], "Output",
|
|
CellChangeTimes->{3.9913204231038837`*^9},
|
|
CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Clear", "[",
|
|
RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\
|
|
424c-ba53-995669bbcd65"],
|
|
|
|
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.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\
|
|
3a94fbdbad18"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \
|
|
\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\
|
|
29806995456000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 83, 1,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913204231548862`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \
|
|
\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\
|
|
66213134598144000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 83, 2,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913204231788826`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[83]:=",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \
|
|
\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\
|
|
32188628582006784000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 83, 3,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991320423191887*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[83]:=",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 83, 4, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991320423200884*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"],
|
|
|
|
Cell[BoxData["6.198662839936798`"], "Output",
|
|
CellChangeTimes->{3.9913204260017204`*^9},
|
|
CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"]
|
|
}, 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.9917994459475594`*^9},ExpressionUUID->"0f581ffd-dfa8-e845-a733-\
|
|
ca6cc08b08a0"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \
|
|
\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\
|
|
29806995456000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 84, 5,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913204262354183`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \
|
|
\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\
|
|
66213134598144000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 84, 6,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.99132042625132*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[84]:=",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \
|
|
\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\
|
|
32188628582006784000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 84, 7,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991320426261322*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[84]:=",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 84, 8, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991320426270418*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"],
|
|
|
|
Cell[BoxData["8.233206772574558`"], "Output",
|
|
CellChangeTimes->{3.991320428882721*^9},
|
|
CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"]
|
|
}, 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.9917994505623856`*^9},ExpressionUUID->"1834f328-2171-004d-99c2-\
|
|
8b70b5354bda"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF
|
|
kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN
|
|
42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu
|
|
2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6
|
|
4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh
|
|
zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix
|
|
vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj
|
|
IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb
|
|
gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF
|
|
fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g
|
|
9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve
|
|
dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21
|
|
jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE
|
|
eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg
|
|
F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI
|
|
/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S
|
|
NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW
|
|
n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4
|
|
tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+
|
|
h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i
|
|
cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a
|
|
WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV
|
|
ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr
|
|
PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK
|
|
ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW
|
|
i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/
|
|
C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby
|
|
XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p
|
|
u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI
|
|
WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4
|
|
F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc
|
|
z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6
|
|
Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG
|
|
hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T
|
|
HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG
|
|
HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t
|
|
NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5
|
|
ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h
|
|
lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7
|
|
gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5
|
|
/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP
|
|
b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz
|
|
pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9
|
|
WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po
|
|
LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK
|
|
d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan
|
|
67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv
|
|
T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0
|
|
E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr
|
|
mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi
|
|
hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR
|
|
pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj
|
|
j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq
|
|
U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT
|
|
IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO
|
|
dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4
|
|
nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM
|
|
6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx
|
|
LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt
|
|
tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B
|
|
kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc
|
|
XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN
|
|
0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ
|
|
WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs
|
|
fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn
|
|
CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91
|
|
yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs
|
|
jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ
|
|
S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn
|
|
WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp
|
|
uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ
|
|
DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB
|
|
QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s
|
|
tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ
|
|
i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3
|
|
m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a
|
|
v816fiUGr+eg0YII9v8BEOUgTQ==
|
|
"]]},
|
|
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:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF
|
|
kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN
|
|
42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu
|
|
2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6
|
|
4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh
|
|
zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix
|
|
vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj
|
|
IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb
|
|
gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF
|
|
fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g
|
|
9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve
|
|
dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21
|
|
jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE
|
|
eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg
|
|
F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI
|
|
/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S
|
|
NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW
|
|
n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4
|
|
tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+
|
|
h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i
|
|
cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a
|
|
WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV
|
|
ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr
|
|
PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK
|
|
ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW
|
|
i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/
|
|
C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby
|
|
XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p
|
|
u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI
|
|
WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4
|
|
F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc
|
|
z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6
|
|
Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG
|
|
hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T
|
|
HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG
|
|
HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t
|
|
NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5
|
|
ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h
|
|
lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7
|
|
gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5
|
|
/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP
|
|
b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz
|
|
pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9
|
|
WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po
|
|
LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK
|
|
d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan
|
|
67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv
|
|
T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0
|
|
E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr
|
|
mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi
|
|
hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR
|
|
pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj
|
|
j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq
|
|
U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT
|
|
IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO
|
|
dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4
|
|
nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM
|
|
6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx
|
|
LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt
|
|
tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B
|
|
kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc
|
|
XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN
|
|
0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ
|
|
WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs
|
|
fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn
|
|
CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91
|
|
yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs
|
|
jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ
|
|
S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn
|
|
WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp
|
|
uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ
|
|
DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB
|
|
QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s
|
|
tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ
|
|
i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3
|
|
m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a
|
|
v816fiUGr+eg0YII9v8BEOUgTQ==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.7142433994369213},
|
|
"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.7142433994369197, 1.372243180027523}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.7142433994369213},
|
|
"ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True},
|
|
"LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1),
|
|
"DefaultStyle" -> {
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]]},
|
|
"HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
|
|
Identity[
|
|
Part[#, 1]],
|
|
Identity[
|
|
Part[#, 2]]}& ),
|
|
"ScalingFunctions" -> {{Identity, Identity}, {
|
|
Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
|
|
"Meta" -> <|
|
|
"DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" ->
|
|
Plot, "GroupHighlight" -> False|>|>],
|
|
ImageSizeCache->{{91.80048673422974,
|
|
202.74756866009872`}, {-11.626778089982832`, 5.710721910017167}}],
|
|
Selectable->False]},
|
|
Annotation[{{{{}, {},
|
|
Annotation[{
|
|
Directive[
|
|
Opacity[1.],
|
|
RGBColor[0.368417, 0.506779, 0.709798],
|
|
AbsoluteThickness[2]],
|
|
Line[CompressedData["
|
|
1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF
|
|
kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN
|
|
42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu
|
|
2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6
|
|
4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh
|
|
zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix
|
|
vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj
|
|
IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb
|
|
gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF
|
|
fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g
|
|
9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve
|
|
dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21
|
|
jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE
|
|
eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg
|
|
F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI
|
|
/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S
|
|
NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW
|
|
n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4
|
|
tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+
|
|
h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i
|
|
cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a
|
|
WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV
|
|
ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr
|
|
PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK
|
|
ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW
|
|
i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/
|
|
C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby
|
|
XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p
|
|
u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI
|
|
WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4
|
|
F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc
|
|
z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6
|
|
Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG
|
|
hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T
|
|
HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG
|
|
HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t
|
|
NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5
|
|
ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h
|
|
lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7
|
|
gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5
|
|
/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP
|
|
b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz
|
|
pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9
|
|
WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po
|
|
LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK
|
|
d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan
|
|
67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv
|
|
T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0
|
|
E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr
|
|
mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi
|
|
hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR
|
|
pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj
|
|
j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq
|
|
U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT
|
|
IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO
|
|
dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4
|
|
nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM
|
|
6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx
|
|
LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt
|
|
tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B
|
|
kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc
|
|
XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN
|
|
0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ
|
|
WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs
|
|
fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn
|
|
CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91
|
|
yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs
|
|
jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ
|
|
S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn
|
|
WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp
|
|
uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ
|
|
DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB
|
|
QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s
|
|
tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ
|
|
i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3
|
|
m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a
|
|
v816fiUGr+eg0YII9v8BEOUgTQ==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.7142433994369213},
|
|
"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.7142433994369213},
|
|
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.7142433994369197, 1.372243180027523}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.9913206956809444`*^9},
|
|
CellLabel->"Out[85]=",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"x", "=",
|
|
RowBox[{"Plot", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\
|
|
9aed2c391662"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \
|
|
\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 86, 9,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991320696298666*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \
|
|
\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \
|
|
to represent as a normalized machine number; precision may be lost.\"", 2, 86,
|
|
10, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991320696309664*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \
|
|
\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \
|
|
small to represent as a normalized machine number; precision may be lost.\"",
|
|
2, 86, 11, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991320696318653*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913206963286114`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS
|
|
ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/
|
|
++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv
|
|
2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq
|
|
8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i
|
|
l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M
|
|
P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9
|
|
w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os
|
|
bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e
|
|
aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L
|
|
WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV
|
|
ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY
|
|
bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq
|
|
cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X
|
|
Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3
|
|
tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL
|
|
W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW
|
|
zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5
|
|
PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI
|
|
KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O
|
|
SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA
|
|
F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6
|
|
LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP
|
|
vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9
|
|
duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn
|
|
z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6
|
|
d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3
|
|
t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid
|
|
SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6
|
|
bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre
|
|
K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV
|
|
69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN
|
|
xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg
|
|
AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d
|
|
d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1
|
|
ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn
|
|
l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX
|
|
Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx
|
|
e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x
|
|
7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe
|
|
l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg
|
|
4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o
|
|
mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas
|
|
IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W
|
|
JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb
|
|
HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+
|
|
aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS
|
|
KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo
|
|
QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ
|
|
kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA
|
|
ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF
|
|
nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8
|
|
kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA
|
|
rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ
|
|
wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk
|
|
QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW
|
|
KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG
|
|
O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn
|
|
1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45
|
|
k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4
|
|
5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6
|
|
t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6
|
|
iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+
|
|
lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU
|
|
vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh
|
|
kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx
|
|
Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ
|
|
WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM
|
|
1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H
|
|
1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ
|
|
RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm
|
|
S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL
|
|
OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I
|
|
MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+
|
|
fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l
|
|
9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO
|
|
xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV
|
|
nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj
|
|
ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o
|
|
HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k
|
|
U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C
|
|
ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1
|
|
LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV
|
|
Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V
|
|
qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9
|
|
D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt
|
|
p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+
|
|
qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w
|
|
rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88
|
|
iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6
|
|
7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S
|
|
pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi
|
|
itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV
|
|
//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f
|
|
rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD
|
|
YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV
|
|
IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U
|
|
0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K
|
|
MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1
|
|
U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4
|
|
a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7
|
|
2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE
|
|
Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1
|
|
x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z
|
|
sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU
|
|
DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL
|
|
hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf
|
|
oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ
|
|
hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC
|
|
fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B
|
|
7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT
|
|
4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT
|
|
AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3
|
|
iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv
|
|
powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC
|
|
xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu
|
|
yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J
|
|
5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/
|
|
VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os
|
|
vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ
|
|
zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy
|
|
Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl
|
|
KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN
|
|
nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH
|
|
JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do
|
|
338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag
|
|
+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN
|
|
yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP
|
|
G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ
|
|
hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B
|
|
49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/
|
|
XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61
|
|
KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU
|
|
m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi
|
|
k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw
|
|
/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov
|
|
evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg
|
|
D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+
|
|
rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT
|
|
xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95
|
|
N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU
|
|
mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+
|
|
5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2
|
|
TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg
|
|
ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0
|
|
YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir
|
|
A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5
|
|
MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl
|
|
WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9
|
|
z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E
|
|
XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw
|
|
GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit
|
|
DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail
|
|
Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48
|
|
qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5
|
|
krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9
|
|
wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv
|
|
ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw
|
|
cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM
|
|
yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd
|
|
+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy
|
|
RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+
|
|
ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV
|
|
ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS
|
|
eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s
|
|
lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz
|
|
mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI
|
|
q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2
|
|
ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j
|
|
LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD
|
|
MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz
|
|
/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+
|
|
cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn
|
|
HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6
|
|
kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o
|
|
woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ
|
|
YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6
|
|
9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD
|
|
gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU
|
|
I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq
|
|
P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i
|
|
UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX
|
|
Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0
|
|
+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX
|
|
PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA
|
|
HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd
|
|
RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH
|
|
xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB
|
|
Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39
|
|
AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd
|
|
rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0
|
|
o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk
|
|
cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH
|
|
Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU
|
|
Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9
|
|
OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz
|
|
aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO
|
|
h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5
|
|
c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA
|
|
73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h
|
|
AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn
|
|
jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc
|
|
f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW
|
|
WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M
|
|
U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof
|
|
HbLGog==
|
|
"]]},
|
|
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:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS
|
|
ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/
|
|
++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv
|
|
2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq
|
|
8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i
|
|
l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M
|
|
P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9
|
|
w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os
|
|
bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e
|
|
aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L
|
|
WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV
|
|
ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY
|
|
bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq
|
|
cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X
|
|
Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3
|
|
tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL
|
|
W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW
|
|
zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5
|
|
PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI
|
|
KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O
|
|
SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA
|
|
F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6
|
|
LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP
|
|
vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9
|
|
duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn
|
|
z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6
|
|
d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3
|
|
t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid
|
|
SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6
|
|
bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre
|
|
K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV
|
|
69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN
|
|
xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg
|
|
AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d
|
|
d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1
|
|
ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn
|
|
l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX
|
|
Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx
|
|
e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x
|
|
7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe
|
|
l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg
|
|
4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o
|
|
mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas
|
|
IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W
|
|
JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb
|
|
HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+
|
|
aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS
|
|
KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo
|
|
QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ
|
|
kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA
|
|
ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF
|
|
nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8
|
|
kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA
|
|
rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ
|
|
wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk
|
|
QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW
|
|
KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG
|
|
O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn
|
|
1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45
|
|
k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4
|
|
5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6
|
|
t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6
|
|
iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+
|
|
lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU
|
|
vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh
|
|
kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx
|
|
Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ
|
|
WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM
|
|
1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H
|
|
1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ
|
|
RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm
|
|
S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL
|
|
OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I
|
|
MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+
|
|
fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l
|
|
9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO
|
|
xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV
|
|
nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj
|
|
ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o
|
|
HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k
|
|
U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C
|
|
ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1
|
|
LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV
|
|
Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V
|
|
qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9
|
|
D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt
|
|
p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+
|
|
qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w
|
|
rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88
|
|
iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6
|
|
7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S
|
|
pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi
|
|
itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV
|
|
//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f
|
|
rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD
|
|
YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV
|
|
IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U
|
|
0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K
|
|
MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1
|
|
U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4
|
|
a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7
|
|
2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE
|
|
Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1
|
|
x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z
|
|
sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU
|
|
DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL
|
|
hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf
|
|
oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ
|
|
hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC
|
|
fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B
|
|
7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT
|
|
4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT
|
|
AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3
|
|
iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv
|
|
powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC
|
|
xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu
|
|
yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J
|
|
5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/
|
|
VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os
|
|
vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ
|
|
zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy
|
|
Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl
|
|
KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN
|
|
nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH
|
|
JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do
|
|
338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag
|
|
+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN
|
|
yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP
|
|
G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ
|
|
hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B
|
|
49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/
|
|
XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61
|
|
KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU
|
|
m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi
|
|
k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw
|
|
/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov
|
|
evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg
|
|
D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+
|
|
rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT
|
|
xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95
|
|
N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU
|
|
mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+
|
|
5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2
|
|
TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg
|
|
ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0
|
|
YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir
|
|
A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5
|
|
MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl
|
|
WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9
|
|
z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E
|
|
XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw
|
|
GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit
|
|
DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail
|
|
Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48
|
|
qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5
|
|
krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9
|
|
wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv
|
|
ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw
|
|
cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM
|
|
yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd
|
|
+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy
|
|
RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+
|
|
ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV
|
|
ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS
|
|
eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s
|
|
lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz
|
|
mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI
|
|
q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2
|
|
ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j
|
|
LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD
|
|
MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz
|
|
/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+
|
|
cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn
|
|
HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6
|
|
kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o
|
|
woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ
|
|
YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6
|
|
9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD
|
|
gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU
|
|
I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq
|
|
P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i
|
|
UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX
|
|
Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0
|
|
+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX
|
|
PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA
|
|
HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd
|
|
RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH
|
|
xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB
|
|
Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39
|
|
AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd
|
|
rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0
|
|
o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk
|
|
cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH
|
|
Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU
|
|
Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9
|
|
OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz
|
|
aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO
|
|
h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5
|
|
c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA
|
|
73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h
|
|
AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn
|
|
jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc
|
|
f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW
|
|
WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M
|
|
U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof
|
|
HbLGog==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}},
|
|
"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.12263499218727081`}},
|
|
"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:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS
|
|
ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/
|
|
++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv
|
|
2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq
|
|
8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i
|
|
l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M
|
|
P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9
|
|
w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os
|
|
bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e
|
|
aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L
|
|
WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV
|
|
ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY
|
|
bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq
|
|
cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X
|
|
Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3
|
|
tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL
|
|
W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW
|
|
zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5
|
|
PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI
|
|
KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O
|
|
SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA
|
|
F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6
|
|
LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP
|
|
vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9
|
|
duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn
|
|
z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6
|
|
d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3
|
|
t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid
|
|
SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6
|
|
bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre
|
|
K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV
|
|
69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN
|
|
xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg
|
|
AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d
|
|
d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1
|
|
ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn
|
|
l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX
|
|
Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx
|
|
e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x
|
|
7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe
|
|
l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg
|
|
4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o
|
|
mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas
|
|
IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W
|
|
JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb
|
|
HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+
|
|
aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS
|
|
KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo
|
|
QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ
|
|
kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA
|
|
ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF
|
|
nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8
|
|
kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA
|
|
rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ
|
|
wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk
|
|
QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW
|
|
KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG
|
|
O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn
|
|
1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45
|
|
k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4
|
|
5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6
|
|
t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6
|
|
iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+
|
|
lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU
|
|
vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh
|
|
kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx
|
|
Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ
|
|
WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM
|
|
1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H
|
|
1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ
|
|
RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm
|
|
S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL
|
|
OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I
|
|
MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+
|
|
fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l
|
|
9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO
|
|
xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV
|
|
nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj
|
|
ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o
|
|
HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k
|
|
U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C
|
|
ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1
|
|
LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV
|
|
Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V
|
|
qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9
|
|
D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt
|
|
p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+
|
|
qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w
|
|
rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88
|
|
iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6
|
|
7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S
|
|
pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi
|
|
itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV
|
|
//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f
|
|
rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD
|
|
YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV
|
|
IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U
|
|
0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K
|
|
MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1
|
|
U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4
|
|
a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7
|
|
2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE
|
|
Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1
|
|
x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z
|
|
sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU
|
|
DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL
|
|
hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf
|
|
oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ
|
|
hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC
|
|
fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B
|
|
7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT
|
|
4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT
|
|
AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3
|
|
iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv
|
|
powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC
|
|
xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu
|
|
yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J
|
|
5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/
|
|
VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os
|
|
vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ
|
|
zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy
|
|
Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl
|
|
KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN
|
|
nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH
|
|
JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do
|
|
338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag
|
|
+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN
|
|
yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP
|
|
G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ
|
|
hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B
|
|
49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/
|
|
XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61
|
|
KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU
|
|
m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi
|
|
k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw
|
|
/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov
|
|
evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg
|
|
D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+
|
|
rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT
|
|
xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95
|
|
N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU
|
|
mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+
|
|
5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2
|
|
TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg
|
|
ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0
|
|
YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir
|
|
A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5
|
|
MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl
|
|
WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9
|
|
z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E
|
|
XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw
|
|
GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit
|
|
DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail
|
|
Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48
|
|
qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5
|
|
krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9
|
|
wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv
|
|
ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw
|
|
cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM
|
|
yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd
|
|
+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy
|
|
RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+
|
|
ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV
|
|
ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS
|
|
eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s
|
|
lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz
|
|
mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI
|
|
q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2
|
|
ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j
|
|
LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD
|
|
MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz
|
|
/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+
|
|
cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn
|
|
HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6
|
|
kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o
|
|
woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ
|
|
YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6
|
|
9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD
|
|
gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU
|
|
I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq
|
|
P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i
|
|
UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX
|
|
Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0
|
|
+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX
|
|
PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA
|
|
HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd
|
|
RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH
|
|
xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB
|
|
Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39
|
|
AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd
|
|
rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0
|
|
o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk
|
|
cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH
|
|
Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU
|
|
Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9
|
|
OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz
|
|
aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO
|
|
h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5
|
|
c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA
|
|
73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h
|
|
AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn
|
|
jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc
|
|
f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW
|
|
WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M
|
|
U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof
|
|
HbLGog==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}},
|
|
"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.12263499218727081`}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.9913218813523655`*^9},
|
|
CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"xx", "=",
|
|
RowBox[{"ListPlot", "[",
|
|
RowBox[{"{", "}"}], "]"}]}]], "Input",
|
|
CellChangeTimes->{{3.991799458254999*^9,
|
|
3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\
|
|
9e93d345c648"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Show", "[",
|
|
RowBox[{"x", ",", "xx"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.9917994642649307`*^9,
|
|
3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\
|
|
ec28b28907cc"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"L", "=",
|
|
FractionBox[
|
|
SqrtBox[
|
|
RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input",
|
|
CellChangeTimes->{
|
|
3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"],
|
|
|
|
Cell[BoxData["11.27534350842078`"], "Output",
|
|
CellChangeTimes->{3.9913229040054893`*^9},
|
|
CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"]
|
|
}, 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.991799666995865*^9},ExpressionUUID->"7116d4f3-8ab8-b741-8264-\
|
|
0a5eeac170a0"],
|
|
|
|
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, 89, 17, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913229042538757`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"],
|
|
|
|
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, 89, 18, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913229042728806`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"],
|
|
|
|
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, 89, 19, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913229042938766`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 89, 20, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913229043127804`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU
|
|
RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER
|
|
/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp
|
|
zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a
|
|
OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf
|
|
9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11
|
|
Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy
|
|
/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE
|
|
YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ
|
|
BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP
|
|
isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx
|
|
ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv
|
|
NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj
|
|
bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu
|
|
yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W
|
|
NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ
|
|
/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4
|
|
6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue
|
|
9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8
|
|
M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe
|
|
bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx
|
|
G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p
|
|
v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA
|
|
rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o
|
|
YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm
|
|
flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR
|
|
Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD
|
|
4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8
|
|
K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu
|
|
z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695
|
|
alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR
|
|
p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK
|
|
+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy
|
|
PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB
|
|
98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU
|
|
hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K
|
|
CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR
|
|
XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+
|
|
8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z
|
|
uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x
|
|
8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0
|
|
C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN
|
|
J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS
|
|
+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT
|
|
lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g
|
|
zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl
|
|
17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA
|
|
oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE
|
|
Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz
|
|
+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ
|
|
g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW
|
|
Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7
|
|
u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+
|
|
zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN
|
|
1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO
|
|
bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l
|
|
NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley
|
|
UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj
|
|
bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG
|
|
wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO
|
|
Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh
|
|
oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB
|
|
9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE
|
|
Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE
|
|
jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU
|
|
wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh
|
|
hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV
|
|
TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N
|
|
6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il
|
|
mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E
|
|
kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV
|
|
wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM
|
|
lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka
|
|
XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E
|
|
9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn
|
|
gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC
|
|
MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae
|
|
1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85
|
|
JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL
|
|
h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD
|
|
eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu
|
|
igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH
|
|
LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG
|
|
cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o
|
|
ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e
|
|
tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p
|
|
znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb
|
|
QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X
|
|
3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP
|
|
U0FU/w==
|
|
"]]},
|
|
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:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU
|
|
RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER
|
|
/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp
|
|
zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a
|
|
OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf
|
|
9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11
|
|
Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy
|
|
/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE
|
|
YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ
|
|
BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP
|
|
isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx
|
|
ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv
|
|
NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj
|
|
bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu
|
|
yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W
|
|
NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ
|
|
/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4
|
|
6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue
|
|
9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8
|
|
M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe
|
|
bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx
|
|
G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p
|
|
v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA
|
|
rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o
|
|
YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm
|
|
flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR
|
|
Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD
|
|
4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8
|
|
K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu
|
|
z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695
|
|
alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR
|
|
p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK
|
|
+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy
|
|
PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB
|
|
98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU
|
|
hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K
|
|
CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR
|
|
XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+
|
|
8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z
|
|
uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x
|
|
8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0
|
|
C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN
|
|
J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS
|
|
+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT
|
|
lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g
|
|
zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl
|
|
17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA
|
|
oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE
|
|
Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz
|
|
+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ
|
|
g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW
|
|
Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7
|
|
u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+
|
|
zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN
|
|
1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO
|
|
bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l
|
|
NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley
|
|
UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj
|
|
bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG
|
|
wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO
|
|
Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh
|
|
oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB
|
|
9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE
|
|
Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE
|
|
jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU
|
|
wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh
|
|
hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV
|
|
TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N
|
|
6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il
|
|
mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E
|
|
kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV
|
|
wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM
|
|
lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka
|
|
XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E
|
|
9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn
|
|
gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC
|
|
MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae
|
|
1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85
|
|
JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL
|
|
h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD
|
|
eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu
|
|
igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH
|
|
LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG
|
|
cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o
|
|
ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e
|
|
tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p
|
|
znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb
|
|
QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X
|
|
3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP
|
|
U0FU/w==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 30}, {0., 0.06741909458355917}},
|
|
"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.06741909458355917}},
|
|
"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:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU
|
|
RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER
|
|
/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp
|
|
zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a
|
|
OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf
|
|
9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11
|
|
Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy
|
|
/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE
|
|
YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ
|
|
BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP
|
|
isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx
|
|
ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv
|
|
NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj
|
|
bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu
|
|
yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W
|
|
NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ
|
|
/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4
|
|
6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue
|
|
9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8
|
|
M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe
|
|
bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx
|
|
G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p
|
|
v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA
|
|
rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o
|
|
YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm
|
|
flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR
|
|
Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD
|
|
4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8
|
|
K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu
|
|
z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695
|
|
alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR
|
|
p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK
|
|
+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy
|
|
PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB
|
|
98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU
|
|
hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K
|
|
CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR
|
|
XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+
|
|
8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z
|
|
uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x
|
|
8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0
|
|
C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN
|
|
J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS
|
|
+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT
|
|
lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g
|
|
zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl
|
|
17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA
|
|
oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE
|
|
Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz
|
|
+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ
|
|
g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW
|
|
Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7
|
|
u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+
|
|
zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN
|
|
1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO
|
|
bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l
|
|
NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley
|
|
UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj
|
|
bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG
|
|
wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO
|
|
Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh
|
|
oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB
|
|
9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE
|
|
Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE
|
|
jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU
|
|
wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh
|
|
hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV
|
|
TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N
|
|
6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il
|
|
mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E
|
|
kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV
|
|
wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM
|
|
lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka
|
|
XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E
|
|
9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn
|
|
gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC
|
|
MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae
|
|
1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85
|
|
JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL
|
|
h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD
|
|
eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu
|
|
igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH
|
|
LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG
|
|
cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o
|
|
ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e
|
|
tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p
|
|
znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb
|
|
QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X
|
|
3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP
|
|
U0FU/w==
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 30}, {0., 0.06741909458355917}},
|
|
"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.06741909458355917}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.9913236646248627`*^9},
|
|
CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"]
|
|
}, 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[90]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"],
|
|
|
|
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, 90,
|
|
21, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991323664732767*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"],
|
|
|
|
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, 90, 22, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.99132366476486*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"],
|
|
|
|
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, 90, 23, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913236647877655`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 90, 24, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913236648078594`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"],
|
|
|
|
Cell[BoxData["11.275343508420768`"], "Output",
|
|
CellChangeTimes->{3.9913236764669056`*^9},
|
|
CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"]
|
|
}, 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.9917996753598194`*^9,
|
|
3.991799698091812*^9}},ExpressionUUID->"18d0289f-01fd-a740-8fac-\
|
|
540622282b2c"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \
|
|
\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\
|
|
29806995456000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 91, 25,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913236765399036`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \
|
|
\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\
|
|
66213134598144000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 91, 26,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913236765679016`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \
|
|
\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\
|
|
32188628582006784000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 91, 27,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991323676587904*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 91, 28, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913236766039066`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"],
|
|
|
|
Cell[BoxData["0.5376063675902706`"], "Output",
|
|
CellChangeTimes->{3.9913236883162384`*^9},
|
|
CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"]
|
|
}, 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.9917997261183853`*^9,
|
|
3.991799730012718*^9}},ExpressionUUID->"33f25e29-8e2f-5249-9603-\
|
|
4bb381db84df"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \
|
|
\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\
|
|
29806995456000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 92, 29,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.99132368839011*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \
|
|
\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\
|
|
66213134598144000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 92, 30,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913236884141064`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \
|
|
\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\
|
|
32188628582006784000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 92, 31,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991323688443001*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 92, 32, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913236884570007`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"],
|
|
|
|
Cell[BoxData["10.498798062085507`"], "Output",
|
|
CellChangeTimes->{3.9913236988049507`*^9},
|
|
CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"]
|
|
}, 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.9917997336698074`*^9,
|
|
3.9917997367747993`*^9}},ExpressionUUID->"88e14da9-8532-e842-b722-\
|
|
1b0781de8eeb"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \
|
|
\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\
|
|
29806995456000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 93, 33,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991323698915848*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \
|
|
\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\
|
|
66213134598144000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 93, 34,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991323698943981*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \
|
|
\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\
|
|
32188628582006784000000000000000000\\\"]\\) is too small to represent as a \
|
|
normalized machine number; precision may be lost.\"", 2, 93, 35,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991323698971981*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 93, 36, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991323698986994*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"],
|
|
|
|
Cell[BoxData["18.521732102530788`"], "Output",
|
|
CellChangeTimes->{3.991323706795576*^9},
|
|
CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
FractionBox["q",
|
|
SqrtBox[
|
|
RowBox[{"S1", "*", "S2"}]]]], "Input",
|
|
CellChangeTimes->{{3.991799742384985*^9,
|
|
3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\
|
|
e5f89f4ec38f"],
|
|
|
|
Cell[BoxData["0.038552612544494616`"], "Output",
|
|
CellChangeTimes->{3.991323706858589*^9},
|
|
CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Clear", "[",
|
|
RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.9917997487290344`*^9, 3.991799750684988*^9},
|
|
3.9919243164025135`*^9},ExpressionUUID->"c771f2bd-f081-e54a-b4e5-\
|
|
bf0dbc996ac3"],
|
|
|
|
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[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"],
|
|
|
|
Cell[BoxData["19.580504093356314`"], "Output",
|
|
CellChangeTimes->{3.991323706886154*^9},
|
|
CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hb", "=",
|
|
SqrtBox[
|
|
FractionBox["Kb", "Qb2"]]}]], "Input",
|
|
CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"],
|
|
|
|
Cell[BoxData["0.8477067309358528`"], "Output",
|
|
CellChangeTimes->{3.9913237069236546`*^9},
|
|
CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cb", "=",
|
|
FractionBox[
|
|
RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",
|
|
CellLabel->
|
|
"In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"],
|
|
|
|
Cell[BoxData["16.598525115055164`"], "Output",
|
|
CellChangeTimes->{3.9913237069753113`*^9},
|
|
CellLabel->
|
|
"Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"]
|
|
}, 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[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"],
|
|
|
|
Cell[BoxData["0.02467166981689615`"], "Output",
|
|
CellChangeTimes->{3.991323707000412*^9},
|
|
CellLabel->
|
|
"Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"]
|
|
}, 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[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"],
|
|
|
|
Cell[BoxData["5.642163519289108`"], "Output",
|
|
CellChangeTimes->{3.991323707203314*^9},
|
|
CellLabel->
|
|
"Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"]
|
|
}, 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[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"],
|
|
|
|
Cell[BoxData["0.012834083028601704`"], "Output",
|
|
CellChangeTimes->{3.9913237072224197`*^9},
|
|
CellLabel->
|
|
"Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"]
|
|
}, 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[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"],
|
|
|
|
Cell[BoxData["7.82280524717004`"], "Output",
|
|
CellChangeTimes->{3.991323707432623*^9},
|
|
CellLabel->
|
|
"Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"]
|
|
}, 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[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"],
|
|
|
|
Cell[BoxData["0.6154782275967796`"], "Output",
|
|
CellChangeTimes->{3.9913237074497375`*^9},
|
|
CellLabel->
|
|
"Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"]
|
|
}, 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[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"],
|
|
|
|
Cell[BoxData["0.3845217724032204`"], "Output",
|
|
CellChangeTimes->{3.991323707467621*^9},
|
|
CellLabel->
|
|
"Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"]
|
|
}, 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[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"],
|
|
|
|
Cell[BoxData["0.2366647789511063`"], "Output",
|
|
CellChangeTimes->{3.991323707488617*^9},
|
|
CellLabel->
|
|
"Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"]
|
|
}, 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.991799766323864*^9},ExpressionUUID->"ee2d2671-1677-5943-bf7a-\
|
|
6ffa36275fe8"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 109, 37,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913237075117207`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 109,
|
|
38, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991323707545618*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 109,
|
|
39, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913237075757256`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 109, 40, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913237075926247`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"],
|
|
|
|
Cell[BoxData["5.642163519289105`"], "Output",
|
|
CellChangeTimes->{3.9913237161181736`*^9},
|
|
CellLabel->
|
|
"Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"]
|
|
}, 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.9917997699328365`*^9},ExpressionUUID->"b0b1035a-0fdf-b146-a71f-\
|
|
1ab9142a9a90"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 110, 41,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913237161871567`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 110,
|
|
42, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913237162070637`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 110,
|
|
43, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991323716227171*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 110, 44, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913237162481613`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"],
|
|
|
|
Cell[BoxData["7.822805247170038`"], "Output",
|
|
CellChangeTimes->{3.991323724852854*^9},
|
|
CellLabel->
|
|
"Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"]
|
|
}, 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.9917997843341885`*^9},ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-\
|
|
ff25938e6592"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq
|
|
kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf
|
|
yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3
|
|
F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb
|
|
d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo
|
|
zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7
|
|
oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52
|
|
VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4
|
|
wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr
|
|
bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0
|
|
W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW
|
|
gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF
|
|
PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b
|
|
nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo
|
|
uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548
|
|
RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H
|
|
5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh
|
|
gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS
|
|
PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE
|
|
MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr
|
|
02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey
|
|
IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l
|
|
PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM
|
|
sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord
|
|
9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y
|
|
caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9
|
|
0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s
|
|
rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx
|
|
zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U
|
|
oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG
|
|
0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii
|
|
9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6
|
|
oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH
|
|
bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth
|
|
9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k
|
|
OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2
|
|
6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o
|
|
d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP
|
|
5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2
|
|
gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp
|
|
6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9
|
|
dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc
|
|
GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY
|
|
5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc
|
|
J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2
|
|
2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt
|
|
zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l
|
|
tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0
|
|
djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa
|
|
J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL
|
|
mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm
|
|
mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY
|
|
EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ
|
|
XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg
|
|
9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ
|
|
OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC
|
|
iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD
|
|
23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6
|
|
BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s
|
|
UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+
|
|
otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7
|
|
XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro
|
|
tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y
|
|
2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK
|
|
2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU
|
|
agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s
|
|
tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL
|
|
24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du
|
|
SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0
|
|
P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ
|
|
g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n
|
|
F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH
|
|
76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou
|
|
j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt
|
|
FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2
|
|
jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc
|
|
+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0
|
|
|
|
"]]},
|
|
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:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq
|
|
kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf
|
|
yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3
|
|
F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb
|
|
d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo
|
|
zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7
|
|
oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52
|
|
VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4
|
|
wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr
|
|
bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0
|
|
W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW
|
|
gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF
|
|
PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b
|
|
nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo
|
|
uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548
|
|
RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H
|
|
5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh
|
|
gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS
|
|
PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE
|
|
MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr
|
|
02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey
|
|
IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l
|
|
PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM
|
|
sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord
|
|
9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y
|
|
caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9
|
|
0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s
|
|
rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx
|
|
zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U
|
|
oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG
|
|
0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii
|
|
9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6
|
|
oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH
|
|
bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth
|
|
9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k
|
|
OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2
|
|
6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o
|
|
d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP
|
|
5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2
|
|
gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp
|
|
6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9
|
|
dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc
|
|
GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY
|
|
5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc
|
|
J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2
|
|
2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt
|
|
zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l
|
|
tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0
|
|
djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa
|
|
J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL
|
|
mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm
|
|
mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY
|
|
EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ
|
|
XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg
|
|
9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ
|
|
OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC
|
|
iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD
|
|
23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6
|
|
BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s
|
|
UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+
|
|
otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7
|
|
XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro
|
|
tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y
|
|
2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK
|
|
2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU
|
|
agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s
|
|
tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL
|
|
24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du
|
|
SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0
|
|
P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ
|
|
g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n
|
|
F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH
|
|
76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou
|
|
j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt
|
|
FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2
|
|
jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc
|
|
+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0
|
|
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.5082122808512877,
|
|
1.8240550855476267`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.5082122808512888},
|
|
"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.5082122808512877,
|
|
1.8240550855476267`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.5082122808512888},
|
|
"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:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq
|
|
kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf
|
|
yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3
|
|
F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb
|
|
d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo
|
|
zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7
|
|
oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52
|
|
VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4
|
|
wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr
|
|
bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0
|
|
W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW
|
|
gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF
|
|
PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b
|
|
nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo
|
|
uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548
|
|
RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H
|
|
5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh
|
|
gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS
|
|
PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE
|
|
MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr
|
|
02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey
|
|
IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l
|
|
PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM
|
|
sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord
|
|
9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y
|
|
caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9
|
|
0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s
|
|
rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx
|
|
zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U
|
|
oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG
|
|
0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii
|
|
9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6
|
|
oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH
|
|
bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth
|
|
9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k
|
|
OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2
|
|
6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o
|
|
d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP
|
|
5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2
|
|
gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp
|
|
6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9
|
|
dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc
|
|
GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY
|
|
5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc
|
|
J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2
|
|
2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt
|
|
zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l
|
|
tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0
|
|
djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa
|
|
J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL
|
|
mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm
|
|
mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY
|
|
EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ
|
|
XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg
|
|
9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ
|
|
OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC
|
|
iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD
|
|
23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6
|
|
BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s
|
|
UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+
|
|
otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7
|
|
XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro
|
|
tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y
|
|
2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK
|
|
2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU
|
|
agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s
|
|
tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL
|
|
24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du
|
|
SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0
|
|
P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ
|
|
g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n
|
|
F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH
|
|
76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou
|
|
j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt
|
|
FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2
|
|
jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc
|
|
+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0
|
|
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.5082122808512888},
|
|
"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.5082122808512888},
|
|
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.5082122808512877, 1.8240550855476267`}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.9913242457281837`*^9},
|
|
CellLabel->
|
|
"Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"x", "=",
|
|
RowBox[{"Plot", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input",
|
|
CellChangeTimes->{{3.9917997871187477`*^9,
|
|
3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\
|
|
d12d9d52c36b"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \
|
|
\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 112,
|
|
45, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991324246104725*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[112]:=",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.877419838456823`*^-281\\\", \
|
|
\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \
|
|
to represent as a normalized machine number; precision may be lost.\"", 2,
|
|
112, 46, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913242461217346`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[112]:=",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.990320554242227`*^-292\\\", \
|
|
\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \
|
|
small to represent as a normalized machine number; precision may be lost.\"",
|
|
2, 112, 47, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913242461427383`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[112]:=",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 112, 48, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991324246159645*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh
|
|
pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC
|
|
C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe
|
|
hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T
|
|
4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O
|
|
+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb
|
|
dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X
|
|
rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd
|
|
P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt
|
|
SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw
|
|
OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB
|
|
tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq
|
|
YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq
|
|
QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h
|
|
khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV
|
|
JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw
|
|
hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq
|
|
o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg
|
|
PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN
|
|
QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS
|
|
mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH
|
|
hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i
|
|
2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv
|
|
x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9
|
|
GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq
|
|
6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY
|
|
FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7
|
|
jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf
|
|
uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en
|
|
6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s
|
|
jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN
|
|
Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld
|
|
nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8
|
|
kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n
|
|
lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2
|
|
NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN
|
|
cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa
|
|
aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu
|
|
oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC
|
|
gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv
|
|
xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb
|
|
Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q
|
|
pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp
|
|
bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE
|
|
YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6
|
|
Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv
|
|
857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG
|
|
rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA
|
|
vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B
|
|
ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4
|
|
UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l
|
|
49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU
|
|
/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj
|
|
ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF
|
|
vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz
|
|
056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm
|
|
0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx
|
|
4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2
|
|
8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ
|
|
LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa
|
|
D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP
|
|
jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU
|
|
KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG
|
|
Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1
|
|
DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x
|
|
F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4
|
|
yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN
|
|
JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa
|
|
azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t
|
|
c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh
|
|
P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa
|
|
M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg
|
|
5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o
|
|
r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D
|
|
2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi
|
|
ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq
|
|
y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt
|
|
r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb
|
|
32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+
|
|
lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M
|
|
D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL
|
|
QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg
|
|
YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY
|
|
F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu
|
|
Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r
|
|
4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH
|
|
99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn
|
|
4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/
|
|
uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs
|
|
|
|
"]]},
|
|
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:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh
|
|
pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC
|
|
C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe
|
|
hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T
|
|
4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O
|
|
+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb
|
|
dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X
|
|
rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd
|
|
P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt
|
|
SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw
|
|
OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB
|
|
tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq
|
|
YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq
|
|
QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h
|
|
khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV
|
|
JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw
|
|
hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq
|
|
o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg
|
|
PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN
|
|
QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS
|
|
mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH
|
|
hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i
|
|
2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv
|
|
x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9
|
|
GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq
|
|
6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY
|
|
FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7
|
|
jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf
|
|
uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en
|
|
6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s
|
|
jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN
|
|
Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld
|
|
nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8
|
|
kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n
|
|
lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2
|
|
NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN
|
|
cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa
|
|
aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu
|
|
oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC
|
|
gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv
|
|
xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb
|
|
Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q
|
|
pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp
|
|
bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE
|
|
YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6
|
|
Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv
|
|
857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG
|
|
rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA
|
|
vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B
|
|
ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4
|
|
UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l
|
|
49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU
|
|
/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj
|
|
ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF
|
|
vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz
|
|
056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm
|
|
0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx
|
|
4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2
|
|
8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ
|
|
LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa
|
|
D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP
|
|
jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU
|
|
KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG
|
|
Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1
|
|
DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x
|
|
F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4
|
|
yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN
|
|
JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa
|
|
azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t
|
|
c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh
|
|
P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa
|
|
M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg
|
|
5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o
|
|
r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D
|
|
2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi
|
|
ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq
|
|
y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt
|
|
r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb
|
|
32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+
|
|
lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M
|
|
D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL
|
|
QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg
|
|
YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY
|
|
F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu
|
|
Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r
|
|
4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH
|
|
99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn
|
|
4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/
|
|
uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs
|
|
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}},
|
|
"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.13473082946272152`}},
|
|
"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:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh
|
|
pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC
|
|
C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe
|
|
hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T
|
|
4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O
|
|
+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb
|
|
dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X
|
|
rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd
|
|
P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt
|
|
SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw
|
|
OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB
|
|
tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq
|
|
YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq
|
|
QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h
|
|
khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV
|
|
JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw
|
|
hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq
|
|
o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg
|
|
PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN
|
|
QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS
|
|
mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH
|
|
hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i
|
|
2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv
|
|
x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9
|
|
GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq
|
|
6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY
|
|
FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7
|
|
jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf
|
|
uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en
|
|
6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s
|
|
jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN
|
|
Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld
|
|
nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8
|
|
kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n
|
|
lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2
|
|
NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN
|
|
cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa
|
|
aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu
|
|
oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC
|
|
gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv
|
|
xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb
|
|
Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q
|
|
pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp
|
|
bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE
|
|
YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6
|
|
Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv
|
|
857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG
|
|
rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA
|
|
vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B
|
|
ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4
|
|
UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l
|
|
49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU
|
|
/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj
|
|
ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF
|
|
vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz
|
|
056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm
|
|
0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx
|
|
4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2
|
|
8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ
|
|
LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa
|
|
D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP
|
|
jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU
|
|
KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG
|
|
Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1
|
|
DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x
|
|
F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4
|
|
yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN
|
|
JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa
|
|
azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t
|
|
c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh
|
|
P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa
|
|
M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg
|
|
5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o
|
|
r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D
|
|
2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi
|
|
ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq
|
|
y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt
|
|
r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb
|
|
32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+
|
|
lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M
|
|
D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL
|
|
QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg
|
|
YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY
|
|
F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu
|
|
Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r
|
|
4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH
|
|
99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn
|
|
4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/
|
|
uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs
|
|
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}},
|
|
"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.13473082946272152`}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.991324915847246*^9},
|
|
CellLabel->
|
|
"Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9,
|
|
3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\
|
|
4f98a6653ef7"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Show", "[",
|
|
RowBox[{"x", ",", "xx"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.991799819852022*^9,
|
|
3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\
|
|
6e6b94590d4b"],
|
|
|
|
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[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"],
|
|
|
|
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, 116, 57, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913265068365192`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"],
|
|
|
|
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, 116, 58, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991326506846985*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"],
|
|
|
|
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, 116, 59, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991326506856045*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 116, 60, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913265068640423`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"],
|
|
|
|
Cell[BoxData["11.275343508404701`"], "Output",
|
|
CellChangeTimes->{3.991326513010317*^9},
|
|
CellLabel->
|
|
"Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"]
|
|
}, 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.9917998502248*^9,
|
|
3.9917998584727135`*^9}},ExpressionUUID->"df92a918-12ed-ff47-a8a8-\
|
|
122296a3d634"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 117, 61,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913265130447063`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 117,
|
|
62, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991326513053705*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 117,
|
|
63, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913265130617065`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 117, 64, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991326513069849*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"],
|
|
|
|
Cell[BoxData["1.662840304462236`"], "Output",
|
|
CellChangeTimes->{3.9913265201819115`*^9},
|
|
CellLabel->
|
|
"Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"]
|
|
}, 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.9917998626681576`*^9,
|
|
3.991799866004116*^9}},ExpressionUUID->"1990573a-00f1-b54c-9d39-\
|
|
9c68738afe07"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 118, 65,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991326520216116*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 118,
|
|
66, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991326520226103*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 118,
|
|
67, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913265202341022`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 118, 68, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991326520242243*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"],
|
|
|
|
Cell[BoxData["8.698310175000124`"], "Output",
|
|
CellChangeTimes->{3.9913265264075394`*^9},
|
|
CellLabel->
|
|
"Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"]
|
|
}, 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.991799871682028*^9,
|
|
3.9917998792226925`*^9}},ExpressionUUID->"586f2005-dac7-8547-be11-\
|
|
766f96e6af5d"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 119, 69,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913265264435444`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 119,
|
|
70, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913265264535427`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \
|
|
\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\
|
|
4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 119,
|
|
71, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913265264615555`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 119, 72, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991326526468542*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"],
|
|
|
|
Cell[BoxData["16.721244215445346`"], "Output",
|
|
CellChangeTimes->{3.9913265299431496`*^9},
|
|
CellLabel->
|
|
"Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
FractionBox["q",
|
|
SqrtBox[
|
|
RowBox[{"S1", "*", "S2"}]]]], "Input",
|
|
CellChangeTimes->{{3.9917998836260815`*^9,
|
|
3.991799887334032*^9}},ExpressionUUID->"363f609f-6fd9-cc4c-924f-\
|
|
14ef82ef0962"],
|
|
|
|
Cell[BoxData["0.13787921511838797`"], "Output",
|
|
CellChangeTimes->{3.991326529975149*^9},
|
|
CellLabel->
|
|
"Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Clear", "[",
|
|
RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.991799895862177*^9, 3.9917998977747803`*^9},
|
|
3.991924340381132*^9},ExpressionUUID->"32c57f0b-017d-d340-92c6-\
|
|
0f56a212e9c3"],
|
|
|
|
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[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"],
|
|
|
|
Cell[BoxData["29.129739599983825`"], "Output",
|
|
CellChangeTimes->{3.9913265300040226`*^9},
|
|
CellLabel->
|
|
"Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"hb", "=",
|
|
SqrtBox[
|
|
FractionBox["Kb", "Qb1"]]}]], "Input",
|
|
CellLabel->
|
|
"In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"],
|
|
|
|
Cell[BoxData["0.6950071373045505`"], "Output",
|
|
CellChangeTimes->{3.991326530052025*^9},
|
|
CellLabel->
|
|
"Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Cb", "=",
|
|
FractionBox[
|
|
RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",
|
|
CellLabel->
|
|
"In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"],
|
|
|
|
Cell[BoxData["20.245376929811762`"], "Output",
|
|
CellChangeTimes->{3.9913265300922585`*^9},
|
|
CellLabel->
|
|
"Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"]
|
|
}, 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[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"],
|
|
|
|
Cell[BoxData["0.022635100966331548`"], "Output",
|
|
CellChangeTimes->{3.9913265301172295`*^9},
|
|
CellLabel->
|
|
"Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"]
|
|
}, 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[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"],
|
|
|
|
Cell[BoxData["5.890521190513567`"], "Output",
|
|
CellChangeTimes->{3.991326530210228*^9},
|
|
CellLabel->
|
|
"Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"]
|
|
}, 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[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"],
|
|
|
|
Cell[BoxData["0.012260254107801566`"], "Output",
|
|
CellChangeTimes->{3.9913265302252293`*^9},
|
|
CellLabel->
|
|
"Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"]
|
|
}, 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[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"],
|
|
|
|
Cell[BoxData["8.003781147223087`"], "Output",
|
|
CellChangeTimes->{3.9913265303172264`*^9},
|
|
CellLabel->
|
|
"Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"]
|
|
}, 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[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"],
|
|
|
|
Cell[BoxData["0.6154782275967796`"], "Output",
|
|
CellChangeTimes->{3.9913265303292294`*^9},
|
|
CellLabel->
|
|
"Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"]
|
|
}, 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[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"],
|
|
|
|
Cell[BoxData["0.3845217724032204`"], "Output",
|
|
CellChangeTimes->{3.991326530340416*^9},
|
|
CellLabel->
|
|
"Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"]
|
|
}, 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[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"],
|
|
|
|
Cell[BoxData["0.2366647789511063`"], "Output",
|
|
CellChangeTimes->{3.991326530367384*^9},
|
|
CellLabel->
|
|
"Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"]
|
|
}, 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.991799912745739*^9},ExpressionUUID->"c3883d3a-8a99-644a-9175-\
|
|
a97b5c6c44f4"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \
|
|
\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\
|
|
445181972878563737600000000000000000000\\\"]\\) is too small to represent as \
|
|
a normalized machine number; precision may be lost.\"", 2, 135, 73,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913265303923836`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 135, 74,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913265304013824`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 135,
|
|
75, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913265304095325`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 135, 76, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913265304175396`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"],
|
|
|
|
Cell[BoxData["5.890521190513565`"], "Output",
|
|
CellChangeTimes->{3.9913265339749985`*^9},
|
|
CellLabel->
|
|
"Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"]
|
|
}, 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.9917999175346184`*^9},ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-\
|
|
bed1f30b804b"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \
|
|
\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\
|
|
445181972878563737600000000000000000000\\\"]\\) is too small to represent as \
|
|
a normalized machine number; precision may be lost.\"", 2, 136, 77,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913265340092525`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 136, 78,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913265340202503`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 136,
|
|
79, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913265340282536`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 136, 80, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913265340354958`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"],
|
|
|
|
Cell[BoxData["8.00378114722308`"], "Output",
|
|
CellChangeTimes->{3.9913265375649567`*^9},
|
|
CellLabel->
|
|
"Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"]
|
|
}, 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.9917999220519733`*^9},ExpressionUUID->"d5c5d0e8-862b-f245-8b21-\
|
|
eac61b5b75d3"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT
|
|
UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx
|
|
8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog
|
|
/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ
|
|
9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN
|
|
x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj
|
|
34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo
|
|
8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9
|
|
EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp
|
|
rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX
|
|
e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9
|
|
2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP
|
|
7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa
|
|
UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y
|
|
DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD
|
|
ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1
|
|
IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW
|
|
UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT
|
|
+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj
|
|
2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I
|
|
2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA
|
|
WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn
|
|
VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV
|
|
oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0
|
|
YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az
|
|
+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF
|
|
doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog
|
|
My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7
|
|
bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB
|
|
ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2
|
|
NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm
|
|
7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT
|
|
EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7
|
|
m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH
|
|
8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44
|
|
ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh
|
|
ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d
|
|
rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf
|
|
O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8
|
|
YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9
|
|
xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK
|
|
mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ
|
|
Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT
|
|
jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP
|
|
79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH
|
|
mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd
|
|
HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2
|
|
ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94
|
|
XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z
|
|
8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+
|
|
FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh
|
|
2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81
|
|
6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9
|
|
6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e
|
|
BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC
|
|
7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX
|
|
xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0
|
|
ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF
|
|
9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh
|
|
t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD
|
|
wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo
|
|
kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb
|
|
hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO
|
|
C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws
|
|
XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw
|
|
y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6
|
|
F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc
|
|
RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF
|
|
ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y
|
|
tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG
|
|
CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/
|
|
W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1
|
|
Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no
|
|
73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly
|
|
l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx
|
|
"]]},
|
|
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:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT
|
|
UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx
|
|
8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog
|
|
/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ
|
|
9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN
|
|
x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj
|
|
34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo
|
|
8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9
|
|
EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp
|
|
rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX
|
|
e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9
|
|
2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP
|
|
7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa
|
|
UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y
|
|
DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD
|
|
ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1
|
|
IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW
|
|
UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT
|
|
+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj
|
|
2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I
|
|
2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA
|
|
WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn
|
|
VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV
|
|
oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0
|
|
YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az
|
|
+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF
|
|
doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog
|
|
My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7
|
|
bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB
|
|
ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2
|
|
NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm
|
|
7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT
|
|
EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7
|
|
m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH
|
|
8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44
|
|
ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh
|
|
ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d
|
|
rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf
|
|
O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8
|
|
YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9
|
|
xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK
|
|
mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ
|
|
Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT
|
|
jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP
|
|
79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH
|
|
mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd
|
|
HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2
|
|
ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94
|
|
XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z
|
|
8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+
|
|
FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh
|
|
2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81
|
|
6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9
|
|
6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e
|
|
BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC
|
|
7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX
|
|
xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0
|
|
ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF
|
|
9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh
|
|
t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD
|
|
wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo
|
|
kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb
|
|
hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO
|
|
C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws
|
|
XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw
|
|
y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6
|
|
F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc
|
|
RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF
|
|
ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y
|
|
tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG
|
|
CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/
|
|
W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1
|
|
Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no
|
|
73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly
|
|
l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.6007907022525464,
|
|
1.5921070201523966`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.6007907022525477},
|
|
"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.6007907022525464,
|
|
1.5921070201523966`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.6007907022525477},
|
|
"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:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT
|
|
UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx
|
|
8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog
|
|
/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ
|
|
9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN
|
|
x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj
|
|
34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo
|
|
8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9
|
|
EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp
|
|
rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX
|
|
e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9
|
|
2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP
|
|
7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa
|
|
UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y
|
|
DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD
|
|
ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1
|
|
IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW
|
|
UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT
|
|
+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj
|
|
2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I
|
|
2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA
|
|
WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn
|
|
VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV
|
|
oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0
|
|
YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az
|
|
+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF
|
|
doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog
|
|
My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7
|
|
bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB
|
|
ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2
|
|
NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm
|
|
7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT
|
|
EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7
|
|
m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH
|
|
8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44
|
|
ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh
|
|
ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d
|
|
rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf
|
|
O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8
|
|
YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9
|
|
xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK
|
|
mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ
|
|
Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT
|
|
jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP
|
|
79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH
|
|
mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd
|
|
HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2
|
|
ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94
|
|
XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z
|
|
8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+
|
|
FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh
|
|
2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81
|
|
6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9
|
|
6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e
|
|
BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC
|
|
7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX
|
|
xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0
|
|
ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF
|
|
9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh
|
|
t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD
|
|
wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo
|
|
kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb
|
|
hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO
|
|
C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws
|
|
XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw
|
|
y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6
|
|
F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc
|
|
RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF
|
|
ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y
|
|
tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG
|
|
CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/
|
|
W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1
|
|
Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no
|
|
73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly
|
|
l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}},
|
|
"Frame" -> {{False, False}, {False, False}},
|
|
"AxesOrigin" -> {0, 0.6007907022525477},
|
|
"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.6007907022525477},
|
|
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.6007907022525464, 1.5921070201523966`}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.9913267728125134`*^9},
|
|
CellLabel->
|
|
"Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"x", "=",
|
|
RowBox[{"Plot", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"],
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
UnderoverscriptBox["\[Sum]",
|
|
RowBox[{"n", "=", "0"}], "100"],
|
|
RowBox[{
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox[
|
|
RowBox[{"2",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox["1", "Cw"]}], "+",
|
|
FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}],
|
|
"2"], ")"}],
|
|
RowBox[{"2", "*", "n"}]], "*",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
FractionBox["1",
|
|
RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}],
|
|
")"}]}],
|
|
RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
SuperscriptBox[
|
|
RowBox[{"(", "x", ")"}], "2"], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*",
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"y", "*", "y"}], "1"]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox["1", "Cw"], "+",
|
|
FractionBox[
|
|
RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}],
|
|
RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input",
|
|
CellChangeTimes->{{3.991799933259697*^9,
|
|
3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\
|
|
c179c9adcae7"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \
|
|
\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 138,
|
|
81, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991326773051552*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[138]:=",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"8.450949205829742`*^-278\\\", \
|
|
\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 138,
|
|
82, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913267730605392`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[138]:=",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"2.4109778485455803`*^-289\\\", \
|
|
\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \
|
|
to represent as a normalized machine number; precision may be lost.\"", 2,
|
|
138, 83, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913267730685368`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[138]:=",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 138, 84, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991326773076536*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[
|
|
InterpretationBox[{
|
|
TagBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2],
|
|
Opacity[1.], LineBox[CompressedData["
|
|
1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0
|
|
SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh
|
|
IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT
|
|
QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu
|
|
O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt
|
|
BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1
|
|
di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x
|
|
cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc
|
|
op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq
|
|
1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv
|
|
BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9
|
|
tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH
|
|
U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa
|
|
3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu
|
|
wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk
|
|
M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf
|
|
9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K
|
|
jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS
|
|
ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs
|
|
aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL
|
|
SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a
|
|
z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t
|
|
1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF
|
|
lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW
|
|
9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh
|
|
cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF
|
|
SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY
|
|
6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx
|
|
h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld
|
|
kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9
|
|
arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g
|
|
bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa
|
|
P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52
|
|
tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt
|
|
Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/
|
|
kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD
|
|
j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us
|
|
m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q
|
|
R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/
|
|
L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9
|
|
RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN
|
|
GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki
|
|
fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/
|
|
Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c
|
|
r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5
|
|
RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp
|
|
Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/
|
|
NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx
|
|
kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj
|
|
6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W
|
|
bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm
|
|
GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8
|
|
S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN
|
|
ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3
|
|
HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT
|
|
7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+
|
|
NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/
|
|
k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3
|
|
QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd
|
|
vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I
|
|
e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/
|
|
S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS
|
|
IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS
|
|
qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ
|
|
Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O
|
|
crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi
|
|
Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa
|
|
k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws
|
|
Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft
|
|
jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6
|
|
LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV
|
|
tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi
|
|
+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt
|
|
hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u
|
|
+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05
|
|
Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL
|
|
gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo
|
|
ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw
|
|
yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx
|
|
0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v
|
|
8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7
|
|
DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ
|
|
+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1
|
|
VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7
|
|
g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx
|
|
6WkevnFqfy3DCYX/A6WEJbo=
|
|
"]]},
|
|
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:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0
|
|
SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh
|
|
IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT
|
|
QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu
|
|
O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt
|
|
BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1
|
|
di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x
|
|
cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc
|
|
op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq
|
|
1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv
|
|
BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9
|
|
tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH
|
|
U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa
|
|
3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu
|
|
wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk
|
|
M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf
|
|
9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K
|
|
jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS
|
|
ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs
|
|
aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL
|
|
SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a
|
|
z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t
|
|
1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF
|
|
lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW
|
|
9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh
|
|
cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF
|
|
SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY
|
|
6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx
|
|
h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld
|
|
kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9
|
|
arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g
|
|
bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa
|
|
P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52
|
|
tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt
|
|
Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/
|
|
kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD
|
|
j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us
|
|
m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q
|
|
R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/
|
|
L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9
|
|
RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN
|
|
GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki
|
|
fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/
|
|
Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c
|
|
r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5
|
|
RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp
|
|
Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/
|
|
NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx
|
|
kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj
|
|
6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W
|
|
bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm
|
|
GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8
|
|
S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN
|
|
ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3
|
|
HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT
|
|
7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+
|
|
NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/
|
|
k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3
|
|
QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd
|
|
vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I
|
|
e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/
|
|
S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS
|
|
IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS
|
|
qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ
|
|
Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O
|
|
crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi
|
|
Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa
|
|
k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws
|
|
Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft
|
|
jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6
|
|
LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV
|
|
tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi
|
|
+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt
|
|
hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u
|
|
+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05
|
|
Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL
|
|
gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo
|
|
ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw
|
|
yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx
|
|
0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v
|
|
8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7
|
|
DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ
|
|
+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1
|
|
VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7
|
|
g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx
|
|
6WkevnFqfy3DCYX/A6WEJbo=
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}},
|
|
"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.12905028199662316`}},
|
|
"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:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0
|
|
SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh
|
|
IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT
|
|
QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu
|
|
O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt
|
|
BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1
|
|
di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x
|
|
cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc
|
|
op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq
|
|
1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv
|
|
BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9
|
|
tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH
|
|
U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa
|
|
3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu
|
|
wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk
|
|
M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf
|
|
9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K
|
|
jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS
|
|
ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs
|
|
aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL
|
|
SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a
|
|
z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t
|
|
1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF
|
|
lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW
|
|
9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh
|
|
cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF
|
|
SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY
|
|
6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx
|
|
h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld
|
|
kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9
|
|
arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g
|
|
bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa
|
|
P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52
|
|
tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt
|
|
Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/
|
|
kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD
|
|
j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us
|
|
m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q
|
|
R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/
|
|
L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9
|
|
RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN
|
|
GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki
|
|
fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/
|
|
Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c
|
|
r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5
|
|
RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp
|
|
Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/
|
|
NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx
|
|
kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj
|
|
6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W
|
|
bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm
|
|
GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8
|
|
S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN
|
|
ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3
|
|
HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT
|
|
7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+
|
|
NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/
|
|
k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3
|
|
QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd
|
|
vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I
|
|
e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/
|
|
S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS
|
|
IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS
|
|
qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ
|
|
Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O
|
|
crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi
|
|
Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa
|
|
k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws
|
|
Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft
|
|
jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6
|
|
LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV
|
|
tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi
|
|
+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt
|
|
hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u
|
|
+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05
|
|
Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL
|
|
gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo
|
|
ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw
|
|
yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx
|
|
0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v
|
|
8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7
|
|
DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ
|
|
+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1
|
|
VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7
|
|
g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx
|
|
6WkevnFqfy3DCYX/A6WEJbo=
|
|
"]]}, "Charting`Private`Tag#1"]}}, {}}, <|
|
|
"HighlightElements" -> <|
|
|
"Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>,
|
|
"LayoutOptions" -> <|
|
|
"PanelPlotLayout" -> <||>,
|
|
"PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}},
|
|
"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.12905028199662316`}},
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{3.991327033758711*^9},
|
|
CellLabel->
|
|
"Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9},
|
|
3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\
|
|
ea3fc2b4c4a8"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Show", "[",
|
|
RowBox[{"x", ",", "xx"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.991799951845436*^9,
|
|
3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\
|
|
85a3484011b6"],
|
|
|
|
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[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"],
|
|
|
|
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, 142, 93, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913279097599506`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"],
|
|
|
|
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, 142, 94, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991327909769953*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"],
|
|
|
|
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, 142, 95, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913279097784023`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 142, 96, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991327909786396*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"],
|
|
|
|
Cell[BoxData["11.275343508420296`"], "Output",
|
|
CellChangeTimes->{3.9913279159698696`*^9},
|
|
CellLabel->
|
|
"Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"]
|
|
}, 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.99179998339209*^9,
|
|
3.991799988637089*^9}},ExpressionUUID->"a5e0631c-6c6c-a045-8418-\
|
|
22c641e38d86"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \
|
|
\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\
|
|
445181972878563737600000000000000000000\\\"]\\) is too small to represent as \
|
|
a normalized machine number; precision may be lost.\"", 2, 143, 97,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991327916008396*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 143, 98,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991327916018362*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 143,
|
|
99, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913279160263577`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 143, 100, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991327916034359*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"],
|
|
|
|
Cell[BoxData["1.0734937398087425`"], "Output",
|
|
CellChangeTimes->{3.991327922931429*^9},
|
|
CellLabel->
|
|
"Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"]
|
|
}, 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.991799991275097*^9,
|
|
3.9917999948700333`*^9}},ExpressionUUID->"4b6c44e4-d946-0c4d-9992-\
|
|
4f0fc7048689"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \
|
|
\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\
|
|
445181972878563737600000000000000000000\\\"]\\) is too small to represent as \
|
|
a normalized machine number; precision may be lost.\"", 2, 144, 101,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913279229664307`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 144, 102,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991327922975607*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 144,
|
|
103, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913279229836063`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 144, 104, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.9913279229916077`*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"],
|
|
|
|
Cell[BoxData["9.48093127226425`"], "Output",
|
|
CellChangeTimes->{3.9913279288200035`*^9},
|
|
CellLabel->
|
|
"Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"]
|
|
}, 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.9918000011431293`*^9,
|
|
3.9918000068677616`*^9}},ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-\
|
|
32244819d42b"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \
|
|
\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\
|
|
445181972878563737600000000000000000000\\\"]\\) is too small to represent as \
|
|
a normalized machine number; precision may be lost.\"", 2, 145, 105,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991327928854006*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \
|
|
\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\
|
|
098005054611040868761600000000000000000000\\\"]\\) is too small to represent \
|
|
as a normalized machine number; precision may be lost.\"", 2, 145, 106,
|
|
24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991327928864023*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "munfl",
|
|
"\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \
|
|
\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\
|
|
358493165635789279094374400000000000000000000\\\"]\\) is too small to \
|
|
represent as a normalized machine number; precision may be lost.\"", 2, 145,
|
|
107, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991327928871004*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"],
|
|
|
|
Cell[BoxData[
|
|
TemplateBox[{
|
|
"General", "stop",
|
|
"\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
|
|
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
|
|
during this calculation.\"", 2, 145, 108, 24483298974280422597, "Local"},
|
|
"MessageTemplate"]], "Message", "MSG",
|
|
CellChangeTimes->{3.991327928878006*^9},
|
|
CellLabel->
|
|
"During evaluation of \
|
|
In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"],
|
|
|
|
Cell[BoxData["17.503865312709518`"], "Output",
|
|
CellChangeTimes->{3.9913279320131683`*^9},
|
|
CellLabel->
|
|
"Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
FractionBox["q",
|
|
SqrtBox[
|
|
RowBox[{"S1", "*", "S2"}]]]], "Input",
|
|
CellChangeTimes->{{3.991800029528055*^9,
|
|
3.991800041720209*^9}},ExpressionUUID->"99da2760-e71e-1246-8cc9-\
|
|
f0a7464dc747"],
|
|
|
|
Cell[BoxData["0.08333108480569339`"], "Output",
|
|
CellChangeTimes->{3.9913279320452003`*^9},
|
|
CellLabel->
|
|
"Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"]
|
|
}, Open ]]
|
|
},
|
|
WindowSize->{718.5, 729.75},
|
|
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
|
|
CellContext->Notebook,
|
|
Magnification:>0.8 Inherited,
|
|
FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)",
|
|
StyleDefinitions->"Default.nb",
|
|
ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038"
|
|
]
|
|
(* End of Notebook Content *)
|
|
|
|
(* Internal cache information *)
|
|
(*CellTagsOutline
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*CellTagsIndex
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*NotebookFileOutline
|
|
Notebook[{
|
|
Cell[CellGroupData[{
|
|
Cell[576, 22, 229, 5, 22, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"],
|
|
Cell[808, 29, 149, 2, 25, "Output",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[994, 36, 179, 4, 22, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"],
|
|
Cell[1176, 42, 152, 2, 25, "Output",ExpressionUUID->"d21d7bec-caad-aa4f-9200-81feafc4acec"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[1365, 49, 147, 4, 22, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"],
|
|
Cell[1515, 55, 152, 2, 25, "Output",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[1704, 62, 175, 3, 22, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"],
|
|
Cell[1882, 67, 152, 2, 25, "Output",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[2071, 74, 257, 7, 35, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"],
|
|
Cell[2331, 83, 168, 2, 25, "Output",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[2536, 90, 131, 2, 22, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"],
|
|
Cell[2670, 94, 154, 2, 25, "Output",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[2861, 101, 276, 6, 22, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"],
|
|
Cell[3140, 109, 167, 2, 25, "Output",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[3344, 116, 257, 7, 22, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"],
|
|
Cell[3604, 125, 167, 2, 25, "Output",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"]
|
|
}, Open ]],
|
|
Cell[3786, 130, 147, 4, 22, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"],
|
|
Cell[3936, 136, 147, 4, 22, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"],
|
|
Cell[CellGroupData[{
|
|
Cell[4108, 144, 129, 2, 22, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"],
|
|
Cell[4240, 148, 151, 2, 25, "Output",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[4428, 155, 129, 2, 22, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"],
|
|
Cell[4560, 159, 151, 2, 25, "Output",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[4748, 166, 557, 19, 65, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"],
|
|
Cell[5308, 187, 169, 2, 25, "Output",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[5514, 194, 557, 19, 65, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"],
|
|
Cell[6074, 215, 168, 2, 25, "Output",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[6279, 222, 1492, 48, 65, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"],
|
|
Cell[7774, 272, 167, 2, 25, "Output",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[7978, 279, 1331, 44, 65, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"],
|
|
Cell[9312, 325, 185, 3, 25, "Output",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[9534, 333, 1331, 44, 65, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"],
|
|
Cell[10868, 379, 187, 3, 25, "Output",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[11092, 387, 1492, 48, 65, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"],
|
|
Cell[12587, 437, 166, 2, 25, "Output",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[12790, 444, 131, 2, 22, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"],
|
|
Cell[12924, 448, 151, 2, 25, "Output",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[13112, 455, 133, 2, 22, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"],
|
|
Cell[13248, 459, 153, 2, 25, "Output",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[13438, 466, 134, 2, 22, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"],
|
|
Cell[13575, 470, 155, 2, 25, "Output",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[13767, 477, 219, 4, 22, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"],
|
|
Cell[13989, 483, 168, 3, 25, "Output",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[14194, 491, 134, 2, 22, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"],
|
|
Cell[14331, 495, 155, 2, 25, "Output",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[14523, 502, 248, 5, 22, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"],
|
|
Cell[14774, 509, 152, 2, 25, "Output",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[14963, 516, 228, 5, 22, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"],
|
|
Cell[15194, 523, 152, 2, 25, "Output",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[15383, 530, 219, 4, 22, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"],
|
|
Cell[15605, 536, 151, 2, 25, "Output",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[15793, 543, 350, 10, 35, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"],
|
|
Cell[16146, 555, 170, 2, 25, "Output",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[16353, 562, 350, 10, 35, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"],
|
|
Cell[16706, 574, 186, 3, 25, "Output",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[16929, 582, 975, 27, 92, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"],
|
|
Cell[17907, 611, 169, 2, 25, "Output",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[18113, 618, 199, 3, 22, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"],
|
|
Cell[18315, 623, 151, 2, 25, "Output",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"]
|
|
}, Open ]],
|
|
Cell[18481, 628, 250, 5, 22, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"],
|
|
Cell[18734, 635, 154, 3, 22, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"],
|
|
Cell[18891, 640, 250, 5, 22, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"],
|
|
Cell[19144, 647, 154, 3, 22, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"],
|
|
Cell[19301, 652, 251, 5, 22, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"],
|
|
Cell[19555, 659, 154, 3, 22, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"],
|
|
Cell[19712, 664, 275, 5, 22, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"],
|
|
Cell[19990, 671, 152, 3, 22, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"],
|
|
Cell[20145, 676, 222, 5, 22, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"],
|
|
Cell[20370, 683, 152, 3, 22, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"],
|
|
Cell[20525, 688, 226, 5, 22, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"],
|
|
Cell[20754, 695, 154, 3, 22, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"],
|
|
Cell[20911, 700, 229, 5, 22, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"],
|
|
Cell[21143, 707, 153, 3, 22, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"],
|
|
Cell[21299, 712, 198, 4, 22, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"],
|
|
Cell[21500, 718, 156, 3, 22, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"],
|
|
Cell[CellGroupData[{
|
|
Cell[21681, 725, 19809, 485, 1553, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"],
|
|
Cell[41493, 1212, 167, 2, 25, "Output",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[41697, 1219, 19748, 489, 1579, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"],
|
|
Cell[61448, 1710, 168, 2, 25, "Output",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[61653, 1717, 19748, 483, 1572, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"],
|
|
Cell[81404, 2202, 183, 3, 25, "Output",ExpressionUUID->"43eaee96-3646-954d-899a-d1e3ee2edd5e"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[81624, 2210, 22534, 553, 1766, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"],
|
|
Cell[104161, 2765, 182, 3, 25, "Output",ExpressionUUID->"a8d59888-f6f0-0746-9034-5e74c45610b1"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[104380, 2773, 22535, 553, 1773, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"],
|
|
Cell[126918, 3328, 185, 3, 25, "Output",ExpressionUUID->"dd5d5506-e4f6-7d4c-bcd9-ea70659f69e1"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[127140, 3336, 25491, 626, 1984, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"],
|
|
Cell[152634, 3964, 184, 3, 25, "Output",ExpressionUUID->"b983c8d8-6a34-fb4a-8a0a-8960e79ae993"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[152855, 3972, 130, 2, 22, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"],
|
|
Cell[152988, 3976, 151, 2, 25, "Output",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[153176, 3983, 130, 2, 22, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"],
|
|
Cell[153309, 3987, 151, 2, 25, "Output",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[153497, 3994, 1144, 39, 46, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"],
|
|
Cell[154644, 4035, 167, 2, 25, "Output",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[154848, 4042, 1041, 35, 46, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"],
|
|
Cell[155892, 4079, 184, 3, 25, "Output",ExpressionUUID->"222cd90e-6438-0a46-88d0-fcdd10fc9432"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[156113, 4087, 1144, 39, 46, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"],
|
|
Cell[157260, 4128, 169, 2, 25, "Output",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[157466, 4135, 108, 1, 22, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"],
|
|
Cell[157577, 4138, 169, 2, 25, "Output",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[157783, 4145, 108, 1, 22, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"],
|
|
Cell[157894, 4148, 187, 3, 25, "Output",ExpressionUUID->"5baa5811-6d68-0847-bfa7-611a7f282595"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[158118, 4156, 108, 1, 22, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"],
|
|
Cell[158229, 4159, 185, 3, 25, "Output",ExpressionUUID->"66d60cf8-894b-f64c-bc5e-4862fc34e98d"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[158451, 4167, 108, 1, 22, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"],
|
|
Cell[158562, 4170, 168, 2, 25, "Output",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[158767, 4177, 107, 1, 22, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"],
|
|
Cell[158877, 4180, 169, 2, 25, "Output",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[159083, 4187, 107, 1, 22, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"],
|
|
Cell[159193, 4190, 168, 2, 25, "Output",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[159398, 4197, 497, 16, 46, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"],
|
|
Cell[159898, 4215, 186, 3, 25, "Output",ExpressionUUID->"ed7537ce-20e6-4246-aac0-4a4b9f4faed7"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[160121, 4223, 497, 16, 46, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"],
|
|
Cell[160621, 4241, 184, 3, 25, "Output",ExpressionUUID->"643b7429-505f-4045-a97f-7e6871b3f504"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[160842, 4249, 1788, 60, 109, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"],
|
|
Cell[162633, 4311, 168, 2, 25, "Output",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[162838, 4318, 1101, 36, 64, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"],
|
|
Cell[163942, 4356, 186, 3, 25, "Output",ExpressionUUID->"f7cceab2-e319-0345-98f3-b759ec5fa40c"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[164165, 4364, 1818, 61, 90, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"],
|
|
Cell[165986, 4427, 166, 2, 25, "Output",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[166189, 4434, 1631, 53, 65, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"],
|
|
Cell[167823, 4489, 169, 2, 25, "Output",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[168029, 4496, 1631, 53, 65, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"],
|
|
Cell[169663, 4551, 167, 2, 25, "Output",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"]
|
|
}, Open ]],
|
|
Cell[169845, 4556, 147, 4, 22, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"],
|
|
Cell[169995, 4562, 153, 3, 22, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"],
|
|
Cell[170151, 4567, 147, 4, 22, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"],
|
|
Cell[170301, 4573, 154, 3, 22, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"],
|
|
Cell[CellGroupData[{
|
|
Cell[170480, 4580, 1297, 42, 39, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"],
|
|
Cell[171780, 4624, 171, 2, 25, "Output",ExpressionUUID->"83707082-f118-c146-a95c-693158b61875"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[171988, 4631, 908, 31, 46, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"],
|
|
Cell[172899, 4664, 170, 2, 25, "Output",ExpressionUUID->"93dbdfa1-2e9a-2d49-80d6-05af3e592734"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[173106, 4671, 884, 30, 46, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"],
|
|
Cell[173993, 4703, 173, 2, 25, "Output",ExpressionUUID->"afd7d2f8-cc87-734c-9c81-c0621f31e0e5"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[174203, 4710, 558, 19, 42, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"],
|
|
Cell[174764, 4731, 567, 9, 25, "Output",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[175368, 4745, 665, 22, 42, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"],
|
|
Cell[176036, 4769, 554, 9, 25, "Output",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[176627, 4783, 170, 5, 46, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"],
|
|
Cell[176800, 4790, 577, 9, 25, "Output",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[177414, 4804, 236, 6, 45, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"],
|
|
Cell[177653, 4812, 514, 8, 25, "Output",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[178204, 4825, 223, 6, 35, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"],
|
|
Cell[178430, 4833, 549, 9, 25, "Output",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[179016, 4847, 181, 5, 35, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"],
|
|
Cell[179200, 4854, 567, 9, 25, "Output",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[179804, 4868, 6055, 185, 310, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"],
|
|
Cell[185862, 5055, 548, 9, 25, "Output",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[186447, 5069, 368, 9, 33, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"],
|
|
Cell[186818, 5080, 521, 8, 25, "Output",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"]
|
|
}, Open ]],
|
|
Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"],
|
|
Cell[CellGroupData[{
|
|
Cell[187871, 5105, 554, 18, 42, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"],
|
|
Cell[188428, 5125, 166, 2, 25, "Output",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[188631, 5132, 619, 20, 42, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"],
|
|
Cell[189253, 5154, 168, 2, 25, "Output",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[189458, 5161, 166, 4, 46, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"],
|
|
Cell[189627, 5167, 167, 2, 25, "Output",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[189831, 5174, 166, 4, 45, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"],
|
|
Cell[190000, 5180, 166, 2, 25, "Output",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[190203, 5187, 177, 4, 35, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"],
|
|
Cell[190383, 5193, 169, 2, 25, "Output",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[190589, 5200, 177, 4, 35, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"],
|
|
Cell[190769, 5206, 168, 2, 25, "Output",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[190974, 5213, 6051, 184, 310, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"],
|
|
Cell[197028, 5399, 171, 2, 25, "Output",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[197236, 5406, 364, 8, 33, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"],
|
|
Cell[197603, 5416, 166, 2, 25, "Output",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[197806, 5423, 6118, 186, 353, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"],
|
|
Cell[203927, 5611, 170, 2, 25, "Output",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[204134, 5618, 364, 8, 33, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"],
|
|
Cell[204501, 5628, 168, 2, 25, "Output",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[204706, 5635, 2659, 87, 135, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"],
|
|
Cell[207368, 5724, 169, 2, 25, "Output",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[207574, 5731, 2599, 84, 135, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"],
|
|
Cell[210176, 5817, 169, 2, 25, "Output",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[210382, 5824, 3708, 117, 197, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"],
|
|
Cell[214093, 5943, 169, 2, 25, "Output",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"]
|
|
}, Open ]],
|
|
Cell[214277, 5948, 138, 3, 34, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"],
|
|
Cell[CellGroupData[{
|
|
Cell[214440, 5955, 2052, 59, 92, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"],
|
|
Cell[216495, 6016, 556, 12, 50, "Message",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"],
|
|
Cell[217054, 6030, 559, 12, 50, "Message",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"],
|
|
Cell[217616, 6044, 559, 12, 50, "Message",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"],
|
|
Cell[218178, 6058, 452, 10, 20, "Message",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"],
|
|
Cell[218633, 6070, 168, 2, 25, "Output",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[218838, 6077, 2054, 59, 92, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"],
|
|
Cell[220895, 6138, 556, 12, 50, "Message",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"],
|
|
Cell[221454, 6152, 556, 12, 50, "Message",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"],
|
|
Cell[222013, 6166, 559, 12, 50, "Message",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"],
|
|
Cell[222575, 6180, 452, 10, 20, "Message",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"],
|
|
Cell[223030, 6192, 166, 2, 25, "Output",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[223233, 6199, 1938, 53, 69, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"],
|
|
Cell[225174, 6254, 20226, 378, 191, "Output",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[245437, 6637, 2094, 60, 92, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"],
|
|
Cell[247534, 6699, 497, 11, 70, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"],
|
|
Cell[248034, 6712, 501, 11, 70, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"],
|
|
Cell[248538, 6725, 503, 11, 70, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"],
|
|
Cell[249044, 6738, 455, 10, 70, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"],
|
|
Cell[249502, 6750, 43631, 762, 70, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"]
|
|
}, Open ]],
|
|
Cell[293148, 7515, 232, 6, 70, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"],
|
|
Cell[293383, 7523, 209, 5, 70, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"],
|
|
Cell[CellGroupData[{
|
|
Cell[293617, 7532, 212, 6, 70, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"],
|
|
Cell[293832, 7540, 168, 2, 70, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[294037, 7547, 1814, 53, 70, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"],
|
|
Cell[295854, 7602, 505, 11, 70, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"],
|
|
Cell[296362, 7615, 509, 11, 70, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"],
|
|
Cell[296874, 7628, 508, 11, 70, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"],
|
|
Cell[297385, 7641, 455, 10, 70, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"],
|
|
Cell[297843, 7653, 22399, 414, 70, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[320279, 8072, 1612, 47, 70, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"],
|
|
Cell[321894, 8121, 581, 12, 70, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"],
|
|
Cell[322478, 8135, 584, 12, 70, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"],
|
|
Cell[323065, 8149, 590, 12, 70, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"],
|
|
Cell[323658, 8163, 455, 10, 70, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"],
|
|
Cell[324116, 8175, 169, 2, 70, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[324322, 8182, 2249, 64, 70, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"],
|
|
Cell[326574, 8248, 557, 12, 70, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"],
|
|
Cell[327134, 8262, 560, 12, 70, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"],
|
|
Cell[327697, 8276, 560, 12, 70, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"],
|
|
Cell[328260, 8290, 455, 10, 70, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"],
|
|
Cell[328718, 8302, 169, 2, 70, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[328924, 8309, 2221, 64, 70, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"],
|
|
Cell[331148, 8375, 554, 12, 70, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"],
|
|
Cell[331705, 8389, 560, 12, 70, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"],
|
|
Cell[332268, 8403, 560, 12, 70, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"],
|
|
Cell[332831, 8417, 455, 10, 70, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"],
|
|
Cell[333289, 8429, 169, 2, 70, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[333495, 8436, 2223, 64, 70, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"],
|
|
Cell[335721, 8502, 555, 12, 70, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"],
|
|
Cell[336279, 8516, 558, 12, 70, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"],
|
|
Cell[336840, 8530, 560, 12, 70, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"],
|
|
Cell[337403, 8544, 453, 10, 70, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"],
|
|
Cell[337859, 8556, 167, 2, 70, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[338063, 8563, 213, 6, 70, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"],
|
|
Cell[338279, 8571, 169, 2, 70, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"]
|
|
}, Open ]],
|
|
Cell[338463, 8576, 247, 5, 70, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"],
|
|
Cell[CellGroupData[{
|
|
Cell[338735, 8585, 554, 18, 70, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"],
|
|
Cell[339292, 8605, 167, 2, 70, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[339496, 8612, 166, 4, 70, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"],
|
|
Cell[339665, 8618, 169, 2, 70, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[339871, 8625, 181, 5, 70, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"],
|
|
Cell[340055, 8632, 173, 3, 70, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[340265, 8640, 6055, 185, 70, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"],
|
|
Cell[346323, 8827, 172, 3, 70, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[346532, 8835, 368, 9, 70, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"],
|
|
Cell[346903, 8846, 170, 3, 70, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[347110, 8854, 6122, 187, 70, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"],
|
|
Cell[353235, 9043, 175, 3, 70, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[353447, 9051, 368, 9, 70, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"],
|
|
Cell[353818, 9062, 169, 3, 70, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[354024, 9070, 2663, 88, 70, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"],
|
|
Cell[356690, 9160, 173, 3, 70, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[356900, 9168, 2603, 85, 70, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"],
|
|
Cell[359506, 9255, 171, 3, 70, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[359714, 9263, 3712, 118, 70, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"],
|
|
Cell[363429, 9383, 171, 3, 70, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[363637, 9391, 2052, 59, 70, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"],
|
|
Cell[365692, 9452, 572, 12, 70, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"],
|
|
Cell[366267, 9466, 573, 12, 70, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"],
|
|
Cell[366843, 9480, 578, 12, 70, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"],
|
|
Cell[367424, 9494, 457, 10, 70, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"],
|
|
Cell[367884, 9506, 172, 3, 70, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[368093, 9514, 2054, 59, 70, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"],
|
|
Cell[370150, 9575, 572, 12, 70, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"],
|
|
Cell[370725, 9589, 575, 12, 70, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"],
|
|
Cell[371303, 9603, 576, 12, 70, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"],
|
|
Cell[371882, 9617, 457, 10, 70, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"],
|
|
Cell[372342, 9629, 170, 3, 70, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[372549, 9637, 2030, 55, 70, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"],
|
|
Cell[374582, 9694, 20377, 384, 70, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[394996, 10083, 2118, 60, 70, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"],
|
|
Cell[397117, 10145, 499, 11, 70, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"],
|
|
Cell[397619, 10158, 504, 11, 70, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"],
|
|
Cell[398126, 10171, 507, 11, 70, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"],
|
|
Cell[398636, 10184, 455, 10, 70, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"],
|
|
Cell[399094, 10196, 22381, 415, 70, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"]
|
|
}, Open ]],
|
|
Cell[421490, 10614, 174, 3, 70, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"],
|
|
Cell[421667, 10619, 209, 5, 70, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"],
|
|
Cell[CellGroupData[{
|
|
Cell[421901, 10628, 1616, 48, 70, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"],
|
|
Cell[423520, 10678, 594, 12, 70, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"],
|
|
Cell[424117, 10692, 594, 12, 70, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"],
|
|
Cell[424714, 10706, 598, 12, 70, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"],
|
|
Cell[425315, 10720, 457, 10, 70, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"],
|
|
Cell[425775, 10732, 171, 3, 70, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[425983, 10740, 2247, 64, 70, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"],
|
|
Cell[428233, 10806, 572, 12, 70, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"],
|
|
Cell[428808, 10820, 573, 12, 70, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"],
|
|
Cell[429384, 10834, 578, 12, 70, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"],
|
|
Cell[429965, 10848, 455, 10, 70, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"],
|
|
Cell[430423, 10860, 172, 3, 70, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[430632, 10868, 2221, 64, 70, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"],
|
|
Cell[432856, 10934, 570, 12, 70, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"],
|
|
Cell[433429, 10948, 573, 12, 70, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"],
|
|
Cell[434005, 10962, 578, 12, 70, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"],
|
|
Cell[434586, 10976, 455, 10, 70, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"],
|
|
Cell[435044, 10988, 172, 3, 70, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[435253, 10996, 2221, 64, 70, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"],
|
|
Cell[437477, 11062, 572, 12, 70, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"],
|
|
Cell[438052, 11076, 575, 12, 70, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"],
|
|
Cell[438630, 11090, 578, 12, 70, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"],
|
|
Cell[439211, 11104, 455, 10, 70, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"],
|
|
Cell[439669, 11116, 173, 3, 70, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[439879, 11124, 213, 6, 70, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"],
|
|
Cell[440095, 11132, 172, 3, 70, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"]
|
|
}, Open ]],
|
|
Cell[440282, 11138, 245, 5, 70, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"],
|
|
Cell[CellGroupData[{
|
|
Cell[440552, 11147, 558, 19, 70, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"],
|
|
Cell[441113, 11168, 173, 3, 70, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[441323, 11176, 170, 5, 70, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"],
|
|
Cell[441496, 11183, 171, 3, 70, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[441704, 11191, 181, 5, 70, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"],
|
|
Cell[441888, 11198, 173, 3, 70, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[442098, 11206, 6055, 185, 70, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"],
|
|
Cell[448156, 11393, 175, 3, 70, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[448368, 11401, 368, 9, 70, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"],
|
|
Cell[448739, 11412, 170, 3, 70, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[448946, 11420, 6122, 187, 70, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"],
|
|
Cell[455071, 11609, 175, 3, 70, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[455283, 11617, 368, 9, 70, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"],
|
|
Cell[455654, 11628, 172, 3, 70, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[455863, 11636, 2663, 88, 70, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"],
|
|
Cell[458529, 11726, 173, 3, 70, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[458739, 11734, 2603, 85, 70, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"],
|
|
Cell[461345, 11821, 171, 3, 70, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[461553, 11829, 3712, 118, 70, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"],
|
|
Cell[465268, 11949, 171, 3, 70, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[465476, 11957, 2052, 59, 70, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"],
|
|
Cell[467531, 12018, 568, 12, 70, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"],
|
|
Cell[468102, 12032, 572, 12, 70, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"],
|
|
Cell[468677, 12046, 574, 12, 70, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"],
|
|
Cell[469254, 12060, 457, 10, 70, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"],
|
|
Cell[469714, 12072, 172, 3, 70, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[469923, 12080, 2054, 59, 70, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"],
|
|
Cell[471980, 12141, 568, 12, 70, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"],
|
|
Cell[472551, 12155, 572, 12, 70, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"],
|
|
Cell[473126, 12169, 574, 12, 70, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"],
|
|
Cell[473703, 12183, 457, 10, 70, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"],
|
|
Cell[474163, 12195, 171, 3, 70, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[474371, 12203, 2030, 55, 70, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"],
|
|
Cell[476404, 12260, 19960, 375, 70, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[496401, 12640, 2118, 60, 70, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"],
|
|
Cell[498522, 12702, 496, 11, 70, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"],
|
|
Cell[499021, 12715, 501, 11, 70, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"],
|
|
Cell[499525, 12728, 505, 11, 70, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"],
|
|
Cell[500033, 12741, 455, 10, 70, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"],
|
|
Cell[500491, 12753, 21721, 403, 70, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"]
|
|
}, Open ]],
|
|
Cell[522227, 13159, 181, 3, 70, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"],
|
|
Cell[522411, 13164, 207, 5, 70, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"],
|
|
Cell[CellGroupData[{
|
|
Cell[522643, 13173, 1616, 48, 70, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"],
|
|
Cell[524262, 13223, 589, 12, 70, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"],
|
|
Cell[524854, 13237, 588, 12, 70, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"],
|
|
Cell[525445, 13251, 594, 12, 70, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"],
|
|
Cell[526042, 13265, 455, 10, 70, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"],
|
|
Cell[526500, 13277, 173, 3, 70, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[526710, 13285, 2246, 64, 70, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"],
|
|
Cell[528959, 13351, 566, 12, 70, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"],
|
|
Cell[529528, 13365, 570, 12, 70, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"],
|
|
Cell[530101, 13379, 574, 12, 70, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"],
|
|
Cell[530678, 13393, 456, 10, 70, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"],
|
|
Cell[531137, 13405, 171, 3, 70, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[531345, 13413, 2221, 64, 70, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"],
|
|
Cell[533569, 13479, 569, 12, 70, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"],
|
|
Cell[534141, 13493, 571, 12, 70, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"],
|
|
Cell[534715, 13507, 575, 12, 70, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"],
|
|
Cell[535293, 13521, 458, 10, 70, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"],
|
|
Cell[535754, 13533, 171, 3, 70, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[535962, 13541, 2223, 64, 70, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"],
|
|
Cell[538188, 13607, 567, 12, 70, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"],
|
|
Cell[538758, 13621, 571, 12, 70, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"],
|
|
Cell[539332, 13635, 573, 12, 70, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"],
|
|
Cell[539908, 13649, 456, 10, 70, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"],
|
|
Cell[540367, 13661, 173, 3, 70, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[540577, 13669, 211, 6, 70, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"],
|
|
Cell[540791, 13677, 174, 3, 70, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"]
|
|
}, Open ]]
|
|
}
|
|
]
|
|
*)
|
|
|