Skip to content

M
mathematica
Commit 3130b7a5 authored by himyss's avatar himyss
Browse files
Options

updates

parent 0a59be3e
Hide whitespace changes
Inline Side-by-side
Showing with 71404 additions and 1963 deletions
angular1.nb 0 → 100644
View file @ 3130b7a5
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 13.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 55270, 1122]
NotebookOptionsPosition[ 53569, 1092]
NotebookOutlinePosition[ 53967, 1108]
CellTagsIndexPosition[ 53924, 1105]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
RowBox[{
RowBox[{"p", "=", "197.327"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"m", "=", "939"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r0", "=", "3"}], ";"}]}], "Input",
CellChangeTimes->{3.8720797481851053`*^9},
CellLabel->
"In[139]:=",ExpressionUUID->"9b612f72-e759-4179-a3e9-4083b56adea2"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"j1", "[", "r_", "]"}], ":=",
RowBox[{
FractionBox[
RowBox[{"Sin", "[", "r", "]"}], "r"], "-",
RowBox[{"Cos", "[", "r", "]"}]}]}], ";"}]], "Input",
CellLabel->
"In[142]:=",ExpressionUUID->"8bfffee0-f250-468a-9e67-dc88acaf3f9a"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"y1", "[", "r_", "]"}], ":=",
RowBox[{
RowBox[{"Sin", "[", "r", "]"}], "+",
FractionBox[
RowBox[{"Cos", "[", "r", "]"}], "r"]}]}], ";"}]], "Input",
CellLabel->
"In[143]:=",ExpressionUUID->"c0e7613d-88ab-4572-bfef-888bb1ed1cdb"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"f1", "[",
RowBox[{"r_", ",", "e_", ",", "U_"}], "]"}], ":=",
RowBox[{"j1", "[",
RowBox[{
SqrtBox[
RowBox[{"2", " ", "m", " ",
RowBox[{"(",
RowBox[{"e", "-", "U"}], ")"}]}]], " ",
FractionBox["r", "p"]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.8582651658874583`*^9, 3.8582651752248135`*^9}, {
3.8582652728894043`*^9, 3.85826527302544*^9}},
CellLabel->
"In[144]:=",ExpressionUUID->"6da24be6-ac46-4de7-9bb3-1f6846511011"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"F1", "[",
RowBox[{"r_", ",", "e_"}], "]"}], ":=",
RowBox[{"j1", "[",
RowBox[{
SqrtBox[
RowBox[{"2", " ", "m", " ", "e"}]], " ",
FractionBox["r", "p"]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.858265178521638*^9, 3.858265188744215*^9}, {
3.8582652690354395`*^9, 3.8582652691664953`*^9}},
CellLabel->
"In[145]:=",ExpressionUUID->"9c7cd7d0-b5b1-4b72-a2b0-f700e884ae87"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"G1", "[",
RowBox[{"r_", ",", "e_"}], "]"}], ":=",
RowBox[{"y1", "[",
RowBox[{
SqrtBox[
RowBox[{"2", " ", "m", " ", "e"}]], " ",
FractionBox["r", "p"]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.8582651963161197`*^9, 3.8582651974834166`*^9}, {
3.858265265613576*^9, 3.8582652658836465`*^9}},
CellLabel->
"In[146]:=",ExpressionUUID->"97e249db-26ee-48c6-b8a1-b9508f82fc1c"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"dj1", "[", "r_", "]"}], ":=",
RowBox[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"Cos", "[", "r", "]"}], " ", "r"}], "-",
RowBox[{"Sin", "[", "r", "]"}]}],
SuperscriptBox["r", "2"]], "+",
RowBox[{"Sin", "[", "r", "]"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.8582581904149857`*^9, 3.858258247080335*^9}},
CellLabel->
"In[147]:=",ExpressionUUID->"8408c1a8-76f9-49fb-b53e-31a64980cf4d"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"dy1", "[", "r_", "]"}], ":=",
RowBox[{
RowBox[{"Cos", "[", "r", "]"}], "+",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"Sin", "[", "r", "]"}]}], " ", "r"}], " ", "-",
RowBox[{"Cos", "[", "r", "]"}]}],
SuperscriptBox["r", "2"]]}]}], ";"}]], "Input",
CellChangeTimes->{{3.8582582557662086`*^9, 3.85825828793134*^9}},
CellLabel->
"In[148]:=",ExpressionUUID->"db42c17d-3e03-4134-8999-1f429f6c01b6"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"df1", "[",
RowBox[{"r_", ",", "e_", ",", "U_"}], "]"}], ":=",
RowBox[{
FractionBox[
RowBox[{" ",
RowBox[{
RowBox[{
RowBox[{"Cos", "[",
RowBox[{
SqrtBox[
RowBox[{"2", " ", "m", " ",
RowBox[{"(",
RowBox[{"e", "-", "U"}], ")"}]}]], " ",
FractionBox["r", "p"]}], "]"}], " ", "r"}], "-",
RowBox[{
FractionBox["1",
FractionBox[
SqrtBox[
RowBox[{"2", " ", "m", " ",
RowBox[{"(",
RowBox[{"e", "-", "U"}], ")"}]}]], "p"]],
RowBox[{"Sin", "[",
RowBox[{
SqrtBox[
RowBox[{"2", " ", "m", " ",
RowBox[{"(",
RowBox[{"e", "-", "U"}], ")"}]}]], " ",
FractionBox["r", "p"]}], "]"}]}]}]}],
SuperscriptBox["r", "2"]], "+",
RowBox[{
FractionBox[
SqrtBox[
RowBox[{"2", " ", "m", " ",
RowBox[{"(",
RowBox[{"e", "-", "U"}], ")"}]}]], "p"], " ",
RowBox[{"Sin", "[",
RowBox[{
SqrtBox[
RowBox[{"2", " ", "m", " ",
RowBox[{"(",
RowBox[{"e", "-", "U"}], ")"}]}]], " ",
FractionBox["r", "p"]}], "]"}]}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.8582583291585464`*^9, 3.8582583398734355`*^9}, {
3.858326819937047*^9, 3.858326829647437*^9}, {3.8583269521159678`*^9,
3.8583269865677056`*^9}, {3.8583270243410044`*^9, 3.858327049137292*^9},
3.858327176329319*^9, 3.8583272513658543`*^9, {3.8583272866630983`*^9,
3.8583272871080413`*^9}, {3.8583277737684746`*^9, 3.858327790352742*^9}},
CellLabel->
"In[149]:=",ExpressionUUID->"034aace0-c4ee-4776-890d-85681f5e916c"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"dF1", "[",
RowBox[{"r_", ",", "e_"}], "]"}], ":=",
RowBox[{
FractionBox[
RowBox[{" ",
RowBox[{
RowBox[{
RowBox[{"Cos", "[",
RowBox[{
SqrtBox[
RowBox[{"2", " ", "m", " ", "e"}]], " ",
FractionBox["r", "p"]}], "]"}], " ", "r"}], "-",
RowBox[{
FractionBox["1",
FractionBox[
SqrtBox[
RowBox[{"2", " ", "m", " ", "e"}]], "p"]],
RowBox[{"Sin", "[",
RowBox[{
SqrtBox[
RowBox[{"2", " ", "m", " ", "e"}]], " ",
FractionBox["r", "p"]}], "]"}]}]}]}],
RowBox[{" ",
SuperscriptBox["r", "2"]}]], "+",
RowBox[{
FractionBox[
SqrtBox[
RowBox[{"2", " ", "m", " ", "e"}]], "p"], " ",
RowBox[{"Sin", "[",
RowBox[{
SqrtBox[
RowBox[{"2", " ", "m", " ", "e"}]], " ",
FractionBox["r", "p"]}], "]"}]}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.8582583607857356`*^9, 3.858258364095352*^9},
3.858258727915249*^9, 3.8582652189038057`*^9, 3.858265258428771*^9, {
3.858326835530024*^9, 3.8583268420127707`*^9}, {3.8583272028634205`*^9,
3.8583272830522127`*^9}, {3.8583277999300785`*^9, 3.858327808702016*^9}},
CellLabel->
"In[150]:=",ExpressionUUID->"354c6fbb-a6f4-4a89-81cd-72743beabd14"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"dG1", "[",
RowBox[{"r_", ",", "e_"}], "]"}], ":=",
RowBox[{
RowBox[{
FractionBox[
SqrtBox[
RowBox[{"2", " ", "m", " ", "e"}]], "p"],
RowBox[{"Cos", "[",
RowBox[{
FractionBox[
SqrtBox[
RowBox[{"2", " ", "m", " ", "e"}]], "p"], "r"}], "]"}]}], "+",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"Sin", "[",
RowBox[{
FractionBox[
SqrtBox[
RowBox[{"2", " ", "m", " ", "e"}]], "p"], " ", "r"}], "]"}]}],
" ", "r"}], " ", "-",
RowBox[{
FractionBox["1",
FractionBox[
SqrtBox[
RowBox[{"2", " ", "m", " ", "e"}]], "p"]],
RowBox[{"Cos", "[",
RowBox[{
FractionBox[
SqrtBox[
RowBox[{"2", " ", "m", " ", "e"}]], "p"], " ", "r"}], "]"}]}]}],
RowBox[{" ",
SuperscriptBox["r", "2"]}]]}]}], ";"}]], "Input",
CellChangeTimes->{{3.858258376602046*^9, 3.8582583802005854`*^9},
3.858326847507786*^9, {3.8583273062034693`*^9, 3.8583273510870943`*^9}, {
3.8583278207542763`*^9, 3.858327829520852*^9}},
CellLabel->
"In[151]:=",ExpressionUUID->"7e046243-a864-46a1-a5a0-7fd7213b4a06"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Delta]", "[",
RowBox[{"e_", ",", "U_"}], "]"}], ":=",
RowBox[{"ArcTan", "[",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"f1", "[",
RowBox[{"r0", ",", "e", ",", "U"}], "]"}], " ",
RowBox[{"dF1", "[",
RowBox[{"r0", ",", "e"}], "]"}]}], "-",
RowBox[{
RowBox[{"df1", "[",
RowBox[{"r0", ",", "e", ",", "U"}], "]"}], " ",
RowBox[{"F1", "[",
RowBox[{"r0", ",", "e"}], "]"}]}]}],
RowBox[{
RowBox[{
RowBox[{"df1", "[",
RowBox[{"r0", ",", "e", ",", "U"}], "]"}], " ",
RowBox[{"G1", "[",
RowBox[{"r0", ",", "e"}], "]"}]}], "-",
RowBox[{
RowBox[{"dG1", "[",
RowBox[{"r0", ",", "e"}], "]"}], " ",
RowBox[{"f1", "[",
RowBox[{"r0", ",", "e", ",", "U"}], "]"}]}]}]], "]"}]}],
";"}]], "Input",
CellChangeTimes->{
3.85825885963708*^9, {3.858263891931634*^9, 3.8582639038048224`*^9}, {
3.858264044713843*^9, 3.8582640497808156`*^9}},
CellLabel->
"In[152]:=",ExpressionUUID->"5c6e757f-e1ca-45d3-ac1a-4a155d76ed53"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"TotalSec", "[",
RowBox[{"k_", ",", "E_", ",", "U_"}], "]"}], ":=",
RowBox[{
FractionBox[
RowBox[{"2", " ", "\[Pi]"}],
RowBox[{
FractionBox[
RowBox[{"m", " "}], "p"],
FractionBox["E", "p"], " ", "100"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "+", "1"}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"Sin", "[",
RowBox[{"\[Delta]", "[",
RowBox[{"E", ",", "U"}], "]"}], "]"}], ")"}], "2"]}]}],
";"}]], "Input",
CellLabel->
"In[153]:=",ExpressionUUID->"af4bd8bf-2657-4c4a-802b-44d2805402ee"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"k4", "=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"TotalSec", "[",
RowBox[{"k4", ",", "ee", ",",
RowBox[{"-", "17."}]}], "]"}], ",",
RowBox[{"TotalSec", "[",
RowBox[{"k4", ",", "ee", ",",
RowBox[{"-", "18"}]}], "]"}], ",",
RowBox[{"TotalSec", "[",
RowBox[{"k4", ",", "ee", ",",
RowBox[{"-", "19"}]}], "]"}], ",",
RowBox[{"TotalSec", "[",
RowBox[{"k4", ",", "ee", ",",
RowBox[{"-", "20"}]}], "]"}], ",",
RowBox[{"TotalSec", "[",
RowBox[{"k4", ",", "ee", ",",
RowBox[{"-", "22.8"}]}], "]"}], ",",
RowBox[{"TotalSec", "[",
RowBox[{"k4", ",", "ee", ",",
RowBox[{"-", "23"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"ee", ",", "0", ",", "10"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]", "All"}], ",",
RowBox[{"PlotStyle", "->", "sps"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.858259082417744*^9, 3.8582591116170616`*^9}, {
3.858259460460226*^9, 3.858259759790062*^9}, {3.8582598157512307`*^9,
3.858259843278204*^9}, {3.8582599041487236`*^9, 3.8582599262435303`*^9}, {
3.8582605613511505`*^9, 3.8582606255925746`*^9}, {3.8582606926669703`*^9,
3.8582607483188252`*^9}, {3.858260838938895*^9, 3.8582610487779636`*^9}, {
3.858328163502419*^9, 3.8583282680554805`*^9}, {3.8583298441065702`*^9,
3.858329861476742*^9}, {3.858333595724904*^9, 3.858333598163597*^9}, {
3.871881962525235*^9, 3.871882129041067*^9}, {3.871882162483675*^9,
3.8718822140705633`*^9}, {3.8718822559076433`*^9, 3.871882396155951*^9}, {
3.8720650357632627`*^9, 3.8720650379305897`*^9}, {3.872065086843615*^9,
3.872065111388768*^9}, {3.8720659903822393`*^9, 3.8720660048398523`*^9}, {
3.872066040939918*^9, 3.872066066881962*^9}, {3.872082508049254*^9,
3.872082529883059*^9}},ExpressionUUID->"b805c035-89ef-4ad1-bc3c-\
0f1a4f1d45be"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[None],
LineBox[CompressedData["
1:eJwVl3k8Fd8bx++9M1eklCVElrqkL7K0UzxPhEharEmyJi1CRJIIpUKIEqEo
pYRoo5Ite7KVPcp2keyy+83vr3m9Z+ac13M+n89z5sxam3OH7Rk0Gk2XTqP9
/xrnY8OhbHdL/dDWzt7gLA61ojpJfVNJR8iW3H1VXapQfbE4119S8iK8XSvi
z6nQqc4T8TZjaeNV8NFo7uBLmFCPywuRYEreAI9upbSNGgTID9mFLjrchg/H
jhbryPBAG0/8wlxDBKgru7Wb568CqWSubTOzUfAkim65MVUMzqi5n/0ncR/k
rkvkLznNgqz6jsfjmg/gyMlwuvfDDTBzWr91xCEBtppkCTp7KMBDeuuNf1qP
YPmC07Sz5ybY8zVcerIhEZxEP59ic2wDdrRO/rjjY1jGK5gc36sCwXbzFmOz
T6AeOu4LiKpD3ezJyGGJFDgv9NeElasJF0rElYZePYe54r8z/sbaIHKnvmJQ
MxU6A32TdIV0wUYWiQGHdDCf/l29TPQAMGa9vo17Z8DokeNlJQqHoL7DWGxc
6xV8qf/dl9d9GDxTubNHGzLB/H7JFesoE9CL6OEYfZgFRzOs/uiHmsEaz3yj
EcfXULmovsQzzhzyND2Gh2bfwFRbnYDQoiUsafktMyiRDULWIVZJjnbQmPfJ
/Q87G665Pjm4kGcPz5OjCwde5UCksrckU8oBDFwNjvdrfoRzBdaclstPwV2u
nLu9Dp8hXicwN3a7M7z20HM9L5wHUYvlKRN8LvCgf/vqMe88iFj36JDTuAs4
VfM5jGrlQ/XfVv5fZeeB70EpY6ShAFJn62/WffaAWZ63Kc67CsFNIHaz7FdP
6PJLOjj8sBCsPmfsHOigcuHgEz/kWARSenar6kS9wXzzFtW/s19gU6pypLSz
LzwqT3AZkCiDEAkbO+0fgTAe/Ua2PbgMejL+pUQmXgNth4rO2ukycMh8d4/j
/HX4Q/wzzqkrB5/Lw0PnqFztUDNQvXG9Ei4TCTP8acFwi9tuzHu8Evof1KSr
PgiBn00XU52tv8J7Nbv+nNBQCLjwRNxsZxVEKS395IJhUJ0+x5AZ+ga2qm6V
+/ZHAB9wWS5XqIZ9C66n1v+IgJ3rI1Wv21XDhy1uebrWdyB0PGXMq6Ya0poP
tHn6RMKW8O/2Ni9q4Ng599y2+rtwpVxeT/l4HbxrKns3OR4Lz169W/8iqg68
5rGd9/EDqI3WIKQr60BKdOBThnEcSDmYfRRWqQeZPb5DQXnxUE4EKND4v8Op
zVp3rzc/BEG1Fr5vxT/gfd9qcOZ5DCh1Ymjv/A+Q92s/yLz0GBy5RyoKNjfA
jOHrwln2Y/jYxBH49mEDjH5vHRUoewI2Fzb9i/NqhHfNY3+VY55CWvqNljMK
zXAhyegQ2+8F9PP1B+tZN4Owof274rkXIHNBT31DZDPcrL6Ik56p8HAX96PO
6WbYxTHx6YD7S4goCz5h/qUFzuyxyhPzSYcLnbdHdCzagDu82LOZ/QoytYcT
pW+3wQZPD3U15UwYSjloRBS0gWZoWpeJVyacdOZ9lyvzE0IWKy9l8mSB+XyE
99axnyCgoBkpha8hgbvCn1erA0K01ZWKit+CutolC1/LDjhxwGeEEH0HrU5y
W4c8OkB45Ls7l/M7EK691VP5vAMuLI0Ld1zzHsKj9XWDVv6CMV/VzGifbPCX
ruJZbPkFF/d3lQY5fgQHqLn/x7UT1O/YnVVxzgda4mROy61OWLVk4Vhwcj5E
k2tayx93wpmWhk372/KhtOyEeMqPTlD9ZGstol8AG4zmEu1Vu6DIITVnSKEQ
2CdlUn/SuyGbrRMxyPUFTkVczq0O64GNSR4xp4XLgDGR2P45pQcc5rKrLI+V
QYxpKS29oAd4G3kDqhLLoHwNv2bIeA9wqomqSiuWg9zTZyW6Zr3Qopyx8+P+
Cvjzoa66QIIN/r0iuaOJX8Gp+7/O12l9MPAlv1LdrAY6LJs488v6oL/EKSD4
Wg0YNgYpfO3qA9YrvXNyb2pgR0XvxW6RfljIEG8+xl8LxKsnKwWv90P4ndVl
sXW1EO29Vt3j+AD8kPQ7l2FbD/n8q++rrBwEB9EjhZ8LG2BLSGmultwgZB49
9C1xrgGSOTy7DmkPQpmUVl7b1kYInv6heMp7EJh9ihNHUxrBpD2yOIY9CA2X
bccvRzZB//OV47N5f8EixuKsx6UWWLo2QKZ9xzDERbEsGSHtULorXNFHaxgm
rkusCKtsh2tm8dvFDg9D8hKhgG0cHcAIe69z9PQwLG5wd7mp3QEzC38cGuKG
Yd8fdxWesg4YaDV+9o0xAsSXx/cCvv+CymiZ//IqRyCnbJvykmVdELqyQvaR
1RhEKYYtY/1hQ/Z2sTcGTmMg2B2Bs8J90GV5DuYujcGBjoiOOa0+2PmS38j0
3hhwWifeufSwD9i6FpeXV42BW49CrZVpP2j6D367uHMcErYNOt+rHICpiRXu
hwUnYFzmx+WO2r9g02L0maicBI09z+R140fB5UuAzTmZGXivn5/pAdMg3qXN
Mbl5Bvwr7i1ZZTYNFQyu5944A6UfSw6mOk+DNIaM3DgyA2H269pKHk1DU06U
7+NbM6C8zuBFKjEDuzOS45uGZqBLz6x09ssM8MaWNmu+n4XiC0qGcppzkJt9
06e8aBYi8yToseZzcLpRf92hmlmwO+SWP+8yB19W1Tha9s/CkOzMs9iHc3Ax
rGnKc80ceOltP7d5fg5+BfYLpvnOUd+78HvJWfPwynmZobDuPJhKn1itK7AI
lTH8F1+azEMK06jlhtwi9BSJJGjYzYPCDRnH1xqLILL6v4EzV+bB/5e2QLHz
IgTka/nnv5mH8uOMme8Vi2DCdyXr1LoFKJ/J3pGrTsOZrBH+T7ML4LLVyL+u
h4YCP6dUDnMtQp9zUfHvYRoqcNKsegUXYcXxGaWuGRraWvCk8m5ahG+ufNs/
8dCxkpTbc+LkIuglLOgWb6VjvLGd24rvixAZej9Rxo+Ojy6d7lcypeFeJd9j
NcsYqJTHNXX9GA1//jvN8BVgYB75jNluS0PtrLjDa9cwsCOkSzLEmYbKtM6O
nXIMFH94zLTvBg39o0a3Ve9lYEzRgaJHH2k4EvvpkasfA2W5/tZMFdBwzKmb
pRfEwOz9we0Hymj41GaTmMBtBjb+KJ2Z/07D2fOGzlceMFCwb7ey+RANrUR/
Xs16y8CI5Vvi+dbRUd7/vE04m4HrDte+cNxAx/wQyx1hfxn46q5zdp4CHaXr
hG/5jTOwWuJlvdNOOrr55KbvpBHIs2k9d4URHc1oeuo8QgTeNBH29L9ORzWV
TBNFDQJFYt8GNofQMSvwmYOpDoEp7UZ3lCPpaJBUquCqT2DpyfC09od0BEJj
/IoJgRyXlnbvzKHjzcCCyTlHAq8mzB0a/0PH4cDVKldDCTyo9N5FboyOzyQ4
PxREECiefz7cZpqOT8MtmybvEpjzu7+6msnALAMNTtUEAkelmw68FGdg2Akh
+sZ0Am1S3+w/cZCBalEcZpWVBCqpuZyNM2FgGqf1Xr1qAhe+yofUWzDwuJWe
6cc6AmOGkio1HBk4Z6E14d1MYO2miH0SVxno0fh7m0svgbuznXQbsxiYmza1
V2GR0kNP1nFFDgNrzEZjR+kktjZ3B2nnMXBDnenzFySJnnMWpa8rqfH50aw5
LhIzYJ9OeDc1nu6RJSRAok81h0PpAAMH44uX+QuSqG9dcG1xhPJVq9ijU5hE
9lWV4rMLVD2zmO4vRqJksYyWHqX7dt0rPzXWk/jXpNPOT4xA+wdbFk03kPix
Nz7gPYvAiIDZWzayJJpxCRatVyJQ7fKskJkCiWH6pCahS2CAuRIWbyXRsu2z
jeoBAo9P+iwJ2k6ivNOlqy7GBHZ3R0aDComlt0fz263/r3ORTtguEml1HfjR
i0CLr3yy2RokBvTlPvLyI3DylLuf7h4SuWhxDJUgAlnzbVpVWiTybTxS9CaK
QFPnFUZv9pJ4T3O7tNsDAp/XCn0S0iNxjfmqa5uSCIxTeFzjtI9E6es1OukZ
BK7l2bBrdj+Jz+PSn519R/l+L/GV0gESFV6HcMnnElitnMx79CCJO37pVjyr
oHxpuV8depha/z8ZeYdaAhu1dh+INiRxNw9HiHQTganh7f/uGpGot7PAILGH
wMz4ZA43ExKrDj1Mtxqk9ApNDT5sSqLhSZ+VEuMEvmi38V5vRqJFlGptLOXr
6b+5jWlHSOx4IbzZnJPEO9+P2Nuak2hfMHlHeAWJr+JDY5cfJdFpKNM4ag01
b23+Hk0LEkeZ4W8NWSRe3ZbXUEWxx5pzQnyULwFPTI0OHiNxbtN+z2olEkVN
g8pLKPbVlWsKpXx4139Ib6sliUwrLtX96iT2c2Z1RlN880JvDDelqyQzJXmU
Yp6QL7NllG6H/BSTNI5TdSUlWQRROmziw74gioVz/D5pU3UXddcEfaH4QfVx
caYV9f6ppvApitf2ql0pPEH59E9HYB11P3letMPvLLWOC9ySGhTLCswgupFY
uJLnixnF6bKNjxa8SIxo2sp/guItu98yPvmRGONtJ3KK4vemkbaXgkjMHLzQ
b0fxLifXIpXbJPYIa90xoTg/4KD0VBSJKyIfSQHF2rEK194+oHJw+EiaOMXl
r5b1uiWRyG+6GSeo+gxK+3U2P6f0ODvcV0Bx3c/SZyMZlE8/9T5cp9hsIpkr
4x2JKesnCzUpbuUOPOWUS6JIVjz/P0ofq3W2FfJfSAy+35f9iOLuHbvlByqo
+o3cijUpPnVAIiSllqrLt35vG6X/X/v5QYcmEvNi7h10ovi8d4vB+g4S7+Zq
DE5S/k1FZKd39ZCocfKwggfF9Dx3F+txqk+e2rVYUv5f+2FYKzFLzde/6UQx
lY+lg8qbf9KZWHJ3rlaaYgGRv+PmK5ioaJ5+u5LKV7RSpfFqQSY+L1m1wE+x
mM7ztw1rmLiizeWWIZXH9W4nPI1kmXhxKhw+GJO4UbXdMEGJiQ3tOsqjVJ63
0MwU+7cxcebBFa91FGsE6/Zc0WSiqwP/nnNUDiwfyxu9sGDiXhMljg8GVF5P
PVGctGHi2oZIjlyqv84oiXPvdmRiGOtrbo4+iV4fVxT8cGciI1fx2iOqP+/W
jyoybjOxW6MuR1qbxLiY09z7o5j4cKdi0T+q3x9bdfXci2ViS/3ezkJNyvc/
3+M2PmOinExvmN5uqg/IbO4j+UyM92nt56P2D+bWK73pY0xMztP1uU/lftns
v4KZaSaGH5zcxqdI5TDfOV6LxoH8z7ZkB26kcr7fxrhlGcUW37SOUX2zy16r
kGM9B4onlKR+o/rKLYo74ZgZB3pZck6UryKxa+KeCfcnDqyUXcJtO0lg4u7N
59sKOXDTpEOeKNXXx0OqbqeXc2CwRXrdtxECm6WYZYaNHLhtj42mLLUP1Bi6
7nwwxoFvW+Jup3QSmPtKX3Kj7BIU2hzb1fKNwHtn6f0G95agV3iJmsUTAvW6
T12OcOHEP1J3Oqa1CdS+zErd48mJ2+rd9Ac0CdRY1do86cOJ/JlEXDMSqKq1
f8fRYE68bXuOK0uVQNknimOsp5z4oepk0z4FArntx0++aeXEwOQMT9YqAiu7
Lhs16nDh6vWE0P1fDDToCpMTF1+KUy3rNdkXGNhfaONb+pIbV79QfLb8OR0V
eH+IaR5fjhsvZHeFfaXhUpiwbh3jwdNFvT7CnDTUGTT/t854JUqv2vH+yeUF
aCywo5vL8+LX3UN/cnjm4U1QkaXkBC9a3JBV/UCd404w3TuqqvjQh/+jgXHk
DNi6XnqzLIYfr2XfuTh0dRoUHeSq9K0F8KZb7v77N6fgG588t7vKKnxzyeDd
lvB/8CHtaqw8IYieR4jF89mTcIkue7CyTRA1m90bsWMClrZ67XV6LYQ7z/EG
SolMQHfy2sgEb2FcPhyR4nt2HCI3rCazjVfjFy3bmq25YxAWc6LEWlIE5UOt
HbOkxsA88ljVsl4RtJebtvt2dxSm9jyZTsgVRfKB7qe7zFHo7NbwLLi+Btsk
0xLDA0cgUU1Z9Ku1GKbtYP/ZQp3jXwa68zpsFMfe+jdy/SHDcN3Ydh8xIY7e
M7evWa0dhq2tj1Kuf5XADgmm5m2bIYj+L/bl132SGOpqW7Uy9i9cyQuJ3pct
ibY2d3VSKwdhv6jxk3KptZjuy2e7iXsQdjuVHOW9sRYN/FpX61n+gYQ1NlKV
E9Tz5EPTF58PgFTh07sGR9fhdzfBoYNcAxC2sUC2NncdjtGixDa79MOJMbKm
TJaFP8XCnxyq7QObV6OSN26zkNcoPe2SZh+cuWo4pxfOQg6baG2u3X3gbvi6
YdkdFibFmOI99T4ImnAPDbvLwjSVIbPXKn2QpjI9ey+OhVeVH4uOKfbBdP7i
j+QXLMRPBtVX1/RBWO2ykKISFmqlLdHon2BDTNLZk9fKWBj1xvW3/xgbktyq
NPdWsLDuqfcvsRE2vBUMm6moYuG5Bc7Zw9T/Tqs5/8m67yycOKNzP/83G2Q6
V2v+7mQh94eYMxnf2KD02kv8cTcLY3boDBz4ygbVwJZp+14WlWNmyVA5G/Rl
4jL6+lm4R8Q0SqmYDa6nJcVHRqh6XBNuvv3IBu9dftOZYyxklCoNmeWwIXD5
73q3CRY+0+fNmH3Hhuj0pFtTUyxskDqurZHFhkRf0iFnhoVPlR6I9mSw4cUh
ew3vORayW0r0b6ax4fW6YjH1BRZ2rS5vUkhlQ+7Y+unFRRYK9N4sqEthw/8A
ZnRpNA==
"]]},
Annotation[#, "Charting`Private`Tag$36917#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
1:eJwVlnc8Fd4bx+9Fxr1KKF8Nq6uIUpLKfB6ElBSRaJBkVUJZ8S2F5Cuyssoq
u6RIWWXvnWwZmVf2yLi4v/v767zer3Ne53XO5/mcz3lEzO7q3WQiEAgyRALh
/2P0QzNWaXM/5W2br+he8OJRKmsR1jYUtoY3hpzX7KBRmV7x3VNY2BX0VPT/
G9SfVt4S/OUjqeMJ3LkQcJbrPRGii/yFNgn7Aqmr9WGLBxccmDYPoFu+AB+j
dspSOj/82hKzsdYeDDmXqkhOzSIgmsRxbJX2Evo8Eq9W6IrDbSXHO0tCkaC7
EBPG03UIsn72JyyovQbhKhNT1WNHYfWWds+sZSy41/A7JW6Sgzhij++SejxM
s8lFnbmiDCfrg/b+bX8DWYXxs8kCqjAWoVm8YJ0AMrwNuaO66vDcfP3KPC0R
wuv0vt+vPQUtNKvQGaFUCFBlYrt66jw4VQoenv6UBqmKXCa1tnqwM+Rn7aTa
e5jbUZHPkqsPZhLI/McyAwjrv78w5RkBE+1B44L7R+iaYS2/an8FfvYbCCyo
fwKhlt85H8+agMt7cu5ceyYszmsEncg3g9PBI6xzcVlw7ahqRsF1c9jtUqw/
a/0Z6sVIPoa7LKBIzXlmmpYNvXcEjt6tsga27t9ik0K5cEOg+54amz10FH1z
nBjLBdvXnxO49jtAWlJE6Z9PeXDxmlE6u8E90HHQMRlXKwAvI6/8n7WOEMaR
FzZqWQgSlX+O7D3uBp+dTzvc4y+C1pIYn+T37vB6/PiOefciiPQLdiAefAi2
TTyWc+rF0GPLJXw62QN4XlcxzbaXQMh8SWcL2QtoW76k2imWQl2RZ4vkvBcM
PX57fiaOwcKbarX6veGL5cOYaesy0OudUGet8wFjmaPyU7RyeKYf0V077gdq
SSIDd0wr4NST9uRooj8c2MH1bLKsAkzY1FNCBQNgY4PaOuFfCYuF/J+DZAMh
vibW/o9QNUQ1rMtuTQmGhYhsib7n1RBoaj+QbxwCGpa1gz9WquFidf5H4A6F
CeYlg7yWGug9klQ04/sSTijpyPv61MFiD/e2wbQI8CObz7sv1IHJU/ZhuX8j
obfT9b3d9Xqotdx++/2FKPByShS8pNAAmRLz3mybX0NTxhqT2HQjsHygp/pn
xgIPcFzbLNUEb4J4iq9ciAOFfaHyPuZN0OucJ5/QGAcBC6nzD5qb4HDBiZNd
DfFwNKj1ptm7ZohfWLG8OfYWHtUcOC1t0gIakyX1Ys9TIOXT133vXrZAvDG0
vZBMhR8Rqsx761rAonHom1N9KohaXirgl/sJMtaVEa3876CG2UuKwNsK4qf7
Nawa0oFPqZunsaINOJbENIp7PgGKWkyfWm+DF2nzlGSVTLAmz9aWyLSD6WT6
3qXkTCjoZPX+EtcOedbXm/pdssDM6chS9IMOsOvQVJc4kA0fMny7b0t1QXHP
lknB7hwY5xl/fvp6F7DJEcXSz+WCmNNpZfHQLuDkj/8YW54LcYrk+MGVLhBd
XUnIz86D4OrnFsbl3ZDkLHlhe3IBOA2+mNW88gt6hbhD1a2KIFNj5s3eF78g
s7z5guaHIphOPa/PXPIL0u4vl3ItFoGVHffX72K9ECqkwbbqVQzG68HusvO9
kHqGNcboQwnEkms9udX7IfvYoIyjeDkoK7ld8bjWD6k2zsJebuUM30rKTjv3
w4UPgUF3G8uB/4ffSF1aP0S1e0QPuFZAUIS21rOtA7AqcK3DqLMSPPc2bKF3
D4CXo216Z2kNWEJz5ITDIPRUdedHpjQB4c3fvG6/QVhbtB6Q6m+CCJbdPTUJ
g9C2dun4Sf5mqKq2EExtG4SFw3xyc77NIK6/9uam/BDICs/M2t77AWNWYu97
icMA9/7J9zb5CR612vX1O4fhXNj3HLvYn8Av5TBVIDMMHvurx0b6fsKp+YLD
r24Ow4DtYJizWSuk/quXbVg9DJW7UrmVbNvAJvjf702BI2Ctqjk2GdcBTItv
+gpTR6B/9q5ZD7UDogyrCBklI8BrY5BiKtMJNbt51fwXRkDZpY9ysKoTJJNT
KrUujYKHxn9uo8tdMJHf0lQiNAaX7MQlbzn/Atvh/YOfP1Ahr1fJ1NhpAPqv
dbIXV1PBbLTDPytlAC50PJOqH6KC7FXzm3cZup2oHXUd3jkOXOZ06a2qv4H5
U+JWPp9xoF18VrrOOwgR7iLKziZ/YIqfyltYMwTFvDsi5bZOwlHuXWYU7zE4
6l/1XV1yEnQUrO3kysYgidVlSFdjEh7wSBh8ZabC85W2Qzbuk1ArXfJ23JMK
F/tCK6LGJiGoyCVfynccxtO2LtCKpsDbX6dDIHkCSCJeYn0nZqDRZiHxa/gM
VCkGHXqoPgPb5S8l8+fPwNNLMccF9Gbgh/G3PQm9M8AUmKN5+dYM2P3WbJTb
NwurGxOW7dEzcGNN47Xx11n402OQ0sg0Cyl3ucJVBuagLkJsf1HdLOyN/mpT
rbsIAVtrJeJN5+HuPhlD6aBVyD0ukK1jOw+1nk9ErhStwtC1u7DmNg87/MKT
Xk2vgkI6r75h+DxkbP76w0CHBmNaV/7d3DAPX6puDsRxroGa52Sjq8IC8J1e
Vfvltw7Li1yOenyLsKfIiM9Nk4AUATM6nbII5eNqngEmBNQ5+dk3XXoRdMg1
/jHOBEwMvhTDfnYRxijl0ZnJBNQ7FF/53ZPBMxm+0WxETLc6slNydhHYTHM3
ba8golm3fiFz3V/4t1WvT1meGUmvBu7Yd/6F7OlDQiHnmTHT2HZ338hfCHni
V9BqwYzMXT6uecQliBA2NRUNYcaEjjwZ++NLoCgsn9A9zowjrcIpvW+WGPoP
HDIMY0GbponAXNdlqLp5h9DRtQl5Al1BzGcZItu42mWnNmHeOdap0NBlUNKK
OuhEZEVyo9AZu4xlWNjsty9ajBXf1+ttEhteBo60elF3B1acqslxDT2/Apo0
7RAVJja0L/cyuyu2CuSpsiltdnYUHNJg/SuzCmP/9PQ94GPHWiaONHdcBUt9
zq2+ouy4F/1nfY1WwSL7ark6smNn3kuPBL9VMBfpGFFyYkeVj0kxnYw6ja4W
fvqnhx2nGqxUTddWQbk48TWMseOrSYmREXYaRIcav9VYYMdFiYyDCyI0+NXw
rn+WzIGpiV8LtujTIHeVerlAjgO5X1V1qeXQwLwyNk3wBQd+z/3vYU0ZDWxo
MirHIjnwVof2Ht1mGlCcP3QeeMuB5dubra+N00DG647k1y8c6BrYueyyew2m
VEiqKj0cuC/j1Wu6+BqY7TjVrDvMgS31V/Gp7Br0MadnqExx4EHyb58QnTXo
/TMcWEjnwAHvcb4PHmuw+/7HEFkREgYkvM876r8G3BlNJ1X3k1Ch1PZafuQa
uImvVkpJk/AlYT6xKnMNdpwND01GEmq50Y4ODjHW2+2M33mNhJ/sOC/wa63D
gvytmF0hJKyL4nVNv7gOj1kUj2ZGknCkbGesqvk6SC0crReNI+HOHfv/3H60
DgqJzgkx70noVazuWZy9DtOHthtQS0kY80c79WLpOghvmN4yryZhznb9xj9N
63C7xLGxoIGEk9Zmu/gm1mG7qrIMaycJL/I8yrLZswEhAbq3CBMktFN82kk/
tAHWi6cnbWZI+J+FPz1UaQMMR6cPf14gYWHeqzOFlzagbcq3eHCNhF1Db+z1
LTbg0XyPfQ2BjAtb0sKp9zYgiPwiLZCFjOI3cgZ5X2xAS2etRwGZjKr+hRyp
rzfA4aiq9x4uMl75WnFIOW0DSjpG+qx4yBhEbnWzKt+AZuU+63B+Mr6X7Ylf
/7EBN2UlmT12kbHCZLAyuH8DfvEFVGgJknE1a5b3G20DNMr2v31MIeO23mU5
PQ46XOsdF5/ZS0YpdoLpKB8dJjnqPqE4GW9c2fKe+wgd+tJXU54dIOPDp9t/
JAEd7slSvT2kyBjxcfeywlk6TDQcUbt8mIx1LJInLazooMjkrJwnQ8YRqSM2
NEc6yPrnTijLkpFgJBcY6EmHTq3+y8nHyLjTE7/sDaIDdZdL2fxxMsqma/bk
xdCBa17aRFSOjOfbdZjOv6dDfkifuZw8GW2IF8WHc+nw6pbdFhkFMnpJXtV5
UEkHJ4epUG5FMsYYmN/naqWDwT9u0q0Mznl0KyrhNx1G5LQFHiqRsSXVoUhu
hg4Lh1KDOJXJONXiOtKwToef7aOVHgxmeYSsmZsICF+sV7oYzL3tZKQ7JwFj
RCJNdgEZBVM1D2jyEpDmMiKjymBJ5TOF3DsJ2GhZnnGOwSdadPR6hAnIfCyN
8ySD1a30hpPECPhSlM1LiMF66wYu9lIEVG7TOvebsb9JsBFZUZaAQuUdyc8Z
fFvsagyrIgGtyrZWCjLYtcBUulmVgJIBqiMRjPM/1TUve6VFwI2rH5VpjPuF
jlgaWpwnYHi4H4cGg+Pdbo0fNiRgiuvcI1eGPoeLOJZ9rhJwrf7pp0SGfkUs
KZv6bhBQdB/z1Lf/66ulwXvMhoDuGyk3Sk6Qsd9/SNjfjoDEXwmYxaiH3Y8n
UkNOBGzv4MwKZNSLzieiqPAvAV0k+saMGfUUjLtqSPUloDFV4eKXI2T8MEQz
x0ACNg8rUzWlyai0P8ohPIzxL7yL+ltxiOHfzDZ/9bcE3MvDeiyA4aeosnNl
8QWM+SXuExoM/0lwTDUvlxBwcxzXi1MMf+aefd53rpqAc6/lquREyNjRVrW6
3krA6iWZYOpuMvJRVaSNpwl4Y/3xBU9eMiYd7Ff+tEjA5R1ZfkRuhp8cHmqz
rzHuG7zIbLeFjPq0PMsv7ET8fF/FVJCDjMGbj8bw7CHi0qKqbfk6Cffo/Xhn
LU5E2+8hOjWrjLwJs8stkiJiGJmzuGiJhE1C6T9tFYjItZBE9Jwl4ZYj+8i1
+kR0fM5qc32I8f4v8rt4+hCxrYA4mFLJyJ9XX7y7/IkoFmTV0MnIm9Q+/RDp
UCLOzUpXbhSSsMoq6ENfHBFNSj84780hIasbaVghj4g/LhwfoSaT8Ensmu7C
BBFPcC4V2HqT8PzhHHvJeSJKZgheYX9MQsHie0FmK0S0vpOYHOFOwrzf401N
m5jwqaBQafQ9Es7t7TyXLsiE/lkcD5Suk9DsffZZi/NMqOkWGDEpT0KVXFut
jiwmzPzGytc1xoGEln4seMCM0qQL9vePMvL+voWLvsQmNHpsFlb/HxsOLYZf
JH9jxf3/vaA60zfh6WGbf4Pt2ZFNyiHN0Z4FdYYCJQUFSegq/bfsOw8zjpea
eVSlk9GgynT07TQRpbjbBNRMNqPGQNG2wXYCkmDxes/8FszMNNKiDNBBc9J4
aY/BVtROVmJuomxAR4k50fgAN5qFmN5mjV2D7Gdl14QXuRm515yuZEQDi02O
/Q0NPLioPhFnv3MVbji4ZXNG8WLD+fsCkZwrcMhSskH7+jaUelzJH7hzGRp5
DpAd5bajv4pvd9/+Jcj/8OTVAWY+3G+o/efw5b/gRpQ4X/eLD4XibKzx+SKQ
eh6csv38D+boWp5WaVqA4SSR0Fh3fjxr11TafWABQsV3sOQa7MAnhh8L5X3m
ITDKovK68E483ux0TffvHBiHXm3gHN2JUf2HvWzs5mD5ZOJK7PddmCxcm2k0
OguDw6ouJT67kbLjpf9921l4oyS9q/66AGrvfqSlPTcD6d6O3JYHBXGfopyM
mtcM+BjcOMO8KIhhOivv7grMACPuU33qhdCebz5L0mIaIva/Sq8/I4xeJWmx
r1Km4FGRf8SZXGH8aR/JLzE0CWd3GSTWiIrgWwvDPxmMvlfFtvIyt68I+vSn
hD57OgGxu81E6xZFcHukHM+Drj8gWpocpnN5D1JyPq2uwR8IPFgi8eP7Hgzn
ktQYTx8Hi3mW5moJCvpJ9WXxbB8Hs09zwr4vKDidxWJ+y48Kt59cWDsdREGT
rP6DXL5UcLzwuZ0zhIKhpW66WU+p8GzRMSAwjIJSKy8S1x5T4YPcCi08moIy
TJEPQ1yosFJMb0t6R8GF1oC+5ptUCPzB6V9WSUGP4fXcQKRC1Ns7Vk+rKWiq
dTkAlKnw9n6D2qlaCm5+G5g7pUCFL3yBq7UNFOTMFd+mc5wKPca8Vi2tFNw+
Eda+VYoKYoM71H4PUpDpdp1n0i4qHP78QDBhmII+2cL5xjuoIO/dvXJzlIL6
6yOaXP9QQVss+iN1nIJfFe2vu/JQweGWsODsLAX36G4L1uWggrvi45XMeQq+
2xfowM5GBe/Nv3/eX6Rg3MmG5EIWKkRkvPVbXqbgmoj81kMEKrzxYLHMW6Vg
ibGi2uj6GLzTvanqvkbBrIbUmljaGHzeUyGgvEHB7423ky6tjMH3+X0rjAYc
lXLutnEvjcH/AD+OFG0=
"]]},
Annotation[#, "Charting`Private`Tag$36917#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Medium],
LineBox[CompressedData["
1:eJwVlnc01f8fx7lGsu+nkmTfdGUmTaXXO6PsZCcpK4kK3yiyKkSyR4qyQ1mF
QiU0ZO8te12byx2ofvf31/s8z3mf93m+Xo/neb1fEra3jRxwTExMR5mZmP5/
vvSzZVeyDzs9QmxpTnEVV/3eIa5nLu4EwyxBWYk/Bk7/+1n5SFzcC5wTi+vF
RzZP88Z8KOLsfQh5sXbOD7z54GVVuBibeCiwr3FpGwsIg9ySfcQ/x0j4+bNu
uYt9P/zmffV3qycGxgdxqqRuRdj3evvRjc14SKyI7rasOgIuqh43qWLPgc2s
qacp8BQUd45krqknw+1HNiE1Imqw4aw3uOKYAgk/6pNT/jsLqcyDoVTNNAg5
pqBso6kLGk3RUpSedCAq3GA/pmMIM4nnqtecMoHZscFUUMkYntr/sSJvZkHm
8Yx8Lgsz6Ni8HrcslgvPvxVn8DpdBs9a0YNL794Ax6EyQd03V0EotrNhQT0P
FJeIvZHVtmArg1jmHAvhiFs1r5iZI+A2vVvWfIrA0abOTb7TCTpHTEXWNN/B
Wf2dbzQ8XOBeHlf5as97uNeTac2PdwOdmCn21dRiSPKoGrd45g7C96pNVpxK
oIDdjG1V8Q5Uqd9dXtoshYg9ETIziXdh28AYcUGsHBKCGpeqzvtDb9UXj/mZ
cpCqa6pT/hgAb14nfpt7VwFRxbTMkNYHYOBucGVW/TN4psyv50gEgrjFgXwS
9xcYqzPaX3AxCFZVWTdnur5A0VasmXRyMCRsr0iYdvwKPEZm7qsoFEru6rj/
J1gFNg1Vvn4ZTyB59tgesk8VaO5WrafyP4VbrZjjqmY1PNt5pEGeJxKw5F+4
lZ4asDp48DxPbQxs8n7IdT31DTjyNYaqsmJh4kGG4XLqN/Byu9F740kcfHD0
e7Xk9B0OhRjyTDokgKXyYZXFzR8Qstm3YOj4AtRfS4zevPoTjF5ZS8bfTQK5
PXwhC99/glauhZJlRDL8/Uvqmg+vhZTQRMfClleQVp/iNidWBy6PWDh+tqXB
WmKpzPDTOmAvFr3a+jAdzjo2jLfT62CtoRRjP54B8yxU04qOeuCu8oiRKsyE
46oGKqGPGyH37XTFi7ZsCOOyJ/usNUL7lvwX+6wcGOrzynO1aYKFmK951b65
EOiZJWpxshm6Dpz/eOPUW2gt3MIRl1qAi/hD+O9qAWCw3ZpHoRVG7cwPj88X
wsn9cSqP7Vth8OiV/kmPIohYyyV7t7XCd9pumqvPOzgc3eVg+7YNjs02mk/k
FIN/vZyO0pUO6B0N3bsruAxy3n3c/za+AySudgtXKZRDe6Iai1RjByS9vlTk
3F8O+xwtPgue6IRetwX2aZVPUM8SqMC0ows8FXwN7CUqYW2Wl8tbuwvslxrl
t49Xgkj782myfxf8CFgpWs/+Cq6phanT811QM3PNevJlFQioDmAtP7vhcLlT
9tGzNYD2XVvS+tMNARhPxNuSGnDiWmmoUe4B80Gzu7P7vsHnPvagD6k9sH28
62g/53ew9TxEfendCyLpM9v5Fn5AQWHogItCP8y22nhY89XDLDb7VMemH6LP
dnvdjK0HoqfOaem4fmjicBA33dMAqae40sbp/SBDuVBUJdMIMXVPr1n+GACc
2qpwmH0zeI5Hrpyz+g1qv3nPcie3wfuzy+lSkb9h7l6Q3tpCGyzlGpqw1PyG
shPNe5ZQO1x3xX+sJA5BdHyRFHG2HSz/xPgcIQ/B4RD/4BntTkjhaniE1xyB
W86nqyioB06r3rcKsB6Bfutm0TNZPTB4S/bI0t0R6CCIC/3i7AXB9rCpxjcj
IBTQWJbQ1wvRiXraIfyj8H5AtuZhcD88kmrm/TcwCjkPIvO3xIZA0txv+ub6
KFjxZy9bPB+CqhCFqkHeMRCYd6gV2TkMW3MRbhVnxqAGXd1HYR8Bj/fnOz2y
x0A88Ndej+2j4Ahtz+fdx8Fs/mKz06FxYEqnVAyEjUPNsWPFsV7jkMgqPFif
OQ4Bw3fI/tXj8Kvummhu9zjM4cXDM40nQNpkK91BZQK8qJQV9GASZq4T84aY
J8G2SDu3CzcDAQ16TU1Ck1CtKlT20WwGBBXcFz8rT0IS4ZHy7bczoEX+fDDJ
YRLYav3rbM1JkOtrVGpeNwmHbcr+eJXPwo0Y38rWqCmICWN+ppm9ALj19OGv
uVNAIK8GUTkW4YX5L6bCmilYeDO/N8J5EeqFd6iHr03BEVHrMy7KSyCbnVOr
bTENQqEtTEyOyzD/qaO1RmwGovdv7ArcvQq3Jg+MlxSQ4EigvIRj2zqMWPdx
VNeRQChsm/xlAQoY94YoNE2Q4D9CaurvSxQ43jDtNSk0C2qGlw18ZijA8i6L
X+DxLCxGX/Hax0GDRB+J03evzAGV8L7+xdUNqN6x5/kJ/gW42CVgGXf7H3BK
BBKHjy8DHKR+TjBmQ79ORSv6aS4DZTTHVNCfDQVbvDomYrQM4zq6H9PfsCFc
VNm5S87LYNF3Qb+RmR1t/J137Hm5DNG7/jPTLWJHc4OmOS24FUh4OC1Wws2B
GhOJB6oaV6DS7rhZZhknelJyWOlK3wp4u5jm249xIq3WMyf+Tq6A5hPF/j9c
XOj7NivtU/9WQPKB2esSay702TPKqUxpFd7hnnJw4rhRvgk9tyhhFcZVhwe4
gAdF8DfIpF0lw46GrfzhED5Ufkyk1OAWGXLcJ7YN5POhCevbsHWfDCmsnNOe
7XzoZP4OE/NnZJi7r/FMk4cfzWhb+fI0k6E9sOoCzpgf7XQr2PZpgAyBXRFm
K3b8CBKZYq6TyCC/zsmdd4cfJUxlvv7GugaD+nPPHsbzI/VHCy1eJ9dgv0dX
dnYnP7r1BiyJ2muw1z41aHqcH71oi57oNFuD/F9QuLTKj5bFjtIV3ddAgXwm
ypwfj1599pOcylkDefwXDV8tPKKt83kYCaxD48cZ28V8PCKI2P77R1gH4VWX
XfHleGSgURKar7QOWUGSq0w/8CgrxuIVh/46ED9Ob5MewCMjxbTaykfr8Ffp
VlExK4b8zMgXXKLXQcMuNOURL4ZyfTUH96SswxGixbSgIIaYGknLdyrWoZbT
ihQrg6H864eEZFfWQStp07VFD0O9kYGZvX/XoZxyrKbJBEOsH7sVgrkpQDGN
SY+xwpAl2331USIFPs34r7o6YyhYrqkp4ggFIu1TB564Y+idsZjFKXUKJAW2
nnXxwhBH+jeXZ9YURv+zK4KDMaRct4uq4UIBWZsqs6qnGLJednyw6kWBwqD0
pJoYDJWe5k7Qj6eA2q5DjpKvMGQ7YPKVpZECaRcbYyzeY4gzafSmWx8FVI60
n2r8gKH3lreEh6cY2k7lHM8nDLH0P/aqYKaCcHfiX1oNhvKe75SW5qNC/Zis
W+ZPDJlcTOuOF6bC1y/KLaL1GMrsrVB2O0aFc2bt8w9aMaSXeG5sSIMKl4ul
A5w7MLRm3hmlZ0SFQTb911LdGErebQMVV6hgsmOlsagXQ5o9CwvEm1RIEZKz
4xnA0GKCd3K8NxVO213vO/kbQwlm23RZQqhQ+Ncw7dQwhk4LxNFd4xn+qr7K
849iaKpLPGconQrVzm9XP4xhKCI+30yviAq5EgIOShMYOmqqwlbxhQpDrFsb
/pMYGtpZW0xsoIK6pJpsxhSGHnca28b3UkE7Metm0jSGDsaN8LNMUaGB+a2K
0wyDp/HNr65kKhjsj+DiIWEoYMfGzSEmGjxYUrJ8zNDSHcHCerw0sMrhT+tl
6NaYHQ3le2nw9ZHcJeZZDN0zSvUiHqCB320mVhxDi2Py0vFHaeCv5LZ7gHG/
rq28G6dBg9D2Snw4Q7tHnw1yvUADfTPP24IMLXShQ3nImgafqu3yfRl+aviv
jum60CDXNVDrC8Pvjdb5qHIvGlysoH/pYdSDRXkB8TENpqc2nzQx6q04z74Y
F0eDU3ea5FIY/bDli03GpTP85xWI649jiKtFTNe1kAYHnraN9zD6WRKRR//9
mQYTdH0yjGDIyuBEjm49DVYNBBqDhhh5aDJiI07S4NBH08a8fkYewoeL41Zp
wLoQMx/B4Lml52KLY6KDcWxsrSGDt35j0NffQnQYLW9L8mjDECUMu6UrTQej
WrawvmYMvdJNES4/QgfVvb3iYo0M/vVlXnGGdNhy4ydeYOQt4YmmNM6aDp48
XqGnvzH467R333amgwny8OSrwlBk3ZyybjAd/n6JbbpczuD3S3SR+TMd1NaS
LcrfMPg9fpt8u44OA69Zt1peM/idO677u5sOBkHR7U3pDF4/L+SUrdBhIrdz
KOAFhtx+BNreJm5AlrppXmsIhkQnzrJTlDcg/I1ohm8ghhpw29/4oA1oQVbM
ggEYkkLhK6EXNyBa9qG+wF0M9VXEB2SGbcDx4acuavYYOlP0+lXf0gbUnPAN
Sz2JIXzSr371sk2Qu8RkGjqCR5XlT/zqv2/C0nDH1v1+PHLu1ZO80LYJQnlL
lxw68ejHrjYn69lNSCgvPSzyC4+8ovpo94S3oKoso4tYiEejQbMCBQFbsPFh
07P/Ph69c+U2FtT+A28WbmrtxeNR2n3n2YPmTKjTwMpazYkXPUzZurA2z4xq
L0UN+qlxIcODZW6yZGbE4V7UJXSMC4lW/xdtS2dGhqkaiZWyXKhibLa1lQ2H
Xp/beV9kFxdaleo7ny+KQwpyj8uOz3Ai27xS/WuGOCStfq5gIpITnSm/pd1b
jEOtL/SNtk9uR0wdI+izNwtKZNFTXcniQIGkyjTvByzo/an5wvQkDrSd6SXu
RAgL0k7rCbSK5kCY/MXvpfEsyJasc5rkw4GkHredKyxiQcU5CTrXTDiQzska
g/QpFqSyM+ARiZUDxWZkWIUYsSJ9vvnxGedtaP+da/dMZNiQHF/CfVtDdiSv
MmyccpANrYpRWp5osaPDTBaKs0fZUH3dAd5yxI7UnmpP+auzob5+WWWiEjuy
zpQzeWvF0DAXro2xo4TOVUVcJBsak+NlSu9iQ2xH/KcLyWxIwtFQ2u8qG5pY
f2bG9YUdpTfgR1uCWFH6GeX/fn9jR6EuRRe/+rGiK+HNkYX17OiglIZZyV1W
1L+Prc64lx01uZd/L3BiRW3G7ieTyezoQy5b/4Q+K6p8pycuL7MNla5m8l/Y
zYqe3WSeNXi2DW3qcwqwFrAgnckbvjFuHOjifPJiGQmHzvoS8jTucSCJWUrs
5jgOqe0a7Kf4cSAZzhumakM4pKKpf/zSUw70Y6eo8GA7DslkKZIJ2RzIu1Tr
LPqMQ1wOa9dLBzmQVmVESG0kDjVO+Jr0ntuOTo6fCfhwAocMJqJkRUU5kdhh
1RrtRGY0+8024Fc+F9pF5tgMfMqEFPDdIupXeFB2+1qlnBRjP4J1m0EyL/Kn
71LLjfwD5xYsqZKm/OhnaJfZIs8W9NbYM1vK4ZGg9lH72K8bUBry3Vp8HY/M
7+iyXc6hwzU2j5FmxlyYoH+44fyMBnbu90u5X+xALlovllUYc13RUbZZz2Yn
miH6K/qOUKAFk+PyOLELHWgc3DDFM/7VgodJciwCaO/xJ496rdfhPrOMYeNv
AXRIkbfS7e0acA56a90q2Y0yHgZkfNu2BpOvJeJSfASRaEV96Pg9MsRJ72Et
N92DRvnweOfpVYh6ca3WRlwIKXUqm0c7roJl3OVm7mkhJBl+32NueQVoGln0
lMq9SIPVXWDRcwXGJ9Xu1TwWRhp7dr0c4FyBdFWlvU02Iki602fFNmkZ8oM8
8I7yokjqfPcjWcYe+djUTpdlXRQNz9ifkPmwBEcG03IfN4mhjeCyK11ri5B4
ICm/SVccxfS3t/SfWwT/qvBE3XJx5BePz5iJXQD9vaZZ9fsk0IP23wFnZ+fh
zK3aS/hQCUR8z989dGEeUoRt9zWuS6CJhJi+sPdzsO9bdoLBJUnERdTbhyPM
QZR8jUx7pSQKgzO4oRezcI3M2lYnQ0Bt4cYf6VyzYPtuVTw0koAm/k1KTj4h
gctD4y2daAJyuOz5KT+EBB7GJT3csQQkLKqc5hlMgpB1j4ioBAJq6Z0w3v6Q
BAUn6JvPXhKQoRa/ySEvEtCr/3W/fktAima9BTGOJIhq5w7/XktA2P1TOk81
SPAi4+b14DoCWipOs7NWI0HGnWZ1rQYCSljuqz2ISPBBIGqjoZmAvih6u3af
JMGg5Y7rHV0EVO3sjaSUSUAc36M+Nk5AedIJDa0SJDhY4i2aOUlAdCwzNFuM
BCpBA3SHacb7QnbRfiIk0CO+LCLNEtDCnzxf+T0kcHcWF11ZISCpaZ/aCH4S
+Jx6QH9PJqDbDuJtjrwkCOIZ67yzTkA52VOEM9wkSCzMCKPRCCi6MS5zbRsJ
0gNYHSs2CMj7xsX2ZjYSvL3goOazRUB1ahtauSwkKJH8KXL6L8PPNweOQGYS
VJL30xkLKzph94T/yr8Z+B9LPUub
"]]},
Annotation[#, "Charting`Private`Tag$36917#3"]& ],
TagBox[
{RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Small],
LineBox[CompressedData["
1:eJwVVnk4FF4XnhkGIXvC2IdkixallHOEElGJKKLsSyFFCFmTtEiSFomkBSEq
VH4UsmWXtezZmTH29fP9dZ/3ec7znvec+95zj5SNu7E9iUAgmBEJhP+fCYE2
LNvtojR1GFeLVX6rHihplDxqJukMzG+jE08GjmmulRWGSkr6QoO7GEdLKidw
xXzKYm8NgT3+3ncJapKQUHRHgiwZCfIuacGxC0qgNGl3d83xHoQTrAuLfuyG
P1zPV5dbYiBi99czZdcQZFI37F5cegiuiwGm+6MPwYUDXhfnJB5DKelqos9L
Q8hp6k6Z1n4Gy0Zv3Xo6jWHR9Wgn3TERjlUYbC1wNYMXxM7IOd0k+G0dyOMf
ZAk6v+7LzrYkw66uvOEPXOdhKP5w8bRzCnAMFGZYS9vBbbsVS8bSK3DhKl26
4O8IjUtOsTSJt1A9alZiy+YO3j/FVSez38FQvehZi+eXQORBU9W4djoEvn+V
Lv73MtgoINOoYyaIhZsvztX5AGnJr3baPwvm3nnxmYVfg6ZuU7Fp3WwwiYjT
6z0fCD7pHPlTLR9AuyPNQdAgBPRj/rFMvcgBiq2h16u5UBD1KTahO+fC1n2r
F97mh0OR9lXa5NJHCNhvmhJ4PRJi5I01J0s+gUq5WSd7WBTYcSvfnrjzGdQ8
NRaDE+8Aa0ev3LhEPvh5UWstuO5Da9E3r7GhfKjg+/z5OcTAu9T4H6PZBRC2
K8lOPOABGHkaWY9ofwXCdYJuilgcSJrLZwxzfoObfh8yBIIfwdQB5qWh5m+Q
FzVnEEePh7gNBXGDjv/B1pa8TWmLTyH3qr7nZaEiaB2z9sx8kADPRvYIM/yL
IKCLx+31vkRwq+NznNIthoafGuczTycB37NyEr3lO+hHXlgzUHwFS1yf3nrs
/wGMthBW2o5U6A9+eZz24geoXtvCEXHwNXxyDHw+6VwCqZMtKOD3Fs7s3LVv
YqkUiGONR7yM3oN2qlTPxXNlwEau8Lr6OBOUhLlvjpeUwa3Rjswf3lmwujrc
PHbnJ7SGuJ7Kbc2GpMrES6MSFRDRG+Cl+TsXpuM/KnTdroDRo/Jz13I+wiHH
qr6GhQpw/iS2XBH3CcaY5kwLGitB86BOFtkjD9QPGO2LjKiGtA/GTMIeXyGK
w47hP10N3u8bC6aDvsHfNt90j/O/AOq+vKuIL4Qw71fi5ho1EFNxNmTCrQjq
MpdJcpO1IB7hy3ja/R34YIPVxm11ILVFlCv3xg/Q2BK7L8KuDra1a939pVoC
d6ffMvzq66BBncn16P1S2HW/2d4mrR7cJoIzr4eXg5XPuYOdPfWgjjWbXhuu
12U9Kn5KqAGeKr+kO4hUQrsysfVIeAOIFY3ZEr9XwfVKJf3t1o0QrfLi6ZhB
LbzJ/rwl7WEjHCCPXYkWW88Tf5BJtroRFKbfOlY/qgMZR/OvQnubYDFFMMks
th4qmcK2EfibgWd1cyJLZiNMj3Bx+B1pBr3Kn6oL+5tArOHxION6M7z4eoYx
/qsJPF5kvhgca4Y5tavxvAvNIHigg6+27Dd4u0qY5Xq1Aso4TOqt/AZab6iM
glgbOHPQq77vbAHPzG+0jeVt8LWNJfzTixZgPRXcbb61A2y8d8wl+LXCiSCV
kkcCf+F9ZmTHhW3tQN97/EWcSS+M8I3c1j/fDrdFvowm/dcLct76mltj22HB
N/VKvFIfvNjPkdS30A5RR1M22nL2r9/LbYczpR3AVSWquKt/AGqUxjerz3eA
DPvdH1bW/4Aj2rBik2InSKuLJWV0/oOwU1xK9dGdwPypKbH5zyB4992jH7b8
A6ZyeUISS8Pw4RAtWfbeHyixukrTuDkCk2+PmzB9/wM/Sk1G8zaPgpMH7+dC
ub8w9V6glH5gDM6sxPirMf4CV6aLktqbCUjkqArl1e2G+rSnXadX6KB54Jpl
kFU3hH3OsMgxn4JON0W1yavdoD9FS/L9OAVCDVH/qt91Q/bsZVmLywy4H3/0
yE2eHiioXVpuJsxAqGwN11pHDww8k19KsJ8HabPAwYszPRBzavcV67Z5KLq5
raiTqxdulxdEFRstwPLo3UsFWr0gHnLs1SXNRfD6cKzJ63Uv1IldkyrevgyO
UP94zLMPHhUWHqrfRUBC8mxBR1Qf6HLlMBf7ETCeWbSzMqUPLnq9pIQVE7C8
wkH87e8+8OuvZwo7QcStJsvJ9vv6Ye2KuZPNNRIOOcml/yUOQABLyUn6DDO6
xAQU1kX/gzVBxvkXvuxImknu+u/tP7Cw5c4ya2HHJ2blhMzv/0C2c8bzqRoH
Vorya9+ZXses6dRcBgcqvn7z84j5IDxgFjKL8dqIY18a675LDIFdVVO5iS4P
ug3I9+W+Hwbzq6ecXG35sduqja24YhiO+N6IzYnnx5OtN7f96h+GyoYNy0W/
+FG9atB3QGQEWKU9iQJ7BJAp+xWPYMQIsOv4hsySN2G8v5TmVetReOv81inx
niCyz9bZhvqNAuW0/3RYoSAGuAdF3ns4CumqKseaxwTRxqar6XXVKPytz7NK
PrwZlfQSXFv3jEEY821Dp5nN+Lz46P1+4zGQtzFfEZMQQl6N5U+0i2NgK0P9
JqwnhLPKFqQNKWMAX9xbGh8JYTG/8OO9POPAN2pcPaEsjLvulBfqKo5DW+6J
vR4nhDGVxaf/xKFxCM5vZhW7Ioy3F36ruPiPw5fhhr6JT8K46nnD1PvROETF
9l/lbhHGS2Nq10I+jENOoME141lhPNUVW/ZkaBxW0skL6jtEsNxcZyyVaQJ+
3h0OaTMSQY0GBm+O+ATo8go9jXMRQclS47NVJhPg83Bnlk2iCI6845leKpoA
wk/ViB2rImgpUyTM1jkBnlyWWqn8FKxNcAeBuQmI3Zxds3MrBXOja24pKU/C
biOy03MjCsqxB2ap603CsIp8j/85Cj4JVf6tYzsJu55mkn0uUfC6922ps48n
wVJcYrg8moJTkxqHnXMn4WPS65NSiRS0cx694FU7CWvZVoVP0ynY0vskJnhk
EibFmdr25lNQdptsZxmJBsn5C1dWSij4d2R54igPDQyvz4UO1VIw/nUTsVGM
BmeoqYIrbRQ8YZcucFqRBgwuHYsDfRRklwqT61KnQW87PksbpWD5/vsqgbo0
qDqn6V8zRcEb5s/3iBnT4PEV8zuaCxTUuZIGX61o8Fn+8NDKKgVJ0XmHLVxp
sBTE+pmLWRSL0kqPLV6lQb3pn52X2UQx8GeD2eMwGvjdPPVGmVMU9/d1Wavf
X9fTd+wCcovi4uqYY0sCDRR2Lvdn8Ipinsiiu/c7GpQwTYT68Iui925Wn02f
aRDnKlOWLCCKu4wFgnJ/0AD1KTtVNoni1EWpmyfraMBi3mUhuY6zIrdFT3XS
oN1yS7vPerzbK434+8M0IHW5HtNY51Mq1nuhOksDyxg+O5f1fKOdpm9qSXS4
Wn2rjG1dz7t5myw3bjr0qQcqCK/rdRLwyNsoSofTzES95+v1bFENKErfSgeB
zPL2J+v19hvcKjdQo8PZTKckXoIoJjs+qhvRogN9w0NL8hIFz4WmtEYa0eHY
ikuNzwwFOwsKh346rvMJefcMD6374XcVzeEKHW6VtrKO91DQfKp1nhxMB9Bc
Gfdrp2CTPINN5wkd4j4bTGtVUjBGl8Dbl7qOFy2jgoopePz8RuGQHDqci5+o
McmjYHW8nHxRNR04+3KlKlIoeCt313brNjoM9kfedHtCQb06rb2rA3TQ+KWl
n3uPgiWslkf2r9FBOFzeWNGXgl+9o53ztk9BnMu2vdx6FPSLSbhkpjkFeM3W
Zm0fBdXfv/Od1Z+CBzc6xFOU1/0+UBK5y24K1NQ0uwT4KJhhsvA2K24KkkTs
w5paRPCCB8uHYy+noKZ+JfxduQgq3OYvmMicAsvQdtPD+SKY+kO5UqliCqT5
BRv/PBbB5ztsRt4sTcFNi6bTn81F8C5PlULSOQYI/qbtLasRxvw9Yh+N3BjA
HcxdcPmLMPZbucPyNQb8DZ7sIrwRRo0MfhOzRwy4kGLcXhwkjENHLAM21jBA
5coRZr7twqgdOl7rqzEN9ouyHOfuCuH8DLeXseAM6MjcKpDS3YxUMZu1NeoM
eNm1bn+vuhmNdHIjM7bPgLht2RNt0c34Ksb8OZvhDCjy1W6+zRBEY5Wkn4Wh
M/DfX03Z1GRBzHDaIaJIn4FqNqdnAUzr87LD5D+m6lloUQ7lT2oQQPanPRcv
tc0CV8AaKa5IAD+ccRPt+jcLOSH2+Ynv1+dze4RvAXEOshM9SVO3BDCltWDn
pT1zIFcWsvOhjgD+a5Z88zd5Dv4sF9kPfeFHl7qx6HzfeXh4ZEVsvoAP+aJ9
QS5iHnJGd9gnp/FhwTGWidjYeQhiJWjaPONDjloJA4/MeVgZFXKVDuTD9F/G
ZLmBedBfjF9IPsiHE5V5vrHHF8D3vi7rw1pevFQaZuMutwiv9PvaU+Z5ULz/
EMvszkXoowuEfhrjwSrShnf+uAioCdGt3Twoi3fokacXwSX8eKhhBQ+2FTwM
SolahPTgsQvzT3hQKyv1edvkOl/fgixo8SDv0/J27bwlaL8ruX9sOzcW5t8K
rCxZgnsbjq41inGja+tR6RP1SxCe3LapZQM3lm6qd7YaWYIHhw1jtvVyoW90
27yP6DLQZntkxGO5sCd8RPB90DLsD5Pf1LG8EbM9OE8KHVmBtEkTr6xuTqx+
wu+bcWoF3qhsl9Ct4cR/JSKJB+1WAL+8IU1/4UQRYfnRC9dXYLfoUEHiI04M
K9YNLf64Au1p4d3yxznxFN/1HBfpVdi0Kdu7p5QDF3Po/N+WViFp3nMl6zs7
Cvyd32u8YQ2SyJVxe3LYcRsb4dyg4BoM5jFEG1+yo60lVzrvjjVYWfY/rRfO
jtXMijoOTmtgrSMeIXeEHZ+b2l3hbl4Dk6LYPY+bNmDSNdcRVTMCPrKI67ZY
YEPVog3zEWcJWHI9mJcyzoZFzG/IXbYEzHrt0DbUzYbdd/ol73gQ8KmzbU1m
ORuKvzhrNhxJwL7Rb3lD8Wz4pORYSdJXAj6+Zu83pcGGMRt3PeeTJqJGNfvj
X1GsKG3ckOa8lYhfEiTcdgWzYnacR37RNiIGaI0pvvZmxTqJjCY3DSKad5MF
s86zIteOLRxVJkQc2277xFCdFW+dEvIJjSAiZ77ajdeDLBiSuHxieoyIpeqC
36yMWPC4at4lRQYRbVgzp410WVC8+PJ9mwUiCu4xfKi3nwULekfq6sgkbOFQ
azNTYMEp2bZjGeIkrDMK+9fPwoI26R8NHY6T8PDCPsgoJqNWvtuR1hwSunjk
kRMOkJFLX8GZu4CE1M0eLS/UyNjZPnDzUBEJx8ON/dOVyeizbFmeW01Cu/sP
+TrEyJgFBofvD5BQudlyX+wqM0qWyenqb2bCYvGvhIvFzEho7Mavfkyo1s0W
5HGUGcOGC5P8gpkwddMW+yIdZtxASCDtvcmEwfVqRKEDzMinfLrk40Mm7LLh
Vv2rzIyyEfWHM7OYMPrvLYVSbmbU1/hulPyPCc+krg4wmpjwwcuXljeNmVHu
bqpklB0Tbrni4GOiQMadov4vo+PWde3rOpmoSsaTwp57BqNJuItgrjKym4yV
wnsDDkaR8ODtI/+ua5OxtMKKhTWIhFYpSiZplmSklEi7/HQmYVzTlArpHhm1
iRR3SU0SktWuD2YyyCiWpUbcOELE/plHpzi+seAl9Y6cz4ZETNbaefnPDxa0
4PnjkKFHROs7NfcyK1kwP/u5/GttIrbLkCtOtq7HB7VXpO4lYv1JT41nDBbE
dtPBZlkiFmYflVRWYEWCBtPBydV1314kjhg9YkVtzwbn8RwC6g+4BMRcYsN3
gyzHtmwl4KEAarqODxu+TBPK4ZYh4MFNne2zgWyYO7+2uCRBwH26huoWt9lw
9Ox2+T+bCajwSoVBfc2GxeaWKcWsBOSwn3b62MmGEm3WzyXr1qC6P8Ck9fAG
rFa0PmtlugZG/dGK4uLsuKUneDDdbRVGftgElWdwIMvgjnLmiWXYxvtbTNt6
I1rlnVzJCl0Cdpg538ngQqNSLedHZxbh8PiZOWlTHmzduvrt4/4FaP1uRzyj
xIsjpQ4h7Vrz8PFmiZXkDC+KbXOX7r84Bw5kr+6aGj6s4c9IPPhsFmw9r33k
fMKPXTy9nKlDM6DiqFhz9LwAnqk9+/uG7gzU8ilxeO3dhJrM688waRq+vA95
qrT+b3TKZviS+abhGlHhePUfQRydMN7xXxAD2Dv99NxyNyNHfZnev8UpGEiV
ik30F8IethZ7pvApiN0qzJxvur4Xf+bbyOCYgugnDj/PS4qgubuQ87sXdDgT
e7aGc1AEY0j6Maf302Fe59VCYiEFP9psveXRRIO+gYM+3yNEUfHV7NX89T0u
+cB2yq/zYpjUU9XnvpkGGeFevI7K4vjt4OnjZiGTEGFqa8A0I45Sfe72gV0T
oNaZ9DbilwS6r94RtFWbgHj5pxm/DCSxsXW43vjZOFwvuhNvkC+JH2QtvPct
j4EhxfRVpYwUXp1UFQmyGwMtt58WvJFSKGbiuhbaMQqJojYy1TNS+MxCpOKl
wSjI/HgdZ2QhjVHMMjvcK0YgWvm7QkOhNAZakjsuGo6AA4O5vkKBigrxXnmF
lcNgkz0lGXmPikEOn5L3mQzDhZCTy/r3qThnvCdb1XgYvE7mtnA+oOLDf0dW
txwfhpszXnej46gYpTJ2UuDoMLzfu7D0KIGK55MTR+naw7BQvPY7NY2KtLZX
RXk7hyG6gfNOyU8qPn13JukK/zA8eXnR6UYFFQ2UHB09eYfh5ZUabb0qKlL9
jrt4cA/DJ8HoxaoaKs5uC9tykWMYOs/wOzU2U3FqbcnbmWkY5PqEtXv7qCh2
POHCRcYQqOb6iacMUJG9VWvRjT4E+8I7FuwHqdi8g/bDY3IIjsolZA2PUJFi
sJvDa3QIPF0lxel0KrpdXXYM6hsC//3BCx8YVPxvILQptGcIwjf2Nl2ZoeJF
7wz/iK4hiM98GTU/T8VDQTnX73UMQXIQs2PBIhUbdb3bH7QNQdoJ+4P+y+v9
K3vtEd8yBLnSZWKaq1TcuUvjYELzEBQytiysL0zoWEo9ltw4BP8DIdEi/w==
"]]},
Annotation[#, "Charting`Private`Tag$36917#4"]& ],
TagBox[
{RGBColor[0, 1, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Tiny],
LineBox[CompressedData["
1:eJwV12k4FW0YB3BLm/XNUlGIjpKtRSul/5RQkihKQoWQSqVQllQqhEIqlEgL
skUohRBFhOwhO+fgcJxlylbe6dNcvw9zzfPMfd//mUfJ7uz+EwJ8fHwi/Hx8
/66xV+zmrHUI3rbQYbWI3rte3dJ6ReNDiieRPDHhvG1rNGY+F/orKl7G3+43
G/Ub30A8Ive1cMt1nHITr9gyU4zYotClsxWDsOmMZ9DI4a/QYDncmXG6C+7e
WP5afMdP8Sd/p5sjkHxwPcGRa8RpXfczv5dGY38nT6Jbuh1vGrqe8/Qe43jX
lH7S6k5MnjJuZzvFIeHpcufFc7sRz98e9Fv/KdrsboWGW/Vg57fw5b+aE5Cs
td4hKrIXjCjDYt7J52B/+6B16W0fQhz+WHOnXmCZamPr/rJ+1E85R44tTYaG
pE/cw2Q6PL4orGFlvkKvft89a38GFt9rqBzRS8U1/frtzSaDKLS97cRsTENG
/LqPe8WGYKdGCA47ZeCO7vy03o9DEJjyquH5vEZGtDsZ6zSMhi4LeZ5+Jtzm
lMFxNhOXUkXyOM1Z6PzsF262YgRGEQNzOPFvYCRuItr6agRyl4rN2Sez8WXw
hxSxchRFep5jrKkcCFXUFBf+x0KE6v5trNJcqO/4LlzmxYLDf5oho6FvIbbC
dOBWFwtz23pURpbmocMxbWejyRhaigrcmYw8xF9Ij2j2GsOrl1GfhjPfQySl
bV/b8zGYuJkcHdLLh1R87XtH7hgULVXTBkUL8MzBoFpFhg2O7qwpRmMBDDdU
PLLZwsYDofcP6E4f8eqDhoC/LxvZnkZuF2SKYLb9gcLjx2w8Htoky/UpQv/N
P3t837PhWivpxNEvxoZFqzTbOGxIPi4XYDeXwFn5y+3YQxxMiecmn9v6CbYm
n92iXTnou/bMdCz+Ex6YFYdW3OAg1+nKE9bJUhgb8E0w0zmIaz2lf7a6FPmT
ybKcEg4C9x5mjmqVYc+PNcv3NXFgtW69zuhUGVzsf06tmuJA76VS95ljn6HB
SEr/KMqFhux/gSOlnxG8IVa9VJ6Lv38HG5mhX9C3ZLsqsY2Lp1/jzg8vrQA7
tFQj6jIXvKgctc6QCpSZhWdfC+TCwKmyt26iAvl5dUHkAy6Ygr8t3td/hfaV
z853s7jYrGuiExRQhfFeW9nZ/VwEizhwfXhVUC3ZvT1/jIuOH5dTzx3/Bks+
XyOFaS5ueLxQsNxSjZhJjRiWBA+1GdMCKqwabGAJyS3S4UESQrZiq2oxv1XQ
zUOPhy0rInUCHGphMkte/4ExD3d4yVyv77UwW1vNXWrLw/rwxhN2Kd+RNlmn
H3GFB9tLx3a0d3/HUwILNW/xEHB0WOGgTB0abOkGD0N5aNXkb9l9sw5v+5fU
dD7iwe+rhtHao/WY0M4ydc7lISnz7YqU+/VILiDdXuTzUBe1Q3B5VT0CAoyD
80t4UHayzJfRbsD6xE8TPtU8fBW8sYpPqhFLbFdK2vfxwBsSF/Ha3QiOa6JX
yCAP8nXRdK5fI3LaF0c+HOXhXHxGPJ3ZiLhBf+mD4zws1G2TrPnchFAvO6sg
YRKEsiNr158mvIneFt4oTuKkCLuyZF0zSsWuQ0iKRP6POTdz45vhyXp1QXUJ
CTsPrd+xXi1oFjLaaqNGIsSmoH5RZgvSXQ4eIjVJ5Ozc9Tqc3gIJdXvTy2tJ
zJOyPXnT/AcMDM0KDTaTSM8Iaju9qhXPNh0ZFtQnMSQ5FGJ0vBXb78n9aDAk
oeJhtG1lZCtSlxtoPjQiEb9V5GnvRCs62we2sveRiKgIcbQqa0Plt/VcASsS
1RojizaPt6Fo/Xd5J2sSImF7Kxaot0OuLK+30JbEjYPiGt/D2mHqlqBtZE/C
o/cu29D6Jwpcz/o1nSKRZTCWsPzuTzQ3igh0nCHBSjY1Fyz5iekJ0cHWsySc
z0m8LVTpwLoBl/ScCySs/kT4bOB2ICvz42GeF4k4kUp/Cf0uDGxKSs0PILFN
19v6qm0Xgs+UVK8OItHuqr6B5dmFsYMfZ2Juk5CpCx6oekU51kvGKpREeJTx
7sD53fi7Vqf4SgSJNV+nlX6rdqNhkct0zj1qf1Opkyf0uqHUGGU4EElC+KhY
qp5HN/gWh17TekjCf3m1+ExbN7Q28Qf7PCKx7NAV+hmyG0vCRs38HpMoClxV
1C7egxaFD3w+sSSmh++cf7+9B0JcN0/7OBLuWfsa3BN78FPrsOVIAgnpvpnU
viIq5ytYY8XPqPez4PXNA609EDSbUgl/TmL00vxNa8V68WWSKF36koQTvkcz
3XpR/uZtz0wSCb6EX+/bgntR4xxunJRMImqWXPvX572wkfBeavyKRHmFo0Jy
Uy/u3d+qdyuFxDGNEESxerF2c1q2XCqJ8TuZxwLm9UF/rn1tOuWV5tMJJ3T6
YFYXuvNzGrWfXKVS8wN9SO/S/7AnnYSlrGG/3uk+yAZWyXyjHNgRrrLsSR9Y
dvXFnzJIMJxVUjv4+yG396Tp9UwSVyuNv31bTH2X+BVuMCjLrHIbzV/Xj2oX
I5E9WSR2cfPXPDrRD5PkUf3Zb0h0WfSY3b7SD979agkbypfezb1w+WE/HpWO
H8+knOy7P+dQRT8a6DkF+7JJ7OjybDLo6Uci8V9XNOXWHbG/N0z140n59uwu
ysLzGNrSmgMQ5SbFOuSQSHAROyJoMADZh8rlTynrfNPy4dgOgGYjVNNG2SXC
t7A2bABlRzNjDHJJCJAJnR+TB/7NzwVPyjGHyvkySgZwa6Wu6QvKWu9HlJ60
DUDAq1enlvJXOSm9UN4AdhdmbR2nbOe32cFHjI74OIat/FsSk902N0+toGMm
6fErUI7Y6f/SCnSoChevPEpZPTHpy25LOqwsaD3elEuFqhmbz9Pht+VM533K
1qe5Qitv03GNWK6aRplXLaO+6BkdDq4ZX4oph6zdZjwnn45VAiaf6ikrR9qf
IRvoqJdeptxLOf9X4J2+Eer+7RocFmXzw+kZ9XMYMDXcu2GSMvNDfW3JUgYk
XxqQ/O+oeVaYYGduZiBT+4P2XMpy1xSknpox8L1mtbAw5exevfVhLgxo5Yu4
/rOxwUkLP+o/w9cp+vQ8yn1JdzxcHzMg1j5HbBZlH5HshzY5DND3OR78Qz1P
2vXHO+NqBn4np+/jUU6r/ftjC52Bu3PyZxiUDdYpT6nxDcJmo+mZNsod93fL
LZYdRNRWqbhKyh7jrrpCWoP4UXHvUR5l8SORtuNGgzB4Y3jyBeWXBXl+dPtB
vHYOEb9LeZtiZ3yTzyB0HBPDPSi79qv2ZqcPokyY3+hfPbpsf8wrrhjEgX7V
ln/1OtASuOpb3yCaOjL5Jql6bq6kX+5fPAQ5lvu2FMopOx/GsTcMQXVond1V
ygqFBmV/TIewk2Whe4CyYOaL+QsDhiCTErGBQ/WXh5rFxmUJQxhP23eskDLj
2SzrVQVDYFjn2gRSrn5gn2jAHULf1hdDCyhH+Sht8zw6DLfb9/8u+tfPv2rt
/b2GoX6171w9NQ++Z68G3b0/jOQ1qfQQynZ2nQ2JlcO4md0wMUHNl8au2FMt
m5hgeyuZFFDz96TYOLxvPxNBZaeun6QssWU6d+wME83WLnQpyr80jwgIPWci
9u9yS/vXJIqlZKO154+gO5ZzbISa9/Wh5YX66iN4/+hTYjDll3Mu9ZkZjCBZ
+Y3BSsohE02rXXxGMN/5cJw1lR8HOyM/xzBGYCiiqZ1F5c/Qq/m8qaJR+B9a
Uy5N5Ze1cpHsvPZRvHLyiY5JJFETexbSv0ex1fPD7KWUs8Oqb2tosnBkS18B
jco/P48QJZtoFhZvHJaQp/JRWOmGSufmMdTpNxrVUflavjV89RX9Mfju9OTf
S/mW5ZNN8vvHMHVsJuPzE2qew94ZHjk1BppRxN9cKp8n/zKdmmPHMLuy83kw
lefD7RZJNQJspNBNZeZSeV8VpaJaVMWGNz3sqAX1/bgzv1Lt6TEufose+/vG
k0TeJvkcE1cu2jqUG5keVL/bnsW0Nxd694cnlSlvSZMyP/SQC3p/sfa9i1S9
d1v7ilVzsa/LO8PpPAk9/5Gay1t4INaqlLFdqDwm/3Pfv5DEitZfypE2VD3b
zD8KVv3Ca/+q2we2kzhfdsPurMok9rEynC7OJpF5TvSAzO4/cJM7nSb9lYen
3qeG1hziI7p0mXMOBPBwPW7ajMfkJ2JvMjOeGfLAV99F5HsJEtaZh59cmsfD
iouOl8zVZhPmHJWSW5+46CMfHhQpmEP4/H4avMifC6N+F9+I8/OIA0kS76x1
uTDpC1NXUBAmWu1llq+d4GDok93V8jQRInv8j8tUHgerJJrk9Y6KEUa+8B1y
50AY5PF2rjjhr+WwfnAjB4YjVr+XWcwnRt46iupz2WgpceC30pAgvnOCtG5n
spETWGqrSEoQV4LvHm67yKbOGO5d1dWSRIljk2n5Ojbs3bxzRGOkiOQgkctv
f49htZN6tfFxaeLSfJE434Ix1EhqiLhrLyBK5FMSJf3G8CH9+iMNwYXERbmU
F4FUX3jzq5lW/VxIvNXImsedOwbhdq9drtmLCCKJu/dOFAv9L5Ui43xkiOEM
246XaixErpSdlWchS7iMaHnz5YwiLMbxy3HFxcS1gIGw2F2jsIq0qRalLybq
HF/WZXeOYHzni4m4wiXEGQPuE5uzI+jt33GpJECOOBihaciZO4IE3bVLvh2X
JywTrOIto5lIu+ku4aSpQPAdTBbyXsdEgIX9HkFSgRAa/2HLrB3GhvanyQHf
lhKGAqnWl6nzV5Tqo7RvexSJlbvKb56cMwy/otCoPXmKRM49qc2ZT4awd4nF
i6/KSgRzy5iAuc4Qtrt+OSIRpETIi1/cwNcxiDg5O+UqUon4GjIxtNt7EMqf
Eh+YHFlG5GX6ObgqDiJMs0StrnAZcUxE8XVYOQOO3FnfK9RoxIIYN74IKuft
MjmKQXdphKfojhJZaQZOXz8wbRROI0wExKxiJBlwP5DdLHqPRpgruwotkWAg
kHS/E/aARjzRG02XE2cgXXti6mEsjZAzKZNWmsfARPFM08sUGlF/tcJo1TQd
YXWioaVfaITgfn5Lqz46Yp6dcb5VQSMsX+7r+tlDx7OL1Xq7KmmEb4v41ePd
dOQuDJusrKYRdPW22Sc76Gi3knKub6TWN3Bb7XILHSq9sno9vTSCdmx7c2wV
HWuyvRSe91PrjZJoWlZJh87NtokTdBphOItgJlbQYawS+3pwiEYMVmXZZn2m
w+2UogKbTSOG3WuOlBfR4bP12kQWl0acfnpugclHOm6K9TRcJGnExhTHgfoC
OqIyngWPj1PrSTeu7nxPR8LVWU7vJ2nE4QM6/Sfy6EgxO7HDZ5pGQP2SFPMt
HdnLPstv+0sj+kVmH3bLpaOQu2JiZoZGhHztzBnPpuN/v42crA==
"]]},
Annotation[#, "Charting`Private`Tag$36917#5"]& ],
TagBox[
{RGBColor[0, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[None],
LineBox[CompressedData["
1:eJwV1nk0Fe8fB3B7i+yllGy3IrRq0+I9USq0kKWfRCEquxIqpVIohJCSNYoi
aSdJluwie4RsN/u9d1z3XpTffP+a8zpnnpk5z3k/788o27qZnBbg4+PT5Ofj
++8af9VWZIP9XZ2pGamCSsuUXSUNSkYWSmfxyaz4yUyNFWa/FdxUUvJFZF7a
Mv2RSxCPfP9qfusNHNPeMvLeJgTxhaGKwkrBGJBaoKuZ9QCa4/Zhs473cJom
N844nYxf4gn/Zloi4b7HySI97hmcd3m5cBQfYmtj1UGHvNd409idOqH3GFMf
F+//7vEeU05GHUzHRES8sXCp0s/DnpqIlZMtKfik+fmZ2KKvaJg+E8VQzMBn
LWenOQoVuFimsH485zn+quuRwsursPR+Y9WoXiYMgsIMViypga06ITjsmA0h
lRuSGdfq4JMpmstqeY2rJo8i3xONmNPeozqqmIu5Chr5jeLtaC387DXyJxcJ
D39qaLe04/nT2OLhnDw0RdfebonrwCHPQzZDevmIxP+E2HKdiJmXF0N3/ILS
mLr0dK9uvPU28Dy/pBBhdAmBkKpuPB7aKkdeKUTkltjSCsXfcK2TdmTt/Qra
XfrkxeLfkH5cLsBsKYLhbp81QdweTIu/z3DfWQyHAKuQtbq96Lv+5AgjqRgF
2dkS5+/04r3j1YTxsyUIYKcGT8r2wVJr0/ax6VKMqTnqflHqR3JlosewYgV8
W0Qk7/8dwETsO/WukAosb4u0UtSmQ9+xqvcHrwJzTURehp6nY0SQY5bXUInu
B6H2mv10bNt1aHtwYDWKo7xPa+T/wV1Re/LKRDXObXp9/8b4H3S2+Wa6n6rB
/MKpwTHlQQRcTFM4tqMWektFDZYHDKIue0ZAdfw7NjX8y7fTGYI05lmLra1D
zsRBgntuCDtWRW0PtK9D00Scd2XMEMImMshL9XU4frUnVXtkCJsimk7bvqiH
avvPuA9hw7hWqWmwwaYBYldPBF56N4L0nA+rXkQ3YL2+vueXlhH8iNUVXFnd
gCGPkHlXeCNY4Xgsf4l2IxryNQMdd4yiUjBgLZ9ME3oXZ2Sa5I5Cdle79Pdv
zTCeK+3yMHEMxAqH8f1/m5E1M1wcmDeGs6LMqiKtFrQ7i1vLNI0hv03k1vuk
FvhWva2fN28cthc3cuIvtWL9v1DnNOdxvMwObnde+xPDeZsu8kszMCQ9FGJw
6iei9G3HpeQZUL1ooKMW9ROrlU0PCaxiIGmnaHIv7yd25J2qD9BmILIixMGy
tB3nQhs6FGwYuNh7j7nP6hdsAoa2iqcx8FqfkbLy3i8sT27lN89iYDzjiKlg
0S+Mzwp3Brxj4Iy71IcC1U4cT/Q2fFjKgOXfyCubyU4kRgzOedbHQKJo1U2p
vd3Q6vVsSlJgQmfXZSt/626of7CevLGSiQ5Xjc3j3t04rKZuY6zJxJIfdweq
n3fjanCW8lttJiJijQ4ESf7GfLPUxtijTNxcWSs+2/4bBvbyDrIBTDii/uGI
Zy8if53IdGxjgi9lMq/9bi+uWCb+WNPJRKyQfEdlai+26y8NofcwUV7hoJDR
3ItPR6SNt4wwoWY6k3J6ex9OBOzR3PuPiT9nVDM7+fsRpWOeoK/Egn+VUU3N
0n4krW57ar6ChSVrPcfytfqx5/5Ceys1FvaT+evjTvejbPjl+QPrWcjwM3ln
UdGPLYJdEllg4VykX0Fd+AB0F2msem3FggA7petLxgB8FEzD1E+y8MiinC+7
aADHDXosHtmxUCkvoxc6MYCAXkeXk+dY0HiWXnbgGB1hKra0YG8WRj411BUp
/oG61aevNuEsuPav7n37chDdQxtPvMhnodu6be7XikFYpB6UcvvCwtHWoLU1
fYNoWj/grVHEwrYqum//0iHE3k99HlbGgmBOmqRs4BCyhWXy+H6wEHtFWcfb
ZhjluhuMnvSzMH+yzu7mpWHsvkAvm6Kz4OfmH3wvehjhqUlSRkMs2Np2NT6r
Gkb8BdFDHWMsaO6Pd2rdOoLlP3mL33FY+Coj91BbchT5Mxc+ms4lsSm0vGCv
xiiiP2qJHZlP4qmIT5+xPuVbsYv0F5AI4TWvO3dlFEsePL6gIknCvCvq26M/
o6jdXVARv5jE0HPJienCMczLMN2TsZLEfOUA1a5tDKwRNGDZ6JAo3xmx7upe
Bn76XJ3KBonbxxK2Ljdh4LDfl3szBAmB8I/7jjsx0BE67HdXj8TUvxHHlngG
hLNtNK/vJzHcYZb+XYAJDyH7nHpjEs+5tq9cJZi4wXrxadSExJmF7h/F5JmQ
XfQzX8SURJ/hnXLDzUz8YojnrzMn0ZFX8KfMkYnXR64ftbYkUR2rurqwmok1
eX09G21J3Hm7aYMNldOG2l5JZTsS++t2a//rZyLp1ct7C+xJlMyxOrBzlon+
Dbui2k+TyL8YfvbjBhbMdO7qW54lkWXKy3gVw4Land2RnW4knN1FXh9+woJJ
IlM+1Z2EeohM3lg2C/8qdPc6elD7W7ymUrOCBR15N/8BTxIJG22H0qdZ+KCj
tbTCi0SYZJV68kkSGnXHAlQuk8jduvzdIVcS7Mexh+sp91m7YYa6Cpiz4vyu
kNiRJWNq8YBE/E+jqlo/En8OWPmJ1ZLQFnKbZ+pPYqHHyzmf2kmYyD+1HaeM
WL7IM4PUe4e8bIOuk4gZSH1aLDSBXyaljm9ukNC7Ofrdd8cExErnCo0FkHB9
DkvVAxPImNEW875F4lF9RF+j+QQkKj90/aXMUNzCW+c5AZGDa5hCgdRz86+q
DKRPYM7Wnq28IBJctoSXiSwbq3U3lfiFkKAtt52dpbGhl/sQ/ZQP7XkbnLWB
jfv3jhQZhJJIizyWMPcgGzax08MSYdR3r0suK7jJxmjBpY0375G4ak4aO0ew
Uevw06Cdcobf3g65RDaE4wxubwgnwVc9yLiQxwbP5en5VspZZzYu1WCyIVjx
/KZkJInWewGprf/YsNu3QtKSstCH5rW3F0yi661/WzJlS+HLer9VJ/EqSHed
5n0Sc1OKnR9YT6L48bydmlEktCoWcfY4T4L/97DQGcrWDMfrLN9JENGFKimU
3+ksiDkYPYmmu1VnpKJJ2LabfhGsnkTOjxqXDsrz4367eLRN4tTizRbzY0i8
tnSV7xqYBPyj8rZQFvwZ6JvHz0HTEVfeHcqZDxeqqUlwMHN+ou01ZdP/JTdH
y3Ow5PAdnTbKqa15Wh5bOVi+qShemcqBUey+ns49HEwU7o3Xozxh0RhuZMLB
wKrH6vaU97aMjqq6cHDRw4ibRHks5tLj6EscXDaz2fWZcoz5HEPBIA6WaXyQ
a6U80KSU3pnCgUirR/K8WCqf0VnmRq844FQ6GCtR3mK2XTjvMwfnZ0uSN1Pu
XFj2RrWKg8YvFVEHKAc2HrWNbuXg7ocsTSvK66O6JQUHONCcTXVyodx61OWL
O8nBd9Wuo36U/WWmXDr5uDDZF0i/S1mt4ba8kTgXJQIlag8p10XKVOUu4yL3
0Qe5NMo+Jkm+qqu5qGdfy8+mrCS9Ri16CxfCmVtkcilX1Oc2C+zhQk+KqfiV
smeE/i13Yy7eEYV9ZZSXGjdodVpzoaSaY1dDuUjyZI+hMxeLQ6sT6imfqxsJ
z/XlQkZlcWwjZelwX6gGckG7HWHcTDnvsMhYVBQXbqbbav6zrcT9xwIpXHA0
hcT+s+h3RUP3bC6aCgal/1v/NiyT9yufi/f1bd11lK0OaacbVnLRePirTzVl
IfFv5rktXBw6HNzxjXJmjYmwaj8XP5YtFi+kbBra9SaKRT0PRhIfKc8YOdsK
8PHQHCrS85Jy6gKepLsYD59WKwWlUj5YfevLr6U8eEW4Cf63f5N3pV0N1Xj4
39MysxDKCYaJ8rmbeQh4x/G/Snms8qNv1BEeuveLnrWhHHNnr5qANQ+l9ZdX
H6KsY/Cj2c2Jh3i3zoodlO9VDGsZ3ubhiJZrjgzlbcE+PR/v8yAlIzbzl8pP
937hiFXJPCwJub6GTnl9ucIYfz4PCvbPDd9Tbg188ditgocfm9/veEzZf982
w1/NPFyO1pe7Trnum3H6RyYPy3r8n+yj7FEaYOumOoU1wteVy6n8K/Tpi0xq
TaH/qZxQOuUqgXnPrxBTCDIcEAikvJIIZQb/j7r/gIKlLuW2vGj/1LtTmD2c
HPGSOo+32yxWaMROYRH7uk8gZS2uXHlOKrU+ze6WDeXQzQkSXz5PAV5/FolR
3v3qaULb+BS0/HI3WlPnfaz2jO7JmSlcb/Q8t55y3Kj6wMDcaezf5FXPT5mt
nr1mQnkaVV4NG1KoPslI+5AvbjoN49+zlm1U30jFlf/U+ziN9Gyj3SoRJApy
71ytLJmGkvVtBp3qL6dWIxXj+mlUsjW6MymXLqo/az00DdkHpQGbKPuGt3F9
5Gfg36Y4u53qw9+3hmRf+s8g0v5a5EqqT3PcFxxdcuAvjjY2v/am+rj6kYxv
lvlfdL/wvKhEeaBkaaKu/V+YtTpcLqf6e6nc6mHna3+hwr1zUJZywNe9N7++
+4v5dl/XZVB9by597c05lX9I+7qiNpOaF1NvmDKfp//B7lXUmo3UPFrYydU2
mTeLOfteCpVSc2rtXL6TdNlZnBgI3mFB2c5KPFNq4ywiN41V+V6ivkdIY4/D
mVlIO4+FffCh8mhmf0GiaRapq/zMZKl5mHzZaWi9BR+x7MWktYMLlZ/CedzA
E3zEgqefto87kygUShfusuMjWovskrwpd4f2KYW68xFhE8migU5UPpJOWAwG
8xHhpkEeSdS8flRyuCQ5n4/wKxthf6bmeaTYpgRpFX5CK29v+LMTJG4kzhhP
jPATgbv/ah0xouZJQzeRf0mQkJp2yr66isSqCw4+purChFZA7k4Ol4U+9gNz
0c8ixIqcia2Hq1gw6D/nF+kxl/AqvWm24wELh/rCNRQU5hOjW1bfXmXLwlCx
rX95lihREaeUZrmOhbVSzcv1bMQI4RsCHTs4TMwH+1QHKU5UKInLaRQxsW/U
kqNiJkkkex7U1QxiorXInt9SU4rQ+rbOY/wQE++CSqyV2FJEYHDidic5JhyE
vbpra6WJ1ymydqe7GLDzvPxuwSMZQk1BaKtJBgPrHDVqjU4tJJ5vF9W7dIGB
79Kaol7aiwgTZdctZ3cw8OnljThNQVniiNBccS8RBi7zqx+p/iVLeOtv4fU+
Gsf8jkv7Xd8uJhy3ma2r1Rinzp1yVOKVJcTmhm3nRUrHEKUmJ5RrJkfU20/N
CTIfQ/gjh7JTSkuJgRBjBQvGKCyjTtQuoC8lsjtFji0OHQV3TxovsWAZofT8
sqmPyih6+3V9igLliSHNayYihSNI2bVhWc2p5cQRC/XwC+YjyLrlJeW4RoE4
LyrZxZsYRqCZnaEgW4EwCHO0OR8zjM0dyRmBNYpE9MY4CbkNw4hdHZdVY6hE
mHN/3UxoGMK1wtBYw1wlYiKyxeWO2xAOLjNLq1yhTGy8sz/+tvgQdruWHZcK
VibEVTTKVN4NIlHedkU1W5m4P7rX3clsECuKn8UcOq5CLPeOStvw9w/C1xSp
/yhQIQIDTvoXP/sDB1KovkKdRtz/oFisa/QHtjkspeB7NOLNPRHeNIcO5xtH
ZwwiaIR4H2/h7Uk6vI6+bVlwn0a43aDpS7LpCGJ7hYXH0Igd7xf/WcGi46U2
b/pBPI3YHndR/fAIHbyvs81PX9CImyEp6c+66Qj/sSC0pIxGhJnuCzxTQcej
Jy5nblfQiGOEzAF2GR1PLtTq7a+iEUeLhZVufKPjvWz4VFUtjeALshJ7XExH
h6XMmYYmGqFTW9Rf95kO1V45vZ5eGhEcMxui85qO9W8vKaT204jdzzhJ1a/o
2H6rnXeaTiOaFotXWmbTYaQa/2pwiEZ4C0Qd986kw9NJSYHJpBGDZuzLOU/p
uLLzOu81SSNcv9RvI9LouCXW03iBTe2Pefn870/oiM1+cpfLpREGDP6xkSQ6
UvyFHPOmaERgr97s5UQ6Xhif1r0yQyNK+uNXiibQ8Vbl23KdfzSi1FXi1KPH
dBSQq3jUDyWxePJBzuo4Ov4PpgWKJg==
"]]},
Annotation[#, "Charting`Private`Tag$36917#6"]& ]}, {}},
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->{All, All},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.8720659847328873`*^9, {3.8720660240572557`*^9, 3.8720660693190823`*^9},
3.8720797720468283`*^9, 3.872082381692892*^9, 3.8720825215436277`*^9},
CellLabel->
"Out[159]=",ExpressionUUID->"72d52e93-3940-4f78-b42c-0cf2ed96638e"]
}, Open ]]
},
WindowSize->{1389.75, 768.75},
WindowMargins->{{0, Automatic}, {0, Automatic}},
FrontEndVersion->"13.0 for Linux x86 (64-bit) (December 2, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"b0889cd1-0a5c-4e57-be2b-eec56b268622"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 341, 9, 71, "Input",ExpressionUUID->"9b612f72-e759-4179-a3e9-4083b56adea2"],
Cell[902, 31, 294, 9, 46, "Input",ExpressionUUID->"8bfffee0-f250-468a-9e67-dc88acaf3f9a"],
Cell[1199, 42, 294, 9, 45, "Input",ExpressionUUID->"c0e7613d-88ab-4572-bfef-888bb1ed1cdb"],
Cell[1496, 53, 527, 15, 46, "Input",ExpressionUUID->"6da24be6-ac46-4de7-9bb3-1f6846511011"],
Cell[2026, 70, 458, 13, 46, "Input",ExpressionUUID->"9c7cd7d0-b5b1-4b72-a2b0-f700e884ae87"],
Cell[2487, 85, 460, 13, 46, "Input",ExpressionUUID->"97e249db-26ee-48c6-b8a1-b9508f82fc1c"],
Cell[2950, 100, 479, 14, 47, "Input",ExpressionUUID->"8408c1a8-76f9-49fb-b53e-31a64980cf4d"],
Cell[3432, 116, 507, 15, 47, "Input",ExpressionUUID->"db42c17d-3e03-4134-8999-1f429f6c01b6"],
Cell[3942, 133, 1765, 51, 71, "Input",ExpressionUUID->"034aace0-c4ee-4776-890d-85681f5e916c"],
Cell[5710, 186, 1376, 41, 70, "Input",ExpressionUUID->"354c6fbb-a6f4-4a89-81cd-72743beabd14"],
Cell[7089, 229, 1279, 41, 72, "Input",ExpressionUUID->"7e046243-a864-46a1-a5a0-7fd7213b4a06"],
Cell[8371, 272, 1134, 34, 49, "Input",ExpressionUUID->"5c6e757f-e1ca-45d3-ac1a-4a155d76ed53"],
Cell[9508, 308, 654, 22, 56, "Input",ExpressionUUID->"af4bd8bf-2657-4c4a-802b-44d2805402ee"],
Cell[CellGroupData[{
Cell[10187, 334, 1980, 42, 71, "Input",ExpressionUUID->"b805c035-89ef-4ad1-bc3c-0f1a4f1d45be"],
Cell[12170, 378, 41383, 711, 242, "Output",ExpressionUUID->"72d52e93-3940-4f78-b42c-0cf2ed96638e"]
}, Open ]]
}
]
*)
angular11.nb 0 → 100644
View file @ 3130b7a5
This source diff could not be displayed because it is too large. You can view the blob instead.
elastic_lg.nb
View file @ 3130b7a5
......@@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 476994, 8561]
NotebookOptionsPosition[ 472137, 8480]
NotebookOutlinePosition[ 472565, 8497]
CellTagsIndexPosition[ 472522, 8494]
NotebookDataLength[ 462852, 8319]
NotebookOptionsPosition[ 457999, 8238]
NotebookOutlinePosition[ 458427, 8255]
CellTagsIndexPosition[ 458384, 8252]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
......@@ -50,7 +50,7 @@ Cell[BoxData[
RowBox[{"RGBColor", "[",
RowBox[{"0", ",", "1", ",", "1"}], "]"}]}], "}"}]}], "}"}]}]], "Input",\
CellLabel->"In[5]:=",ExpressionUUID->"ba7d4b78-672c-458a-81ef-4afd07c02df7"],
CellLabel->"In[1]:=",ExpressionUUID->"ba7d4b78-672c-458a-81ef-4afd07c02df7"],
Cell[BoxData[
RowBox[{"{",
......@@ -82,8 +82,8 @@ Cell[BoxData[
"RGBColorSwatchTemplate"]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{
3.853487164235237*^9, {3.8534922550652323`*^9, 3.853492255141088*^9},
3.858852808034292*^9},
CellLabel->"Out[5]=",ExpressionUUID->"27aca7d3-6967-4af6-b7a6-cce9ddd23131"]
3.858852808034292*^9, 3.876825983826482*^9},
CellLabel->"Out[1]=",ExpressionUUID->"daa93ae0-ef2a-46be-a90f-b711134564d3"]
}, Open ]],
Cell["INPUTS", "Text",
......@@ -102,15 +102,15 @@ Cell[BoxData[
3.8534951529179296`*^9, 3.853495211825151*^9}, {3.853495296823846*^9,
3.853495311207975*^9}, {3.853496136587387*^9, 3.853496138398828*^9}, {
3.853496194268097*^9, 3.85349619713694*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"8b706344-7d6f-4824-a756-32583bee7675"],
CellLabel->"In[2]:=",ExpressionUUID->"8b706344-7d6f-4824-a756-32583bee7675"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"939", ",", "3.`"}], "}"}]], "Output",
CellChangeTimes->{{3.853495189134169*^9, 3.853495213732986*^9},
3.853495316238769*^9, 3.853496140937274*^9, 3.853496202939743*^9,
3.858852809998757*^9},
CellLabel->"Out[6]=",ExpressionUUID->"c5c35dc6-6455-4c06-8d6b-4ccc168b8f61"]
3.858852809998757*^9, 3.87682598668573*^9},
CellLabel->"Out[2]=",ExpressionUUID->"3fdb3f5c-284f-4f95-aa6a-808822be2824"]
}, Open ]],
Cell[BoxData[
......@@ -123,7 +123,7 @@ Cell[BoxData[
RowBox[{"energy", "*", "energy"}], " ", "+", " ",
RowBox[{"2", "*", "mass", "*", "energy"}]}]}]], "197.327"]}]], "Input",
CellChangeTimes->{{3.853486447636016*^9, 3.853486456260361*^9}},
CellLabel->"In[7]:=",ExpressionUUID->"7c41ea64-0275-46af-a1be-64f6a62fe1e6"],
CellLabel->"In[3]:=",ExpressionUUID->"7c41ea64-0275-46af-a1be-64f6a62fe1e6"],
Cell[BoxData[
RowBox[{
......@@ -140,7 +140,7 @@ Cell[BoxData[
RowBox[{
RowBox[{"momenta", "[", "energy", "]"}], "*", "radius"}]}], "]"}]],
"]"}], " "}]], "Input",
CellLabel->"In[8]:=",ExpressionUUID->"2b3e773f-5694-4ac2-8548-b85c2006e275"],
CellLabel->"In[4]:=",ExpressionUUID->"2b3e773f-5694-4ac2-8548-b85c2006e275"],
Cell[CellGroupData[{
......@@ -165,7 +165,7 @@ Cell[BoxData[
CellChangeTimes->{{3.8534866396384068`*^9, 3.853486677191375*^9}, {
3.8534871698947124`*^9, 3.85348717616479*^9}, {3.8534878605355625`*^9,
3.8534878630333276`*^9}, {3.853491500616036*^9, 3.853491536996521*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"36acf79c-f85b-4ba8-b611-02ce834d0895"],
CellLabel->"In[5]:=",ExpressionUUID->"36acf79c-f85b-4ba8-b611-02ce834d0895"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -212,7 +212,7 @@ jseaLJBwBgx8KtsI9J5kmMsskSDpxtHlbyfwoKEH2fiZBAazrCWHTaAA7wAz
boMEt4wNj5VOAidYp9ztv5CQ+1PQznPdBDa4P1NW2SLBcseF+PgeApNpgmvb
2ySIWVrt+7uXwP8BPM2aqw==
"]]},
Annotation[#, "Charting`Private`Tag$15834#1"]& ],
Annotation[#, "Charting`Private`Tag$5139#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -256,7 +256,7 @@ BNyldQlERjAxQ0UzkcoloEe6O/9IFBP9pxg2UvME6AutW67FMFHB/ALRvEhA
fezYelAyE/l4BoqTvhIg+ChyQz2dia9r9TxPfyPAQp+651MWE5s8iw6qrRHw
w+OwVSWDiZmSAksbGwRIxpoUexUw8T8c4nXk
"]]},
Annotation[#, "Charting`Private`Tag$15834#2"]& ],
Annotation[#, "Charting`Private`Tag$5139#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Medium],
LineBox[CompressedData["
......@@ -333,7 +333,7 @@ q/AvNGg6IDykLqaOZcgoJhku0qC1Op0eHVPHvGayTcRWaKC73sKgLquOHTdw
o7Wv0YAYKuV3/pw6xkQ/WpS8SQMR/bCFjgvq2HvSORebbRoEvcqT1dJRx9pc
CuXk/9CAhZyo8fqKOpYpcmB9d5cGcZ+Npa6aqmP/A+DBd68=
"]]},
Annotation[#, "Charting`Private`Tag$15834#3"]& ],
Annotation[#, "Charting`Private`Tag$5139#3"]& ],
TagBox[
{RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Small],
LineBox[CompressedData["
......@@ -440,7 +440,7 @@ GGlMMj9g1o69plON+dcoUBbM2uRHaMendd0pTRsUmElkd7S90Y73UA/kxm5R
4If5wYx+n3Y8WX3J1e43BVSi4u5q+bdjkmvOOfFtCuS4UlaaHrXjRF7Gzd1d
CixJCu7KRrXj/wGMrkWx
"]]},
Annotation[#, "Charting`Private`Tag$15834#4"]& ],
Annotation[#, "Charting`Private`Tag$5139#4"]& ],
TagBox[
{RGBColor[0, 1, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Tiny],
LineBox[CompressedData["
......@@ -557,7 +557,7 @@ SSER1ybJllJLDPCQExKZzyIRMiaXGLRvDPDrCS1eryARrMxvch79YMDEVubJ
SCqJeF91xN3+FwN8V/grxFpJBNU9W/HAXwbs+89UqqSHRDzZwfX93z8G2D/X
ltd7RyL+D+wmOEU=
"]]},
Annotation[#, "Charting`Private`Tag$15834#5"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$5139#5"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -600,8 +600,8 @@ ltd7RyL+D+wmOEU=
CellChangeTimes->{
3.8534878657306776`*^9, {3.853491660955735*^9, 3.85349166439738*^9},
3.853492283179998*^9, {3.853495197356709*^9, 3.853495219911541*^9},
3.858852814723728*^9},
CellLabel->"Out[9]=",ExpressionUUID->"d5ef8b6e-17ae-4a54-9e0c-3006bfae9692"]
3.858852814723728*^9, 3.876825992540514*^9},
CellLabel->"Out[5]=",ExpressionUUID->"629123a8-c8b2-440a-adc7-ef190d8d53b5"]
}, Open ]],
Cell[CellGroupData[{
......@@ -626,7 +626,7 @@ Cell[BoxData[
RowBox[{"PlotStyle", "->", "sps"}]}], "]"}]], "Input",
CellChangeTimes->{{3.8534866396384068`*^9, 3.853486677191375*^9}, {
3.8534871698947124`*^9, 3.85348717616479*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"b03eab01-35a0-4e27-a0b2-b573f08e7021"],
CellLabel->"In[6]:=",ExpressionUUID->"b03eab01-35a0-4e27-a0b2-b573f08e7021"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -689,7 +689,7 @@ k1wk+ImOpu6J7+xYJkEDaRvNjVE6isxKeKnNIkH9WqvBFj4Gas2hc1xmk2BY
UsO2VxIMRHz6yzrrBwnWRD49l3mEgZyLdJ60bZJg4gxhOMyIgV6WeLG2tkjQ
UlKF5mzLQP8D7aXEug==
"]]},
Annotation[#, "Charting`Private`Tag$15898#1"]& ],
Annotation[#, "Charting`Private`Tag$5656#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -745,7 +745,7 @@ h5Kudb9IHSXByPdB3ftiHhq4obK4iU/C8Lkl9PRCHgq9f/2ZoZAE0ZIu1T15
PFSXVi3hJSLB9qBFvsYzHlJ6NGN3f4qEdeqzjsIcHnLN2ZpZPz3Xh7Ukrf4J
Dz3L8xXOzpLg+ObQ4IMsHvoXdX+Bcg==
"]]},
Annotation[#, "Charting`Private`Tag$15898#2"]& ],
Annotation[#, "Charting`Private`Tag$5656#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Medium],
LineBox[CompressedData["
......@@ -813,7 +813,7 @@ hlN+CwPG4oQ2t80SuKfEfmJmKwMCH0SVqC8SOCUv7qHrdgY0ZTWQri4T2DTB
n6LEwwD+vHXTB38JvKqxqD7LywCbIo3cL2sEDtlPWinnY0BJmesik0lgCZaU
Fx78DPgfQC6bpA==
"]]},
Annotation[#, "Charting`Private`Tag$15898#3"]& ],
Annotation[#, "Charting`Private`Tag$5656#3"]& ],
TagBox[
{RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Small],
LineBox[CompressedData["
......@@ -909,7 +909,7 @@ mQhLShP3tVpQcERWQoX0GhG2UHN1dztQ8Jf8DwSnDSIMdtv8a+xCwYeKdvWy
toiQxWpK4ac7BduUyRR27BAh39G+KjsfCq6o9Fjb2yPC3NlqrdkACv4/8pr9
WQ==
"]]},
Annotation[#, "Charting`Private`Tag$15898#4"]& ],
Annotation[#, "Charting`Private`Tag$5656#4"]& ],
TagBox[
{RGBColor[0, 1, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Tiny],
LineBox[CompressedData["
......@@ -1039,7 +1039,7 @@ PDmUwy04JD22TGGLCGVkI53PTrfgnpy3BMcdIqTUrNbvWWjBXAUHuul/iZDZ
hPOi3UYLti5RzP+wT4Ra3LliZPstuKzCfevwkAiNlFXZMylJ+P8APQ/qsQ==
"]]},
Annotation[#, "Charting`Private`Tag$15898#5"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$5656#5"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -1081,8 +1081,8 @@ hPOi3UYLti5RzP+wT4Ra3LliZPstuKzCfevwkAiNlFXZMylJ+P8APQ/qsQ==
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.8534866526976776`*^9, 3.8534866777488346`*^9},
3.853487177546113*^9, 3.853491667088752*^9, 3.853492280418667*^9,
3.858852818938416*^9},
CellLabel->"Out[10]=",ExpressionUUID->"01bc47c1-a9fe-4043-8c3d-2b7b55b80e93"]
3.858852818938416*^9, 3.876825995237954*^9},
CellLabel->"Out[6]=",ExpressionUUID->"447005d9-e8bf-4d62-a6b9-86f632887cc3"]
}, Open ]],
Cell[CellGroupData[{
......@@ -1122,7 +1122,7 @@ Cell[BoxData[
CellChangeTimes->{{3.8534866396384068`*^9, 3.853486677191375*^9}, {
3.8534871698947124`*^9, 3.85348717616479*^9}, {3.853488070926713*^9,
3.853488184645849*^9}, {3.85349163588764*^9, 3.8534916866587477`*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"427c58a0-f500-4a61-a0ae-7f2409bdd161"],
CellLabel->"In[7]:=",ExpressionUUID->"427c58a0-f500-4a61-a0ae-7f2409bdd161"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -1156,7 +1156,7 @@ gEmb4+Dp+TWo6hUixX9znqeDs1b68VjjiCjd5TuSwZyh8PVbJxDJ2v7AKgnc
Wxmn9Z1CZNZFMysGWznmlefOIBIhtLl+FPwnozRRMYdIrJR7IgEsUin2qeYR
MawSCuLBy3Pr1w4vIMJ6c9w5DqzkqWa0WkT+sr2y4gj4P1nHjOs=
"]]},
Annotation[#, "Charting`Private`Tag$15976#1"]& ],
Annotation[#, "Charting`Private`Tag$6029#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -1189,7 +1189,7 @@ uhGxJsuWPB2PwKEtwn55LyLvGf9CS1MEuuJEQ4Ce3bMt2TSQtbXzsYs5g4jk
tjxr/sD6DudcimoIkS7ZeNd5ExBEalQ+mmFETrduUCawNs65PvPtCCLm05Tf
/2F9xV8zaDAg8izri3iU9X8teDb7
"]]},
Annotation[#, "Charting`Private`Tag$15976#2"]& ],
Annotation[#, "Charting`Private`Tag$6029#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Medium],
LineBox[CompressedData["
......@@ -1222,7 +1222,7 @@ bda6d5l1H6JLY5tVQ6xrsg9PuQ8g+nNDSzT/IwahVcLN+BFEix0edLqwfs7J
iMwdQzTFOfa6hHWQKtdZNY7oxcjNrpdYz4h/vLhtAtGJMs30O6zvualGpqYQ
DTJKU1ay/g/mIk7B
"]]},
Annotation[#, "Charting`Private`Tag$15976#3"]& ],
Annotation[#, "Charting`Private`Tag$6029#3"]& ],
TagBox[
{RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Small],
LineBox[CompressedData["
......@@ -1254,7 +1254,7 @@ HoXe2JR5aMwMlb5HxHfHiGgp8yljH6+FHxFRbtav8GIWtIkW2X9CZF30VTch
s7Jon3bbACIlpyLbQ5lNbVMKk9WIJGaYTj3IXMXJTSgZQSRBMu3CCeYQRckm
xRgiJ/YZrkxhnpJcYf5Wg0iIO9SdZb7qpVBrtYh0mP0gvMj8H7fEVfk=
"]]},
Annotation[#, "Charting`Private`Tag$15976#4"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$6029#4"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -1507,8 +1507,9 @@ xRgiJ/YZrkxhnpJcYf5Wg0iIO9SdZb7qpVBrtYh0mP0gvMj8H7fEVfk=
FormBox[
TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005,
0.}}}}]]], "Output",
CellChangeTimes->{3.8534945132365313`*^9, 3.858852821018241*^9},
CellLabel->"Out[11]=",ExpressionUUID->"ba1cd1aa-a9c0-4923-a962-049f4f1494bb"]
CellChangeTimes->{3.8534945132365313`*^9, 3.858852821018241*^9,
3.876825997291296*^9},
CellLabel->"Out[7]=",ExpressionUUID->"fb9ed548-10c4-4d59-8924-f8c1bda2f887"]
}, Open ]],
Cell[BoxData[
......@@ -1521,7 +1522,7 @@ Cell[BoxData[
RowBox[{"angMomenta", ",", "energy"}], "]"}]}], "]"}], " "}]], "Input",
CellChangeTimes->{{3.853486741956423*^9, 3.853486748574054*^9},
3.8534869884309907`*^9},
CellLabel->"In[12]:=",ExpressionUUID->"0a91aeaf-ae80-42ef-a5a9-461e851bc585"],
CellLabel->"In[8]:=",ExpressionUUID->"0a91aeaf-ae80-42ef-a5a9-461e851bc585"],
Cell[BoxData[
RowBox[{
......@@ -1551,7 +1552,7 @@ Cell[BoxData[
RowBox[{"l", ",", "0", ",", "lmax"}], "}"}]}], "]"}], "]"}], ")"}],
"2"], " "}]}]], "Input",
CellChangeTimes->{{3.853486839566058*^9, 3.8534868516463633`*^9}},
CellLabel->"In[13]:=",ExpressionUUID->"1b755cd5-b17a-40f4-9478-09c8830d6ba5"],
CellLabel->"In[11]:=",ExpressionUUID->"1b755cd5-b17a-40f4-9478-09c8830d6ba5"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.853492447397464*^9,
......@@ -1566,7 +1567,7 @@ Cell[BoxData[
3.8534872331434736`*^9, 3.8534872341108074`*^9}, {3.853487279478346*^9,
3.853487298830604*^9}, {3.85349233172666*^9, 3.853492342581953*^9}, {
3.853492438664446*^9, 3.853492473110911*^9}},
CellLabel->"In[14]:=",ExpressionUUID->"964c704e-82d8-43f4-9305-4a962e141163"],
CellLabel->"In[12]:=",ExpressionUUID->"964c704e-82d8-43f4-9305-4a962e141163"],
Cell[CellGroupData[{
......@@ -1574,16 +1575,9 @@ Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"crossSection", "[",
RowBox[{"ee", ",", "2", ",",
RowBox[{"Cos", "[", "x", "]"}]}], "]"}], ",",
RowBox[{"crossSection", "[",
RowBox[{"ee", ",", "3", ",",
RowBox[{"Cos", "[", "x", "]"}]}], "]"}], ",",
RowBox[{"crossSection", "[",
RowBox[{"ee", ",", "4", ",",
RowBox[{"Cos", "[", "x", "]"}]}], "]"}]}], "}"}], ",",
RowBox[{"crossSection", "[",
RowBox[{"ee", ",", "0", ",",
RowBox[{"Cos", "[", "x", "]"}]}], "]"}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "0", ",", "Pi"}], "}"}], ",",
RowBox[{"PlotRange", "->",
......@@ -1596,7 +1590,7 @@ Cell[BoxData[
3.853487298830604*^9}, {3.85349233172666*^9, 3.853492342581953*^9}, {
3.853492438664446*^9, 3.8534924693821077`*^9}, {3.853492520660099*^9,
3.853492523911327*^9}, {3.853492556058901*^9, 3.8534925575274982`*^9},
3.8534926285963984`*^9},
3.8534926285963984`*^9, {3.876826040779756*^9, 3.876826047699432*^9}},
CellLabel->"In[15]:=",ExpressionUUID->"af7481d0-e6b6-42ab-b835-aeed7ec0ee28"],
Cell[BoxData[
......@@ -1604,249 +1598,20 @@ Cell[BoxData[
TagBox[
{RGBColor[0, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[None],
LineBox[CompressedData["
1:eJwV1Hk41FsYB3DbnfmNpVSWIkuUbG2WJPSe7KVkicqS6FpSEYmylBIjrmIs
175UlnSJ7FFpLFGSZRKhfmZIFCGVKO7xx3nO83nOH+857/Oe7wYXbytXHi4u
rgm8lnfep/ztHE2fPfphbgNrHDmwaeyJjnT8IZCKk+lY9nzJtr/7GE7wX5zZ
/WWX/oA3q4rdIZY+fnbZIyIec5UMb1AO+C2+7H/WtQgV154HhtvVe6ux8xQd
sriKA6DQ8ZLcsuu1prZbZwfBKrfha6uw3xlfZ+YyroBsNPOF8HI9ZUHlYOZV
+NW3Zn4lNl2txze3NgzOO/cKL1tkd3Zte3k4qKgJr1yBnbPXk2+uiA7Bx2tn
BbG37tM4uCH/BkTM9z0TwK61WEzcnx0NEuvP+PNjv3FibM5g3AJRi8+J1OX3
qG/dxWmKhamkXi4KdoBW/EAAMw6027St+bD5wHFTTm087L18tJgL+4U+s1Wz
OgG89MSqFh04EGe82etFeSKMeJvm/8aWNp+u/Fb0L7Q38++Zwx62tLWPLEyG
ezppw9+x79vULq3PT4Gsxmzfb9i7HMNNjbPTYLJZwGgS2+rMunfJjCxQ73dr
YGML7oKnSSbZ0KeWm/sBe6rGZ9VQUzbIaNh5D2BXPu6puMDMAT8ZpZo32AZN
2YuZtXeg2stZ4Tm2gkm3xZj2XQgbsDdswOZv/euOevVd0PrVvu8pdkebp0lL
eS7sOCkrUIXtyNKInS7KBx7bi+652MjWna2jWgAB0ehZNvbG3hSNiMICGBoO
40nHHu9f7JXIvwf6TiE6DOwATssGw+z70GRjRA9Z7s+MQ1kS4wGskLkccQg7
RjRVt16oBOKfT3SaYneVhstoWpXA5vh4Ln1s+3GHEen+EpgfDKNqYHvZC/jM
fCmFh13UOjHsBD2PyBThcmjJVqrvsedAX5/16RU25TCy3QjasaX9wTwspRy0
N+XkNGHnF4uJnJWrgF5pKeFy7EcyTVlIoxKSJXcn3ML+wC1XNXqkGrhMK7X3
Ym/MFEp1SK+Ggl71iZ3YHrt/BXeS1VB5YTFMFXvGt0O/9lQN/La6bC+OzTd8
uf1m0CM4z9j78LMdB5Sb+0c0s+pgnJm7dBNbp2k/v/75euB4f5CtP8YBYVbe
a634eljbqaZahj3M5kncUlYPZb/TpfOwb3LVyqz7Vg9rwmqqo7HZOiqaU77P
YKvzVqYNduRDgROZvkw4NzeiPHKUAz1ZbRXzPo1AX0vaTR/B81WsGDQV1wgq
t6lmQ9ihj6+jj6WNoDzqLteJrdSv+7JzuhF47N5GlGAHixWRBT5N8NMkXsEL
Wz4mRuCITzPomccyh205cC7Q3LnsXAt8OBV+4akNB/Z76RYQsS2wEJ744D9s
eRflr44PWsB//+/OFOyefZQQYrIFDop2vz6PrbfuSbLj6VaoEHz5QAGbv3pL
B9XtBcRVifBEHuZA7ndBcLBvg6TGj792WXPg8th8eGlgGxhrB+6Vxz46+KmN
ktoGmY/jfISwBZsa7Up726BupXX0kBUHfBOC/Sm2r4AzsS83EhupfykqsWiH
ihtufl2WHDhb7XqTR74DSJXsqMMWy/lgKcut0QE9PouvtLGn+nQfLhl2gNST
n9+lsf0W1vT8duuAar3Gb58OcSBwD1PqZ2EHZMvx5gdhRzRKF31W6wRXydWT
aeYcyO54+5Kl3wWSPypWtBzgAOvTPlq+CwtsntjJvzblwNcURaMwXxbcTkkf
fIDNb0a96nSNBZJK/4TGYqOixjnx2yyIPRYSaol93wc+RQ6x4N+Vox5dJhy4
Nq/x3PPEG5C7+2bwtTEHtgnKhm893gPmjJMeNYYciNr2g6vyWC/wuT2kmyAO
+Ki0JNbnDoDF51uS3po4T0+eLh70IkGRTBbfpcQBl8e2FrFubHA3iawIXM+B
k9Os+vrIYdhaHbvFQAjn9/Yq77yIj5D1lv9A+x828NRXaV0P/ATvxpPgnwk2
rFI2a/+QPA6HpXo/PX3HBtMs/TtTjC+g6dB8Q72FDeJf24yvVE1C6GU1bvEy
NqQ+f8TNe2oKRphGYz4ZbNCV2rsk+/c0pErz7qFHskGFFB4O8ZsBhx8qvpt8
2FBUsNqjwvcbXF+jkNNgx4bg947dKhGzwLnpt5FXnw0+urvMMhO+g/ljRylL
JTbMZxm6fI79ARx33yTKajZ0nEs9EXD7J7CsxDemzQ2Btonc4mDOHMwKMxM7
yCFoNdIuQOm/IPdPpT29dQhyS1O02ffngZ5/W/NUyRCIyqt6Hr+3AMFXzHaq
pwxBFzdxbV3dbzCpPeXtGjoEFcT5vI7WPxB6gfUm1GMIVEWFPV2aFgFWyI9U
Wg3B15s/RNR7lqA7tFmpWmcI5On0bd6eXEgbYgwmFYaAbdf/Tn+UC/mVjlrq
rxkC05HuXxVe3GiPeUNByyIJF31dPcQmuBH9eCJP3BcSzCvT9ov586Axhf6M
/j4SJn97BvP+4EGF9gdbz7aSkPP2arnXeV5UrhJ9zO4RCfMeeicuLfAiqdQb
qjvvkyD1J87eJ5APbSmTtzbMJOGjSfQLgu8v5PSAY5YYR0KDQhtIR/+FsiXU
9t2IIMGTyOPbQKOgHPWlnvAQEl7yRMYYCFBQgCAjyhlb9c8pMTchCjqwWslW
D/vr9BbF+6so6KTeGc3vwST49VeYaUpQUNzYNRE37JDiJsY+FQp6GfHS9kAQ
CbGHR2R9D1KQaafZvPIlEqqyN+o1xFHQ7QSkuuMCCRuXDIOexVPQ9inqjAh2
rKNrzdNECnJvUnk150eCh0SeZl0KBakV3Gyox5ZI2Ly1IoeCWrLGSiyxg+nK
MvmlFLRTWf1WwHkS9L22c0d3UtC4SsfJbh8Sitss4EY3BYktfHhbgy2p4hNC
f0NBoZcuOmdjz46W/grro6C9T00rzmLnOqvPBA9R0MKrKCcaNmGzk+M1TUFR
qPyp4TkS2nV0m6xWUdGGCPuql/ifRVVfWDBeQ0Vzp6otK7BNNB/s0BGlIpGr
E1xZ2PVb5TLl11HRaPFwhi922QYiYFaWil78u6lLAjuZylJM2k5Fr/PZG73P
knCy+/Q/fYeoaLNBWuDmMyTIWuQyX1lSUesOwYdrsAfa3s89s6aii+H+i0un
SbBttnQtPEJFO3V1enqxTWu09gQ5UVFNe9bVaOytWbxT672pSNf2XsusJwlz
nmnWJ25SUT99k/TbUyTcCrxDvRJLRdXJQdcasRWi7tdmMKiIx+juUim2zb1a
+f4kKgqo8jGMwX442v/NJouK1hdIzBlin/l7fYJZCRUx18YQNR4kkI4ZrJ1d
VFQr/5lV5k5CwNncSBsWFaXPRNvcxV4RUqTr10NFyT3SXxOw9dIf3y19R0Wz
p6XP+mOnvhv0U+Xgeo4ZCbuxDx+RFpWbpSJfeTvGczcSWiyybITECKRsftV8
1hXPb+PIE+paAs01CzA/YQvtUlXkkSDQ/rWuZoPYVjI18z+kCHQpLiKrGbt/
oiuL3EQg/rqEg6nYk1GU8TJNAvEaHXtmhB27eMC6WItAAxQRhg62um98XYE2
tk3exR3YF4/J3srQI9BkjjVdCptHcbcG3Qjfh/O+8MffJIg2nb1sZ0OgjG/y
AkXY1bvKRw8fIZAdlaF9F9vuv3mLQ8cItM7gQ0gadmY8Xd7QkUD/zaw1jcJW
dMlp2eJKoEpNUY4Htu4SazX3BQLFvohRV8Z+7ysZvOBPIKc02Xo57KsfnUe+
XySQuGiKiyR286vJqvFgAk0F644JYh9KJxxZ1wnkoXHkz9RJEly0dfPzEwi0
0lZp72PsUxOvvg8kEcjcNu1iJfa5HCfD1SkEqr/o+PIB9hVa2FBwBoGOtXcz
b2On97VKWuURiMqb8OsG9p0Ye096AYGS3RkC17EL905U1xXic7HhXZexa+4J
225+QKC2hmsjvtg9l47E/q4i0GnlqghH7MEtY+93PCKQRemx80exh4cCt7jX
EUhL1yrIGvvbvswXnfUEKkw1HtyHLSwxwpffSiBLpuGYFrZ4u7/1wEsCRT7O
KlHHlr5G3F7VTqBzNOv4bdhbxlUguItAa1MaCjdj73/ke8myn0DME90b1mFb
evG1RAwS6GDlzwZR7KNySWJ1HwhUrON/dTW2e1RNmcIwgebvXjMXxPbaY8bj
8JFAm78IH6dh+88MWMR9ItB9pflICvZ1O67JhS8EctZ5v50bO3oFQ3fHVwIp
uvYVLbqQwGDKR7tNE+jE9u3Gv7FzlE0UO78TKMpguuUndsH7Xn/KHIGOdtuX
fccuYXg26cwT6HiCXM037CfzMS55iwSaVWgSm8JuKpYp7eeioUdqOV6T2G0u
pUvCvDS0crhv6As2S8zA3PgvGmq39j73Gbv/BSs9iEpDtBRniXFs9mW3zyU0
GlJtLfnwCXtcbU77owAN9f90qB/Fnv54I1JyBQ2t1XKr+4g9lyr51kKYhmT/
besewV4yL9oUsZqGQhViKcum8IJfrQgNCc2UHB7GFqrqYE6J0dAI37YnHGyR
0y6rFNbRkJ8Hv8GyJWVmnewlach7owGHjS3XHV4cK0VDHXv6MpetTBf/0yRD
Q2Rt24Vl79C5Z7awgYa2ZUp5LPt/5i4SpA==
"]]},
Annotation[#, "Charting`Private`Tag$16330#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
1:eJwV1Hc81WsYAHCrc34n6VIiI5KSFClk97xJaMkIZTQUGaXIKKQhKylEZWTk
GhFx7agkuhQiUkgd51jJDhlX7uOP9/N+vn897zPeR8r2vIkdFwcHxxCexZv7
1dIGtorrzrtx/zwXtGHDhh8vNSXuHYLb15xzFj2bu/V0W+RxCKQ9CFl03hR8
Esg5A6KKKgcW3SPoMF0UeR6ecupNrUTfFqnhyym7CIev1wYtOk3WOpEjxwt+
F73iWHSF6qiiaZIPbH8qe3IFul3vZmVq5FU4eZbnicBiPLllcr6V1yGNx/QL
Pzpoe6tbapk/tPsLjvyFFtRIKmsoCID4WYOh5ejkXU4809lBcMBn9CMfWmGv
8kGp9BDgFuVNWoYuM/oTvS8pFGIHHx7mRX86HrnxUeRdyApb7k4t5qOkoMau
Dofo8KlvNLSX6r2vXpURYKRosm0JmgdsNiSX3QOnytO3OdHvdCprVUqiQP23
WPSCNRsi9Da6vCuIhtcH9QPm0RKGY0W/sh+A+PSs2Ay629jcKjjzIRyL96+c
QmeZlS2Ip8eANvd1owm0mk2AgV5SHLDq2teNoE3OirQ/jEyEkwl/JbPRy9Tg
1X39JPgUs9ufiR4tdRXoqk6CkKGhA53oohethR6VyfAiJO1+K3p3ddKfhLIU
cHTO4a5By+g3G/1Q/xtej8dJVaGX1i5JUSr5Gz595txYgW6sc9KvKUiFLd9V
+4vRNi3K4WPZ6TAJZrppaGJ+hqW5JQOcacsTktHrv8QoB2ZmQF/iru/x6IGO
P19E059AVbro6ntoL3aNlG5SFoSPPDrlt1ifcev8+5HP4F+tnbZG6LBVsVoV
fLkg8exB9l70x7wASRWTXBDrlfmqg7YasO6R6MiF8sF+ljLaxYrXdXwwD5KH
eR8Io6O0HYJj+AugUMMy9rMVG9raTJ2XmxXAlsKjIh/QEp5g6B9TAPY7Ynze
otNzhATPrSuE1m0dPwrQzyWrE4lyEexouXouHP2dc11xn0UJXOueEdBBr0/g
i7WOL4FLEWbVqmgHjRnfJmYJxAzPW8mjx90adcocS+GlqprSajRPt1/DHZ/n
IMZxNmTQkg1ybzt6VBLLoUA06dNdtGb1vqU6FytAL11louIoG/hb0j6o3quA
jPpjC/nobhZXtHx+BZRfSBhLQ9/hKJMU+VUB+vOnQ2+jWZqbVUbdXoO8vlyU
OTr4H94TCW6V8M3Afa7nCBtaE+sKZ12roFDdUnbcAucrR9ZnNKIKbnIarmah
r724SXrzqmC9hvdIE3pTh9b7prEqkC28ZpqH9hXKZma4VgO/xplxF7R0WBiv
hetbUHmcdbvHnA0XvA1P5l+oAcaGGc0KMzbsc9HKoMJrwDG23iMbLW0rN2Lz
rAYU3acfxKJb99KuUMM1QBLMo93R2iIvH9o418LPTZbuG9FLS+Qb6fbvIONC
TlXwYTakTi4Da6s60HU8XaJuyga/H7MBed51YP47f0EafaSzv44WWwfELGjr
cvSy6irLvC91kBL3yoBlwga3KF9Pmnk9pDolnwxBE6XB7FyjBhDdFKzQbMyG
cyV2d7ikG8FYWJaYGS3uB+O1nMqNcOKIsr8GerRN658F3UaQs+zIlES7z61s
/c++Ed66c2X8OMQG752Va35nNoKy2a+jvujAKonsn9ubIC/oaEK8IRuSGj+/
b9H5CAcMvUtrDrChpX8vI922BUTKjlV+MGDDSIzsHn+3FpCz2OObi166n379
+I0WKPdsk4hAk+yqaeHHLbBsx0oJE3SWK/QHd7UAq5Z3SbM+G27MKv/rdOIT
rN/zl1ejHhu2LlsboHCsFR7QU+dKddlwa+sUR9HRL6BdHrjcgLDBdXNNdEXq
V8iteBJwXgX36SnnnE4XJowbzZ1S28QG2xfmRuH2LDgn96HHW5wNp8ZaKiqC
u0Fi2zzs5sP9rVh8Pi2wFzZ8WaPbMM8Cropi1Zve/RDAJ7D29hALBOT2N3x/
OAC5tCX5r9pZYJCokzIaOQgHczp1lGpYIDxSp3e1eBjyPxx7KpTPgth/n3Ny
O45Cn/D7UNdHLNBas2th7ekxuGkm2BkYzILNTP7uK+7j0LnSd8UGVxZkZ6xw
KHT7BR7iq/XfWLLA95tN8+bACVDrHmvh0mGBq5ba/oSoSRhsEP5qtIkFs4m6
tj/Dp+CQzC472goWNF6IPeH1+DecjrtFi5vuAnX9dX86k6fhp1d1aCOzC2r3
qGeQ+BnI/q5mF1TbBal5MeqsrFmYuVpo6pjbBauktzgdezIHkzZy9koxXfCR
k7ohUv4frD65KdfuWhcUUhfTGmvnoSD+h/R1hy7Ysorfybb6D4h3bNYqNumC
kTtTgkqtC+DcrhpYotkF0kFBW887cZCle/KThmW6gGXZ0a7Tx0H6P4Rk6azs
AoOe5plCF05SS7pnav4w4ZKbnYPQECeRngnTjxhkgmFR3D4hTy6yY6tzU0cb
E4b/c/LlnuIiGrlSP87VMiH58/UCl4vc5I/g0VOWz5kw66B94vIcN1H+skN8
RxYT1sxHWLl685BKBclNuglM6NUPfUfxLCGHJ0OXREcw4Y1MHUiELiEeFiF9
wYFMcKLSeKQYNPJZT9Ym4AoT3nMFh+3mpZFj28z5T6K3zDsK2fPRiPn54A4t
9MiYvGyWAI30+3E9n/BlgntH4X4VURpxfx/8wA59Jac6cu9mGlHWKGnd78OE
8MM9a90O0ogxh4y73GUmFCet134TQSM57tdjFT2YsH5B1+f1PRqZUpw8LogO
t7ErfRVNI8lR1RrT7kxwEE1TKY+hETGJG4oVaNGojQqFyTRSfydS3BjtGyQn
mZ5HI5e+H5r2vMgEHRdFztAmjM+c/vejKxNy6owgpBnjCZdplqLFNrteCfpE
I7u20aoT0RN9eTP+bTQSqae1+hw69aTSuG8XjUTbHHhNoSmzHWyXMRpJSReT
1L3AhAZNrWoTATpZWrVjxXv8Z7dKPOb0VtKJnpjh0wK0vsqzbZqr6EStQ9sq
AV2hsC5BWoROMuYyf7ui86Uor4m1dLLKuF1OFP2Q3iJ7X5FOOt39fFzOMeFU
s/PttkN0MkvfWi9zlglrjVIr643ppOPISZ6V6K9136Zfm9KJgUGY0YIzE8zf
GttlWtBJHPvTxi9og1LVnT7H6eTblO7HW2iFRO5R8fN0cuuSi/CEExOmneJM
T9yhE2Jo4djqyIS73in0q+F0IuznWv8GLXMrq+xRJJ0cjTi2Lw9t9qRMuuM+
nehmFt65jf6nr+OXWSKdlB302KWLPntaPGp/Lp0sb1tnVOLABKbNo5YdH+lE
uVFBJP8ME7zOpQabtdBJ93x8TAp6+ZVsLfdWOim4Pb89Cq0d/+LvvHY6kbeO
yfVAx7Z3um9h08lv88Of1dGHLSRWrZugE4f4B81v7ZlQY5RoxidEkQkVWtgv
O5zfqp6X9NUUkbrixNGP5lPbIsslSpHOrkchX9EmkqWzU2so4mTs3lmN7hj6
mMjcQJGyjJFbMejhW7SBfBWK2MfFzeuiw/8cMM1RpcjhAOUGDbSS273yDHWK
PNZJLVBEXzq69u4jbYrI7uR/I47mktVQDtpDkXubRXsnTzNhVfU5P0szimR8
dtzzFF2iVtB32IIi1n7PL6agLZ/OGh06ShGIGiiORSfcC5LWtaHIeP3A9RC0
rG1yjbwdRUT8vMQd0FoLLSs4PShSYy1xdhP6m5uY75wnRQ5qPJyWQl/vPdkz
eYkitdR0rCj6bf1w8YAvRQLHnaSWoQ/FUzYtNylyk19WZfQUE2zVtdLToyji
EHXgUjnacah+8ut9iljVpT8rRF9IPq67IoYi26+bcj1DX2X4d/k+okg7b8JM
Mjq+rVbMJI0iKkNLFUPQKWFWTkEZFPE8MbnLH525a6ikPBPzv6R0/gq69Am/
+cZnFLnM+1TMDd162SL8v2KKuPs/LLdGd8r/+LbtOfbv16YnFujuLm/5M+UU
MagUyDNB/9qb8K6pgiJvy3pW7EXzi/bwpNdSpO50uoQqWrjB0/Tre4rEbpjo
2Y6WuEE9FmigyLfImBoFtPzAZvD9SJGnl0a+y6D3PXe7bNxBEUPNBvPVaGMX
nprATnyfSt+0IPrIuvtC5d8pcqPMskgAfeZWab5MN0V2a5j486Jddu7nsu6l
yKH7rZEU2nP8q1FEP0WadIteLEHftOQYnhukyOiBYDsOdOjySK1tIxRR+s+b
NW/LhMhK6VD7MYqIPan1nkMny+nLNk1i/aN85qfQGd++eNKmMR/R730T6NxI
p2rNWYqYKCQOjaNfzobZpv2hyB4flf0j6OocybwODgbJG+ZNGULX2eYt8HMz
COM0CA2iW4R2G+otYZD1Ex/+HkB3vGuJ96EziHjRC8MfaJaf/c9cBoNYv6IE
+9ED26fVe3kZ5JZ03kQveqw3JFhsOYNkTxSN9qCnY8U+G/EzCM9uUWrRC4bZ
GwJXMIjkmg6NbjSNG9zLBBmk6e5MMBvNV9xYOSrEIJppHuMstKCzrYCMCIPU
Ox7yWrSY5MRxKzEG0WYFCi96XXNATvgaBrmySry5Cy0XJDxfLckgLPpfmYve
pvlk/5wUg8yUHY9f9P8FIQ+5
"]]},
Annotation[#, "Charting`Private`Tag$16330#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Medium],
LineBox[CompressedData["
1:eJwV1Hk0lV0XAHDjvc8t+iQUlbEyRYQ3QvskEUo3hTK8hiIURTQYmmRKeY2V
IUMyVUTmoZJcUZK4yZB67r0IJUPIEL7jj7PO+q2119rn7LX3lnE+Y+HCw8XF
NYLP8s37ckULR8t71/P1/VUi9hzYPPRCVzLuIORypRYse65w24muWAfwDW2K
WHbRNHxaXXASap6e3L/sfhG3mbLYM8C5enF6DfYt8UbBgupzsLQ0H7bsbAW7
NK6CCzCrOcG17NodY2qH0wPAQ9HWSRi72+hGXVbsFXg2+E/e6uV8SgJKgXXX
YOJKSKcQdtj2Dp+s6mDgXjQa/R+2yM706paSELh+LmBkFXbGbg++mfwweD8h
2y6IrWqieUAmJwJ4o/XTBbCr6YsJpumRMOP47shK7E8OsfL3Y/+D04vIl1j+
j4aqNocRDXZLCt8o2Bd2xH25UBcD8yk31Pmx+cB+c0Z1HAQq3b3Fjf3WoK5J
qyIeOuzME5bsOBBjJO/1tiQBGgovhSxgS5qPl/3Ovwt3LFU2zGL3HbKyDX90
D35Ml9ZNYz+2rF7akJMIZTbF9ElsbfuQfUbpydC9UVBuFNvitHj3vdg0GCZ3
Z3CwBbTh5R3jdPDr9AsmsccqvVezGOkgryB9oBe77HlHqV9dBvyo7rzTgb2H
kb6YWp0JVpEkbyP2FuN2+pDOQ2gTbJGpx17RxJ+pUfEQhkc05GuxW5s9jBtL
smB82H2wHNueqRk9np8DuVphhtnYyOokW3drLphOQ2oG9qbORM3QR7nQFXHu
Wwr2cM9ip0ROHlwO2b8uDvsCp1HGMP0xeBZ/OH55uT4TdsV3Yp8CvDnjTMe+
LZqkVytYCKDelG+C3VYUIqVlUQgvHI5+McC2Hbbrl+wphJkjEhxNbC/bld4T
P4vg7Hb9u2ux4/XdwhOFSkB8W2TSZ1sOdHUdPrXKsgQoaTfFP2BLngfz4MQS
SBB9G9CAnVMgJuIpWwqG8yuHS7CrpBhpSLMMQs8WekZjf+OWLf9uXQHK0krC
BtibUgWT7FIqwK82hLED223nbOBHsgLeCKnaqWBP+LQaVLtXwhC4aazD5uu7
3BIVUAW5bckRP204oNTQ06+VVgNvAj58+g9bl2G6wuBcLTAETkzWHuOAEDP7
w464WgiUu71UjN3H5klQKa6FhrLm8WzsKK5qKfHfteAuFxd5C5utq6w15vMK
tLcejbfCDn+20jHVpw7uZWfM9x/lQEdac+mcdz288g1VmLDG/VWgEDAWUw9h
iv7r2NhXn99AA0X1wHcwe/QjtmKP3ruP4/Xgm/nkcBF2oFg+mevNAO7u2Akv
bLnbt1daezdAYXrHrX4rDpz1N3cqPtsIWi2yerWWHDD10sslohuhT+WPXz62
nLPSqP1T7HGZe0nYHSaUIOJXI2wcu5Lgi60v/uKe/akmkJAL9pXHXlGh0kp1
fQuWJR314Uc4kDUlAHa2zSC4PbJC5zAHLg/NhRT5N8PrnO4lOeyjvYPNlKRm
0BvJ37YKW4BRb1PU2QxXeAb2sS044BMfeJ5i9R5svd44RWAjjZ/5hfQWYDnn
q7Yf4oBnhUsUj1wrmD01Q5b05f1wSJpbsxWc262Dd2KPdek9WzJsBamKxUdS
2L7zazr+urbCyXubc4cOcsB/V93GP49aAXjFbAKxQ+sl839s/wg/jQJSU8w5
kN76+R3ToA20ZZMqG/dzgDloQstxZkJJuH/dh30cGE1U2BvswwQOv1NgIfYK
M+o1h+tMCKdMScZgo/z6mbUPmMAKU5W0wH7sDYPhLCbsT9vC327Mgetzmm88
HD9Bp5TihVYjDmwTkA5R/bcDNAdq5isNOXBz2zRX2bFOkIlKWrUPccBbuTGh
NusLNOWWhJzRwvv0+KmCXi8SWNULx7UVOeD83Ioe7coG/qNv+/03cOD4OLO2
NrwPrj0dhz2CeH+rlZ/JDh2AnmuChi0LbOCpLd9xw38Q2q4tSN0aYcNqJbOW
b/eGwaR99NnLbjbsSzPIHIv9CdrZjQYajWxYO9psdKX8F+wuNXsiVsyGpDdV
3LzuYxDvVh3pfZ8Neht3L0mfGIewAaI3NJwNyqRQX5DvBGziPy+82ZsN+bnC
bqU+v8Hp+Frj1zZsCPxq364cOglcn6aZPAZs8NbTNkuNn4KFFzJf6IpsmEsz
dP4RPQ1G/eYuFGE2tJ5Ncrzw4A+IQzIleYYFOsayi70ZMyDo9zmylWRB016d
XJQyC8lMU5ewJhZkFSXqsB/PweIw47B7IQtE5bZ6/Js3Dy8EtF01ElnQxk1c
F6/5C3lD2wtdrrKglDiX3dq0APXbf8ldc2PBVlEhD2fGIsS5KOuVW7BgNGpa
RKNjCVy/qYdW6LJALixs2xkPLtQfkJv+awsL2DY93QbfuZDDkv9jgzUs2Nff
PlvqxY0KVdtmGxdJuOjj4iY2wo1qVfyNY36SYF6WbCp2ngexFK0/9nSR8Ouv
RyDvNA8aXvu/Ic8mEjI+XyvxOseL/N1NjttUkTDnpu94aZ4XbRpT3vDPYxI2
LsTYevvzIVseCUXDVBIGjCPfEnz86I9wFH9CDAmvtzSDZCQ/mjKL+x4eSoIH
kc0nQ6OgEy917EOCSHjHE357z0oKOvb2pJAT9tYFdzFXQQqqVkjq0cMeHVdR
eLyagsQuiVRNBpLg21NqpiVBQUtGyXddsIMKGLEmyhQUUf6uwyyAhOgj/dI+
ByjoTqCur9IlEsrTN+m/jqEg109JSWp+JGxaMgx4FUdBMgWrHEWwo+1dKl8m
UJCG6redM74kuElka9Uk4veMJavVYkvEy6uWZlDQj49PNhzCDgxTksopoiB9
nlMz58+RYOClxh35kYIOVIo2tnmTUNBMh4h2Cnq5slO3Enu9sndQ2Cccj+QY
adiT34tmg7soaFfksXWe2FlOGhOBLAr6I+DxisAmLP/heI1TEFNxp5ThWRJa
dPUYFqup6AFpJfwOz9nNCr95ozVUFEL3elKCbaz1VF1XlIoIxX9tU7FrVWVT
5cSp6Jz/uz/e2MUyxIVJaSoSUp9XksC+R2Uq3FGjInWR9AAvTxKOt5+61XWQ
iujiFu+3nCZBmp5V9/4QFVVcvcG3BvtL89eZV4dx/tBC+tIpEqwaDrk8sqai
AvNZ+U7sfZU7dgU4UFF4lVvbTWzVNN6xDWeoaHgodu2kBwkzHsmHHaOo6LZA
kHuHOwn/+WdSr0RT0W6Lu+9fY2+5+bj6fix2wA3TImzLvGq5njtUdPplT9Qt
7Gffe35bplHRrork3YbYp09siDcrpKKsIRN6hRsJpP195j9tVDQnbi1efJKE
C55Z4ZZMKnK2YSRmYq8Kytfz7aCi9/ObNeKx9VOePyzqpiK1sVeFfthJ3b2+
WzlUFKYR9FkH+4i1pKjsJBXx8r9qb3AloZGeZikoRqDxDLXbv11w/9b3v6Cu
I5DTn3iuQWxB7a0KPBIEMvZojPiCbSFVOTe9kUDdU6m9DOyekbY0cjOBBG5I
RCZi/7pJGS7WItDLbw0LhtjRi/sPF+wgkGOHQ8tObA2fuJpcHQIZpLeWqGFf
PCb93319AuWU6L7egM2jsFMzbC+BEtr2DkydIEGU4XnZxpJAvd0Je59gV2iX
fD9iTaDUWwPnMrFtnszRDx4j0KV8sYok7NS4MDlDewI1/RW7HoGt4JzRqOJC
oJGOzA1u2HpLTGFuPwI94DM7rYj91Wd94Px5AsX+qJ+Rwb424NQ/dZFANq83
JUtgN7z/VT4cSOB5visjgH0whbBn3iBQMZel1thxEpx19HJy4gmk2HDpYg22
+8j7qS93CFRF+fS0FPtshoOhcCKBBOuv8jzFvkILZgXeJ5Chw7vZDOyUrqb1
FtkEknfUVovAzrxt6xGWS6DRblmDYOxHu0cqah4RKGrO8UwQdmWekJX8UwI1
J3et98HuuGQd/becQLzbGmrssHtVhr6qVxFIIcs6zxq7j+WvcrIG19cfiiyw
f5ukvv1YS6DTV9esMcEWkujny2kikAP6JLkDe23L+cNf3hEohiI7sB1b8jrx
YHULgUQvvWlUxVYZVobANgJxuW8kt2CbVvlcOtRDIJ1df63WYR/y4msM7SVQ
qZ7orAj2Udk7YjXfCDTYEF62GvvkzcriLX0ESjpwNXglttcuMx67AQK55fPF
EdjnJ77QYwYJFOnQ95wf+4YN16/5nwQK9ipz4cKOXBWrpz5KoL/SeewFZxJi
6+QiXccJNN/6x38eO0PJWOHjFIHmXuUtTGPnfu08T5khEMdUcHASuzDWg6E7
h+vj9H5kAvvF3G3n7EUC1T07bjaKzSiQKurhoqGDCjszR7CbnYuWhHhp6GGa
p9hPbKbYHnMjfhpKVF98OIzd85aZEkCloX1TP8yHsNmXXX8U0mhInGuHyCD2
8PYZnYGVNFTj8m1yAHt8ICJ8/SoaUtTuH+vHnkla/5kuREP5YfuIZS+Z528O
FaahZmeabh82hRd8q0VoyLlDPoKDLVjeWjcmRkNRI5kTbGyRU86rt4jTUG1R
0IVlr5eadLBdT0PZSqVrly3bHlIQvZGGdv9r2s7CVgpbu8CQoqEuuv6jZavr
5pnNy9AQN39UyrL/DzkvIuI=
1:eJxTTMoPSmViYGAwAWIQzbyf69xj00K73XcqSi5dfWgflCN5a8ak+fYw/sRP
MZunTVoP51sf9eJyKj4A5xdU+SVuLjgB5+fuSO1jUr4A51954cm5POkKnN+l
/41hW+QNOL9Q+8TUA0vvwPm/krPX3c17AOcn7Q0LmJD2CM5P/njlwIGOJ3B+
j8H2/GVtz+B8pgPbzVuqXsD5glre5+7PeAXne8x3Wvxh0hs4X/z9Gbf67e/g
/FnHdzEyZ36A821kHf8rpHyE87UfCDypLfkE569dIZSxtegznF9zL/aydtsX
hP9sLLznTfmK8N98l6TXE77B+RcKZiWUL/oO51u6K/27u/AHnH/S1XKFw5yf
cP7SjTMtH63+BeeLKutkxa38DedfYuRoktzzB87fylG87MLJv3C+jqhAVtLR
f3D++75vIsbX/sP5yu3t+vlZDA4w/qOo27ecniP4Hk8v/9yaxwjnVxSlZoi9
RfD9ts32EitjgvPf/cmqYf6G4C+83rglr5gZzv+VYZtQ+RvBl/07MbqwigXO
f+befYqDhRXOP6x2xl6uG8HP4ljGosjJBudvX6Bie3gign/O2uZokCA7nP8j
a3ZwQh+CfyJgfiivGAecn2Rps3z5FATfa1dRZeBtBN/QeqX3b0VOOB8ASSjX
gQ==
"]]},
Annotation[#, "Charting`Private`Tag$16330#3"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$8908#1"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -1889,8 +1654,9 @@ FaahZmeabh82hRd8q0VoyLlDPoKDLVjeWjcmRkNRI5kTbGyRU86rt4jTUG1R
3.8534869953777704`*^9, 3.853487034529318*^9}, 3.853487076780896*^9,
3.8534871894251194`*^9, 3.853487304856558*^9, 3.853492164658205*^9,
3.8534922764883213`*^9, 3.853492334235717*^9, {3.853492454466238*^9,
3.853492481033432*^9}, {3.858852803428073*^9, 3.858852831926577*^9}},
CellLabel->"Out[15]=",ExpressionUUID->"d6e10034-cd6b-4d36-800e-9982c3382e25"]
3.853492481033432*^9}, {3.858852803428073*^9, 3.858852831926577*^9}, {
3.876826011965551*^9, 3.876826049083177*^9}},
CellLabel->"Out[15]=",ExpressionUUID->"2bb96fb0-cfbc-437a-bbd1-9d2e990e6351"]
}, Open ]],
Cell[CellGroupData[{
......@@ -6879,7 +6645,7 @@ Cell[BoxData[
3.853493642630621*^9, 3.853493675863988*^9}, {3.853493775700438*^9,
3.853493811435296*^9}, {3.8534938949304743`*^9, 3.853493897910325*^9}, {
3.8534942524958057`*^9, 3.853494310964809*^9}},
CellLabel->"In[31]:=",ExpressionUUID->"ca70aec2-1403-4fd0-bb53-d55303e04867"],
CellLabel->"In[16]:=",ExpressionUUID->"ca70aec2-1403-4fd0-bb53-d55303e04867"],
Cell[CellGroupData[{
......@@ -6889,19 +6655,9 @@ Cell[BoxData[
RowBox[{"LogPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"csPartial", "[",
RowBox[{"ee", ",", "0", ",",
RowBox[{"Cos", "[", "x", "]"}]}], "]"}], ",",
RowBox[{"csPartial", "[",
RowBox[{"ee", ",", "2", ",",
RowBox[{"Cos", "[", "x", "]"}]}], "]"}], ",",
RowBox[{"csPartial", "[",
RowBox[{"ee", ",", "4", ",",
RowBox[{"Cos", "[", "x", "]"}]}], "]"}], ",",
RowBox[{"csPartial", "[",
RowBox[{"ee", ",", "6", ",",
RowBox[{"Cos", "[", "x", "]"}]}], "]"}]}], "}"}], ",",
RowBox[{"csPartial", "[",
RowBox[{"ee", ",", "0", ",",
RowBox[{"Cos", "[", "x", "]"}]}], "]"}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "0", ",", "Pi"}], "}"}], ",",
RowBox[{"PlotRange", "->", "All"}], ",",
......@@ -6909,8 +6665,9 @@ Cell[BoxData[
CellChangeTimes->{{3.853493594513134*^9, 3.8534936264705887`*^9}, {
3.8534936845655823`*^9, 3.853493726500517*^9}, {3.8534939385756073`*^9,
3.8534939390018663`*^9}, {3.853494072633522*^9, 3.8534940805368156`*^9},
3.8534942898885803`*^9, {3.853494328640461*^9, 3.8534943657957478`*^9}},
CellLabel->"In[32]:=",ExpressionUUID->"a099f556-b302-4e0c-9958-dce54cc805c8"],
3.8534942898885803`*^9, {3.853494328640461*^9, 3.8534943657957478`*^9},
3.876826119337831*^9},
CellLabel->"",ExpressionUUID->"a099f556-b302-4e0c-9958-dce54cc805c8"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -6930,7 +6687,7 @@ i+D7bZvtJVbGBOe/+5NVw/wNwV94vXFLXjEznP8rwzah8jeCL/t3YnRhFQuc
1uzghD4E/0TA/FBeMQ44P8nSZvnyKQi+166iysDbCL6h9Urv34qccD4AIZPz
iQ==
"]]},
Annotation[#, "Charting`Private`Tag$19103#1"]& ],
Annotation[#, "Charting`Private`Tag$9441#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -7219,7 +6976,7 @@ vrib7PO2uJjI2I54ysgx3G28h4yPsJCxjehbwfy4uxrbEr2JZOyRfXjzWDcR
Y3ENq8qU/30/c8WeIitAxjymK0oZcAuJzdtYCpExTv3P43NdRJBsvfcmQoSM
TU3xfR7DrXCfb6NOjIxZX80xGMS9+8BLwzUJMvb/3wv9Hy6w8ec=
"]]},
Annotation[#, "Charting`Private`Tag$19103#2"]& ],
Annotation[#, "Charting`Private`Tag$9441#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Medium],
LineBox[CompressedData["
......@@ -7645,7 +7402,7 @@ aPZ5TznHWqG4seITjwvjo+0WYf/1L/NwUpo/mwsfKvNjA1iraQzv2q7G5p/T
9NaLtVbLyfy4uVyQc15i4cqaHz7re6UGF16fl976rx+beFnOhnFNLvy/X9v/
AOwwpjw=
"]]},
Annotation[#, "Charting`Private`Tag$19103#3"]& ],
Annotation[#, "Charting`Private`Tag$9441#3"]& ],
TagBox[
{RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Small],
LineBox[CompressedData["
......@@ -8164,7 +7921,7 @@ SQkLgo+Ys5A15l+JUh2GooIQWP7xFQ/zrH7e6pAFgiA7G/dyPWaKxj1dsVAQ
7rK6+T/MK14F51+WFoSwjVPPBzBvCF00Uy8rCL/YkgJ9mFW2Z+tOLxeE//8/
wP8ABNgXIg==
"]]},
Annotation[#, "Charting`Private`Tag$19103#4"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$9441#4"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -8287,8 +8044,9 @@ wP8ABNgXIg==
CellChangeTimes->{{3.853493697541955*^9, 3.8534937286825113`*^9}, {
3.853493931427075*^9, 3.853493940950637*^9}, 3.853494082188933*^9, {
3.853494294351274*^9, 3.853494315503067*^9}, 3.85349436742323*^9, {
3.858852905053458*^9, 3.858852905584511*^9}, 3.858852974281839*^9},
CellLabel->"Out[32]=",ExpressionUUID->"f223a126-5856-4404-99bb-9291629b2527"]
3.858852905053458*^9, 3.858852905584511*^9}, 3.858852974281839*^9,
3.8768261091889057`*^9},
CellLabel->"Out[17]=",ExpressionUUID->"138708ae-8877-4afe-9622-7cc3bb882fd8"]
}, Open ]],
Cell[BoxData[
......@@ -8479,7 +8237,7 @@ Cell[BoxData["\[IndentingNewLine]"], "Input",
c1e5a15ac35d"]
},
WindowSize->{1389.75, 768.75},
WindowMargins->{{Automatic, 0}, {0, Automatic}},
WindowMargins->{{0, Automatic}, {0, Automatic}},
Magnification:>1.1 Inherited,
FrontEndVersion->"13.0 for Linux x86 (64-bit) (December 2, 2021)",
StyleDefinitions->"Default.nb",
......@@ -8498,71 +8256,71 @@ CellTagsIndex->{}
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1062, 30, 57, "Input",ExpressionUUID->"ba7d4b78-672c-458a-81ef-4afd07c02df7"],
Cell[1645, 54, 1149, 31, 37, "Output",ExpressionUUID->"27aca7d3-6967-4af6-b7a6-cce9ddd23131"]
Cell[1645, 54, 1171, 31, 37, "Output",ExpressionUUID->"daa93ae0-ef2a-46be-a90f-b711134564d3"]
}, Open ]],
Cell[2809, 88, 126, 3, 38, "Text",ExpressionUUID->"ff0261e9-e7f2-47d7-be51-681add6cc7f6"],
Cell[2831, 88, 126, 3, 38, "Text",ExpressionUUID->"ff0261e9-e7f2-47d7-be51-681add6cc7f6"],
Cell[CellGroupData[{
Cell[2960, 95, 513, 9, 57, "Input",ExpressionUUID->"8b706344-7d6f-4824-a756-32583bee7675"],
Cell[3476, 106, 317, 6, 37, "Output",ExpressionUUID->"c5c35dc6-6455-4c06-8d6b-4ccc168b8f61"]
Cell[2982, 95, 513, 9, 57, "Input",ExpressionUUID->"8b706344-7d6f-4824-a756-32583bee7675"],
Cell[3498, 106, 338, 6, 37, "Output",ExpressionUUID->"3fdb3f5c-284f-4f95-aa6a-808822be2824"]
}, Open ]],
Cell[3808, 115, 417, 10, 56, "Input",ExpressionUUID->"7c41ea64-0275-46af-a1be-64f6a62fe1e6"],
Cell[4228, 127, 586, 15, 53, "Input",ExpressionUUID->"2b3e773f-5694-4ac2-8548-b85c2006e275"],
Cell[3851, 115, 417, 10, 56, "Input",ExpressionUUID->"7c41ea64-0275-46af-a1be-64f6a62fe1e6"],
Cell[4271, 127, 586, 15, 53, "Input",ExpressionUUID->"2b3e773f-5694-4ac2-8548-b85c2006e275"],
Cell[CellGroupData[{
Cell[4839, 146, 870, 21, 33, "Input",ExpressionUUID->"36acf79c-f85b-4ba8-b611-02ce834d0895"],
Cell[5712, 169, 24704, 434, 254, "Output",ExpressionUUID->"d5ef8b6e-17ae-4a54-9e0c-3006bfae9692"]
Cell[4882, 146, 870, 21, 33, "Input",ExpressionUUID->"36acf79c-f85b-4ba8-b611-02ce834d0895"],
Cell[5755, 169, 24721, 434, 254, "Output",ExpressionUUID->"629123a8-c8b2-440a-adc7-ef190d8d53b5"]
}, Open ]],
Cell[CellGroupData[{
Cell[30453, 608, 771, 20, 33, "Input",ExpressionUUID->"b03eab01-35a0-4e27-a0b2-b573f08e7021"],
Cell[31227, 630, 25903, 454, 254, "Output",ExpressionUUID->"01bc47c1-a9fe-4043-8c3d-2b7b55b80e93"]
Cell[30513, 608, 770, 20, 33, "Input",ExpressionUUID->"b03eab01-35a0-4e27-a0b2-b573f08e7021"],
Cell[31286, 630, 25919, 454, 254, "Output",ExpressionUUID->"447005d9-e8bf-4d62-a6b9-86f632887cc3"]
}, Open ]],
Cell[CellGroupData[{
Cell[57167, 1089, 1229, 35, 51, "Input",ExpressionUUID->"427c58a0-f500-4a61-a0ae-7f2409bdd161"],
Cell[58399, 1126, 17422, 384, 253, "Output",ExpressionUUID->"ba1cd1aa-a9c0-4923-a962-049f4f1494bb"]
Cell[57242, 1089, 1228, 35, 51, "Input",ExpressionUUID->"427c58a0-f500-4a61-a0ae-7f2409bdd161"],
Cell[58473, 1126, 17442, 385, 253, "Output",ExpressionUUID->"fb9ed548-10c4-4d59-8924-f8c1bda2f887"]
}, Open ]],
Cell[75836, 1513, 451, 10, 33, "Input",ExpressionUUID->"0a91aeaf-ae80-42ef-a5a9-461e851bc585"],
Cell[76290, 1525, 1015, 28, 60, "Input",ExpressionUUID->"1b755cd5-b17a-40f4-9478-09c8830d6ba5"],
Cell[77308, 1555, 152, 3, 33, "Input",ExpressionUUID->"f3ecc0bf-2bef-4449-a8ff-2f3439cd2a9d"],
Cell[77463, 1560, 490, 8, 33, "Input",ExpressionUUID->"964c704e-82d8-43f4-9305-4a962e141163"],
Cell[75930, 1514, 450, 10, 33, "Input",ExpressionUUID->"0a91aeaf-ae80-42ef-a5a9-461e851bc585"],
Cell[76383, 1526, 1015, 28, 60, "Input",ExpressionUUID->"1b755cd5-b17a-40f4-9478-09c8830d6ba5"],
Cell[77401, 1556, 152, 3, 33, "Input",ExpressionUUID->"f3ecc0bf-2bef-4449-a8ff-2f3439cd2a9d"],
Cell[77556, 1561, 490, 8, 33, "Input",ExpressionUUID->"964c704e-82d8-43f4-9305-4a962e141163"],
Cell[CellGroupData[{
Cell[77978, 1572, 1231, 27, 33, "Input",ExpressionUUID->"af7481d0-e6b6-42ab-b835-aeed7ec0ee28"],
Cell[79212, 1601, 16428, 291, 278, "Output",ExpressionUUID->"d6e10034-cd6b-4d36-800e-9982c3382e25"]
Cell[78071, 1573, 1009, 20, 33, "Input",ExpressionUUID->"af7481d0-e6b6-42ab-b835-aeed7ec0ee28"],
Cell[79083, 1595, 2771, 63, 278, "Output",ExpressionUUID->"2bb96fb0-cfbc-437a-bbd1-9d2e990e6351"]
}, Open ]],
Cell[CellGroupData[{
Cell[95677, 1897, 1079, 26, 33, "Input",ExpressionUUID->"b8aff626-17e7-46d3-a8e6-f170b25b16a0"],
Cell[96759, 1925, 16666, 295, 278, "Output",ExpressionUUID->"31848cdf-de94-4907-a200-3b020c8286c9"]
Cell[81891, 1663, 1079, 26, 33, "Input",ExpressionUUID->"b8aff626-17e7-46d3-a8e6-f170b25b16a0"],
Cell[82973, 1691, 16666, 295, 278, "Output",ExpressionUUID->"31848cdf-de94-4907-a200-3b020c8286c9"]
}, Open ]],
Cell[CellGroupData[{
Cell[113462, 2225, 1357, 31, 80, "Input",ExpressionUUID->"1746ef99-a21f-48a2-80e1-0cbfd168ea91"],
Cell[114822, 2258, 44795, 787, 260, "Output",ExpressionUUID->"f356499f-2e0f-4f02-8da5-2bd66af20ddf"]
Cell[99676, 1991, 1357, 31, 80, "Input",ExpressionUUID->"1746ef99-a21f-48a2-80e1-0cbfd168ea91"],
Cell[101036, 2024, 44795, 787, 260, "Output",ExpressionUUID->"f356499f-2e0f-4f02-8da5-2bd66af20ddf"]
}, Open ]],
Cell[CellGroupData[{
Cell[159654, 3050, 1313, 29, 80, "Input",ExpressionUUID->"9eca7f4d-a528-47eb-a310-7b5fa1901c40"],
Cell[160970, 3081, 85897, 1475, 260, "Output",ExpressionUUID->"da3218bd-9b5a-42cb-a6ff-d5514b5d1cd3"]
Cell[145868, 2816, 1313, 29, 80, "Input",ExpressionUUID->"9eca7f4d-a528-47eb-a310-7b5fa1901c40"],
Cell[147184, 2847, 85897, 1475, 260, "Output",ExpressionUUID->"da3218bd-9b5a-42cb-a6ff-d5514b5d1cd3"]
}, Open ]],
Cell[CellGroupData[{
Cell[246904, 4561, 1386, 30, 80, "Input",ExpressionUUID->"cf6f91bf-b8ac-43f5-9a41-ddf0eddf226e"],
Cell[248293, 4593, 133078, 2258, 260, "Output",ExpressionUUID->"ba41baf1-2ecf-44d7-b30b-e52142b430ef"]
Cell[233118, 4327, 1386, 30, 80, "Input",ExpressionUUID->"cf6f91bf-b8ac-43f5-9a41-ddf0eddf226e"],
Cell[234507, 4359, 133078, 2258, 260, "Output",ExpressionUUID->"ba41baf1-2ecf-44d7-b30b-e52142b430ef"]
}, Open ]],
Cell[381386, 6854, 1068, 27, 60, "Input",ExpressionUUID->"ca70aec2-1403-4fd0-bb53-d55303e04867"],
Cell[367600, 6620, 1068, 27, 60, "Input",ExpressionUUID->"ca70aec2-1403-4fd0-bb53-d55303e04867"],
Cell[CellGroupData[{
Cell[382479, 6885, 1193, 27, 80, "Input",ExpressionUUID->"a099f556-b302-4e0c-9958-dce54cc805c8"],
Cell[383675, 6914, 80736, 1376, 252, "Output",ExpressionUUID->"f223a126-5856-4404-99bb-9291629b2527"]
Cell[368693, 6651, 817, 18, 33, "Input",ExpressionUUID->"a099f556-b302-4e0c-9958-dce54cc805c8"],
Cell[369513, 6671, 80760, 1377, 252, "Output",ExpressionUUID->"138708ae-8877-4afe-9622-7cc3bb882fd8"]
}, Open ]],
Cell[464426, 8293, 966, 24, 55, "Input",ExpressionUUID->"8387d5b7-7091-4c7f-8884-012d86943ae7"],
Cell[465395, 8319, 390, 6, 33, "Input",ExpressionUUID->"bd9b289e-9f91-4d4d-8b45-65980389fb4e"],
Cell[465788, 8327, 152, 3, 33, "Input",ExpressionUUID->"cf232325-3102-4603-938f-8fabde19702a"],
Cell[465943, 8332, 151, 3, 33, "Input",ExpressionUUID->"160a66a0-bd7e-4e19-ad21-edbb9fb11aad"],
Cell[450288, 8051, 966, 24, 55, "Input",ExpressionUUID->"8387d5b7-7091-4c7f-8884-012d86943ae7"],
Cell[451257, 8077, 390, 6, 33, "Input",ExpressionUUID->"bd9b289e-9f91-4d4d-8b45-65980389fb4e"],
Cell[451650, 8085, 152, 3, 33, "Input",ExpressionUUID->"cf232325-3102-4603-938f-8fabde19702a"],
Cell[451805, 8090, 151, 3, 33, "Input",ExpressionUUID->"160a66a0-bd7e-4e19-ad21-edbb9fb11aad"],
Cell[CellGroupData[{
Cell[466119, 8339, 515, 12, 57, "Input",ExpressionUUID->"2ba597b1-45c2-4485-8b72-92b085d2333c"],
Cell[466637, 8353, 4303, 88, 257, "Output",ExpressionUUID->"3375e83b-1fe9-471d-ba15-9b0dadd509e3"]
Cell[451981, 8097, 515, 12, 57, "Input",ExpressionUUID->"2ba597b1-45c2-4485-8b72-92b085d2333c"],
Cell[452499, 8111, 4303, 88, 257, "Output",ExpressionUUID->"3375e83b-1fe9-471d-ba15-9b0dadd509e3"]
}, Open ]],
Cell[470955, 8444, 177, 3, 33, "Input",ExpressionUUID->"23af634b-83f9-4046-80bc-efd276cb319d"],
Cell[471135, 8449, 151, 3, 33, "Input",ExpressionUUID->"5eb70ad0-f7b3-4504-bb07-065fbf35755c"],
Cell[471289, 8454, 200, 4, 33, "Input",ExpressionUUID->"642f47f7-ed73-4e3f-b103-aea6064f1f18"],
Cell[471492, 8460, 154, 3, 33, "Input",ExpressionUUID->"08d6350f-5170-452b-ac76-ee100b67f30c"],
Cell[471649, 8465, 177, 3, 33, "Input",ExpressionUUID->"e7fd5889-c76e-4df7-8768-2047c3696082"],
Cell[471829, 8470, 152, 3, 33, "Input",ExpressionUUID->"b3a577ae-0347-4494-919e-59045b7e9812"],
Cell[471984, 8475, 149, 3, 57, "Input",ExpressionUUID->"c708993a-fc72-4dc7-951b-c1e5a15ac35d"]
Cell[456817, 8202, 177, 3, 33, "Input",ExpressionUUID->"23af634b-83f9-4046-80bc-efd276cb319d"],
Cell[456997, 8207, 151, 3, 33, "Input",ExpressionUUID->"5eb70ad0-f7b3-4504-bb07-065fbf35755c"],
Cell[457151, 8212, 200, 4, 33, "Input",ExpressionUUID->"642f47f7-ed73-4e3f-b103-aea6064f1f18"],
Cell[457354, 8218, 154, 3, 33, "Input",ExpressionUUID->"08d6350f-5170-452b-ac76-ee100b67f30c"],
Cell[457511, 8223, 177, 3, 33, "Input",ExpressionUUID->"e7fd5889-c76e-4df7-8768-2047c3696082"],
Cell[457691, 8228, 152, 3, 33, "Input",ExpressionUUID->"b3a577ae-0347-4494-919e-59045b7e9812"],
Cell[457846, 8233, 149, 3, 57, "Input",ExpressionUUID->"c708993a-fc72-4dc7-951b-c1e5a15ac35d"]
}
]
*)
......
resonans.nb 0 → 100644
View file @ 3130b7a5
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 13.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 34923, 927]
NotebookOptionsPosition[ 30269, 851]
NotebookOutlinePosition[ 30667, 867]
CellTagsIndexPosition[ 30624, 864]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ", "Input", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"kin", " ", "=", " ", "20."}], ";"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"U0", " ", "=", " ",
RowBox[{"-", "40."}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"mass", "=", " ", "939."}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"range", " ", "=", " ", "3"}], ";"}]}]}]], "Input",
CellChangeTimes->{{3.8698997367340517`*^9, 3.869899843251645*^9}, {
3.869900162194075*^9, 3.86990022514108*^9}, {3.869900263296324*^9,
3.869900278820773*^9}, {3.869900716799706*^9, 3.869900721797647*^9},
3.869902565634445*^9, {3.869902624866561*^9, 3.869902626057645*^9}, {
3.869904698619644*^9, 3.8699047019298077`*^9}, 3.870142822697193*^9, {
3.870144764448131*^9, 3.87014476799769*^9}, {3.870144888379427*^9,
3.870144970243932*^9}, {3.870145792817855*^9,
3.8701457939369917`*^9}},ExpressionUUID->"137265ab-321f-4792-b29f-\
d90a733af3c5"],
Cell[BoxData[
RowBox[{"Clear", "[", "kIn", "]"}]], "Input",
CellChangeTimes->{{3.870145066547662*^9, 3.870145071853197*^9}},
CellLabel->
"In[137]:=",ExpressionUUID->"02874061-c0e5-4c46-b890-e7a8fd8bd6e5"],
Cell[BoxData[
RowBox[{
RowBox[{"kIn", "[", "ee1_", "]"}], " ", ":=", " ",
SqrtBox[
RowBox[{"2", "*", "mass", "*", "ee1"}]]}]], "Input",
CellChangeTimes->{
3.870144988515087*^9, {3.870145025281687*^9, 3.870145047838258*^9}},
CellLabel->
"In[160]:=",ExpressionUUID->"883ffbce-ec8a-4bea-82fd-15315e8e8450"],
Cell[BoxData[
RowBox[{"Clear", "[", "kOut", "]"}]], "Input",
CellChangeTimes->{{3.870145819108061*^9, 3.870145823425865*^9}},
CellLabel->
"In[187]:=",ExpressionUUID->"2293bf7c-5f3d-49ed-a114-653f30313e43"],
Cell[BoxData[
RowBox[{
RowBox[{"kOut", "[", "ee1_", "]"}], " ", ":=", " ",
SqrtBox[
RowBox[{"2", " ", "mass", " ",
RowBox[{"(",
RowBox[{"ee1", "-", " ", "U0"}], ")"}]}]]}]], "Input",
CellChangeTimes->{{3.870145798453801*^9, 3.8701458265877657`*^9}},
CellLabel->
"In[188]:=",ExpressionUUID->"11f78f48-8152-4fea-ae39-cefff89cb163"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
RowBox[{"momenta", "[", "energy_", "]"}], ":=", " ",
FractionBox[
SqrtBox[
RowBox[{" ",
RowBox[{
RowBox[{"energy", "*", "energy"}], " ", "+", " ",
RowBox[{"2", "*", "mass", "*", "energy"}]}]}]], "197.327"]}], ";"}],
"\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.8699003273146257`*^9, 3.869900338441976*^9}, {
3.8699003751305847`*^9, 3.869900433328023*^9}, {3.869900668579546*^9,
3.8699007491817617`*^9}, {3.869900797210259*^9, 3.8699008787901163`*^9}},
CellLabel->
"In[161]:=",ExpressionUUID->"d12fe0db-0b6c-4c94-a7d8-f0defcf26c82"],
Cell[BoxData[
RowBox[{"(*", " ",
RowBox[{
"\:0441\:043e\:0437\:0434\:0430\:044e", " ",
"\:0444\:0443\:043d\:043a\:0446\:0438\:0438"}], " ", "*)"}]], "Input",
CellChangeTimes->{{3.869903554214937*^9,
3.869903563251793*^9}},ExpressionUUID->"e3d916de-51d7-4557-9725-\
dda018af67dd"],
Cell[BoxData[
RowBox[{
RowBox[{"phiIn", "[",
RowBox[{"q_", ",", "r_", ",", "A1_", ",", "angMom_"}], "]"}], " ", ":=",
" ",
RowBox[{"A1", "*",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{"q", "*", "r"}]}], "]"}], " ", "q", " ", "r"}]}]], "Input",
CellChangeTimes->{{3.869900736428203*^9, 3.869900743569099*^9},
3.8699008753099527`*^9, {3.869902402524983*^9, 3.869902436940699*^9}, {
3.8699056338975143`*^9, 3.8699056350914783`*^9}},
CellLabel->
"In[189]:=",ExpressionUUID->"f52c282a-ced4-44a3-b877-cf9f404c573d"],
Cell[BoxData[
RowBox[{
RowBox[{"phiOut", "[",
RowBox[{"k_", ",", "r_", ",", "delta_", ",", "angMom_"}], "]"}], ":=", " ",
RowBox[{
RowBox[{"k", " ", "r", " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{"k", "*", "r"}]}], "]"}], " ",
RowBox[{"Cos", "[", "delta", "]"}]}], " ", "+", " ",
RowBox[{"k", " ", "r", " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{"angMom", ",",
RowBox[{"k", "*", "r"}]}], "]"}], " ",
RowBox[{"Sin", "[", "delta", "]"}]}]}]}]], "Input",
CellChangeTimes->{{3.8699008921903763`*^9, 3.869900896872324*^9}, {
3.8699012065049067`*^9, 3.869901327699944*^9}, {3.8699024395507*^9,
3.869902440239511*^9}},
CellLabel->
"In[190]:=",ExpressionUUID->"73ba3c33-88f7-4598-b488-9b9c4944ce11"],
Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{
"\:0438", " ", "\:0438\:0445", " ",
"\:043f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:044b\:0435"}],
" ", "*)"}]}]], "Input",
CellChangeTimes->{{3.869903571706623*^9,
3.869903579390106*^9}},ExpressionUUID->"e74e75f4-3e64-4825-8a63-\
3aae4485a22c"],
Cell[BoxData[
RowBox[{
RowBox[{"phiIn1", "[",
RowBox[{"q_", ",", "r_", ",", "A1_", ",", "angMom_"}], "]"}], " ", ":=",
" ",
RowBox[{"Simplify", "[",
RowBox[{"D", "[",
RowBox[{
RowBox[{"phiIn", "[",
RowBox[{"q", ",", "r", ",", "A1", ",", "angMom"}], "]"}], ",", "r"}],
"]"}], "]"}]}]], "Input",
CellChangeTimes->{{3.869903338277128*^9, 3.869903408044917*^9}, {
3.8699056459714823`*^9, 3.8699056488705063`*^9}},
CellLabel->
"In[191]:=",ExpressionUUID->"6f155ea1-2306-4704-a233-560f70b5d462"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{"phiIn1", "[",
RowBox[{"q", ",", "r", ",", "A1", ",", "angMom"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.869903416610919*^9, 3.869903447278545*^9}, {
3.870142381422407*^9, 3.870142381722019*^9}},
CellLabel->
"In[192]:=",ExpressionUUID->"785e23c6-adf0-4e04-99e7-8de8b70d6714"],
Cell[BoxData[
RowBox[{
FractionBox["1", "2"], " ", "A1", " ", "q", " ",
RowBox[{"(",
RowBox[{
RowBox[{"q", " ", "r", " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",",
RowBox[{"q", " ", "r"}]}], "]"}]}], "+",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{"q", " ", "r"}]}], "]"}], "-",
RowBox[{"q", " ", "r", " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",",
RowBox[{"q", " ", "r"}]}], "]"}]}]}], ")"}]}]], "Print",
CellChangeTimes->{
3.869903451021017*^9, 3.869904723106035*^9, 3.8699056602620077`*^9, {
3.870142358907596*^9, 3.870142383684188*^9}, 3.870142834609494*^9,
3.870144787570512*^9, 3.870144856120544*^9, 3.870145267960792*^9,
3.87014574889021*^9, 3.870145833367424*^9},
CellLabel->
"During evaluation of \
In[192]:=",ExpressionUUID->"a2f6bfed-b9aa-420b-b27b-846a66fae3eb"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"phiOut1", "[",
RowBox[{"k_", ",", "r_", ",", "delta_", ",", "angMom_"}], "]"}], " ", ":=",
" ",
RowBox[{"Simplify", "[",
RowBox[{"D", "[",
RowBox[{
RowBox[{"phiOut", "[",
RowBox[{"k", ",", "r", ",", "delta", ",", "angMom"}], "]"}], ",", "r"}],
"]"}], "]"}]}]], "Input",
CellChangeTimes->{{3.869903466278475*^9, 3.869903509164291*^9}},
CellLabel->
"In[193]:=",ExpressionUUID->"30b0d700-2070-478c-bc3c-d787b0cb0c36"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{"phiOut1", "[",
RowBox[{"k", ",", "r", ",", "delta", ",", "angMom"}], "]"}],
"]"}]], "Input",
CellChangeTimes->{{3.869903518460868*^9, 3.8699035336187468`*^9}},
CellLabel->
"In[194]:=",ExpressionUUID->"5f2128b6-cab8-40ec-bfa2-267ec247a695"],
Cell[BoxData[
RowBox[{
FractionBox["1", "2"], " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"k", " ", "r", " ",
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",",
RowBox[{"k", " ", "r"}]}], "]"}]}], "+",
RowBox[{
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{"k", " ", "r"}]}], "]"}]}], "-",
RowBox[{"k", " ", "r", " ",
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",",
RowBox[{"k", " ", "r"}]}], "]"}]}], "+",
RowBox[{"k", " ", "r", " ",
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",",
RowBox[{"k", " ", "r"}]}], "]"}]}], "+",
RowBox[{
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{"angMom", ",",
RowBox[{"k", " ", "r"}]}], "]"}]}], "-",
RowBox[{"k", " ", "r", " ",
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",",
RowBox[{"k", " ", "r"}]}], "]"}]}]}], ")"}]}]], "Print",
CellChangeTimes->{3.8699035356894627`*^9, 3.8699047276536207`*^9,
3.869905665596455*^9, 3.870142391094543*^9, 3.870142837374173*^9,
3.870144790961524*^9, 3.870144864272018*^9, 3.8701452718887568`*^9,
3.870145753593706*^9, 3.870145836469759*^9},
CellLabel->
"During evaluation of \
In[194]:=",ExpressionUUID->"ec888d6c-c887-43e1-b6e3-22e6c4edb4ec"]
}, Open ]],
Cell[BoxData[
RowBox[{"(*", " ",
RowBox[{
"\:041f\:043e\:0434\:0441\:0442\:0430\:0432\:043b\:044f\:044e", " ",
"\:0434\:0430\:043d\:043d\:044b\:0435"}], " ", "*)"}]], "Input",
CellChangeTimes->{{3.869903587185812*^9,
3.869903599028606*^9}},ExpressionUUID->"b7fb5240-5d57-4dc2-a5cf-\
2ef2edd84a37"],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
RowBox[{"fIn", "[",
RowBox[{"A1_", ",", "angMom_"}], "]"}], " ", ":=", " ",
RowBox[{"phiIn", "[",
RowBox[{
FractionBox["kIn", "197.327"], ",", "range", ",", "A1", ",", "angMom"}],
"]"}]}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Clear", "[", "fIn", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"fIn", "[",
RowBox[{"aa_", ",", "A1_", ",", "angMom_"}], "]"}], " ", ":=", " ",
RowBox[{"phiIn", "[",
RowBox[{
RowBox[{"kIn", "[", "aa", "]"}], ",", "range", ",", "A1", ",",
"angMom"}], "]"}]}]}]}]], "Input",
CellChangeTimes->{{3.869902345120473*^9, 3.869902393018056*^9}, {
3.8699024490439787`*^9, 3.869902499539846*^9}, {3.8699033471531887`*^9,
3.869903353290122*^9}, {3.869903605734902*^9, 3.869903674108346*^9}, {
3.870142411001401*^9, 3.870142411233304*^9}, {3.8701427696545973`*^9,
3.870142769924192*^9}, {3.870144806361532*^9, 3.8701448384469233`*^9}, {
3.8701451322440577`*^9, 3.8701452339645367`*^9}},
CellLabel->
"In[197]:=",ExpressionUUID->"b19389b2-33a5-43a0-ab12-563d4c8b3b62"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{"fIn", "[",
RowBox[{"aa", ",", "A1", ",", "angMom"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.869904794400037*^9, 3.869904804165381*^9}, {
3.870142779338613*^9, 3.87014277958138*^9}, {3.870145767563078*^9,
3.8701457742342577`*^9}},
CellLabel->
"In[199]:=",ExpressionUUID->"e09b75c5-e7ee-41f2-92ef-6d99a9250df2"],
Cell[BoxData[
RowBox[{"130.0076920801227`", " ", "A1", " ",
SqrtBox["aa"], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{"130.0076920801227`", " ",
SqrtBox["aa"]}]}], "]"}]}]], "Print",
CellChangeTimes->{
3.8699048057582283`*^9, 3.869905670676991*^9, 3.870142417093445*^9,
3.870142781188665*^9, 3.8701448450752087`*^9, {3.870145147694181*^9,
3.870145205575617*^9}, 3.8701452780754757`*^9, {3.870145760135851*^9,
3.870145776341847*^9}, 3.870145841956135*^9},
CellLabel->
"During evaluation of \
In[199]:=",ExpressionUUID->"fd042a95-017b-41dc-970a-caa921531275"]
}, Open ]],
Cell[BoxData[
RowBox[{"Clear", "[", "fOut", "]"}]], "Input",
CellChangeTimes->{{3.870145889497493*^9, 3.8701458916378307`*^9}},
CellLabel->
"In[201]:=",ExpressionUUID->"5b2110d3-922f-468b-93f7-55f20889fabc"],
Cell[BoxData[
RowBox[{"(*",
RowBox[{
RowBox[{"fOut", "[",
RowBox[{"delta_", ",", "angMom_"}], "]"}], " ", ":=", " ",
RowBox[{"phiOut", "[",
RowBox[{
FractionBox["kOut", "197.327"], ",", "range", ",", "delta", ",",
"angMom"}], "]"}]}], "*)"}]], "Input",
CellChangeTimes->{{3.8701459979441843`*^9,
3.870146017022655*^9}},ExpressionUUID->"51bcd62e-b916-47fb-b730-\
ed6a9ea5a103"],
Cell[BoxData[
RowBox[{
RowBox[{"fOut", "[",
RowBox[{"aa_", ",", "delta_", ",", "angMom_"}], "]"}], " ", ":=", " ",
RowBox[{"phiOut", "[",
RowBox[{
RowBox[{"kOut", "[", "aa", "]"}], ",", "range", ",", "delta", ",",
"angMom"}], "]"}]}]], "Input",
CellChangeTimes->{{3.869902502776773*^9, 3.869902522389965*^9}, {
3.869902654400511*^9, 3.869902659743734*^9}, {3.869902852863531*^9,
3.869902859644326*^9}, {3.869903356231689*^9, 3.8699033585596457`*^9}, {
3.869903634073707*^9, 3.869903650690649*^9}, {3.870145856912568*^9,
3.8701458723720713`*^9}},
CellLabel->
"In[202]:=",ExpressionUUID->"a1d36f07-1393-4716-b2a5-7dce8c9b5c36"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{"fOut", "[",
RowBox[{"aa", ",", "delta", ",", "angMom"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.869904937474552*^9, 3.869904941820552*^9}, {
3.870145876466538*^9, 3.870145877221031*^9}},
CellLabel->
"In[203]:=",ExpressionUUID->"05cf6d8c-1da7-4252-a566-4d8205b8e2d9"],
Cell[BoxData[
RowBox[{
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "aa"}]], " ",
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "aa"}]]}]}], "]"}]}], "+",
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "aa"}]], " ",
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{"angMom", ",",
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "aa"}]]}]}],
"]"}]}]}]], "Print",
CellChangeTimes->{3.869904945883834*^9, 3.869905674060755*^9,
3.870142433312495*^9, 3.8701427877730618`*^9, 3.8701458954244537`*^9},
CellLabel->
"During evaluation of \
In[203]:=",ExpressionUUID->"3e65c34a-a20d-49b9-a06a-b22c57e55b93"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
RowBox[{"fIn1", "[",
RowBox[{"A1_", ",", "angMom_"}], "]"}], " ", ":=",
RowBox[{"phiIn1", "[",
RowBox[{
FractionBox["kIn", "197.327"], ",", "range", ",", "A1", ",", "angMom"}],
"]"}]}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Clear", "[", "fIn1", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"fIn1", "[",
RowBox[{"A1_", ",", "angMom_", ",", "q_", ",", "r_"}], "]"}], " ", ":=",
" ",
RowBox[{
FractionBox["1", "2"], " ", "A1", " ", "q", " ",
RowBox[{"(",
RowBox[{
RowBox[{"q", "*", "r", " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",",
RowBox[{"q", " ", "r"}]}], "]"}]}], "+",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{"q", " ", "r"}]}], "]"}], "-",
RowBox[{"q", " ", "r", " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",",
RowBox[{"q", " ", "r"}]}], "]"}]}]}], ")"}]}]}]}]}]], "Input",
CellChangeTimes->{{3.869903692263486*^9, 3.8699037607967243`*^9}, {
3.869903805919382*^9, 3.8699038065397987`*^9}, {3.869904993102446*^9,
3.869905015751034*^9}, 3.869905077887982*^9, {3.869905420758458*^9,
3.869905459460041*^9}, {3.869905505117428*^9, 3.869905529205653*^9},
3.8699055762480593`*^9, 3.869905727288272*^9, {3.8699057582146273`*^9,
3.8699057833774157`*^9}, {3.869905907239922*^9, 3.869905935578825*^9}, {
3.870142907640519*^9, 3.870142982023192*^9}},
CellLabel->
"In[206]:=",ExpressionUUID->"3c13eff2-f5aa-4a65-b4fe-877985d5db36"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{"fIn1", "[",
RowBox[{"A1", ",", "angMom", ",",
FractionBox["kIn", "197.327"], ",", "3"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.8699050365884542`*^9, 3.8699050389173403`*^9},
3.8699057283160553`*^9, 3.86990646066066*^9, {3.870142469522188*^9,
3.8701424697043743`*^9}, {3.870143006086361*^9, 3.870143019666407*^9}},
CellLabel->"In[61]:=",ExpressionUUID->"3ce8683e-f553-40fc-b9dc-ca771f703664"],
Cell[BoxData[
RowBox[{"0.49107325587986`", " ", "A1", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2.94643953527916`", " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",", "2.94643953527916`"}],
"]"}]}], "+",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",", "2.94643953527916`"}], "]"}], "-",
RowBox[{"2.94643953527916`", " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",", "2.94643953527916`"}], "]"}]}]}],
")"}]}]], "Print",
CellChangeTimes->{
3.869905960563758*^9, {3.869906456305697*^9, 3.869906462492515*^9}, {
3.870142445346938*^9, 3.8701424733919773`*^9}, 3.8701427938593597`*^9,
3.870142858281001*^9, 3.870143021952096*^9},
CellLabel->
"During evaluation of \
In[61]:=",ExpressionUUID->"71adf521-737e-4433-9e68-6d2a46404b8b"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
RowBox[{"fOut1", "[",
RowBox[{"delta_", ",", "angMom_"}], "]"}], " ", ":=",
RowBox[{"phiOut1", "[",
RowBox[{
FractionBox["kOut", "197.327"], ",", "range", ",", "delta", ",",
"angMom"}], "]"}]}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Clear", "[", "fOut1", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"fOut1", "[",
RowBox[{"delta_", ",", "angMom_", ",", "k_", ",", "r_"}], "]"}], " ", ":=",
" ",
RowBox[{
FractionBox["1", "2"], " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"k", " ", "r", " ",
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",",
RowBox[{"k", " ", "r"}]}], "]"}]}], "+",
RowBox[{
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{"k", " ", "r"}]}], "]"}]}], "-",
RowBox[{"k", " ", "r", " ",
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",",
RowBox[{"k", " ", "r"}]}], "]"}]}], "+",
RowBox[{"k", " ", "r", " ",
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",",
RowBox[{"k", " ", "r"}]}], "]"}]}], "+",
RowBox[{
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{"angMom", ",",
RowBox[{"k", " ", "r"}]}], "]"}]}], "-",
RowBox[{"k", " ", "r", " ",
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",",
RowBox[{"k", " ", "r"}]}], "]"}]}]}], ")"}]}]}]}]}]], "Input",
CellChangeTimes->{{3.869905973732863*^9, 3.869906046015753*^9}, {
3.8701431002750063`*^9, 3.870143137123361*^9}},
CellLabel->"In[62]:=",ExpressionUUID->"4e60cda4-270f-41c1-a4f4-78d03b351537"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{"fOut1", "[",
RowBox[{"delta", ",", "angMom", ",",
FractionBox["kOut", "197.327"], ",", "3"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.869906066697554*^9, 3.8699060728682833`*^9}, {
3.870143144626992*^9, 3.870143158426641*^9}},
CellLabel->"In[64]:=",ExpressionUUID->"107cc588-8aa8-49dd-a831-be09f57f8eda"],
Cell[BoxData[
RowBox[{"0.8505638294221894`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"5.103382976533137`", " ",
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",", "5.103382976533137`"}],
"]"}]}], "+",
RowBox[{
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",", "5.103382976533137`"}], "]"}]}], "-",
RowBox[{"5.103382976533137`", " ",
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",", "5.103382976533137`"}], "]"}]}],
"+",
RowBox[{"5.103382976533137`", " ",
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",", "5.103382976533137`"}],
"]"}]}], "+",
RowBox[{
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{"angMom", ",", "5.103382976533137`"}], "]"}]}], "-",
RowBox[{"5.103382976533137`", " ",
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",", "5.103382976533137`"}], "]"}]}]}],
")"}]}]], "Print",
CellChangeTimes->{3.869906075725178*^9, 3.870142456725*^9,
3.8701431647662573`*^9},
CellLabel->
"During evaluation of \
In[64]:=",ExpressionUUID->"0a0cafd0-cdc3-47ee-924c-3fa7aeb43452"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"NSolve", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"fIn", "[",
RowBox[{"aa", ",", "1"}], "]"}], "==",
RowBox[{"fOut", "[",
RowBox[{"dd", ",", "1"}], "]"}]}], ",",
RowBox[{
RowBox[{"fIn1", "[",
RowBox[{"aa", ",", "1", ",",
FractionBox["kIn", "197.327"], ",", "range"}], "]"}], "==",
RowBox[{"fOut1", "[",
RowBox[{"dd", ",", "1", ",",
FractionBox["kOut", "197.327"], ",", "range"}], "]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"aa", ",", "dd"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.8699038602251577`*^9, 3.869904101667548*^9}, {
3.8699041723855553`*^9, 3.869904210530024*^9}, 3.869904252311246*^9, {
3.869904396536236*^9, 3.869904399027741*^9}, {3.8701431958772173`*^9,
3.870143225476993*^9}, {3.870143652479889*^9, 3.870143678067491*^9}, {
3.870143757110928*^9, 3.870143786639409*^9}, {3.870143823852461*^9,
3.8701438346853113`*^9}, {3.8701444368885393`*^9, 3.870144480820072*^9}},
CellLabel->"In[79]:=",ExpressionUUID->"2259a25f-7509-401a-afac-84d646e2336f"],
Cell[BoxData[
TemplateBox[{
"NSolve", "ifun",
"\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"NSolve\\\"}]\\), so some solutions may not be found; use \
Reduce for complete solution information.\"", 2, 79, 15, 26402770535264617284,
"Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{{3.870143784640518*^9, 3.870143787476328*^9}, {
3.870143828863248*^9, 3.870143835748345*^9}, {3.870144453264967*^9,
3.870144481932513*^9}},
CellLabel->
"During evaluation of \
In[79]:=",ExpressionUUID->"9244a4dd-143f-45ab-a98d-28422173269e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"aa", "\[Rule]",
RowBox[{"-", "0.9699407033214296`"}]}], ",",
RowBox[{"dd", "\[Rule]",
RowBox[{"-", "1.0709952516350376`"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"aa", "\[Rule]", "0.9699407033214296`"}], ",",
RowBox[{"dd", "\[Rule]", "2.0705974019547555`"}]}], "}"}]}],
"}"}]], "Output",
CellChangeTimes->{
3.870143787488616*^9, {3.870143828888331*^9, 3.870143835761471*^9}, {
3.870144453275545*^9, 3.870144481957519*^9}},
CellLabel->"Out[79]=",ExpressionUUID->"63a47552-f5f5-426b-be4c-082d226082c7"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"NSolve", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"fIn", "[",
RowBox[{"aa", ",", "2"}], "]"}], "==",
RowBox[{"fOut", "[",
RowBox[{"dd", ",", "2"}], "]"}]}], ",",
RowBox[{
RowBox[{"fIn1", "[",
RowBox[{"aa", ",", "2", ",",
FractionBox["kIn", "197.327"], ",", "range"}], "]"}], "==",
RowBox[{"fOut1", "[",
RowBox[{"dd", ",", "2", ",",
FractionBox["kOut", "197.327"], ",", "range"}], "]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"aa", ",", "dd"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.870144470121334*^9, 3.870144492624196*^9}},
CellLabel->"In[80]:=",ExpressionUUID->"f01799d3-d019-42fd-bcfe-c3836f30df57"],
Cell[BoxData[
TemplateBox[{
"NSolve", "ifun",
"\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"NSolve\\\"}]\\), so some solutions may not be found; use \
Reduce for complete solution information.\"", 2, 80, 16, 26402770535264617284,
"Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{3.870144496668459*^9},
CellLabel->
"During evaluation of \
In[80]:=",ExpressionUUID->"4f280a88-130e-41c1-aa29-c30aeeab0b71"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"aa", "\[Rule]",
RowBox[{"-", "1.1434403243410791`"}]}], ",",
RowBox[{"dd", "\[Rule]",
RowBox[{"-", "1.811811372234778`"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"aa", "\[Rule]", "1.1434403243410791`"}], ",",
RowBox[{"dd", "\[Rule]", "1.3297812813550152`"}]}], "}"}]}],
"}"}]], "Output",
CellChangeTimes->{3.8701444966805964`*^9},
CellLabel->"Out[80]=",ExpressionUUID->"c02235fe-7202-4083-a1a7-5c1cef001eb7"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"NSolve", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"fIn", "[",
RowBox[{"aa", ",", "4"}], "]"}], "==",
RowBox[{"fOut", "[",
RowBox[{"dd", ",", "4"}], "]"}]}], ",",
RowBox[{
RowBox[{"fIn1", "[",
RowBox[{"aa", ",", "4", ",",
FractionBox["kIn", "197.327"], ",", "range"}], "]"}], "==",
RowBox[{"fOut1", "[",
RowBox[{"dd", ",", "4", ",",
FractionBox["kOut", "197.327"], ",", "range"}], "]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"aa", ",", "dd"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.870144527416617*^9, 3.870144532663507*^9}},
CellLabel->"In[81]:=",ExpressionUUID->"20d99c70-d5e0-40e2-ae06-43ab0b254118"],
Cell[BoxData[
TemplateBox[{
"NSolve", "ifun",
"\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"NSolve\\\"}]\\), so some solutions may not be found; use \
Reduce for complete solution information.\"", 2, 81, 17, 26402770535264617284,
"Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{3.870144533940234*^9},
CellLabel->
"During evaluation of \
In[81]:=",ExpressionUUID->"cf720439-438e-4f44-bb06-85b9c13e93d6"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"aa", "\[Rule]",
RowBox[{"-", "4.403018165298792`"}]}], ",",
RowBox[{"dd", "\[Rule]",
RowBox[{"-", "2.851922695522528`"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"aa", "\[Rule]", "4.403018165298792`"}], ",",
RowBox[{"dd", "\[Rule]", "0.28966995806726537`"}]}], "}"}]}],
"}"}]], "Output",
CellChangeTimes->{3.87014453395214*^9},
CellLabel->"Out[81]=",ExpressionUUID->"2d577fe4-6ba2-485b-ac27-870aa1bdca53"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"NSolve", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"fIn", "[",
RowBox[{"aa", ",", "6"}], "]"}], "==",
RowBox[{"fOut", "[",
RowBox[{"dd", ",", "6"}], "]"}]}], ",",
RowBox[{
RowBox[{"fIn1", "[",
RowBox[{"aa", ",", "6", ",",
FractionBox["kIn", "197.327"], ",", "range"}], "]"}], "==",
RowBox[{"fOut1", "[",
RowBox[{"dd", ",", "6", ",",
FractionBox["kOut", "197.327"], ",", "range"}], "]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"aa", ",", "dd"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.8701445405223303`*^9, 3.8701445529369593`*^9}},
CellLabel->"In[83]:=",ExpressionUUID->"7471309e-5ddf-4c6c-952f-ca3808195e99"],
Cell[BoxData[
TemplateBox[{
"NSolve", "ifun",
"\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"NSolve\\\"}]\\), so some solutions may not be found; use \
Reduce for complete solution information.\"", 2, 83, 19, 26402770535264617284,
"Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{{3.8701445455037537`*^9, 3.870144553990568*^9}},
CellLabel->
"During evaluation of \
In[83]:=",ExpressionUUID->"952a5a99-dfb9-49d0-8501-dadec2d5ae08"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"aa", "\[Rule]",
RowBox[{"-", "21.353155624646753`"}]}], ",",
RowBox[{"dd", "\[Rule]",
RowBox[{"-", "3.1255541542481433`"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"aa", "\[Rule]", "21.353155624646753`"}], ",",
RowBox[{"dd", "\[Rule]", "0.016038499341649987`"}]}], "}"}]}],
"}"}]], "Output",
CellChangeTimes->{{3.87014454551573*^9, 3.8701445540064983`*^9}},
CellLabel->"Out[83]=",ExpressionUUID->"e403747e-08d3-4041-a50a-f86d6a57de1e"]
}, Open ]]
},
WindowSize->{1389.75, 768.75},
WindowMargins->{{0, Automatic}, {0, Automatic}},
FrontEndVersion->"13.0 for Linux x86 (64-bit) (December 2, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"ece92cc8-ee08-4698-89c1-d978b1813711"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1047, 23, 113, "Input",ExpressionUUID->"137265ab-321f-4792-b29f-d90a733af3c5"],
Cell[1608, 45, 209, 4, 29, "Input",ExpressionUUID->"02874061-c0e5-4c46-b890-e7a8fd8bd6e5"],
Cell[1820, 51, 318, 8, 30, "Input",ExpressionUUID->"883ffbce-ec8a-4bea-82fd-15315e8e8450"],
Cell[2141, 61, 210, 4, 29, "Input",ExpressionUUID->"2293bf7c-5f3d-49ed-a114-653f30313e43"],
Cell[2354, 67, 353, 9, 31, "Input",ExpressionUUID->"11f78f48-8152-4fea-ae39-cefff89cb163"],
Cell[2710, 78, 646, 16, 74, "Input",ExpressionUUID->"d12fe0db-0b6c-4c94-a7d8-f0defcf26c82"],
Cell[3359, 96, 293, 7, 29, "Input",ExpressionUUID->"e3d916de-51d7-4557-9725-dda018af67dd"],
Cell[3655, 105, 570, 13, 29, "Input",ExpressionUUID->"f52c282a-ced4-44a3-b877-cf9f404c573d"],
Cell[4228, 120, 793, 19, 29, "Input",ExpressionUUID->"73ba3c33-88f7-4598-b488-9b9c4944ce11"],
Cell[5024, 141, 351, 9, 51, "Input",ExpressionUUID->"e74e75f4-3e64-4825-8a63-3aae4485a22c"],
Cell[5378, 152, 534, 14, 29, "Input",ExpressionUUID->"6f155ea1-2306-4704-a233-560f70b5d462"],
Cell[CellGroupData[{
Cell[5937, 170, 339, 7, 29, "Input",ExpressionUUID->"785e23c6-adf0-4e04-99e7-8de8b70d6714"],
Cell[6279, 179, 999, 26, 38, "Print",ExpressionUUID->"a2f6bfed-b9aa-420b-b27b-846a66fae3eb"]
}, Open ]],
Cell[7293, 208, 489, 13, 29, "Input",ExpressionUUID->"30b0d700-2070-478c-bc3c-d787b0cb0c36"],
Cell[CellGroupData[{
Cell[7807, 225, 299, 7, 29, "Input",ExpressionUUID->"5f2128b6-cab8-40ec-bfa2-267ec247a695"],
Cell[8109, 234, 1776, 47, 59, "Print",ExpressionUUID->"ec888d6c-c887-43e1-b6e3-22e6c4edb4ec"]
}, Open ]],
Cell[9900, 284, 311, 7, 29, "Input",ExpressionUUID->"b7fb5240-5d57-4dc2-a5cf-2ef2edd84a37"],
Cell[10214, 293, 1141, 26, 77, "Input",ExpressionUUID->"b19389b2-33a5-43a0-ab12-563d4c8b3b62"],
Cell[CellGroupData[{
Cell[11380, 323, 377, 8, 29, "Input",ExpressionUUID->"e09b75c5-e7ee-41f2-92ef-6d99a9250df2"],
Cell[11760, 333, 623, 14, 25, "Print",ExpressionUUID->"fd042a95-017b-41dc-970a-caa921531275"]
}, Open ]],
Cell[12398, 350, 212, 4, 29, "Input",ExpressionUUID->"5b2110d3-922f-468b-93f7-55f20889fabc"],
Cell[12613, 356, 412, 11, 35, "Input",ExpressionUUID->"51bcd62e-b916-47fb-b730-ed6a9ea5a103"],
Cell[13028, 369, 662, 14, 29, "Input",ExpressionUUID->"a1d36f07-1393-4716-b2a5-7dce8c9b5c36"],
Cell[CellGroupData[{
Cell[13715, 387, 331, 7, 29, "Input",ExpressionUUID->"05cf6d8c-1da7-4252-a566-4d8205b8e2d9"],
Cell[14049, 396, 981, 25, 25, "Print",ExpressionUUID->"3e65c34a-a20d-49b9-a06a-b22c57e55b93"]
}, Open ]],
Cell[15045, 424, 1736, 42, 91, "Input",ExpressionUUID->"3c13eff2-f5aa-4a65-b4fe-877985d5db36"],
Cell[CellGroupData[{
Cell[16806, 470, 466, 8, 46, "Input",ExpressionUUID->"3ce8683e-f553-40fc-b9dc-ca771f703664"],
Cell[17275, 480, 906, 23, 23, "Print",ExpressionUUID->"71adf521-737e-4433-9e68-6d2a46404b8b"]
}, Open ]],
Cell[18196, 506, 2244, 58, 134, "Input",ExpressionUUID->"4e60cda4-270f-41c1-a4f4-78d03b351537"],
Cell[CellGroupData[{
Cell[20465, 568, 371, 7, 46, "Input",ExpressionUUID->"107cc588-8aa8-49dd-a831-be09f57f8eda"],
Cell[20839, 577, 1580, 42, 44, "Print",ExpressionUUID->"0a0cafd0-cdc3-47ee-924c-3fa7aeb43452"]
}, Open ]],
Cell[CellGroupData[{
Cell[22456, 624, 1130, 25, 46, "Input",ExpressionUUID->"2259a25f-7509-401a-afac-84d646e2336f"],
Cell[23589, 651, 576, 13, 28, "Message",ExpressionUUID->"9244a4dd-143f-45ab-a98d-28422173269e"],
Cell[24168, 666, 642, 17, 33, "Output",ExpressionUUID->"63a47552-f5f5-426b-be4c-082d226082c7"]
}, Open ]],
Cell[CellGroupData[{
Cell[24847, 688, 756, 20, 46, "Input",ExpressionUUID->"f01799d3-d019-42fd-bcfe-c3836f30df57"],
Cell[25606, 710, 454, 11, 28, "Message",ExpressionUUID->"4f280a88-130e-41c1-aa29-c30aeeab0b71"],
Cell[26063, 723, 544, 15, 33, "Output",ExpressionUUID->"c02235fe-7202-4083-a1a7-5c1cef001eb7"]
}, Open ]],
Cell[CellGroupData[{
Cell[26644, 743, 756, 20, 46, "Input",ExpressionUUID->"20d99c70-d5e0-40e2-ae06-43ab0b254118"],
Cell[27403, 765, 454, 11, 28, "Message",ExpressionUUID->"cf720439-438e-4f44-bb06-85b9c13e93d6"],
Cell[27860, 778, 540, 15, 33, "Output",ExpressionUUID->"2d577fe4-6ba2-485b-ac27-870aa1bdca53"]
}, Open ]],
Cell[CellGroupData[{
Cell[28437, 798, 760, 20, 46, "Input",ExpressionUUID->"7471309e-5ddf-4c6c-952f-ca3808195e99"],
Cell[29200, 820, 480, 11, 28, "Message",ExpressionUUID->"952a5a99-dfb9-49d0-8501-dadec2d5ae08"],
Cell[29683, 833, 570, 15, 33, "Output",ExpressionUUID->"e403747e-08d3-4041-a50a-f86d6a57de1e"]
}, Open ]]
}
]
*)
resonans1.nb 0 → 100644
View file @ 3130b7a5
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 13.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 31898, 816]
NotebookOptionsPosition[ 28083, 753]
NotebookOutlinePosition[ 28510, 770]
CellTagsIndexPosition[ 28467, 767]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ", "Input", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"kin", " ", "=", " ", "20."}], ";"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"U0", " ", "=", " ",
RowBox[{"-", "40."}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"mass", "=", " ", "939."}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"range", " ", "=", " ", "3"}], ";"}]}]}]], "Input",
CellChangeTimes->{{3.8698997367340517`*^9, 3.869899843251645*^9}, {
3.869900162194075*^9, 3.86990022514108*^9}, {3.869900263296324*^9,
3.869900278820773*^9}, {3.869900716799706*^9, 3.869900721797647*^9},
3.869902565634445*^9, {3.869902624866561*^9, 3.869902626057645*^9}, {
3.869904698619644*^9, 3.8699047019298077`*^9}, 3.870142822697193*^9, {
3.870144764448131*^9, 3.87014476799769*^9}, {3.870144888379427*^9,
3.870144970243932*^9}, {3.870145792817855*^9,
3.8701457939369917`*^9}},ExpressionUUID->"137265ab-321f-4792-b29f-\
d90a733af3c5"],
Cell[BoxData[
RowBox[{"Clear", "[", "kIn", "]"}]], "Input",
CellChangeTimes->{{3.870145066547662*^9, 3.870145071853197*^9}},
CellLabel->
"In[137]:=",ExpressionUUID->"02874061-c0e5-4c46-b890-e7a8fd8bd6e5"],
Cell[BoxData[
RowBox[{
RowBox[{"kIn", "[", "ee1_", "]"}], " ", ":=", " ",
SqrtBox[
RowBox[{"2", "*", "mass", "*", "ee1"}]]}]], "Input",
CellChangeTimes->{
3.870144988515087*^9, {3.870145025281687*^9, 3.870145047838258*^9}},
CellLabel->
"In[160]:=",ExpressionUUID->"883ffbce-ec8a-4bea-82fd-15315e8e8450"],
Cell[BoxData[
RowBox[{"Clear", "[", "kOut", "]"}]], "Input",
CellChangeTimes->{{3.870145819108061*^9, 3.870145823425865*^9}},
CellLabel->
"In[187]:=",ExpressionUUID->"2293bf7c-5f3d-49ed-a114-653f30313e43"],
Cell[BoxData[
RowBox[{
RowBox[{"kOut", "[", "ee1_", "]"}], " ", ":=", " ",
SqrtBox[
RowBox[{"2", " ", "mass", " ",
RowBox[{"(",
RowBox[{"ee1", "-", " ", "U0"}], ")"}]}]]}]], "Input",
CellChangeTimes->{{3.870145798453801*^9, 3.8701458265877657`*^9}},
CellLabel->
"In[188]:=",ExpressionUUID->"11f78f48-8152-4fea-ae39-cefff89cb163"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
RowBox[{"momenta", "[", "energy_", "]"}], ":=", " ",
FractionBox[
SqrtBox[
RowBox[{" ",
RowBox[{
RowBox[{"energy", "*", "energy"}], " ", "+", " ",
RowBox[{"2", "*", "mass", "*", "energy"}]}]}]], "197.327"]}], ";"}],
"\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.8699003273146257`*^9, 3.869900338441976*^9}, {
3.8699003751305847`*^9, 3.869900433328023*^9}, {3.869900668579546*^9,
3.8699007491817617`*^9}, {3.869900797210259*^9, 3.8699008787901163`*^9}},
CellLabel->
"In[161]:=",ExpressionUUID->"d12fe0db-0b6c-4c94-a7d8-f0defcf26c82"],
Cell[BoxData[
RowBox[{"(*", " ",
RowBox[{
"\:0441\:043e\:0437\:0434\:0430\:044e", " ",
"\:0444\:0443\:043d\:043a\:0446\:0438\:0438"}], " ", "*)"}]], "Input",
CellChangeTimes->{{3.869903554214937*^9,
3.869903563251793*^9}},ExpressionUUID->"e3d916de-51d7-4557-9725-\
dda018af67dd"],
Cell[BoxData[
RowBox[{
RowBox[{"phiIn", "[",
RowBox[{"q_", ",", "r_", ",", "A1_", ",", "angMom_"}], "]"}], " ", ":=",
" ",
RowBox[{"A1", "*",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{"q", "*", "r"}]}], "]"}], " ", "q", " ", "r"}]}]], "Input",
CellChangeTimes->{{3.869900736428203*^9, 3.869900743569099*^9},
3.8699008753099527`*^9, {3.869902402524983*^9, 3.869902436940699*^9}, {
3.8699056338975143`*^9, 3.8699056350914783`*^9}},
CellLabel->
"In[189]:=",ExpressionUUID->"f52c282a-ced4-44a3-b877-cf9f404c573d"],
Cell[BoxData[
RowBox[{
RowBox[{"phiOut", "[",
RowBox[{"k_", ",", "r_", ",", "delta_", ",", "angMom_"}], "]"}], ":=", " ",
RowBox[{
RowBox[{"k", " ", "r", " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{"k", "*", "r"}]}], "]"}], " ",
RowBox[{"Cos", "[", "delta", "]"}]}], " ", "+", " ",
RowBox[{"k", " ", "r", " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{"angMom", ",",
RowBox[{"k", "*", "r"}]}], "]"}], " ",
RowBox[{"Sin", "[", "delta", "]"}]}]}]}]], "Input",
CellChangeTimes->{{3.8699008921903763`*^9, 3.869900896872324*^9}, {
3.8699012065049067`*^9, 3.869901327699944*^9}, {3.8699024395507*^9,
3.869902440239511*^9}},
CellLabel->
"In[190]:=",ExpressionUUID->"73ba3c33-88f7-4598-b488-9b9c4944ce11"],
Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{
"\:0438", " ", "\:0438\:0445", " ",
"\:043f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:044b\:0435"}],
" ", "*)"}]}]], "Input",
CellChangeTimes->{{3.869903571706623*^9,
3.869903579390106*^9}},ExpressionUUID->"e74e75f4-3e64-4825-8a63-\
3aae4485a22c"],
Cell[BoxData[
RowBox[{
RowBox[{"phiIn1", "[",
RowBox[{"q_", ",", "r_", ",", "A1_", ",", "angMom_"}], "]"}], " ", ":=",
" ",
RowBox[{"Simplify", "[",
RowBox[{"D", "[",
RowBox[{
RowBox[{"phiIn", "[",
RowBox[{"q", ",", "r", ",", "A1", ",", "angMom"}], "]"}], ",", "r"}],
"]"}], "]"}]}]], "Input",
CellChangeTimes->{{3.869903338277128*^9, 3.869903408044917*^9}, {
3.8699056459714823`*^9, 3.8699056488705063`*^9}, {3.870148040875915*^9,
3.8701480410409946`*^9}},
CellLabel->
"In[191]:=",ExpressionUUID->"6f155ea1-2306-4704-a233-560f70b5d462"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{"phiIn1", "[",
RowBox[{"q", ",", "r", ",", "A1", ",", "angMom"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.869903416610919*^9, 3.869903447278545*^9}, {
3.870142381422407*^9, 3.870142381722019*^9}},
CellLabel->
"In[192]:=",ExpressionUUID->"785e23c6-adf0-4e04-99e7-8de8b70d6714"],
Cell[BoxData[
RowBox[{
FractionBox["1", "2"], " ", "A1", " ", "q", " ",
RowBox[{"(",
RowBox[{
RowBox[{"q", " ", "r", " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",",
RowBox[{"q", " ", "r"}]}], "]"}]}], "+",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{"q", " ", "r"}]}], "]"}], "-",
RowBox[{"q", " ", "r", " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",",
RowBox[{"q", " ", "r"}]}], "]"}]}]}], ")"}]}]], "Print",
CellChangeTimes->{
3.869903451021017*^9, 3.869904723106035*^9, 3.8699056602620077`*^9, {
3.870142358907596*^9, 3.870142383684188*^9}, 3.870142834609494*^9,
3.870144787570512*^9, 3.870144856120544*^9, 3.870145267960792*^9,
3.87014574889021*^9, 3.870145833367424*^9},
CellLabel->
"During evaluation of \
In[192]:=",ExpressionUUID->"a2f6bfed-b9aa-420b-b27b-846a66fae3eb"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"phiOut1", "[",
RowBox[{"k_", ",", "r_", ",", "delta_", ",", "angMom_"}], "]"}], " ", ":=",
" ",
RowBox[{"Simplify", "[",
RowBox[{"D", "[",
RowBox[{
RowBox[{"phiOut", "[",
RowBox[{"k", ",", "r", ",", "delta", ",", "angMom"}], "]"}], ",", "r"}],
"]"}], "]"}]}]], "Input",
CellChangeTimes->{{3.869903466278475*^9, 3.869903509164291*^9}},
CellLabel->
"In[193]:=",ExpressionUUID->"30b0d700-2070-478c-bc3c-d787b0cb0c36"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{"phiOut1", "[",
RowBox[{"k", ",", "r", ",", "delta", ",", "angMom"}], "]"}],
"]"}]], "Input",
CellChangeTimes->{{3.869903518460868*^9, 3.8699035336187468`*^9}},
CellLabel->
"In[194]:=",ExpressionUUID->"5f2128b6-cab8-40ec-bfa2-267ec247a695"],
Cell[BoxData[
RowBox[{
FractionBox["1", "2"], " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"k", " ", "r", " ",
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",",
RowBox[{"k", " ", "r"}]}], "]"}]}], "+",
RowBox[{
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{"k", " ", "r"}]}], "]"}]}], "-",
RowBox[{"k", " ", "r", " ",
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",",
RowBox[{"k", " ", "r"}]}], "]"}]}], "+",
RowBox[{"k", " ", "r", " ",
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",",
RowBox[{"k", " ", "r"}]}], "]"}]}], "+",
RowBox[{
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{"angMom", ",",
RowBox[{"k", " ", "r"}]}], "]"}]}], "-",
RowBox[{"k", " ", "r", " ",
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",",
RowBox[{"k", " ", "r"}]}], "]"}]}]}], ")"}]}]], "Print",
CellChangeTimes->{3.8699035356894627`*^9, 3.8699047276536207`*^9,
3.869905665596455*^9, 3.870142391094543*^9, 3.870142837374173*^9,
3.870144790961524*^9, 3.870144864272018*^9, 3.8701452718887568`*^9,
3.870145753593706*^9, 3.870145836469759*^9},
CellLabel->
"During evaluation of \
In[194]:=",ExpressionUUID->"ec888d6c-c887-43e1-b6e3-22e6c4edb4ec"]
}, Open ]],
Cell[BoxData[
RowBox[{"(*", " ",
RowBox[{
"\:041f\:043e\:0434\:0441\:0442\:0430\:0432\:043b\:044f\:044e", " ",
"\:0434\:0430\:043d\:043d\:044b\:0435"}], " ", "*)"}]], "Input",
CellChangeTimes->{{3.869903587185812*^9,
3.869903599028606*^9}},ExpressionUUID->"b7fb5240-5d57-4dc2-a5cf-\
2ef2edd84a37"],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
RowBox[{"fIn", "[",
RowBox[{"A1_", ",", "angMom_"}], "]"}], " ", ":=", " ",
RowBox[{"phiIn", "[",
RowBox[{
FractionBox["kIn", "197.327"], ",", "range", ",", "A1", ",", "angMom"}],
"]"}]}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Clear", "[", "fIn", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"fIn", "[",
RowBox[{"ee_", ",", "A1_", ",", "angMom_"}], "]"}], " ", ":=", " ",
RowBox[{"phiIn", "[",
RowBox[{
RowBox[{"kIn", "[", "ee", "]"}], ",", "range", ",", "A1", ",",
"angMom"}], "]"}]}]}]}]], "Input",
CellChangeTimes->{{3.869902345120473*^9, 3.869902393018056*^9}, {
3.8699024490439787`*^9, 3.869902499539846*^9}, {3.8699033471531887`*^9,
3.869903353290122*^9}, {3.869903605734902*^9, 3.869903674108346*^9}, {
3.870142411001401*^9, 3.870142411233304*^9}, {3.8701427696545973`*^9,
3.870142769924192*^9}, {3.870144806361532*^9, 3.8701448384469233`*^9}, {
3.8701451322440577`*^9, 3.8701452339645367`*^9}, {3.870148029511754*^9,
3.870148054266265*^9}},
CellLabel->
"In[235]:=",ExpressionUUID->"b19389b2-33a5-43a0-ab12-563d4c8b3b62"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{"fIn", "[",
RowBox[{"ee", ",", "A1", ",", "angMom"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.869904794400037*^9, 3.869904804165381*^9}, {
3.870142779338613*^9, 3.87014277958138*^9}, {3.870145767563078*^9,
3.8701457742342577`*^9}, {3.870148021397421*^9, 3.8701480215655212`*^9}},
CellLabel->
"In[237]:=",ExpressionUUID->"e09b75c5-e7ee-41f2-92ef-6d99a9250df2"],
Cell[BoxData[
RowBox[{"130.0076920801227`", " ", "A1", " ",
SqrtBox["ee"], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{"130.0076920801227`", " ",
SqrtBox["ee"]}]}], "]"}]}]], "Print",
CellChangeTimes->{
3.8699048057582283`*^9, 3.869905670676991*^9, 3.870142417093445*^9,
3.870142781188665*^9, 3.8701448450752087`*^9, {3.870145147694181*^9,
3.870145205575617*^9}, 3.8701452780754757`*^9, {3.870145760135851*^9,
3.870145776341847*^9}, 3.870145841956135*^9, 3.870148063131756*^9},
CellLabel->
"During evaluation of \
In[237]:=",ExpressionUUID->"c89acb3d-0a4c-49d7-80b0-b609b986aa24"]
}, Open ]],
Cell[BoxData[
RowBox[{"Clear", "[", "fOut", "]"}]], "Input",
CellChangeTimes->{{3.870145889497493*^9, 3.8701458916378307`*^9}},
CellLabel->
"In[281]:=",ExpressionUUID->"5b2110d3-922f-468b-93f7-55f20889fabc"],
Cell[BoxData[
RowBox[{"(*",
RowBox[{
RowBox[{"fOut", "[",
RowBox[{"delta_", ",", "angMom_"}], "]"}], " ", ":=", " ",
RowBox[{"phiOut", "[",
RowBox[{
FractionBox["kOut", "197.327"], ",", "range", ",", "delta", ",",
"angMom"}], "]"}]}], "*)"}]], "Input",
CellChangeTimes->{{3.8701459979441843`*^9,
3.870146017022655*^9}},ExpressionUUID->"51bcd62e-b916-47fb-b730-\
ed6a9ea5a103"],
Cell[BoxData[
RowBox[{
RowBox[{"fOut", "[",
RowBox[{"ee_", ",", "delta_", ",", "angMom_"}], "]"}], " ", ":=", " ",
RowBox[{"phiOut", "[",
RowBox[{
RowBox[{"kOut", "[", "ee", "]"}], ",", "range", ",", "delta", ",",
"angMom"}], "]"}]}]], "Input",
CellChangeTimes->{{3.869902502776773*^9, 3.869902522389965*^9}, {
3.869902654400511*^9, 3.869902659743734*^9}, {3.869902852863531*^9,
3.869902859644326*^9}, {3.869903356231689*^9, 3.8699033585596457`*^9}, {
3.869903634073707*^9, 3.869903650690649*^9}, {3.870145856912568*^9,
3.8701458723720713`*^9}, {3.87014920356913*^9, 3.870149206587562*^9}},
CellLabel->
"In[282]:=",ExpressionUUID->"a1d36f07-1393-4716-b2a5-7dce8c9b5c36"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{"fOut", "[",
RowBox[{"ee", ",", "delta", ",", "angMom"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.869904937474552*^9, 3.869904941820552*^9}, {
3.870145876466538*^9, 3.870145877221031*^9}, {3.870149208544265*^9,
3.870149213499585*^9}},
CellLabel->
"In[283]:=",ExpressionUUID->"05cf6d8c-1da7-4252-a566-4d8205b8e2d9"],
Cell[BoxData[
RowBox[{
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]], " ",
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]]}]}], "]"}]}], "+",
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]], " ",
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{"angMom", ",",
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]]}]}],
"]"}]}]}]], "Print",
CellChangeTimes->{3.869904945883834*^9, 3.869905674060755*^9,
3.870142433312495*^9, 3.8701427877730618`*^9, 3.8701458954244537`*^9,
3.870148230384247*^9, 3.8701492137612953`*^9},
CellLabel->
"During evaluation of \
In[283]:=",ExpressionUUID->"83bdcd50-0ad4-45e5-bad5-d8cfb17b57d5"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
RowBox[{"fIn1", "[",
RowBox[{"A1_", ",", "angMom_"}], "]"}], " ", ":=",
RowBox[{"phiIn1", "[",
RowBox[{
FractionBox["kIn", "197.327"], ",", "range", ",", "A1", ",", "angMom"}],
"]"}]}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Clear", "[", "fIn1", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"fIn1", "[",
RowBox[{"A1_", ",", "angMom_", ",", "ee_", ",", "r_"}], "]"}], " ", ":=",
" ",
RowBox[{"Simplify", "[",
RowBox[{
FractionBox["1", "2"], " ", "A1", " ",
RowBox[{"kIn", "[", "ee", "]"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"kIn", "[", "ee", "]"}], "*", "r", "*", " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",",
RowBox[{
RowBox[{"kIn", "[", "ee", "]"}], " ", "r"}]}], "]"}]}], "+",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{
RowBox[{"kIn", "[", "ee", "]"}], " ", "r"}]}], "]"}], "-",
RowBox[{
RowBox[{"kIn", "[", "ee", "]"}], " ", "r", "*", " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",",
RowBox[{
RowBox[{"kIn", "[", "ee", "]"}], " ", "r"}]}], "]"}]}]}], ")"}]}],
"]"}]}]}]}]], "Input",
CellChangeTimes->{{3.869903692263486*^9, 3.8699037607967243`*^9}, {
3.869903805919382*^9, 3.8699038065397987`*^9}, {3.869904993102446*^9,
3.869905015751034*^9}, 3.869905077887982*^9, {3.869905420758458*^9,
3.869905459460041*^9}, {3.869905505117428*^9, 3.869905529205653*^9},
3.8699055762480593`*^9, 3.869905727288272*^9, {3.8699057582146273`*^9,
3.8699057833774157`*^9}, {3.869905907239922*^9, 3.869905935578825*^9}, {
3.870142907640519*^9, 3.870142982023192*^9}, {3.87014693443699*^9,
3.870146952468712*^9}, {3.870147963882876*^9, 3.870147968392056*^9}, {
3.870148237519827*^9, 3.87014824701538*^9}, {3.870148362718192*^9,
3.870148413818166*^9}, {3.870148513473283*^9, 3.870148525308412*^9}},
CellLabel->
"In[272]:=",ExpressionUUID->"3c13eff2-f5aa-4a65-b4fe-877985d5db36"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{"fIn1", "[",
RowBox[{"A1", ",", "angMom", ",", "ee", ",", "range"}], "]"}],
"]"}]], "Input",
CellChangeTimes->{{3.8699050365884542`*^9, 3.8699050389173403`*^9},
3.8699057283160553`*^9, 3.86990646066066*^9, {3.870142469522188*^9,
3.8701424697043743`*^9}, {3.870143006086361*^9, 3.870143019666407*^9}, {
3.870146975514615*^9, 3.8701469756687326`*^9}, {3.870148250255692*^9,
3.870148250944021*^9}, {3.8701484005239563`*^9, 3.870148401023958*^9}, {
3.870148528349903*^9, 3.8701485291199427`*^9}},
CellLabel->
"In[274]:=",ExpressionUUID->"3ce8683e-f553-40fc-b9dc-ca771f703664"],
Cell[BoxData[
RowBox[{
RowBox[{"2817.`", " ", "A1", " ", "ee", " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",",
RowBox[{"130.0076920801227`", " ",
SqrtBox["ee"]}]}], "]"}]}], "+",
RowBox[{"21.66794868002045`", " ", "A1", " ",
SqrtBox["ee"], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{"130.0076920801227`", " ",
SqrtBox["ee"]}]}], "]"}]}], "-",
RowBox[{"2817.`", " ", "A1", " ", "ee", " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",",
RowBox[{"130.0076920801227`", " ",
SqrtBox["ee"]}]}], "]"}]}]}]], "Print",
CellChangeTimes->{
3.869905960563758*^9, {3.869906456305697*^9, 3.869906462492515*^9}, {
3.870142445346938*^9, 3.8701424733919773`*^9}, 3.8701427938593597`*^9,
3.870142858281001*^9, 3.870143021952096*^9, 3.8701469065602903`*^9,
3.8701469813749847`*^9, 3.8701479785357533`*^9, 3.870148257772119*^9, {
3.870148406395288*^9, 3.870148420319944*^9}, 3.8701485366968107`*^9},
CellLabel->
"During evaluation of \
In[274]:=",ExpressionUUID->"5fcd0e1b-e82c-4a52-b9fa-9d34f7748276"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
RowBox[{"fOut1", "[",
RowBox[{"delta_", ",", "angMom_"}], "]"}], " ", ":=",
RowBox[{"phiOut1", "[",
RowBox[{
FractionBox["kOut", "197.327"], ",", "range", ",", "delta", ",",
"angMom"}], "]"}]}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Clear", "[", "fOut1", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"fOut1", "[",
RowBox[{"delta_", ",", "angMom_", ",", "ee_", ",", "r_"}], "]"}], " ", ":=",
" ",
RowBox[{"Simplify", "[",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"kOut", "[", "ee", "]"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"kOut", "[", "ee", "]"}], " ", "r", " ",
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",",
RowBox[{
RowBox[{"kOut", "[", "ee", "]"}], " ", "r"}]}], "]"}]}], "+",
RowBox[{
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{
RowBox[{"kOut", "[", "ee", "]"}], " ", "r"}]}], "]"}]}], "-",
RowBox[{
RowBox[{"kOut", "[", "ee", "]"}], " ", "r", " ",
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",",
RowBox[{
RowBox[{"kOut", "[", "ee", "]"}], " ", "r"}]}], "]"}]}], "+",
RowBox[{
RowBox[{"kOut", "[", "ee", "]"}], " ", "r", " ",
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",",
RowBox[{
RowBox[{"kOut", "[", "ee", "]"}], " ", "r"}]}], "]"}]}], "+",
RowBox[{
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{"angMom", ",",
RowBox[{
RowBox[{"kOut", "[", "ee", "]"}], " ", "r"}]}], "]"}]}], "-",
RowBox[{
RowBox[{"kOut", "[", "ee", "]"}], " ", "r", " ",
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",",
RowBox[{
RowBox[{"kOut", "[", "ee", "]"}], " ", "r"}]}], "]"}]}]}],
")"}]}], "]"}]}]}]}]], "Input",
CellChangeTimes->{{3.869905973732863*^9, 3.869906046015753*^9}, {
3.8701431002750063`*^9, 3.870143137123361*^9}, {3.870147001538087*^9,
3.870147030213578*^9}, {3.8701479542811413`*^9, 3.870147959423932*^9}, {
3.870148268064863*^9, 3.870148281708652*^9}},
CellLabel->
"In[277]:=",ExpressionUUID->"4e60cda4-270f-41c1-a4f4-78d03b351537"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{"fOut1", "[",
RowBox[{"delta", ",", "angMom", ",", "ee", ",", "range"}], "]"}],
"]"}]], "Input",
CellChangeTimes->{{3.869906066697554*^9, 3.8699060728682833`*^9}, {
3.870143144626992*^9, 3.870143158426641*^9}, {3.8701470403211727`*^9,
3.870147040458294*^9}, {3.8701482909067717`*^9, 3.8701482947231627`*^9}, {
3.87014845357169*^9, 3.870148454689481*^9}},
CellLabel->
"In[279]:=",ExpressionUUID->"107cc588-8aa8-49dd-a831-be09f57f8eda"],
Cell[BoxData[
RowBox[{"21.66794868002045`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]], " ",
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",",
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]]}]}], "]"}]}], "+",
RowBox[{
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{"angMom", ",",
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]]}]}], "]"}]}], "-",
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]], " ",
RowBox[{"Cos", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselJ", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",",
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]]}]}], "]"}]}], "+",
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]], " ",
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+", "angMom"}], ",",
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]]}]}], "]"}]}], "+",
RowBox[{
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{"angMom", ",",
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]]}]}], "]"}]}], "-",
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]], " ",
RowBox[{"Sin", "[", "delta", "]"}], " ",
RowBox[{"SphericalBesselY", "[",
RowBox[{
RowBox[{"1", "+", "angMom"}], ",",
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]]}]}], "]"}]}]}],
")"}]}]], "Print",
CellChangeTimes->{3.869906075725178*^9, 3.870142456725*^9,
3.8701431647662573`*^9, 3.870147042050164*^9, 3.870147987933353*^9,
3.870148297603366*^9, 3.870148466801008*^9, 3.870148543467256*^9},
CellLabel->
"During evaluation of \
In[279]:=",ExpressionUUID->"683f7d8f-5bdf-445b-b5fa-cda0d3db7032"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"NSolve", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"fIn", "[",
RowBox[{"ee", ",", "aa", ",", "1"}], "]"}], "==",
RowBox[{"fOut", "[",
RowBox[{"ee", ",", "dd", ",", "1"}], "]"}]}], ",",
RowBox[{
RowBox[{"fIn1", "[",
RowBox[{"aa", ",", "1", ",", "ee", ",", "range"}], "]"}], "==",
RowBox[{"fOut1", "[",
RowBox[{"dd", ",", "1", ",", "ee", ",", "range"}], "]"}]}]}], "}"}],
",",
RowBox[{"{",
RowBox[{"aa", ",", "dd"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.8699038602251577`*^9, 3.869904101667548*^9}, {
3.8699041723855553`*^9, 3.869904210530024*^9}, 3.869904252311246*^9, {
3.869904396536236*^9, 3.869904399027741*^9}, {3.8701431958772173`*^9,
3.870143225476993*^9}, {3.870143652479889*^9, 3.870143678067491*^9}, {
3.870143757110928*^9, 3.870143786639409*^9}, {3.870143823852461*^9,
3.8701438346853113`*^9}, {3.8701444368885393`*^9, 3.870144480820072*^9}, {
3.8701471863516808`*^9, 3.870147281566517*^9}, {3.870148494940176*^9,
3.8701485080902767`*^9}, {3.870149182748822*^9, 3.8701491897996817`*^9}, {
3.870149242903923*^9, 3.870149243039599*^9}, {3.870149473732283*^9,
3.8701494836969976`*^9}, {3.870149514821795*^9,
3.8701495238721933`*^9}},ExpressionUUID->"2259a25f-7509-401a-afac-\
84d646e2336f"],
Cell[BoxData["$Aborted"], "Output",
CellChangeTimes->{
3.870143787488616*^9, {3.870143828888331*^9, 3.870143835761471*^9}, {
3.870144453275545*^9, 3.870144481957519*^9}, 3.870147408223731*^9,
3.870147928822309*^9, 3.8701480182199383`*^9, 3.870149179379559*^9,
3.870149245263503*^9, 3.870149492543207*^9},
CellLabel->
"Out[285]=",ExpressionUUID->"7679836d-076b-40df-b7cb-b2861ef0c59e"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"phase", "[", "ee_", "]"}], ":=", " "}]], "Input",
CellChangeTimes->{{3.870148760144835*^9,
3.870148768918832*^9}},ExpressionUUID->"ea8a29ab-c052-471d-ae15-\
ee682cfe1269"],
Cell[BoxData[
RowBox[{
RowBox[{"sMatrix", "[", "ee_", "]"}], " ", ":=", " ",
RowBox[{"Exp", "[",
RowBox[{"2", "*", "I", "*",
RowBox[{"phase", "[", "ee", "]"}]}], "]"}], " "}]], "Input",
CellChangeTimes->{{3.853486741956423*^9, 3.853486748574054*^9},
3.8534869884309907`*^9, {3.8701487152125597`*^9,
3.870148750228079*^9}},ExpressionUUID->"720974a2-687b-47f2-a4c9-\
1c81aa8e5e65"]
},
WindowSize->{1389.75, 768.75},
WindowMargins->{{0, Automatic}, {0, Automatic}},
Magnification:>1. Inherited,
FrontEndVersion->"13.0 for Linux x86 (64-bit) (December 2, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"938b4164-1517-40b9-833c-732c6639372d"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1047, 23, 113, "Input",ExpressionUUID->"137265ab-321f-4792-b29f-d90a733af3c5"],
Cell[1608, 45, 209, 4, 29, "Input",ExpressionUUID->"02874061-c0e5-4c46-b890-e7a8fd8bd6e5"],
Cell[1820, 51, 318, 8, 30, "Input",ExpressionUUID->"883ffbce-ec8a-4bea-82fd-15315e8e8450"],
Cell[2141, 61, 210, 4, 29, "Input",ExpressionUUID->"2293bf7c-5f3d-49ed-a114-653f30313e43"],
Cell[2354, 67, 353, 9, 31, "Input",ExpressionUUID->"11f78f48-8152-4fea-ae39-cefff89cb163"],
Cell[2710, 78, 646, 16, 74, "Input",ExpressionUUID->"d12fe0db-0b6c-4c94-a7d8-f0defcf26c82"],
Cell[3359, 96, 293, 7, 29, "Input",ExpressionUUID->"e3d916de-51d7-4557-9725-dda018af67dd"],
Cell[3655, 105, 570, 13, 29, "Input",ExpressionUUID->"f52c282a-ced4-44a3-b877-cf9f404c573d"],
Cell[4228, 120, 793, 19, 29, "Input",ExpressionUUID->"73ba3c33-88f7-4598-b488-9b9c4944ce11"],
Cell[5024, 141, 351, 9, 51, "Input",ExpressionUUID->"e74e75f4-3e64-4825-8a63-3aae4485a22c"],
Cell[5378, 152, 585, 15, 29, "Input",ExpressionUUID->"6f155ea1-2306-4704-a233-560f70b5d462"],
Cell[CellGroupData[{
Cell[5988, 171, 339, 7, 29, "Input",ExpressionUUID->"785e23c6-adf0-4e04-99e7-8de8b70d6714"],
Cell[6330, 180, 999, 26, 38, "Print",ExpressionUUID->"a2f6bfed-b9aa-420b-b27b-846a66fae3eb"]
}, Open ]],
Cell[7344, 209, 489, 13, 29, "Input",ExpressionUUID->"30b0d700-2070-478c-bc3c-d787b0cb0c36"],
Cell[CellGroupData[{
Cell[7858, 226, 299, 7, 29, "Input",ExpressionUUID->"5f2128b6-cab8-40ec-bfa2-267ec247a695"],
Cell[8160, 235, 1776, 47, 59, "Print",ExpressionUUID->"ec888d6c-c887-43e1-b6e3-22e6c4edb4ec"]
}, Open ]],
Cell[9951, 285, 311, 7, 29, "Input",ExpressionUUID->"b7fb5240-5d57-4dc2-a5cf-2ef2edd84a37"],
Cell[10265, 294, 1190, 27, 77, "Input",ExpressionUUID->"b19389b2-33a5-43a0-ab12-563d4c8b3b62"],
Cell[CellGroupData[{
Cell[11480, 325, 425, 8, 29, "Input",ExpressionUUID->"e09b75c5-e7ee-41f2-92ef-6d99a9250df2"],
Cell[11908, 335, 645, 14, 25, "Print",ExpressionUUID->"c89acb3d-0a4c-49d7-80b0-b609b986aa24"]
}, Open ]],
Cell[12568, 352, 212, 4, 29, "Input",ExpressionUUID->"5b2110d3-922f-468b-93f7-55f20889fabc"],
Cell[12783, 358, 412, 11, 35, "Input",ExpressionUUID->"51bcd62e-b916-47fb-b730-ed6a9ea5a103"],
Cell[13198, 371, 707, 14, 29, "Input",ExpressionUUID->"a1d36f07-1393-4716-b2a5-7dce8c9b5c36"],
Cell[CellGroupData[{
Cell[13930, 389, 380, 8, 29, "Input",ExpressionUUID->"05cf6d8c-1da7-4252-a566-4d8205b8e2d9"],
Cell[14313, 399, 1030, 26, 25, "Print",ExpressionUUID->"83bdcd50-0ad4-45e5-bad5-d8cfb17b57d5"]
}, Open ]],
Cell[15358, 428, 2282, 53, 111, "Input",ExpressionUUID->"3c13eff2-f5aa-4a65-b4fe-877985d5db36"],
Cell[CellGroupData[{
Cell[17665, 485, 649, 12, 29, "Input",ExpressionUUID->"3ce8683e-f553-40fc-b9dc-ca771f703664"],
Cell[18317, 499, 1203, 29, 25, "Print",ExpressionUUID->"5fcd0e1b-e82c-4a52-b9fa-9d34f7748276"]
}, Open ]],
Cell[19535, 531, 2924, 74, 187, "Input",ExpressionUUID->"4e60cda4-270f-41c1-a4f4-78d03b351537"],
Cell[CellGroupData[{
Cell[22484, 609, 500, 10, 29, "Input",ExpressionUUID->"107cc588-8aa8-49dd-a831-be09f57f8eda"],
Cell[22987, 621, 2648, 68, 67, "Print",ExpressionUUID->"683f7d8f-5bdf-445b-b5fa-cda0d3db7032"]
}, Open ]],
Cell[CellGroupData[{
Cell[25672, 694, 1371, 29, 29, "Input",ExpressionUUID->"2259a25f-7509-401a-afac-84d646e2336f"],
Cell[27046, 725, 401, 7, 33, "Output",ExpressionUUID->"7679836d-076b-40df-b7cb-b2861ef0c59e"]
}, Open ]],
Cell[27462, 735, 210, 5, 29, "Input",ExpressionUUID->"ea8a29ab-c052-471d-ae15-ee682cfe1269"],
Cell[27675, 742, 404, 9, 29, "Input",ExpressionUUID->"720974a2-687b-47f2-a4c9-1c81aa8e5e65"]
}
]
*)
resonans2.nb 0 → 100644
View file @ 3130b7a5
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 13.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 26456, 741]
NotebookOptionsPosition[ 23353, 684]
NotebookOutlinePosition[ 23780, 701]
CellTagsIndexPosition[ 23737, 698]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ", "Input", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"kin", " ", "=", " ", "20."}], ";"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"U0", " ", "=", " ",
RowBox[{"-", "40."}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"mass", "=", " ", "939."}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"range", " ", "=", " ", "3"}], ";"}]}]}]], "Input",
CellChangeTimes->{{3.8698997367340517`*^9, 3.869899843251645*^9}, {
3.869900162194075*^9, 3.86990022514108*^9}, {3.869900263296324*^9,
3.869900278820773*^9}, {3.869900716799706*^9, 3.869900721797647*^9},
3.869902565634445*^9, {3.869902624866561*^9, 3.869902626057645*^9}, {
3.869904698619644*^9, 3.8699047019298077`*^9}, 3.870142822697193*^9, {
3.870144764448131*^9, 3.87014476799769*^9}, {3.870144888379427*^9,
3.870144970243932*^9}, {3.870145792817855*^9, 3.8701457939369917`*^9}},
CellLabel->"In[34]:=",ExpressionUUID->"137265ab-321f-4792-b29f-d90a733af3c5"],
Cell[BoxData[
RowBox[{
RowBox[{"kIn", "[", "ee1_", "]"}], " ", ":=", " ",
SqrtBox[
RowBox[{"2", "*", "mass", "*", "ee1"}]]}]], "Input",
CellChangeTimes->{
3.870144988515087*^9, {3.870145025281687*^9, 3.870145047838258*^9}},
CellLabel->"In[37]:=",ExpressionUUID->"883ffbce-ec8a-4bea-82fd-15315e8e8450"],
Cell[BoxData[
RowBox[{
RowBox[{"kOut", "[", "ee1_", "]"}], " ", ":=", " ",
SqrtBox[
RowBox[{"2", " ", "mass", " ",
RowBox[{"(",
RowBox[{"ee1", "-", " ", "U0"}], ")"}]}]]}]], "Input",
CellChangeTimes->{{3.870145798453801*^9, 3.8701458265877657`*^9}},
CellLabel->"In[38]:=",ExpressionUUID->"11f78f48-8152-4fea-ae39-cefff89cb163"],
Cell[BoxData[
RowBox[{
RowBox[{"phiIn", "[",
RowBox[{"A_", ",", "kk_", ",", "rr_"}], "]"}], " ", ":=", " ",
RowBox[{"A", " ", "[",
RowBox[{
FractionBox[
RowBox[{"Sin", "[",
RowBox[{"kk", " ", "rr"}], "]"}],
RowBox[{"kk", " ", "rr"}]], "-", " ",
RowBox[{"Cos", "[",
RowBox[{"kk", " ", "rr"}], "]"}]}], "]"}], " "}]], "Input",
CellChangeTimes->{{3.870152844667737*^9, 3.8701529287583*^9}},
CellLabel->"In[39]:=",ExpressionUUID->"e8582651-3455-4b2b-993a-3b8a29159332"],
Cell[BoxData[
RowBox[{
RowBox[{"phiOut", "[",
RowBox[{"del_", ",", "qq_", ",", "rr_"}], "]"}], " ", ":=", " ",
RowBox[{
FractionBox[
RowBox[{"Sin", "[",
RowBox[{
RowBox[{"qq", "*", "rr"}], "-", "del"}], "]"}],
RowBox[{"qq", " ", "rr"}]], "-",
RowBox[{"Cos", "[",
RowBox[{
RowBox[{"qq", "*", "rr"}], "-", "del"}], "]"}]}]}]], "Input",
CellChangeTimes->{{3.870152939201292*^9, 3.870153012792206*^9}},
CellLabel->"In[40]:=",ExpressionUUID->"73442ce5-68f3-46be-b20d-e95b03dd60db"],
Cell[BoxData[
RowBox[{
RowBox[{"phiIn1", "[",
RowBox[{"A_", ",", "kk_", ",", "rr_"}], "]"}], " ", ":=", " ",
RowBox[{"A", " ", "[",
RowBox[{
FractionBox[
RowBox[{"Cos", "[",
RowBox[{"kk", " ", "rr"}], "]"}], "rr"], "-",
FractionBox[
RowBox[{"Sin", "[",
RowBox[{"kk", " ", "rr"}], "]"}],
RowBox[{"kk", " ",
SuperscriptBox["rr", "2"]}]], "+",
RowBox[{"kk", " ",
RowBox[{"Sin", "[",
RowBox[{"kk", " ", "rr"}], "]"}]}]}], "]"}], " "}]], "Input",
CellChangeTimes->{{3.870153559658717*^9, 3.870153579409636*^9}},
CellLabel->"In[41]:=",ExpressionUUID->"79d8b53a-83cd-43f1-b702-4145bfa1b3d3"],
Cell[BoxData[
RowBox[{
RowBox[{"phiOut1", "[",
RowBox[{"del_", ",", "qq_", ",", "rr_"}], "]"}], " ", ":=", " ",
RowBox[{
FractionBox[
RowBox[{"Cos", "[",
RowBox[{
RowBox[{"qq", " ", "rr"}], "-", "del"}], "]"}], "rr"], "-",
FractionBox[
RowBox[{"Sin", "[",
RowBox[{
RowBox[{"qq", " ", "rr"}], "-", "del"}], "]"}],
RowBox[{"qq", " ",
SuperscriptBox["rr", "2"]}]], "+",
RowBox[{"qq", " ",
RowBox[{"Cos", "[",
RowBox[{
RowBox[{"qq", " ", "rr"}], "-", "del"}], "]"}], " "}]}]}]], "Input",
CellChangeTimes->{3.8701535782161903`*^9},
CellLabel->"In[42]:=",ExpressionUUID->"7ea5d8e8-b78e-4509-abe8-b72db91fad4a"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{
RowBox[{"kIn", "[", "ee", "]"}], ",", "\"\< \>\"", ",",
RowBox[{"phiIn", "[",
RowBox[{"aa", ",",
RowBox[{"kIn", "[", "ee", "]"}], ",", "range"}], "]"}]}], "]"}]], "Input",\
CellChangeTimes->{{3.87015444052124*^9, 3.8701545067203207`*^9}},
CellLabel->"In[43]:=",ExpressionUUID->"545408ce-c343-4b55-92ab-86235b47318e"],
Cell[BoxData[
InterpretationBox[
RowBox[{
RowBox[{"43.3358973600409`", " ",
SqrtBox["ee"]}], "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]",
RowBox[{"aa", "[",
RowBox[{
RowBox[{"-",
RowBox[{"Cos", "[",
RowBox[{"130.0076920801227`", " ",
SqrtBox["ee"]}], "]"}]}], "+",
FractionBox[
RowBox[{"0.007691852566567431`", " ",
RowBox[{"Sin", "[",
RowBox[{"130.0076920801227`", " ",
SqrtBox["ee"]}], "]"}]}],
SqrtBox["ee"]]}], "]"}]}],
SequenceForm[43.3358973600409 $CellContext`ee^Rational[1, 2], " ",
$CellContext`aa[-Cos[130.0076920801227 $CellContext`ee^Rational[1, 2]] +
0.007691852566567431 $CellContext`ee^Rational[-1, 2]
Sin[130.0076920801227 $CellContext`ee^Rational[1, 2]]]],
Editable->False]], "Print",
CellChangeTimes->{{3.870154460106698*^9, 3.870154509381689*^9},
3.870232656456702*^9, 3.87049013866081*^9, 3.871395687237591*^9},
CellLabel->
"During evaluation of \
In[43]:=",ExpressionUUID->"1c4d1337-7be0-4bfd-a895-da362faba795"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{
RowBox[{"kOut", "[", "ee", "]"}], ",", "\"\< \>\"", ",",
RowBox[{"phiOut", "[",
RowBox[{"aa", ",",
RowBox[{"kOut", "[", "ee", "]"}], ",", "range"}], "]"}]}],
"]"}]], "Input",
CellChangeTimes->{{3.870154551684757*^9, 3.870154556228182*^9}, {
3.870154586618369*^9, 3.8701545919075603`*^9}},
CellLabel->"In[44]:=",ExpressionUUID->"1d7fdb07-1706-452b-a766-109e6e4a624f"],
Cell[BoxData[
InterpretationBox[
RowBox[{
RowBox[{"43.3358973600409`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]],
"\[InvisibleSpace]", "\<\" \"\>"}], "\[InvisibleSpace]", "-",
RowBox[{"Cos", "[",
RowBox[{"aa", "-",
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]]}]}], "]"}], "-",
FractionBox[
RowBox[{"0.007691852566567431`", " ",
RowBox[{"Sin", "[",
RowBox[{"aa", "-",
RowBox[{"130.0076920801227`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]]}]}], "]"}]}],
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee"}]]]}],
SequenceForm[
43.3358973600409 (40. + $CellContext`ee)^Rational[1, 2],
" ", -Cos[$CellContext`aa -
130.0076920801227 (40. + $CellContext`ee)^Rational[1, 2]] -
0.007691852566567431 (40. + $CellContext`ee)^Rational[-1, 2]
Sin[$CellContext`aa -
130.0076920801227 (40. + $CellContext`ee)^Rational[1, 2]]],
Editable->False]], "Print",
CellChangeTimes->{3.870154593331479*^9, 3.870232659231872*^9,
3.87049014072447*^9, 3.871395689321123*^9},
CellLabel->
"During evaluation of \
In[44]:=",ExpressionUUID->"9aec959c-f450-4143-9349-2c69d553de28"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"phiIn", "[",
RowBox[{"aa", ",",
RowBox[{"kIn", "[", "ee", "]"}], ",", "range"}], "]"}], "==",
RowBox[{"phiOut", "[",
RowBox[{"dd", ",",
RowBox[{"kOut", "[", "ee", "]"}], ",", "range"}], "]"}]}], "&&",
RowBox[{
RowBox[{"phiIn1", "[",
RowBox[{"aa", ",",
RowBox[{"kIn", "[", "ee", "]"}], ",", "range"}], "]"}], "==",
RowBox[{"phiOut1", "[",
RowBox[{"dd", ",",
RowBox[{"kOut", "[", "ee", "]"}], ",", "range"}], "]"}]}]}], ",",
RowBox[{"{",
RowBox[{"aa", ",", "dd"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.870153930327222*^9, 3.870153964168378*^9},
3.8701541955377007`*^9, {3.8701544153372*^9, 3.870154419959092*^9}, {
3.870154606314208*^9, 3.870154641950348*^9}},
CellLabel->"In[12]:=",ExpressionUUID->"9785c009-8129-47a7-a8f2-2f541851d41a"],
Cell[BoxData[
RowBox[{"{", "}"}]], "Output",
CellChangeTimes->{
3.870153975204578*^9, 3.8701540087004557`*^9, 3.870154039956328*^9,
3.870154198378965*^9, {3.870154410662923*^9, 3.870154425045542*^9},
3.870154654771998*^9, 3.870232664759469*^9, 3.870490143821384*^9},
CellLabel->"Out[12]=",ExpressionUUID->"74c9f7f3-f465-4450-8df6-3ed4464d0f4b"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
FractionBox[
RowBox[{"phiIn1", "[",
RowBox[{"A", ",",
RowBox[{"kIn", "[", "ee1", "]"}], ",",
FractionBox["range", "197.327"]}], "]"}],
RowBox[{"phiIn", "[",
RowBox[{"A", ",",
RowBox[{"kIn", "[", "ee1", "]"}], ",",
FractionBox["range", "197.327"]}], "]"}]], "]"}]], "Input",
CellChangeTimes->{{3.8713955807785063`*^9, 3.871395628935857*^9},
3.871395662736054*^9, {3.871395728206418*^9, 3.8713958340074167`*^9}},
CellLabel->"In[49]:=",ExpressionUUID->"23b6297c-d11c-42a3-97e3-5e6d2f9d5bc9"],
Cell[BoxData[
FractionBox[
RowBox[{"A", "[",
RowBox[{
RowBox[{"65.77566666666667`", " ",
RowBox[{"Cos", "[",
RowBox[{"0.6588439092477092`", " ",
SqrtBox["ee1"]}], "]"}]}], "-",
FractionBox[
RowBox[{"99.83497721299663`", " ",
RowBox[{"Sin", "[",
RowBox[{"0.6588439092477092`", " ",
SqrtBox["ee1"]}], "]"}]}],
SqrtBox["ee1"]], "+",
RowBox[{"43.3358973600409`", " ",
SqrtBox["ee1"], " ",
RowBox[{"Sin", "[",
RowBox[{"0.6588439092477092`", " ",
SqrtBox["ee1"]}], "]"}]}]}], "]"}],
RowBox[{"A", "[",
RowBox[{
RowBox[{"-",
RowBox[{"Cos", "[",
RowBox[{"0.6588439092477092`", " ",
SqrtBox["ee1"]}], "]"}]}], "+",
FractionBox[
RowBox[{"1.5178101914030513`", " ",
RowBox[{"Sin", "[",
RowBox[{"0.6588439092477092`", " ",
SqrtBox["ee1"]}], "]"}]}],
SqrtBox["ee1"]]}], "]"}]]], "Print",
CellChangeTimes->{
3.871395630568039*^9, {3.871395664289365*^9, 3.871395692218008*^9}, {
3.871395758524177*^9, 3.871395806080703*^9}, 3.871395840590496*^9},
CellLabel->
"During evaluation of \
In[49]:=",ExpressionUUID->"a0c80a4e-7b9b-43df-a65e-fd6b61478ebf"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
FractionBox[
RowBox[{"phiOut1", "[",
RowBox[{"A", ",",
RowBox[{"kOut", "[", "ee1", "]"}], ",",
FractionBox["range", "197.327"]}], "]"}],
RowBox[{"phiOut", "[",
RowBox[{"A", ",",
RowBox[{"kOut", "[", "ee1", "]"}], ",",
FractionBox["range", "197.327"]}], "]"}]], "]"}]], "Input",
CellChangeTimes->{{3.871395649722047*^9, 3.871395660968624*^9}, {
3.871395769529414*^9, 3.87139577079108*^9}, 3.8713958214921494`*^9,
3.871395966073908*^9},
CellLabel->"In[50]:=",ExpressionUUID->"5de06862-2043-4b0b-9eb2-084ab60d79b1"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"65.77566666666667`", " ",
RowBox[{"Cos", "[",
RowBox[{"A", "-",
RowBox[{"0.6588439092477092`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]]}]}], "]"}]}], "+",
RowBox[{"43.3358973600409`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]], " ",
RowBox[{"Cos", "[",
RowBox[{"A", "-",
RowBox[{"0.6588439092477092`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]]}]}], "]"}]}], "+",
FractionBox[
RowBox[{"99.83497721299663`", " ",
RowBox[{"Sin", "[",
RowBox[{"A", "-",
RowBox[{"0.6588439092477092`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]]}]}], "]"}]}],
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]]]}],
RowBox[{
RowBox[{"-",
RowBox[{"Cos", "[",
RowBox[{"A", "-",
RowBox[{"0.6588439092477092`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]]}]}], "]"}]}], "-",
FractionBox[
RowBox[{"1.5178101914030513`", " ",
RowBox[{"Sin", "[",
RowBox[{"A", "-",
RowBox[{"0.6588439092477092`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]]}]}], "]"}]}],
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]]]}]]], "Print",
CellChangeTimes->{3.8713959686798077`*^9},
CellLabel->
"During evaluation of \
In[50]:=",ExpressionUUID->"cda7045e-c9b3-4faa-aa88-a89bbf0b0548"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"LeftS", "[", "ee1_", "]"}], ":=",
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{"phiIn1", "[",
RowBox[{"A", ",",
RowBox[{"kIn", "[", "ee1", "]"}], ",",
FractionBox["range", "197.327"]}], "]"}],
RowBox[{"phiIn", "[",
RowBox[{"A", ",",
RowBox[{"kIn", "[", "ee1", "]"}], ",",
FractionBox["range", "197.327"]}], "]"}]], "]"}]}]], "Input",
CellChangeTimes->{{3.8713959911977997`*^9, 3.871396034483683*^9}},
CellLabel->"In[51]:=",ExpressionUUID->"1e999219-f9ed-418d-b404-9d707428f5c6"],
Cell[BoxData[
RowBox[{
RowBox[{"RightS", "[", "ee1_", "]"}], ":=",
RowBox[{"Simplify", "[",
FractionBox[
RowBox[{"phiOut1", "[",
RowBox[{"A", ",",
RowBox[{"kOut", "[", "ee1", "]"}], ",",
FractionBox["range", "197.327"]}], "]"}],
RowBox[{"phiOut", "[",
RowBox[{"A", ",",
RowBox[{"kOut", "[", "ee1", "]"}], ",",
FractionBox["range", "197.327"]}], "]"}]], "]"}]}]], "Input",
CellChangeTimes->{{3.871396041514462*^9, 3.8713960497704363`*^9}},
CellLabel->"In[52]:=",ExpressionUUID->"be14efdc-0ce7-444d-bacc-abfa25f3cad6"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"roots", " ", "=", " ",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{"LeftS", "[", "ee1", "]"}], "==",
RowBox[{"RightS", "[", "ee1", "]"}]}], ",", "ee1", ",",
RowBox[{"Assumptions", "\[Rule]",
RowBox[{"ee1", ">", "0"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.871396143127357*^9, 3.871396171040531*^9}},
CellLabel->"In[53]:=",ExpressionUUID->"d815889f-3d98-4e53-b408-c822c3b58319"],
Cell[BoxData[
TemplateBox[{
"Solve", "inex",
"\"Solve was unable to solve the system with inexact coefficients or the \
system obtained by direct rationalization of inexact numbers present in the \
system. Since many of the methods used by Solve require exact input, \
providing Solve with an exact version of the system may help.\"", 2, 53, 10,
26410970983181781695, "Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{3.871396172677999*^9},
CellLabel->
"During evaluation of \
In[53]:=",ExpressionUUID->"3f24e577-52a5-4afc-9921-7689ebd516e0"],
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
FractionBox[
RowBox[{"A", "[",
RowBox[{
RowBox[{"65.77566666666667`", " ",
RowBox[{"Cos", "[",
RowBox[{"0.6588439092477092`", " ",
SqrtBox["ee1"]}], "]"}]}], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "99.83497721299663`"}], "+",
RowBox[{"43.3358973600409`", " ", "ee1"}]}], ")"}], " ",
RowBox[{"Sin", "[",
RowBox[{"0.6588439092477092`", " ",
SqrtBox["ee1"]}], "]"}]}],
SqrtBox["ee1"]]}], "]"}],
RowBox[{"A", "[",
RowBox[{
RowBox[{"-",
RowBox[{"Cos", "[",
RowBox[{"0.6588439092477092`", " ",
SqrtBox["ee1"]}], "]"}]}], "+",
FractionBox[
RowBox[{"1.5178101914030513`", " ",
RowBox[{"Sin", "[",
RowBox[{"0.6588439092477092`", " ",
SqrtBox["ee1"]}], "]"}]}],
SqrtBox["ee1"]]}], "]"}]], "\[Equal]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1733.4358944016362`"}], "-",
RowBox[{"43.3358973600409`", " ", "ee1"}], "-",
RowBox[{"65.77566666666667`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]]}]}], ")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"A", "-",
RowBox[{"0.6588439092477092`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]]}]}], "]"}]}],
"-",
RowBox[{"99.83497721299663`", " ",
RowBox[{"Sin", "[",
RowBox[{"A", "-",
RowBox[{"0.6588439092477092`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]]}]}], "]"}]}]}],
RowBox[{
RowBox[{
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]], " ",
RowBox[{"Cos", "[",
RowBox[{"A", "-",
RowBox[{"0.6588439092477092`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]]}]}], "]"}]}],
"+",
RowBox[{"1.5178101914030513`", " ",
RowBox[{"Sin", "[",
RowBox[{"A", "-",
RowBox[{"0.6588439092477092`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]]}]}],
"]"}]}]}]]}], ",", "ee1", ",",
RowBox[{"Assumptions", "\[Rule]",
RowBox[{"ee1", ">", "0"}]}]}], "]"}]], "Output",
CellChangeTimes->{3.8713961726885433`*^9},
CellLabel->"Out[53]=",ExpressionUUID->"73fa0bb2-a763-47e5-986a-1af01b068d49"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{"roots", "[",
RowBox[{"[", "1", "]"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.871396180493724*^9, 3.871396186397656*^9}},
CellLabel->"In[54]:=",ExpressionUUID->"a7b09a3b-0f01-4266-b8a6-eddf4daa62ef"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"A", "[",
RowBox[{
RowBox[{"65.77566666666667`", " ",
RowBox[{"Cos", "[",
RowBox[{"0.6588439092477092`", " ",
SqrtBox["ee1"]}], "]"}]}], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "99.83497721299663`"}], "+",
RowBox[{"43.3358973600409`", " ", "ee1"}]}], ")"}], " ",
RowBox[{"Sin", "[",
RowBox[{"0.6588439092477092`", " ",
SqrtBox["ee1"]}], "]"}]}],
SqrtBox["ee1"]]}], "]"}],
RowBox[{"A", "[",
RowBox[{
RowBox[{"-",
RowBox[{"Cos", "[",
RowBox[{"0.6588439092477092`", " ",
SqrtBox["ee1"]}], "]"}]}], "+",
FractionBox[
RowBox[{"1.5178101914030513`", " ",
RowBox[{"Sin", "[",
RowBox[{"0.6588439092477092`", " ",
SqrtBox["ee1"]}], "]"}]}],
SqrtBox["ee1"]]}], "]"}]], "\[Equal]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1733.4358944016362`"}], "-",
RowBox[{"43.3358973600409`", " ", "ee1"}], "-",
RowBox[{"65.77566666666667`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]]}]}], ")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"A", "-",
RowBox[{"0.6588439092477092`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]]}]}], "]"}]}], "-",
RowBox[{"99.83497721299663`", " ",
RowBox[{"Sin", "[",
RowBox[{"A", "-",
RowBox[{"0.6588439092477092`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]]}]}], "]"}]}]}],
RowBox[{
RowBox[{
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]], " ",
RowBox[{"Cos", "[",
RowBox[{"A", "-",
RowBox[{"0.6588439092477092`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]]}]}], "]"}]}], "+",
RowBox[{"1.5178101914030513`", " ",
RowBox[{"Sin", "[",
RowBox[{"A", "-",
RowBox[{"0.6588439092477092`", " ",
SqrtBox[
RowBox[{"40.`", "\[VeryThinSpace]", "+", "ee1"}]]}]}],
"]"}]}]}]]}]], "Print",
CellChangeTimes->{3.871396188677561*^9},
CellLabel->
"During evaluation of \
In[54]:=",ExpressionUUID->"6ffa3de6-d44c-4e88-9265-937bc3ec82a4"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"CrossSection", "[", "ee_", "]"}], ":=",
RowBox[{
FractionBox[
RowBox[{"4", " ", "Pi"}],
SuperscriptBox[
RowBox[{"kIn", "[", "ee1", "]"}], "2"]],
SuperscriptBox[
RowBox[{"Sin", "[",
RowBox[{"roots", "[",
RowBox[{"[", "1", "]"}], "]"}], "]"}], "2"]}]}]], "Input",
CellChangeTimes->{{3.871396333711636*^9, 3.8713963761666403`*^9}, {
3.8713964228004932`*^9, 3.871396439638331*^9}},
CellLabel->"In[58]:=",ExpressionUUID->"9ec5a1ad-b707-4708-b0d0-4e9727efe761"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"CrossSection", "[", "ee", "]"}], ",",
RowBox[{"{",
RowBox[{"ee", ",",
RowBox[{"-", "10"}], ",", "30"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
CellChangeTimes->{{3.871396448043429*^9, 3.871396469956916*^9}},
CellLabel->"In[59]:=",ExpressionUUID->"1170dd17-d2fe-4cf7-a25f-f31b77fce8a9"],
Cell[BoxData[
GraphicsBox[{{}, {}},
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->{All, All},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{3.871396471635742*^9},
CellLabel->"Out[59]=",ExpressionUUID->"7ab6a13c-70b4-48ee-8a48-5c8ecb3c595e"]
}, Open ]]
},
WindowSize->{1389.75, 768.75},
WindowMargins->{{0, Automatic}, {0, Automatic}},
Magnification:>1. Inherited,
FrontEndVersion->"13.0 for Linux x86 (64-bit) (December 2, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"113560fa-e11f-4c62-bef3-31abafb036af"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1065, 22, 113, "Input",ExpressionUUID->"137265ab-321f-4792-b29f-d90a733af3c5"],
Cell[1626, 44, 314, 7, 30, "Input",ExpressionUUID->"883ffbce-ec8a-4bea-82fd-15315e8e8450"],
Cell[1943, 53, 349, 8, 31, "Input",ExpressionUUID->"11f78f48-8152-4fea-ae39-cefff89cb163"],
Cell[2295, 63, 514, 13, 46, "Input",ExpressionUUID->"e8582651-3455-4b2b-993a-3b8a29159332"],
Cell[2812, 78, 526, 14, 49, "Input",ExpressionUUID->"73442ce5-68f3-46be-b20d-e95b03dd60db"],
Cell[3341, 94, 665, 18, 47, "Input",ExpressionUUID->"79d8b53a-83cd-43f1-b702-4145bfa1b3d3"],
Cell[4009, 114, 687, 20, 50, "Input",ExpressionUUID->"7ea5d8e8-b78e-4509-abe8-b72db91fad4a"],
Cell[CellGroupData[{
Cell[4721, 138, 387, 9, 29, "Input",ExpressionUUID->"545408ce-c343-4b55-92ab-86235b47318e"],
Cell[5111, 149, 1067, 26, 47, "Print",ExpressionUUID->"1c4d1337-7be0-4bfd-a895-da362faba795"]
}, Open ]],
Cell[CellGroupData[{
Cell[6215, 180, 441, 10, 29, "Input",ExpressionUUID->"1d7fdb07-1706-452b-a766-109e6e4a624f"],
Cell[6659, 192, 1289, 33, 47, "Print",ExpressionUUID->"9aec959c-f450-4143-9349-2c69d553de28"]
}, Open ]],
Cell[CellGroupData[{
Cell[7985, 230, 934, 23, 29, "Input",ExpressionUUID->"9785c009-8129-47a7-a8f2-2f541851d41a"],
Cell[8922, 255, 357, 6, 33, "Output",ExpressionUUID->"74c9f7f3-f465-4450-8df6-3ed4464d0f4b"]
}, Open ]],
Cell[CellGroupData[{
Cell[9316, 266, 575, 13, 65, "Input",ExpressionUUID->"23b6297c-d11c-42a3-97e3-5e6d2f9d5bc9"],
Cell[9894, 281, 1217, 36, 66, "Print",ExpressionUUID->"a0c80a4e-7b9b-43df-a65e-fd6b61478ebf"]
}, Open ]],
Cell[CellGroupData[{
Cell[11148, 322, 602, 14, 65, "Input",ExpressionUUID->"5de06862-2043-4b0b-9eb2-084ab60d79b1"],
Cell[11753, 338, 1566, 45, 66, "Print",ExpressionUUID->"cda7045e-c9b3-4faa-aa88-a89bbf0b0548"]
}, Open ]],
Cell[13334, 386, 572, 14, 65, "Input",ExpressionUUID->"1e999219-f9ed-418d-b404-9d707428f5c6"],
Cell[13909, 402, 577, 14, 65, "Input",ExpressionUUID->"be14efdc-0ce7-444d-bacc-abfa25f3cad6"],
Cell[CellGroupData[{
Cell[14511, 420, 446, 10, 29, "Input",ExpressionUUID->"d815889f-3d98-4e53-b408-c822c3b58319"],
Cell[14960, 432, 576, 12, 44, "Message",ExpressionUUID->"3f24e577-52a5-4afc-9921-7689ebd516e0"],
Cell[15539, 446, 2633, 76, 129, "Output",ExpressionUUID->"73fa0bb2-a763-47e5-986a-1af01b068d49"]
}, Open ]],
Cell[CellGroupData[{
Cell[18209, 527, 259, 5, 29, "Input",ExpressionUUID->"a7b09a3b-0f01-4266-b8a6-eddf4daa62ef"],
Cell[18471, 534, 2377, 73, 66, "Print",ExpressionUUID->"6ffa3de6-d44c-4e88-9265-937bc3ec82a4"]
}, Open ]],
Cell[20863, 610, 535, 14, 49, "Input",ExpressionUUID->"9ec5a1ad-b707-4708-b0d0-4e9727efe761"],
Cell[CellGroupData[{
Cell[21423, 628, 399, 9, 29, "Input",ExpressionUUID->"1170dd17-d2fe-4cf7-a25f-f31b77fce8a9"],
Cell[21825, 639, 1512, 42, 238, "Output",ExpressionUUID->"7ab6a13c-70b4-48ee-8a48-5c8ecb3c595e"]
}, Open ]]
}
]
*)
resonans3.nb 0 → 100644
View file @ 3130b7a5
This source diff could not be displayed because it is too large. You can view the blob instead.
resonans4.nb
View file @ 3130b7a5
This source diff could not be displayed because it is too large. You can view the blob instead.
resonans5.nb 0 → 100644
View file @ 3130b7a5
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 13.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 46202, 920]
NotebookOptionsPosition[ 44928, 893]
NotebookOutlinePosition[ 45326, 909]
CellTagsIndexPosition[ 45283, 906]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ", "Input", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"kin", " ", "=", " ", "20."}], ";"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"mass", "=", " ", "936."}], ";"}]}]], "Input",
CellChangeTimes->{{3.8698997367340517`*^9, 3.869899843251645*^9}, {
3.869900162194075*^9, 3.86990022514108*^9}, {3.869900263296324*^9,
3.869900278820773*^9}, {3.869900716799706*^9, 3.869900721797647*^9},
3.869902565634445*^9, {3.869902624866561*^9, 3.869902626057645*^9}, {
3.869904698619644*^9, 3.8699047019298077`*^9}, 3.870142822697193*^9, {
3.870144764448131*^9, 3.87014476799769*^9}, {3.870144888379427*^9,
3.870144970243932*^9}, {3.870145792817855*^9, 3.8701457939369917`*^9}, {
3.8713910972634153`*^9, 3.871391103619568*^9}, {3.8714518138981028`*^9,
3.871451832796793*^9}, 3.8714523038600388`*^9, {3.87145238207703*^9,
3.871452385670923*^9}, 3.8720846338697147`*^9, {3.8735416074490557`*^9,
3.873541607808901*^9}},
CellLabel->"In[7]:=",ExpressionUUID->"4a74809f-4d6f-4bf5-84df-1c81e845ccce"],
Cell[BoxData[
RowBox[{
RowBox[{"sps", "=",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Dashing", "[", "None", "]"}], ",",
RowBox[{"RGBColor", "[",
RowBox[{"0", ",", "0", ",", "0"}], "]"}]}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
RowBox[{"Dashing", "[", "None", "]"}], ",",
RowBox[{"RGBColor", "[",
RowBox[{"1", ",", "0", ",", "0"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"Dashing", "[", "None", "]"}], ",",
RowBox[{"RGBColor", "[",
RowBox[{"0", ",", "0", ",", "1"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"Dashing", "[", "None", "]"}], ",",
RowBox[{"RGBColor", "[",
RowBox[{"0", ",", "1", ",", "0"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"Dashing", "[", "None", "]"}], ",",
RowBox[{"RGBColor", "[",
RowBox[{"0", ",", "1", ",", "1"}], "]"}]}], "}"}]}], "}"}]}],
";"}]], "Input",
CellChangeTimes->{
3.871701793434409*^9, {3.872065693342557*^9, 3.872065697733029*^9}},
CellLabel->"In[8]:=",ExpressionUUID->"4abccf8a-d47b-424b-acb1-36e9461ec53e"],
Cell[BoxData[
RowBox[{
RowBox[{"kIn", "[", "e_", "]"}], " ", ":=", " ",
FractionBox[
SqrtBox[
RowBox[{"2", "*", "mass", "*", "e"}]], "197.327"]}]], "Input",
CellChangeTimes->{
3.870144988515087*^9, {3.870145025281687*^9, 3.870145047838258*^9}, {
3.871451965683363*^9, 3.87145196928242*^9}, {3.872063208516612*^9,
3.8720632133894377`*^9}, {3.87354165429843*^9, 3.873541682028607*^9}, {
3.8735428967851543`*^9, 3.873542921291761*^9}, {3.873729554724765*^9,
3.873729555224043*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"ddda9570-52bb-4f7f-8d3d-86bdfd8586a4"],
Cell[BoxData[
RowBox[{
RowBox[{"kOut", "[",
RowBox[{"e_", ",", "U0_"}], "]"}], " ", ":=", " ",
FractionBox[
SqrtBox[
RowBox[{"2", " ", "mass", " ",
RowBox[{"(",
RowBox[{"e", "-", " ", "U0"}], ")"}]}]], "197.327"]}]], "Input",
CellChangeTimes->{{3.870145798453801*^9, 3.8701458265877657`*^9}, {
3.871451836727564*^9, 3.871451840179946*^9}, {3.8714519734346457`*^9,
3.8714519739887877`*^9}, {3.872063215936698*^9, 3.8720632175080347`*^9}, {
3.873541677338694*^9, 3.8735416793910713`*^9}, {3.873542899115011*^9,
3.8735429242501287`*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"86a69de3-cbb6-4ee5-8cee-9244eebdf060"],
Cell[BoxData[
RowBox[{
RowBox[{"\[Delta]", "[",
RowBox[{"e_", ",", "r_", ",", "u0_"}], "]"}], ":=", " ",
RowBox[{"ArcTan", "[",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"kIn", "[", "e", "]"}]}],
RowBox[{"Sin", "[",
RowBox[{
RowBox[{"kOut", "[",
RowBox[{"e", ",", "u0"}], "]"}], "r"}], "]"}],
RowBox[{"Cos", "[",
RowBox[{
RowBox[{"kIn", "[", "e", "]"}], "r"}], "]"}]}], " ", "+",
RowBox[{
RowBox[{"kOut", "[",
RowBox[{"e", ",", "u0"}], "]"}],
RowBox[{"Cos", "[",
RowBox[{
RowBox[{"kOut", "[",
RowBox[{"e", ",", "u0"}], "]"}], "r"}], "]"}],
RowBox[{"Sin", "[",
RowBox[{
RowBox[{"kIn", "[", "e", "]"}], "r"}], "]"}], " "}]}],
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"kOut", "[",
RowBox[{"e", ",", "u0"}], "]"}]}], " ",
RowBox[{"Cos", "[",
RowBox[{
RowBox[{"kOut", "[",
RowBox[{"e", ",", "u0"}], "]"}], "r"}], "]"}],
RowBox[{"Cos", "[",
RowBox[{
RowBox[{"kIn", "[", "e", "]"}], "r"}], "]"}]}], " ", "-", " ",
RowBox[{
RowBox[{"kIn", "[", "e", "]"}],
RowBox[{"Sin", "[",
RowBox[{
RowBox[{"kIn", "[", "e", "]"}], "r"}], "]"}],
RowBox[{"Sin", "[",
RowBox[{
RowBox[{"kOut", "[",
RowBox[{"e", ",", "u0"}], "]"}], "r"}], "]"}]}]}]], "]"}]}]], "Input",\
CellChangeTimes->{
3.8735413196128597`*^9, {3.87354136431686*^9, 3.873541446430656*^9}, {
3.8735415717184877`*^9, 3.873541576826765*^9}, {3.8735424454621572`*^9,
3.873542574461391*^9}, {3.873729533939823*^9, 3.8737297084349613`*^9}, {
3.873729740827138*^9, 3.873729822160321*^9},
3.873730350881184*^9},ExpressionUUID->"f9b93666-a5b0-48b1-94d6-\
6d1a85496d1b"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"\[Delta]", "[",
RowBox[{"e", ",", "3", ",",
RowBox[{"-", "2"}]}], "]"}], ",",
RowBox[{"\[Delta]", "[",
RowBox[{"e", ",", "3", ",",
RowBox[{"-", "5"}]}], "]"}], ",",
RowBox[{"\[Delta]", "[",
RowBox[{"e", ",", "3", ",",
RowBox[{"-", "6.5"}]}], "]"}], ",",
RowBox[{"\[Delta]", "[",
RowBox[{"e", ",", "3", ",",
RowBox[{"-", "6.8"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"e", ",", "0", ",", "5"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]", "All"}], ",",
RowBox[{"PlotStyle", "\[Rule]", "sps"}]}], "]"}]], "Input",
CellChangeTimes->{{3.873729834304262*^9, 3.873729962816473*^9}, {
3.87372999361537*^9, 3.873730015311598*^9}, {3.8737300586286993`*^9,
3.8737300653434553`*^9}},
CellLabel->"In[15]:=",ExpressionUUID->"aa0fae4a-3cd8-46d8-ac13-32fe6f27924f"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[None],
LineBox[CompressedData["
1:eJwV13k4lF8bB3Bbxcw8Y5iQkiV+UiRZKpJzi8guSyJLRpYoRUhosyQp2dci
S0mL7HsyZI8wspR6lRZEsrSI8p75a67PNcvzPPe5z32+I8U4ZeHKxcHBsZ+T
g4P9evsCY/WOY8Fag7MyL+SOrEPPWZLGNpK2yC7c5v67g5FopaU+TFLyOFI/
Mtb3OTgWUeMrikhDvujRffpiumIiut1wQ2KV5Dk0Y3zo2nejFKQwcyxmxf0i
ijORPlHNl47eUjP/LQ+GorZfYrrxYbfQib3+J39JRKHGQ553n5y5g0r7R/MW
dK6jilqvnmqfbPTHy3hk1v0memPVJNTsnIN0u+L++zkYj17fKeBMkchDrCWP
xO8SaajFV44+ppqPAlrFlWaK0xFlo+ND5kQ+Wp/Q3zmtcwsZePq0q6XdR4yt
wP3VPQtFn395O2GiAAU+IlfPDeYgC+EPRsdsHyHD+M+r5+7kIsvTVhseTj1C
YoFMq9njeUhMQdN+LOQxatA5+31m6S4yG4iP6k8sRGvefNg8LVGA7sUZ/7W0
LEJDDU/9p8YLkA2/Iak5vgg9uJfa9LX4AbrqJGyv3FuETH1NnSZ1HqFvVI+i
bUbFKJmvJvmL+xM0yRyWLlEtQYK32rhmB0tQVJLJ2siPpWiJWlFwWrMUKZKl
awtEytDHy7nm3++Uoj2Cv39oGJahCvcLmTPHy9DOz6feVT8uQ3YqqhrflsrR
WCmzLsG7HGV3ZPl8lahGp6H04JXXFWghtXzr/65XI4mv8mcH+SqRnnvnWN9i
Nco5JJJYubsSTXH/sq5h1aCEnrNm25Mq0e69phpRkXVocreTq7ZBFep5ssy1
eeYZEkmotOzKqkYXOxQMdzg1oeWopqYNgnXofnGl7MOkJlQaHWbNvasO9aXu
4/7vRROim+mOPz5Sh2TcD9etU3+OzPctdprl1aEO7nBFDnoz+k66YvM/5adI
eO8bwZctLUhCL0j8w/56VPgk6s0JxQ5kOtcpvV6mAU0KTl43dO5Akn0bOnyV
G9DmAEMtucQO5ESKEayBBnRHk5w9ttiBqLrCekIODSi+/bqbXXMn4jKKU+RO
akABYzdn9e270A3VnyofOJkoi9wZJrC/B2UkcMeV9jCRO+pNm/JlIamwg0YK
Bk2II+dnzZtoFkoK03u6yqoJpfKIjXTksdDmmdnsV45NqK3dTbxggIXucT5f
Y+vXhOSslnNcNfrRyYSz675nNqFxj82P3nG+QuLBU3on55qQZ/z5+p7YAfTe
XCOGlPAceX/aMlZWOIwu3HTXjnnajEYdh3mZ7cMo6oaC1Y7WZmQ5dFWx6+Mw
agnI6X7R04x2d34592n9a7SO7Lp5eqwZcRffpQlHvkYRC0kZ/XwtKDVESuus
0xvEyXm8T9+qBTHpomnqtLdIo7UvjedjCyJJhW/+3+5RpOR3UbfueyuKoXVu
zT46hv6Yt5MqHrcjxhurZ9wvPqM31ZO648adyKc5nHFq8yTqEOvIjS98gYpP
UyzXGUyj/TY+11b1dqHsYK9JJZvviPBVWpn/0o1Cs5YPLkzNIvLBbdNBL18i
DtYo1AXNI6liqkekSQ+S9XMLtNr6A9nrm1AiinrQxx8ph8hPfyJTrdHHHty9
yPCT5/l4n9/ons7GDjGrXmT6MVZeXPwPsn8/+FskoxdNNjEutT1eQvpZF6yK
B3qRosDARh2nv0hFKFtomNaHSOiH88j8PySZUd2Uod2H9Kftfm2y5oBcbhXH
5dN9aKjxGKedAicU+1yoDEzvQ+VXnztK/uCEDb8UZgSe9iG3Vf6j3d1ckFJy
dFvwuz7k4htcTknnhvtCmjNSf/rQdnf5bmNnHuBnVEdtE2Shl4IKZH/1VfCu
W3tRZAsL1RaGZihwr4YMvx/k6j0sFMy51fzF29XQu2gksMmEhUgjQQe8y9bA
SuzG+dtHWGjn2QLiZuUaiHwfZvMS21lwqO9JzRo4fSEzncOehaoOqDnMNqyB
qEShpwxst/IZH7+uNaAKhN9/DizEjDmWEfR5DXxIkivJc2ShQG3Tb1fW8QL3
eFrhNWcW+nRPKjErhBfa27LSf7qx0FT4+0XuS7zAwbA/Je3OQnOMbCePMF5g
Pr8uYY7NISElv+MaL9hu9RMswF6fItnYmMILlj7ROrYeLGQeKfH9Uwkv+Ixo
jZQcZ6E6943GChO8oGHKo2x0goUS5UR5qq35wLbsS5mgDwvZO8rmjx3mg02r
xaxVsWUSVQyp9nygwFk1aI1dtmIS68Lgg1ZR/fBU7P6BUDHqKT5INs8JFsP7
kB4xpepylQ/OzOlPip9hofj3z1yJWj54XZv5j/BnITuRLt7d9XzgJbplSR57
k8nrhwwmH6RbiLwxwC6pWpitbOWDHCWt/RHYfTe3XGD084HI8vWmP9gCWgnJ
ldN8sCrmvfdoAAvFpru1OkuS4Pr5c+XJgSx0NiD0TIg0CVrN1t4vwna0yJRI
kSWBhaDopQ5sBdLA2RcKJKgzCRn9i91+br/cLnUSBLufcHE5x0JctjJRFAsS
OClzBW4JYiF/kQ+GlWHYuXyUnGBcn/m/P3uvkKBUWLO6Clv3pWjuVBQJPM+V
Gr/EFow8uCQVS4KSkWjZZezCnw0Pr98iwUmLzHtWISw0/iqLwignQVK/2DuO
87geiQ7dlC8kUBwuOKx3gYXESkkbvCZJoK2iFnYE+3+9le7t0yR4pHgy9jT2
MX5BzisLJJj6xW2Zju19rUVlhZMMHM9Kzk1hh17anjYrRobFo3usoi+yUMEJ
zmMDFmRQOpgRUHqJhU5EFxapHiLDLd+g1c3Yig+O/I23JQPZlzdoALvkS3my
2VEy2GSaUxax6xie7W0nybBbyvud5mUW6jnMUqy9SoYLw1XoGfZv3buLWfVk
GFN/q/AklIVCarPCnjPJsCpa6GAdNodyOjHxnAzbQi84tGOvkbgppdxJBubf
P4pj2MKLgQbPB8lQ+9egXCiMhVQeG6eNfydD/81UqwDsCml9aWKBDLsiq/9d
xtZI13684xcZnlaciLuBvS9yJzPoLxmc32efzsM2d5acoJAo0DI/I9yL7S20
sHuHNAV8gm15ZcPx/on+1mgtS4Hfut5aStj+XBPGQVsoYPTPz0EDO2Tm7dGm
7RRI/nbqkCl2dHvrVWtNCvyQZqr6Y98/nzF0zpoCGd9/5NdjKywkMTIPU8DD
Y+pUK3aRZ+xU4xEKDFUpS/VgV9pEcFAYFAiRaEHvsVt2nJLL9KaA+f4HJ7ki
WGjs077AxkgKzGr5xQH2vqzunK3RFJDlaY45gH3nsF1XfAwFprmGfcyxHTt9
NrkkUWBnpfuEE/brojsvuHMp8OnpZOZ5bHVPhV9e9ygwukmyMxw7VbpKqr+A
AgdSLd5GYx9KfhmQV0QBtTOdpWnYfcH/JPfXU8Dt9qstZdg71K4ZPWZSwNWw
7koNduw3oQChZgqkHhhub8A2dd7W+amTAjmP+ri6sDv07P2vDOP61EfBR+xG
gZr21gX8vO93zhJX8LncuX9h+28K3AlilQliXwrvFU9dosAxeREnEWytX+Nn
PLgIOFH+xF0Su2ZERJyPRsCTDeMGO7BFk3MP+NAJaFa6pKOGHWi2/cywMAEz
n39Kq2PvbNRrK9hIQFpPRhpgl+T7+xrKE7BkFX7YFFvAmfN2iSIBl/f2RR3E
Pr3+Rut6ZQLGmGo5VtiKN/LEvu4m4NPs4at22Df0lPQtNQmo0JY95IA9tVLr
U4sI+OMvQz6K/cCX1RKtR4BIXfdWV2w+BafZeQMCqo5eTXLH9vg0ucHehID9
/DFfjmPLHubyUbDCv5eSqu2NHSEQk5FoQwDn/AOD09gfO0Rblu0I4Doio+6L
nbN3x4YuZwJ+7XHv9sduNCWFLR0jwFmDZnsW+4PT2OQWDwLWNTh0B2Jz+dRZ
HPYiIEjbWjEIWzo0qeaKNwH0HcuBwdi6Cd6byn0IGFmxKQzBPpanf23Mj4AD
G727z2OHl0vOCQQSwP1LZ/gCdl7Loi0EE6C5+K77IvbzwT6m9wUCQmJ0n1xi
3+/4wy23LxNwVSIo6DI2z5/wuM5wAlj0CKVQbBmy4+JiJAHfejx72dYV2+Us
F00AUavkEMa+/jZa+6EYAkJVR1hsh2tNKEXEEbA301ctHPuuWWNqaSIBV2wW
L7PdcjSD40MKATz1/tVsf/bx86BlENC7bfoN26vDTHq0Mgk4yuk6wbZsouzu
k9kExMR9eM+23t2VrIw8AmrVvJrZdqsYWtORT0CqDk8i21dai0/9fkCADn+p
Cdv3hq4NyhYSYPg1ZI59fy0TLsi6mIBHcu6hbH/+o5kfVkbAqPDZv+znW00R
5i+pJOA2d4kL25s3zgSM1hCwbc/GcnZ9Dii2vaPWE6DLWz/Lrp8HytbbyySA
oyxNlO2r5kGFXs/xekeUK7Drfd/ZUji9Fa/fc2F59nq0+SpcaOsgYKikcS17
vcbDVn3+2UWAUFL9BHt95e5Vllv2EzC4q9b6HPt6lbEbQwcJMAhomWL3i0fb
8Yii1wTsydt5KgC7YHKDNfGegLPVdjvPYHcsLdTt+Yj7S1A02Ad7ktIt4/kF
94PWwYensLduv7TQMk1A9v90ur3Y/X/mY8KlPwS8qmgSd2F/P/zpUuFfAhjr
Pzxj74/JpGSXtxxUCOnKNXbElq86oKKxhgrMpv+22GI/Wn7UN0+nQsWqsm8m
2C+IKxqbRKhwZtX5aUP2fhN3yjFfTwWn04JD+tgK2gK+jyWpUPq74rQ29uMI
fwH3bVSoTvEvUmF/XtMhNEKJCgO+mZJK7M8v6M7nqlChPjrsvAL7fhlrX42q
U6HxRtJfGXZ9UWmqnR4V7GUcRYTY9fyZznfOgAr3Db5N09jrVxgalGJMhfSK
o8UUdj+IWdj3W1DBxWLlHzd7fyx+lzB1ooJVaX75LJ53H4uGYk8wqNAE3fNT
2NIeDZzRrlT42rYsPo6dM3BzrNWLCpxR4ZrvsLNKFfO1A6lw9ykzsR07/eQJ
RbU4KqjvW11/iz3PZayyLBOpML1zpDsZW3RkD803hQpj0Txdsex5bkieK7xN
hV9Mxzj2fE/a/KBc7gEVyDw1Gl7sef3+i6ZYExUkWilr1bAjrV2MuH/g5335
maMWnz85ZiP2rr+pMHQ3SKAEu87A2rt1Cdcv6BmlgH0+7tWPi+bih7GXvk3J
2Pay8oN0Gj8YJogr+2Ar/5pjyMjzg5t2oOgm7HepoUH7nflhoPvALj983i7G
L0XnH+MHKdXh+x7Ya2/43ebz4Ietr16scsA2uOzW0OXND/ez5y/vxy47brj6
UAg/vJscDGOf/9c0BOPdUvjBjL+mpBjnA7WR7ILILn7geR/x4TXOGzRFj99P
eviBEi5f14U9dVFRf4iF31/wCW/AzpOu/Sj3mh8mrOZG72Kv9eqX6PjMD8mx
uztOYf8J4TZazUED7qp4Zw7sYfJO5gFRGhzd969hLc47Lapp4yPraTA+NxOw
CrvMYZnfR4wGWTx8Yj9xnop90uiYJkED0x6myiD2AUuz5Yn/aBDkyUxLxa5K
99gVrUyD78s3ddZhp27JeNxlRANJyuRWMs5nC/N6d8NMaKCpQ7H9jfOfWf3c
LXUzGmxYt3LmE/ZqS8Prdy1oUDzhefoZtn/Ioud5WxqsLI+H+WJbvLSR2+ZO
g9WXx0Vf4TxJ8V+bez2UBrs+zctcx3nzYsONVKNqGig+ON7RiPPt5NuGxMUa
GvA8dWE+xD60NB+bX0eDtjEiP5Gdh3faRXE30KBFP1zLDXvooWxQbQsNAjYE
ZPJiK6c8OyLfT4Oqw2ayhmfx/Ds5K06eocFno2y/BpzHTTZY3+2QEQC50eW/
QTj/a3u3HhGIEoDkKDeHMi/c72IMmRc/BEBhm92Cpws+H5ryk02PCMKoYtfU
sB2u57bGrX31gnCO5pBUdRDP53me3vatdOBsthQn67MQo3hOMuomHeRd8166
auL8Gmq5bBhHh7IKoUFVbH/LskFKAh1u2Sj2cWNf/eEfE5tMh/FgRm42/j9X
qL64lHKbDk6dSiUjGrg/mSsD9x7S4b+MneHm6vj6fZQbz1vpeD330bbvxPsx
96THlXY6PJDtj19WY6Fcv26dA5102N7ly9eBXSEc+6ezmw4q8R/7jmGP2NE9
WK/oIBA2O5CmiufHmKjOhzE6TF7yvMepwkJKZUHieZ/o4L9G36tbGefXiDeL
rl/o0HeLIZOBbbz5dtHEJB2W9VzOqGL7ekmKz87SQa1oNNxtB86jmpcXS+bp
oNNBnlLGjiA+9Pv9oMPPsBj9FSXcX09yo3//poMtf/6bFOycSzzuNX/ocG1p
39pj2A8Puu4LWaYDo26fthJ22aaWjVr/6KDkUMBY3s5C9fOyiysrdDg8fi6w
Dfv/5P+Gdw==
"]]},
Annotation[#, "Charting`Private`Tag$11606#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[None],
LineBox[CompressedData["
1:eJwV1mc4lm0YB3AjGmh4WiQrvSRpkKb+t0QZLVmpVDLKSkplNFWiSEJKIiGU
qFAkEdmK7IyMZ/MMUUjlvfp0H78P13Uc531c5/88VRyOWziJiYiIrBEVEfn3
jTvvILnS0X+T7dM6xSfMPShtUDa3Ud6LLeK10nK9HzBRVhiorHwM83zGLyw4
XYXpEblZ01q98cD2iJLRjDrEFYUqSSj7YvnYYFX14S/QEjiGTbhcwOJYb96S
Q43onP7w7++Wy4hdEWUqqtoMtZSper/Gr4Lbu87zak4L3PV9PEaUguEw+UXg
LLU2vGrsTho2vAm6wkyu3qmv+OVm3jHocguh32csqkpvR4JoR/CI0W3Iro85
41vdgS21txf/bIlAuGKdh3pbJ9gxW4uHj0ViqeP9xWrNXbjp+Gf/0HgUWF+t
9u4p/YaG8aORQqV72Fglc1v9XTdOlyuuELy4j7JXsSbGqj2Qv9NYzTN8gPXJ
6p/9LvfAQZMS73eJh+v+9pSS1b0QG/f7PByQgI+VzMSg4F40dlstHDZ6hJOG
9C+lbb04+0wq73tLIq7Ez/mb4tUH0wim5PeEx1jpuG4w73UfFM4WWw4eS8LB
FToVi373ocjwjFAwnowz5zvcEs/RMbm9V52nlIZDE66z57kw0Fr0zmeAnYaT
1Udiah4wkJ4SU9L/Ih3HR+3qmusY2OG94yDX8Bn6vyi/1NdlInpqfjTLJRMx
bSqZllwmss+Yep+cn4Udc8dfv53NwgPuGrmhgCzYP1k7eUKfBc86WZfvRi8g
WXbRwCyUBdkHFWKDLS/xRDFx0hJlNsan56Z5bXyFeXXGk55sZoN+6fEuYcIr
1EmdcbJwZCPX5fxDwbFsNNeWSe5KZsNOR3c9fzwHIva0jFRFDgxTVHo8DuXi
i0VdhfUGDrTkZlznlebi5G7WXWcbDv7+5TQNhL6GZIt/1/tQDh5VxZ/oV8rD
g9Jhm44hDoZjcjS/3cyDZtVIjcp0Loxdqvu+jOWh1PjwyRZ1LgbER6zyG/LR
XXTuZvJeLtbq71gfHFSA2I+SCQavubgh5TgUMFyA5RsP0c/XctHV5vvM6/A7
VC+1n2nex8WV08mKthsKsStdS/SxTD/qMn+LqQve43L6+wvRB/ohi6n2MtpF
8Je1W//Eqx8b/otcH+RYhEA1tUj7wH6EDacN+dUXwXjJeFjVk37o3m5ycnha
jHyt9q7GgX5cqNIyXXmwBPfWJl05dGwAqS9e//c0qgQr1J78rj0zgC8xm8UX
15Qg3+5a2MTVAai52BbMX1cK2Wl5btmPBlAlfkVbhPYRHWLBL683D2Cufrvs
57IyBHOl9b7q8UCpOQu2/SlD4OybtPmbeTgmNVj9Qacc2qKJMUu381DQJnk1
N6EcMp17RpsdeHA4vWokzq8Cl0PHj1jd5OF5ZnC7u3YVMkXbCiNaeeDKcm+a
Hq4CK8zZld/Ng/pp000akVWg69v0aXN4SNgo9ahvrApNP7ukD43xEFF509nu
YzUs9HPtbs3n43TfrcGt+2uhNeeplL8FHy+NhYmLb9XCvqasx3IvH4K0XZbi
H2pRIbshV+4QH0e9Zr0uVP+EzPqABCcPPuz+RASsHvqEisa102YE8REvVR04
y6gOl/K/5LBy+dik77//on0d/rY8PxtZwEeH59LVgjN1+P5rW/KKD3zM/3KD
WZNeh//EP2isreXjdoy5yfWZ9WjuuTw3pJePwMWfpk+01+PUrymLjk4TQNXm
PMvjRz0iWynVxTMEKLquXdQx/Qs+V0ZXNdIE+N0fdiLf4As8bKzLpRcK4PNy
Z6PPky+w0a9YQNcWwAX19wa8GxDqME93zy4BRBJ/5rffaMDG0AiF9ZYCxExS
6KhKasCsfYU35toKUFHprJjW3ADtr8rnsg4KoGH5O9FpfSOm9chMdfcUgH1U
/VmXaBPWJjUtXhAiwMVq89pa+SaoBbgfPBoqwHxtb36BThMsFOcyn4ULsG2o
YEWsUxO21mfpK9wVIO2cRY5NZRO2Scq/jn4sgGvEucK68GaIVmkUTH8rgNiP
xG/v05px7+rz9PZ3Aty3qRDJ/NCMIkl9s0dFAlQp0AxDh5uR1TkknFsmwNIn
qeUmti1gTCgyMuoEGHjbUPdBqRXP+/XM79MF8GQs6ct+3gb/LTv5AnEhuu3b
phRXtsHYplhsioQQe1qva9fS26DQbfVLQVKItdUsX4b8V2yJDH+lP0UI8RfJ
M+cGfcWNBW1a+6SFiAlQ2XTmYDviH1q2Ss8WYtrPuiOBfu24NHDo7U/ic8cv
Bt+Kasd1lb2jnXOEcHD41vikuh06JWfvJ80TQmtbnFvrmg4svPdGh7ZAiGKa
3L11MzvhNT9Hzl9FCN3QikKjpZ0w8r8crK8qRIrkWfpu407YplS9+kN8c6x5
uWtAJ5oCXLafURPC+ltk2X12J1RundbYpS4EN33m8HhRFw7rKbEeaAmxX61I
bkpHF9Isi5z0lwnxOe44Zo90Ya7XSn47cXb4pxCtZd/gvMpem7ZciAunb6oc
uPcNI04iTNeVpD6VK+rf1nbD0tz964fVQlRsvL38vFE3zludNtDXE+Ka7cM1
Cy26Ib5ZVyuXWCz8zdZ9bt3onMyJebxGiF9/B1xa4rpxVn6bqsc6Ifo7rFI/
i/UgfM2lU+82CpE+6pDlOYPMtU4rbxV9IY7O9nojo9CDOzSO8hViullIhdnq
HqQeuXvfaJMQHfmF7HKXHmj5vDfOgxA1MepLimp64L2Jeuy0WYiQbN2VB9t6
8PPO98Yc4m11Buv+Mnpwzaeyc5KhEKWT95tsnCDnt2efiycuOB1+7M3KXihJ
iuqUbxHCLyLuhM2mXtgKLtpNNyLv4Xm670/TXmD2RldL4mxGabCuYy/2iNwy
7STOsBxLy4ruhbT7R+NeYyHcvSRf7nzcixXrDrGVtwqheZOWz8/sRYbOzMv2
xCkly6q0Knsxo3dLcjPxw1UO3NTxXhwbUfyWv02IsJnVmo8O9WFPXvQrS1Mh
8tYszNnh2Yd9SeFRQcR0++P47d8HH3elI3nEGzJoljZ3+6A3bFEpZyYE22T/
OZlPfRh1sBuvJZ594vnkt+19eLH/6MlRYsSIRBzl9GHGtrUsFXMhoplJKSWT
6GjKbq08QWwYyPvsu4GOsy9WZ0lsF8IzHXbqJnTM2x22QYP4fv1teqM1HSzP
1HoTYqGS3thybzpeHty+OIRYYev1wM4LdBiUHmGmEm/1/CpzI5QOXq9FXhnx
w4LzqsxUOvxnJ8dOEFf21T27k0vHrxHv5/I7hBietmiNQSkds3YI2nSJzfaW
mz34RodmXNwlZ+LRHzN8LOYyMPAq0eA98aKFDhMTixjI/1C/tYF4x5bs4IyV
DBTkPDrJJE6OsH04ZTsDLzg2m6ftFKIuL10j146Bpct3suWJf3f/fnnkKAPv
fKbmaxJbLH9UXhjIQKl2CXMr8Xnrod3utxloNH2zxYo47ZxRh1w8A/M+7Ws8
TNyYdNe5/BkDbebKdz2IRWo4wlP5DAgVfcLOEi8d2uCvWsFA1tGyt5eJreXD
JOqaGOhadE75JvFlg+5b5/oY2K0x8S6SOOPoKvmlg6Qe3cyoB8Stt64ktf5l
QHVkIPUx8aTXzdrXpJlYO2fOWBrx8i6NPB15Jr7qXgrKJLaT8DfsUWeCNum6
VTbxNa3a2rDVTOw2OOf4hvjFHiXbjYZMuJa8yHlL3OF3opeziwnPSydNC4mn
JJa437Vn4sx9GbUiYp3KOSNb3JlwOlBhWExsL3S59N2XCb9dnPR/DpmXL5UQ
RPa4ta/s/jlnk3T09igmTqg4W/473+1krzyeyETIEdz7d790aFZ6ahYTcc98
NQuI12SLrbYuZMJEcvvUPGKHdsv34jVMSHTy9XKIp8X2eJxoY2LR7xXVWcQv
7TwVvjGZuFcszH36r1758SrzYSYml5uNJxOLfw3yzRdl4d3uA/fiiZ/dm62h
MYOF27abImKILfc+ao5SYGEgWIIVTpzUmq9zYg0L7K6o1AvE5jFbe7u2sFC2
5NK808TDNo3h5hYszB2LZroRG7XweOoeLOi4eab9ew/8aL8HUX4saLdQ8SbE
0daTzcSvs1DjeHBsIzGzSTm1K5EFt0M3ulSIw6IyrM2zWEhgxbjRiPWs1kvk
v2PBvfb7oUnEQY17HKJaWTDJ9blOJ+9Xo+Gagvl0NlKGMxlxxHURtOq8BWyI
3/6vLoT4rEWCr/oSNp5L3NA8Q1xZn9cstoWNlRuqVu0gdq0bCM/zZSN2v0/6
D9JvsuG+UA9io8L27bIu4vydkvzISDYWDMlp/OtPqc9KZl6ZbKTKRV2NJH5W
ayGhzmBj0/Xd45rElqHfXkV+Z0OGr7dzBvFvc3cHMREOlBsGlYdIfmyvufq+
U56DxBfqBnnE/Ko3vpG7ONjuPRaCf3kTYqQhZs9BwvvxPiXiTaZfmo+7cWB6
W7N4guTTrcp+HbNrHJxIVpAqJF5RocgXLeDAOvnYd13iEx+vOBwne3VoSPFL
aZJ/inRjyZ86XATppJmyTYSoFpuaHkBxMdOj+2IJ8WIqdDCY7N1WSd5VZ4nb
8qMuJt3ggnfcsaeL5K1BVsrDNgG577Vz1D2Sx7NiK74avulHU+Ok+BoyDwrz
Qs5Xlfbj7qUQ0Thit1Zz1d31/ch9t1fWg/jjnPpj9tx+DH6Po6SJfcPbRs8q
DCC2gNZhTOZLz1Xu3OcXB3ApZebxDAPSf17Se+ab8NCh4kffTOZZzX2ab4Y1
D625IzISxMxS+fjNjjzsZ2Uwy8j8k5db0u9+gQfB6/gnJsRXio0Ci3N4mND3
PGVG5qe17IVXrqp8TBn+GketJ/P21SDt3Tgf+R65msNkXj/yd+OusBHiRoB3
UxTZB1YUTR0NOiDEaosbm82JiyalSnw7IkTC2yvnxYi7Q+nKoV5ClHvJO3ou
Jf834YANJ1gIFu3jgKEmyf/SnaWPCkjdd4M1mWTfiJDRfSirOogLO06PTVlE
8iz+9+7hgUH0J8lyG+aTPGzopgr8hmCifOviFrJ//XfK+ayl5g9Iq/TIrGwU
gP7jrrXUu58wc9MQq04UwJThei7ixCjauktm7ncTYAc9fKmi4i/09U7PjNER
gFvicLEiYxz6Ti5dH//yoT2reaHhwT8oTzfdyirlYxp+HO4Y+osVL2UiIsL4
2MqzG1G1EqFG+kd3he7ho/WDo6idlii1fsE62QdyfORcL7VX/iFKBSoZhaf3
8eAs4dP96ZMYtdb3cpdjGg9HvP1zpO+LU14JN00MTvKw3GXpJ/PDk6gNsZVt
fpt4+CyrJeWzToIal2lyjZXg4e3zy7Fa4pJUoJn19oG6AfiLau6q6ZSkRP/g
lXHMAKZ1+G3zzJ5M+VrLFKsdHgAjRSUyPmAKxTi4nb9EewCRGnKT8qymUhXK
e9sOjvQj/L5z+WHladS+lsauV+Qd2kUe+CTNmkZ9KNVb5XenH6NbksfiC6Uo
34jWO7ft+9HH2Hz2Q5A09Xi6gdLzZf1I1F+5oPawDOXbIh+tM8ZFxlWfWS7L
plMP+AW2mRWkb6yOmIn/mE4xtBZ3R9zjYnXHo7Sg2hlU6D7T3b+cuYhZEptR
azaTcooN2rh+LRcXikJjzPJmUmYHXPVoklxsX2CVXKU2i7rjEdVm28SBgWf5
vlnBs6hU9a5mm1QO4hUc1Gp+zKKsVz1eOeUsB2olT6J37JOl6hdpXjhsxkH4
sg+aXwplqRkdElmSyhw4D02qr9SkUee3Tkk8OciGw4vvysG3aNQnMacGtzI2
3C/v+W16m0axpGIePvvIhs+e7BbpOzSKkz90glfKxvUfPmHh0TTq85pFK4+X
kFxcNzZ+N45GFXCsZp0sYmOseKI55SmNqpqRZBuQz0b4F+nQ0nIa9dro5UTk
czbuP/Y4eq2SRh1gzvvcnMHG41OfDLdV06iTUXdT5hPnzg3/Vf2JRr0z6/N4
8JSNDjva0YYmGhW4J/5AUiob6n1yhr19NMo6ybA4J5GNFdl+ikkMGpV8nCY7
+oiN9Vfbx5xYNErxzw/X9cTm6nFZHC6NOndjUPd9PBvebsqKg4M0qjcrZ0nl
AzYCNl4aezlEo3ZWTH8rRXxVprfx1A8a1T5+2nJHLBsxmY9vjI7SqH107/iG
e2wkXpzkkv+LRrVkSuyeS/x0t9PmgN806lRp8rS9MWxkq5Yt3PSXRl3IsKiJ
vctG4dB/YxMTNMrgp1R0VzQb/wOdwtfF
"]]},
Annotation[#, "Charting`Private`Tag$11606#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[None],
LineBox[CompressedData["
1:eJwVUHc81f0ftSIj6/ajYfVkhaR6SlG9v6EIqYyECjcjiRbJSIOMn3AJScqI
IqPrScN95GNUZO+RkXVd8w73Xr7XyK/fH+d1/jnjdc424jVrdwE+Pr4ff/B/
fhFKFN7tFnzkbZe2BY18Fn3tULG0V3GA49UFYYqJ39Da94owFRUvCDBMknYz
a0aSiR/JYr03IVa9cZ+vVzt6URmrvE4lEGacrQ6EKXQhHYZb3JrnPXDZ1rhp
5XoPGpR8+Xul5yFsWgoLjn7Qh1Rfi+5fWn4EIhajt3Uu9qOrh/19FpWj4cve
Yx1XZAbR+87hHI7xY7jq3iCakz2ElrwtB1ie8XCE1TeVKT6MTJoS1BZ6EiGa
Qq1RvjCCJlNNqzheSRCXuVi7f3EEPXZbPc9eTgbruZ5VwehR1LF8OYmp/Awc
P9llbn06hm7XKukxStLgn/BbJVUbx9GWJ50Nc8bpQDts5zL6eBwRtTDBGc8M
sGnyl3bxpSKB5aAWTkgmNHLc99zvpaLOYTtFzrEscPNpqco9MoHuFIqXzfdk
g/Fw19+b+WjIPHFCeD7zFZwYjD8w4kRDCneqbFleOfA0VWQwp5SGKo0DmIzl
XFjIyGjouTCJRPpHNeaU86Gz2cBF9ckU6q384j87mQ8zOy9PqPZPobevU2tm
St5CS9RGR8Nt08jqppXztHEhiN6/LbM+bxqliFJSaJ7v4IJfwBun7BlUGmB+
89YmMlywunTcdnAGpU/rb2aHkGFJMP7oktws8m2V9Zw/VgKa8jbL4RGzSDa9
ToDV8w9YxHsFT9nPoWXJj/nXD72HcINDD95Ez6HxB69OMzPfQ9rBMwK+lDn0
0TP0JcOrFII1WpT1N9OR496/DejLH+DTIeJwUiMdZdVn3JhRLoM57lrf1vVM
xEn9oPXrcRn4kvxeBygw0XHPhrF2XhkEHD/RHqLHRLOCi3aUDgo4NduXxtoz
0YHDVgbRkeWg+OVNuEQ2E7W+WxHQYCDYPKU2Y6bFQrIgenGDbiWEBuS8xQxY
yFA9ySDSrRIi6kqU+c1ZKI6Tzw5qqwTLCng1cpmF/k7ocicWVEFo17V/TXJY
6F69jvlu5xoISIm2jZOdR3kln9QLkmtAZbhGJUN5HrWnGgmqNdZAdqb3aLTO
PFL1PFe+6eBXuLRzLJB5bB7VC4br8hG+waOGJwT5gHkkd7hftuX7d/igJmfh
2jGPit9F91/VrYdnI2TK1wA2mpadfmzuWg8iU6+ycu+zkcZt8yOaSfUgpVNo
7xfNRpmHxLPGePXQUpxhMZDGRok/Hns4fmuA929EygbL2ej2WDzL9HwT7LT9
emZwlY0yxBvCZI61gpHf8j5Tfw46cjj4/P2LrZBzzf6LdQgHDfhq72MEtILs
yEimdRgHbWqPmWh82wo3fzrI6CVwUEKq5Yko6Tb4KTwW7l7IQWFqzZJr/W0Q
Mmuk2DvMQZ7Q9mz2ZgcUbGk7WWDERXzZC5T+mA74xTW6RjTjolQhhYH6nA4o
Y6GfMlZcVPfDQym/+4/eeWbEwYGLNG1Xst0NOiE6/vYQ6RoXTV7WKBzi7wKp
JrZ4QRoXXUm8W9FK6oZJvfQy4VkuEuBm/0L53ZBEl6+eYnJRmn0d37vqbmjj
u6tRy+WiegWCcSynGw7W6R2+scZF2m/yak+c64ELt8TwMNkFNPtvR2u1ci84
ikYbF+svIF/qjrHS4j7oG3RzuhS6gIYv9q2v+tEHvLF9fUJhC8imN0q3abwP
Jq8ePJkVuYAONNACqVt+gjb2wKSBtIAES3Kl5SJ/AjVrLnM8ewGlhmw7EuDc
D6sNx3bs/76Aqgibnx2UHoTZPGlWiugiEtsWrvHrwDBMPd9dIPVoEdUdStgV
emwYdCcFPG5HLaKIcy/1Fa2HwXzgif/PmEUkQPps6uQ9DCTnxzlpiYto6fes
Z8+LYcjcTqYsZyyimQG7vBaBEShxsfYxoSyixlSNHZWNIzCYoq8tPreI4qQb
tLJcxmBjHc14pyWOyvQVP1j5joGHQ7+a8SkcjV+8BivBY/Bs9dvoWWscGRYR
bO2fjoExv/VSwDkcTZ44f3dD8xjMBwXgmW44Mg6bawk0HIfqbcQBUgiOcK6U
v7UcFdLv51qvvMXRdkXi2tp2Kmi6pZ3sKMKRlUlpdNFuKhBPL93NI+MoN/Hc
y/UnqUDWbok6+RFH1ruyaivC/viNwv77sApHRZf3bNFmUUGUK2uZ1oOj3vjw
nN7ff/IkSBS7nzgS+tStGyExAfZDGWFSgzhyXBdsPKIxAT7s7bqhozhan11z
9enFCThLjFIxm8MRsd8WCTZOwPSRcguSAA+JPR/xudE3AVrUu/Lq63joH0df
hV8TE2DjTb5KEeEhwZ+RgRR+Ggyfe0cZkuChwmcbNTWlaHDqt9wnXykesnXI
6k5WoMGslLrJqgwP5fRS9t7Qp4FguaW8nDwPWaaajg6Z0KDYneqSuZmHOPad
JEtrGljlaxjtUOChdHlXoDjTQE6psZysxEPHeubmNHxo0G8Y1b5/Gw/RU4LS
k4NokLIYuN1QhQcpZ0UsBKNo8OROUPsnRR4ckUviXU+mwS4nu5F9W3kw0aWS
N5RNA5KTq9WHTTyISy46a0n+k6eHy++X48F+O4N1lC80OBpx+9BnAg8iO22I
yb00aMLfxldK8kCzI0LBUnISarsU9owI8eBK6yypLHAStGOei7qycJAlBYJG
5CR8jc7+ukDHgXJKmJ6UNAnlur1VsbM4iLcoW1x/Nwn6zashiIZDYZP1Og3q
JJi4CDTvHsKBXv85MOn0FITZumSdbsDhxrdw4jWNafiPm2mZz2sclMaPCy/s
nYbMyTuyp3NwaBAQfRuCTcPDYRfnvdk4qGGxrGiHaaiICG1deYFDHyX5fk7M
NGjf9eKmJeNwlPz6ZR9jGtLznYIEH+Eg87zup/HnGZjPJB+854ZDyXUJm00n
5uB4k3UXWw2HrGDvaT17JiwIRtoY5S3Cw4yVM5xZFhBjXwfqHl4Evo5hrDyI
DcwXWTNbBhZA3c/jjq0WFwgT52p0ghZgnPv0rPiXBeD5pcm8V10Ac+qVu4k3
cOh0+WRIauKC1ThJW0lpCcZ99lwfDOHCdA3xfl3RMgQG3Ch138cFXZluRWPn
VZjh6L+MmeGAGHBdB9i/oVe8eSM5nwOmc46Lf9nxYSvHhcXt3DnQW+3G76jD
jx0dVxpcVOXAh6ivF1W4/Jhj1Plp9Rk2eKzzH25uFsD4/2MqTy5mw6WbwR8k
0gQxoaGuavU7bNjlqd1s6SqESU1G/HXOhA0tsjri/gfXYVHrLTMGNrDh3+KH
z3UEhTFOh5PLo4F5CObXOt04KIxdXQkvSMibB7GBIDPfUhGsfrtNBH/APFBf
b0vKCFmP3dqT6798Yh6SNDcLldmJYhem/xJ22zIPpDSPWlcVMcxdUbhIksEC
x6QLzRI0Mexw2mpgzDcW4Ca5vIwKcazQ7MzjiGcsGKMa3amOlMCeE7faX7zB
guzDu7c2uW7Afie9E6o7zoKiR/4ynjslMa/8OP4BZRZE2l2yEORKYm20X8l+
S0zYN5CVH9kkhXl8eUkmtzMhdcfzoiYLaayYVrH9ZDET7lXGplqUSWMHNsj4
Z0Qy4eRWu9x6VRnsVGpfqCuRCUd9a51komWwJpkuYxOMCRkKRNVGrgy2ls+u
oW9lgmrNmxQrJ1ns1Xm22T4uA0g7q7XaK2Qxib1cb3opAzzYQm0/tAhYYJBV
iMN1BhBL5lWi4wlYy3mpcI/dDLj60GbFPIGAnSrfVHRKjwH+NqU9Ek8IWNqV
xKkDuxgQxfWPI6UQsHTZhnTxnQwoPshbfvqCgKnZ8M2WaDKAV7XW/bqAgMmp
sbUEVP70t0vEfq0lYDHPqXIlkgxIe+VzOeIHAfPiuOWlb2DAK79mY7MGAuaw
hltGSTDgoxxpqaGZgE1N2rQ4izFgwJFwuaOLgD0jRnyWEmaAxthm49ExAsYQ
8d5ya5UOeqVBSjlUAha3n9rvvEIHg0f9PHcaAaO6mJItl+lgqfGCPDVNwHhP
Pieo8+hw01tFicUiYHzi/Pr9HDqEHHrA+4dNwCzyfeLr2HR4tGG0049LwE7r
FC59mKdD6rtXMThOwIJGn4gmMOmQfV/Ik7L0559U/aJQBh0KzrgbhawQMMMD
2Zeu0ulQ+td3xSO//+xZ16bjOEeHCrY6b22NgHkbV603m6XD/wD6wp1J
"]]},
Annotation[#, "Charting`Private`Tag$11606#3"]& ],
TagBox[
{RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[None],
LineBox[CompressedData["
1:eJwV0mk4lH0bBnAhWSKMhDQmRFEq7cR1l5RsLUhpkT1pkRJCpOxkiUKWUApZ
k0rlT6lkKYzd9Bh71rln4x7E6/1wHefx+3KeX6719tdPOvHz8fHVLt3/M+2u
vdB2R199yumiNKbuCVRDpZhaU85AvZn1pmr3KrT4vfI+heIKv93qKyM2/kAS
8eXFop0eEHAsyOcl1oDSqqKVllN8YMjYRO8NNKHNDMeHiy4BEFirI7Ig14L+
SKQvzHcEQfBZ8WfyVVSkmiOye3YuGFpOxg4MY23oip7n1RmlcHDn/hPakt2O
3rTSn3MMoiAq76yQzUQHmnUzpTFdYmDmngjDmdKFDjXGbZjuiAfRV2/8gy17
0N+kI9Uc1wSoz+tGLadpKMrx3zn2XCKcmY9S/nH8D6LOXUrAlZLh9TJO4H1K
L7r9g7yNUZICVt78Nwxme5HCo9b6SYNUcLyt2tfuREf2GpjAuEsGRHrrb5fY
3Ie8X4t9YHVkAYwmONTF9yPj+GEh1rNsGAw2iagb6keK3tWWTNfnYNp+9bv7
7gFUZeCFM+ZewKjNrRO7mwfQip5+9UmlXCDtOFT6iTGIOqs+e078zYW5Bf6e
dTuGUF5O0tfxkjzwXJVwgHNrCJl7mNuOGbyGMDez5MOcIfRYpOLxiEsRTH4P
99McGEZlXsYeN+WKgSu2wW9s7QhKHdsjz/YrhnUFBSKxFiPoWpO0C8uwBA5H
eZu/RyNIOrWWn9lRClYlUfOBUX/RnER5rvv+NxBimJjh9/kvGryXfRx/9gbK
/erink/+ReUud9MZrmUw7rjiZILJKLLZsVNnau4tyKZWeKUvjKLMuowb40of
wLNMxb7fcBxxkt5q9EZ9ANaY1hP36+PosEv9QAvvA2QraJMdksbRhMCMVQW1
Ar6tvqIQ8ncc7dUz1wkP/QS7Nw5abg+aQE1F8/zqDARXqUNlpPRJJA0iF8S1
qgBTigl6jCaRrlqCTqhjFbjjf1NL6JPoISeXfae5CpaR80Uq1k+hnXFtTvb5
1XB/b1br8YwpFFC32Xi77Vf4k/xxjVEEA70qeaeWn/gVZkISgg1yGKgl6aDA
hoavkFJUS+ZWM5Cqy+lPcvtq4DcyCAgkGKhO4IEWH+kbKF/qrdLajiNZvR7p
39+/w92jNbhSIo4Ki8J7rmjVgbfy1vutRkw0Jj0WZWxXB8L8fuJJJ5lI/bax
/saEOlA5ILji6DkmerZfLHOAVwdONPzEretMFP8zytnmWz00m2oemklgotsD
Mcwj5xrh1BvBoH4aE2WI1d+XMmyCLP9CarkdC+nr+Z4LvNAEO4R7ah+5shDt
muYuhlcTPODqeTneYCG5lsjhhrwmOD8zE9cXyEJxSaZHwySb4YV8QJp5Bgvd
3/BLYrGnGXTW1KtIdbOQCzQnT3hQYVeXdbSQERvxZU1X9ERSYWOqefJtczZK
ElSk1T2ngkxB9fH/LNmo9qczObedCiW5vqsT7dhoo+V8lpNOKzQT0Vuy7rDR
30vqr/9b1gaqmluumOSz0eV4/8qm2HbwrqZ0W6zgIH5uVi/KbYfYrxaNtJUc
lGJdy1f0pR2M2K+ibaU5qE6RZBDNaYckM/nXJ9dxkObLVz+Onu4Avoenqbg2
B018pDZ9UeoEA58g+przHHRtaNNAWWEX6PbclrYv4CD6hS7h6p9dQPWp3PGi
lIMsOsO0Gge7ILxN913/Ow7aWz/iM6TQDZQkaxmzLxwkUPJCUja0G8KGS9zo
7RyU5Lde38u2B2yLvAzEFjmomiSfvE/yDyh5p7W+N+Ei0fUP1Hv30sH2DznZ
upOLavfHbb1rSIfFheGgPTQuCjmdvmfdSTpYSUQ4yNC5iD/2/ZGzbnSYln2j
+G2Ei2YXJlw60uigTbZn889w0TjN6tVv/j6IGszdxZGZRg1J6puqGvrA+XoT
ud58Gj2UrNfIvDgAt5rpkeSP08i+xxIJNAzD24CYCL+IGXTj2wP76+pjoM+9
oL1Jh0DkwcNC0zvG4FSMh/LD/QSq5xfJ88PGwGFt6TRTn0AbsGhm+Jkx2BNI
Pl5uQKCuisTA55FjUOO8c2i7GYEOFOekdzHGIFbYNZRrSyCpp7XdBu/HYZ1k
WtvbBwSq/BBxt65mHN4Xap/ghRDIrdNU+UTzOHzOsW3WDSfQt9XNrhfGxsH+
ydaBz9EE8ontIrwVJ4D+eatz+WMC9QWPyRYGTsBzdk+JzysClbivtJA7OgmO
H6Ltj9UTqCGF5FNwahIKA+x9shsJNFyjkHHQcRJGdxaGTf8mkIL8pvErAZNg
uDkzIbmVQA+qDe9Xv52ES6+c/Kl/CHRKOuDNZeUpyHB3cV2DE8h9f0jX4tYp
KOW+8z3LIlCEc/Rigt4UrL3+MTGdQyBU8dQEnZ6CTWv9BtfzCLTR4f0AKWYK
EhUEhdbx89DBaCSSmzoF/+Zlrp8R5KFz775v1c+bgjXbZ4cThHgoTqzN99K3
KcgW/SgkIsZDs2+YpM9zU0APUSMPk3hI5j9i30kRBjy6yVq9VpaHtIT5Lo7I
MoBY46JyTI6HjLRXhPipMmCw8cyRIAUecjgn8VpKmwHHfqUHlSny0N2Q1S05
wIBdO0Tah8g8lFSsSOiaMaCCd/mg7HoeKu1WITfbMGDDKXZvMYUHDYKah5wv
MaBXfzsEkXkwrKV9ec6TASGXhO9bKvKA78y+2Nj7DFi1Oz9PXYEHuwqO0CrS
GSD/UjmraTUP0q0cb61qY8Bw3qe1W8R58D7ALeV5PwPiNRpdhMR4QM31qNqH
MyDS3z6OLswDwQBMqHQ5DtfaxO48EeTBXqr5SRoFBxVJlahV8wRk+rqNbbPG
QU1nfOXGcQK2VYkQoedxqNk1E6Q9SkCV4KvlvQ44uJ2jFumNEECPHqREu+PQ
pFiseWqAAPKz89aj4ThkeoinxvQQkFJzrCbzEw5iDYr9Kg0ExIvvTJdWZkJf
5CfdXwUEBGXMn+BMMEHXWoIufpMAPiod+3SHDRWxv70jhAhQu+XsbanBhcyY
C5wbyTMwyH1ySuzzNGQ5/XczXGcGjIcu+8ffIOBW4funst3TYD4Yq0kmz4Ka
zMdNovemYeyrfWBtwRyU/rwY4qQ9DVpS7esMbP+B0cJNi9N9XBAFrh2NvQDd
FwMGIZkLRyZtZpSt+DBXlztmyeZc6PziuMxm8zLMzusC8hbmwtuwmgsU7jLM
2DG4OPUnB5yXe9J//eLHNjz0i18WxgEHD9+3K1MEsAi1F9tYphzY6qL5y9RO
ELvsn5WMy3Dgt/RmMc99y7F2s5v+qt1s+FgY9HSzgBC2bSLffO45G3yXaRxv
+COEaZI93eWuskGUdsfoWtkK7Mg1xQe0PWwYylmfkOEnjFGWMbbFr2BDwkZ5
wQ9WItjVVazbSa0siE1x/mFHEcX68qt/6uWwwCbh/K+VI6IY+wf98IAPC4hD
L3gZlWJYYKXRoVFjFgwMHfT+EroSe3zxSIcChQVZetvXNtqJY1D1lVXNYkJB
sKeUyxYJTO+v7vmzP5kQauVgIsCVwCw2Ss49zWTCLlpmbmjjKqwlcTHT0YsJ
SZueFjSaSGKvH4TJNRxnQkBVdJLJB0nM+syrY7/VmWC21upFnaoUZsi22mHH
x4QD136clQqXwnxD/W8b03DIULRXbeBKYbuV1jj1v8VB9evLx+ZnpbFDrrtj
CuNxiN3yRaOlUhqzP1pc+WXp75zZgs0/NUjY9d02Y09McbAvYVHCY0hY8IE7
zm6aOFwJspg3jiNhVLt7gZ0aOHhalHWsfETCcry1XxguOYzr+TD2MQlTmYyU
oGzCoXAfb+5JGgmbqZq82KaGA696sT0nn4R1/pvnP6i8tN+yMrrmBwkb/NK7
TUUeh5Tsq5dCfpIwyzleapwcDtm3fhkY1ZMwkzURJL4ll8vGztb/ImFdj5ZT
/sjiQLMhXaK2kbDayf3lT2RwUB+QN+gfIGFpHKN2CUkctpXdIT8fImHZJ/hH
/VfhoBPcw3MaIWG9GnJCkxI4mKqnFY+OkbBCIQvbenEcPNwoZCZzqf9yV3SY
GA5+++/xStkkTKnQmD0jikOweH/rLS4Ju9cn5uCy5KSi7EiCIGF63V52h0Vw
yAoUdKmYJWFu95Twt8I45J9wOug3T8KcaZLhG5Zcpvx9nf4CCVM8b7w5cQUO
lWw13uIiCaN51nUJLvl/vLiFRw==
"]]},
Annotation[#, "Charting`Private`Tag$11606#4"]& ]}, {}},
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->{All, All},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.8737300176193027`*^9, {3.8737300596459723`*^9, 3.8737300665241117`*^9}},
CellLabel->"Out[15]=",ExpressionUUID->"3524f72a-730c-44fb-9dc6-30e13e9dc263"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"CS", "[",
RowBox[{"e_", ",", "u0_"}], "]"}], ":=",
RowBox[{
FractionBox[
RowBox[{"4", " ", "\[Pi]", " "}],
RowBox[{"2", "mass", " ", "e", " ", "100"}]], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"Sin", "[",
RowBox[{"\[Delta]", "[",
RowBox[{"e", ",", "3", ",", "u0"}], "]"}], "]"}], ")"}],
"2"]}]}]], "Input",
CellChangeTimes->{{3.8737301794533577`*^9, 3.873730202629624*^9}},
CellLabel->"In[29]:=",ExpressionUUID->"1d64fb32-c3b8-4ea4-8f06-4b01e68febc7"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"CS", "[",
RowBox[{"ee", ",",
RowBox[{"-", "2"}]}], "]"}], ",",
RowBox[{"CS", "[",
RowBox[{"ee", ",",
RowBox[{"-", "5"}]}], "]"}], ",",
RowBox[{"CS", "[",
RowBox[{"ee", ",",
RowBox[{"-", "6.5"}]}], "]"}], ",",
RowBox[{"CS", "[",
RowBox[{"ee", ",",
RowBox[{"-", "6.8"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"ee", ",", "0", ",", "1"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]", "All"}], ",",
RowBox[{"PlotStyle", "->", "sps"}]}], "]"}]], "Input",
CellChangeTimes->{{3.8737302193640547`*^9, 3.873730285086452*^9}},
CellLabel->"In[38]:=",ExpressionUUID->"5bc7a9f5-c5f5-4792-852c-3f1f56196559"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[None],
LineBox[CompressedData["
1:eJwVjmtUjAkYgLtRLjuJsCNlsxVFrok2vW9klcas7aZtNXQqoSVKy3K2Zag2
umGTUqhcYkeNdFmrccuYlPTNN9/caJrJNKX7l3NkpDPNtj+e85zn3+MYfTB4
t5mJiQl7gv8duLuHfNobBhLfnPP3SAVY+M07pGF6oAMrY/MbsQJWXysormZu
Qqf61ZZmE816rbh/hRmKpGMRL6RVAeGx+kcXmLHI33vhpL5ZAe3L//TLZibj
S7vtP28QKqBk9rb0s8xU9J1FitrrFMC1ql50hpmHhjDVj17FCvgpopQ//OEG
Si/XGWxiFDDNyI30d+Cj2UiE1eFlCnAOGup5nlmDIR7PyjPH5HC01QsLPv6L
hwynfWxfyGFujY3a1PQJMtidZ4cvyKFO69dCrG/Aqfyk3HCOHBrir9hFDAix
ZY6gPNlVDiMuPtYVBxqRyTE33B+Vgdkob4adczPa7lHqC0Uy8DRG1YVUtuBi
97DAjEsyaEn1aBW5ERi8JYD6vE8GC871j94ZEiO54Ga7u5cM+vUatWyFBIcY
Dymf6TK40VffzMih8PPxF1xXlRQY9uW0TifFf1ZzmvIrpJC1rzauxEmO9oVt
PjWnpPDJl6fbe0KBa+FIVmOoFJJXCWvmPFfijry4r391k4KmUphJOr7FIHZK
m7uBgrF4aZHr8TZccuBdNJukYMkGy/G4ehXOi7R27bhNgX+Z456quWrMlKZt
zE+h4Kj9roXvIjW49bfKi7wwCpYOhE1TsDvwi7NJvnEZBbOsh62EXzoweGFZ
fPYkCiyeFPG/LX6HnkkB2nCNBH7xqH8zhaVF0fCazoQ6CfC2RJc8/qRF5fwG
gTBHAiP982Z053filFy7pjXxEqgN8TfP26TDMpFlgZWfBE4EpF2r6dbhzDmz
E7ocJODYHqi8ntaFEeyRh+oxEr5bm5rHXNWNd/nvS9lyEiIdiFFTqhs59duF
t6tJGGnO1h7ivsfSKdNHz+SQUGCxMznYqQd7lIpC//0kzFLXlpkJe3BsXaPP
DBYJk1K4oV6JvdimmRuXuIgEkzs7+dqZfehTlP7HX5NJSLrMz57Z0Id+U4v2
cTrF8GhJhpVNQj+uDPIeWvVMDDaBSUtPMQbweIpDXWWpGFTuYuqYYADDztu9
6jwhhntX0Um3cxAz7rocrIoSA4fvaWM/PoiXJlevP7hRDCfTSrmqv4ewyoX1
4JOjGCp67IsYW2m0kr9UjpuLIeNKWpT6BxpVXVueHpvo2OBB58ogGm0DbSo/
molhvkBwjx1O4+7YxOI+UzGczd0hyoqmcTxGnlFhJGCvZ+GHqcdoTKsnuFF6
Aham2gZY3qJxba6XhOgmYHzd718pbtNYxvBY2dhFwJvBTsktHo2SspLixzoC
zoVXczZX0ZgjaCmo0BJgdAs+nCagkV8Y4ZKlJkBF5l41p2hM5mRfZMkJeJCu
j6FkNPZ7ba73kxGQ573L9bqSxkBDzKC3lADWzWU1G9U0ZtLNR5ZKCHj42+sm
bi+NbhnLHRitBOS7r8kNGqAxoeTzrcmvCUjUFoc60jQmWX+z3viKgMVb92ue
fqSRyUvPHG4iwMJUeuOcnsaTHsLve18S0FHrHR/1ZeK3NXK6tpEAQfz15SsM
NJ4u36Z5KyLg0oJpI0Yjjb5DRY+pFwT8B4Difmg=
"]]},
Annotation[#, "Charting`Private`Tag$17084#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[None],
LineBox[CompressedData["
1:eJwVlGk8lAsDR5HiITtZKlK4CpPEkO0/4RpZcm0pISERkcstJes1bVLShFCI
VCRljRnRZKmunVL2LGXt0SJR8fZ+OL/z9Xw6ip5B9od4uLi40n7zf1seGm+v
nXAylm/iZCw024LXVO7YoKw2rmTrX/fNscX2zNSMElkzyMw9p1qctIVVc3fx
DVlHTAr5+dur2MLZe746SdYbGRF6dG/GbvRvPWuaIBsK3q8zhPIeGzAzZWqV
9/+DC9wy3EPbbGApkm/4JOM4POVn078I2aD8Y5MOqXAS5ZEGZQqN1rhUKK5q
pxIJ7rHaRD8ja2RJ2Z65IBsH1rq4zw16VghvTqnbUxWHkhPshWhZK+xhDPFs
2s+AkMA1nthFS6yeC45iZZwB5/p+F6dqS4R1McOmFc7j88+Mjj/MLWF3tefI
bpVL+O7tLf3Eaxdi+Ev+OC/LxHdDu8aQF3RsoV85V3yMCcXcC23RRXR0MIIm
ehuZiJrYWFt/jQ6lFeoFlOPXUE35zvjqSUfDr1xKV0cyoqaYlR3L5lj9JVlH
4eJ11IXbaq8wNUdq/ynTsqWbKP3FP4opM+xcty93wCkTa84OlSp0m2HSRXcl
f2Em2mZrWMrPzCA/fdKrUCMLwTcYrFvpZgjyoypz9WVhr1K4gNNuM4h7F929
rXcLzv/WLZpWmWLvvuyi2U+54JX293l7zwRkr6PALbnbCJqJe/MmzQRn3PkP
OZjeBo98qcRsvAlKvILkypm38WjmH95DgSYQDjRihOvm4dSNhlZPbRPUx751
WRVxB34+Z7Si63ZC677YqnX8+XgdrBH5+QsNLyj1Hs2a+ZA50Ttx/gMNHo/C
WJH78jEfOmmwvZeGhPLBY+/y83HQWX6hikPDeG1hb55NAfjl/SrTkmi4+WrX
o21X74OP2lsarkOD4HKMK12+CJ41li2lQkCqn7O7unkROoOzHbBgDKUudQ+x
wCLQjtl5j44aw/het1dvdRGM76q6RLCNUXkvuayC8hC6fgekxgKMMeMwzbZq
eYg5jaNOBzuM4HQ35b8QoWJEpJ3d0/7AEBlusdY+isXYE0gtsL9hiGHxo817
dYoxULGwNB5viKAIk1Yjt2Kw/M2EHP0Mcd5+poOvsBjd5yRYCsqGqP5p0pNu
XYLj8/4qgVkGULb7OP4svhQLrsELv3L1IRdF1z+cXQpfB6VhJlMfooVZ8QIV
pcg+x7qLOH0s8jtQ7IZLUWa2iDYvfbTVVoQM6JVhTfg29ttN+jilGbP0fawM
7xg6Ksfu7ECLiKQkhVaBmpeirk0sPTwzOnqo3akCifLyDpmFenjs31Ae6l+B
CXqKcWymHnIaw/axkitQFR9/9sS/egiL6r9pMVMBrguPl9dZ62EjmbfZK+0x
nFe06xoN6eJEyw6kfq0EX0wtXU1CF8KUsrEX/FXoDnHqyeTTRW6C5sUf66pw
xUKSo/CTinbrP966/1mFtZNXd+8co0LtP8kQ5eQq/JlBv0I8pmKwkcwr1mXB
4HxSe9YBKuhPbws3n2Ljpv/z6ehyHUiXig1wc9dAPGdzjkS0Nlwv/nAcXVOD
aJs7aarHtXHLe+y/BvUaCHwOnTcP0Ia6VGVl/N4afNRuLsjcqw2T4x7XpB7W
YJNjdGLNNm1QM5zzmFtrEbe3WfHB2HYcdM9zuztQi4klq65PDttRPmza1GrI
QfHBR87FdC28toj5lEDn4Gek+J1JaOHbgydrrO05uG8wGbhZTwu64TsOPj/M
gYZBG71KVQuPJbZ+q03iQK1TnqYqoIVKM7kNxeMc6P3jG0tp2QZ23mwIk/kM
ggkSiQ9dtoFz5MbafdN1SLJrPCsWp4mSCX9/9291iJ7lerQ+UhO5vvosL656
iMS4E5QwTTB8ul0CJeshFTmjsz9AExaeYmn/Gtaj/u8LvB8cNdG6jyHz4GI9
5man2LUqmuizOCq1QqMBjeYxIzVpWzGnYiRSeLQRF4tN1n6xpIBnoUB0rfJL
qOwaP538XA3UZY9yhwdNWM0zpvK1cTOa4rRbGra04uvp9Ub3xVWhkDi1cO9j
G+Kf2jwtDFHB1PzgwCvNDjx8mmV9Ul4ZuZOsl8KXOlHSGwva600QXn+HHB3t
QgOtc4dXxUZc9CvzyVJ6DaJmdii9QRHfaAWjvlHdGFwVNR/QswGhWnWla569
wdirncFG4hsw+KAuvl2xB55smuN0qjx+HOlK33yqFyMVmwTcqOuhtpNvyYfV
B+KDnYbMqnWg31I8/Eh6ACbKFtmVr+RwYv2Bje9cB1Fs7yPZ3yIL9WknwW6b
IaxN5D/NOygDCZFZ/rrFIcSuHGJxpqXBW5NetCnjHbh+BrT1yUrDX5v1lrAa
xnZHwcPbzdagYJdn1pNvw1jZ7NUvHS2FuSk50ffJI3ixQSIFXZIoc6CvYJqN
oj2ekjuiJIkoC0Zm6ftRNF36kp17QQKK/ZZvchhj2N9paXb5hzj0deOYslrv
MSJ16mWBrzhc5VsXuDvfg3t0ern/vRjmXiYMH4v5gFivxLSgg2JI5XUPtVca
B/gMOGpTopAYKLvFUzeOGnWLvsrTolgZEeO4I3gCTrBbmycgCq577kXD4pMo
/i6a6mopgr/TihLEOZNwv+rsmBImjGq1c/xigVNgn9Vypf4eqpjl3+qxwtOQ
ExET5F4phD6Nts6T7GkUZsR/2WK7Gg9vQmnUfQas50P9V+8Lwq2IKrZ+aQYj
rTP+URKCiGZkx/Tlf4Rq57Uc0VABFI6vTxe2JjFvOX5TfYzAuRsMj4HdJGiv
lL5XDRPwtp9RfmBHwmv7Z9auIQLr2OyHNs4kmtQ6Y317CVy4vL/hoicJLdsq
gYJ2Ar7U658ETpLo+evGlOkTAhvjJC348kiosS7p1qUQWNI7LdR9l8TTacWi
A9cIvJ0Z6cgrIPF+41zCjyQCic4lbuaPSFh2fYnWvkRgeYt9CINNorYsYkdB
HIG+9ss3V3SSoMgZDBQEE3h8Zt6r8xUJo8XyapsgAkyDA5tz3pCwv93NMxtA
wOo2pdRkgIR5ZXa1ji+BqrDmFzETJKIMr36udyeQrKFz2W76d29G0M8jrgSC
hzMcFUkSAW4q/qIuBFStAwZrv5K47/fkuKsTAV7urtzEeRKOUUclVjgQGCoz
OOKxSML1fJJk/l8E2Edytmr+InE+RvKU3W4CKQqCc8vLJASP9JguWBH4H0gX
d+s=
"]]},
Annotation[#, "Charting`Private`Tag$17084#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[None],
LineBox[CompressedData["
1:eJwVVGc81QsDVtybVPib2ckoo5Pr5pD12MSJDkqEXKsiVEooSaEUik5GWVmJ
7D2SZJRQyLVnchH+dMOVyuv98Pyez88Ud/Qyd9nMxMT0aAP/Z2OXqY666aOa
NzctRvs9twSLruC5EYEDWH/w7oxXtCX+TI5LKBbQw9NaY4FMX0uYtPUUJQpY
Ymv6U51OfUtYOa+8iBZwxkz5eOD2TxYY2n9LN0LgImSuUX1pey3ASN5ZJ3Xi
Esyt0gymCAsYc2Sr1yb4YPWUVkf5mjnK5luVSDE/nLU1sCTfmyMyl2svXfoa
PPqY6Ln+5kjhNQu9IxCM9itKeb29dFxpi204VhUMEmb8To10HAsZ3SxxIgRH
9ph68RfRsX3pfGB1QihqVaw71+7S4fuR4TsrFoZX063yGdp00B/0u5lKR6JC
/6w6R8kRBLEW7wkTYGCKnvgzytkMsoZRt4vOMeCxrf/ngK4ZOkO8pgeaGVhk
i6WdkTCDJLN8DsXnIQo+GiQafzJF0890ysfOGHzqiqZyuZpi+78xSmLh8Wiw
lY7nvHwYcUP+uqW/kvAjtOykYr0JtIWt04ePJuOWfal4RJYJZmyUf2PNTUZ8
nE0G3z0TiM76OeXuS8FEf/1Ssa0JvM5QpZgGUyAgbaPG9t0YXM75WRkqqUil
xfbXqhvjuPWT/IXFdIzK8jKcRoxADliypQpmwHOreYtQqxFC7VldLHQzQO8d
8V+sMEKxk5dgGSMDgosSmt+ijcDuqRFyRTkTa4pzYkeMjNB4o8/m94CnqDni
aSdbYQjF58TvwqzZKEx/aNKdbYC3lEaHNoVs9DIiDrx5ZACHQt/qa9bZuJK0
NbjjjgEiykbOjWVnQ0yBJUHa3QBTdbkDmYdzwM+mU9Qtb4Ck7kOFfzx4jqFA
R2HxEn1sWw+yNRTNR+HZFXV6hx7izljZyxvk45vDtCFzgx4kP8o7EJ75OMt8
k2gq04Pmsx6ngRf5yO8dcAxI0EPls5jSckoB2i77J+Wf1sOcxWyNSXsBnOku
F1hZ9HA0K/ad944ilPY5P3mrr4sEuxs0V/EiXJLLnjyhqotxLo+240pFqBKs
Clqj6MIrQOe9hl0Rkj/TbB136iLMfK5zS24RFM/5SLZ+0cGLHzr9j2nF2CM0
VvyDoQMp+vzU67sl4C2MN9Je0IZgoKHqqSclMDlwQ/zaZ21w5qbcZSsvgYh1
aE5zvza+s1pQ6OMloFQG+l1v1MaHunLvYZXSjR5Ox4Q+1oa/QtCv/z6Xgv12
8qHOQ9po5+DhoWiVwysrt2wwTwuvNTxcOo6WI0rT+/utDC1UuDeVXXQvR9Lz
qQCNBC2kNftaV8eUozoxnak5TAu+gUNJRnPl6JfPkDZ30cJuMlPG6VEFXtVH
fFUV1cLl9oOI+1aJElubgP59ADul9PNb1iq0cj89+VgUSI9QCF8TrgKaV8bd
OIAO2p4+e/0qOHTW+SotakLuHY+3VEwV3ItPJfmUamKkmcwsUq7Gkfir6rFa
mjB8lcHe5l8D/xdrD1odNMBfQgxv2vQScb5LNw81qsE2fM1ygu8lolZ4k8Qq
1JDq/Pldk/xLhPBbLWzKUYM8b2Xl3eMvYcnntTpzXw06Pg4PeQteImJhfwvN
Tg3UBKtMxv66jZ2uy2r/p4q/7DPtsobrIHZLZ/E6VRVl47qt79XrURp5C/QO
FfxtFLQYYViPTtG3Xl+bVLCcV8tHM6+H7rzszoQaFShfOfjXm1P14A349ylr
lgoquPcv10XXY8W4NkM/UAWVeoK7iqbq8VNo1sFgvwpqMhe8GYzX0KeQqrse
KqPeLVHIerYBxhG7dpj5UFE87e5uv9wAau6VqeOeVKSfVq12YmqEqcsW/dOu
VIS49th48jRi6ecXt9hjVBg5Eo9uqjci7J5mK1WZivfWITvzwhvhNlLHeWlV
CYNGHrzM+5rgyb4Y2BKkhCVpDY5cj2bY6ETuako5gM2rOZxCUi0ITQ74dWtR
EdR1hzKLvFa8KVz2S477A63BB9qbZN+jZS3y6th5BYjd/7L6bP4D5KKuu5wp
puDLyshwt0InFqZY57ZMyiN9prqFPbILMRJiP1Jl5MAu8pScmPgIUUfrB2/S
ZRB+ptQ1RfJv9E+zjhH2e7GslTNxOrAHMtPjvjSRPbio2FDC97oXchShJIUd
0hjJa7jbId6PuK8d7VJMUlhz+/hYxn8AM6B8/cAuCTntLb9cqwchnDi58bIS
MEwVP1XIP4zg0pqTMud247LIyd1jtiMoEilOnqsRh/zs0W09h0fx36gms5mA
OLg5Flgbvo/iH5mdz1e8d4Hl5eN8iYQxqOx74jzfLAb3A9V9W03GQWWrjGRN
F0XOIceU2uVxqFQc+3tznAiWvghyTsZ8wp9P+ZM5c4VRamHIzNCbwNQ731S1
F0IINApJLpmcwI+SRA+lGUGIDxn3poV8hh1PjIqrtCBUlYMZAoqT8EmzP2Fh
JwBb0ferm7omQXmWqRGbsxNLLRHj54L+wcC7prs93/gRx2J/0VxyCon9zvJd
5vzgHi5N3dwwhTb2HelXq/nwW0CQ5cHz00i9byggIcYHpmf2+eNcMxBqEuVk
Y/DiwqP8CK76GVit+2iqsvDihdxtVsLzCwaPs7RGBfCAML4gf4N9Ftw3Li2e
+o0Hg/s+dPnVzEK2e7Xw+W1uFCRBcsJ+Dqs/bFR3CXDDLp9KiPyaQ2/E8R7e
Ai5cD3kSNJg9j5kSGl+ODhdyp0Qes9NIcA/1N8WMEridGOIwbEqizBSHp4cJ
OJvPSeXRSSwvBwurDxEQrqkpOGxFgmOP28PxPgJ37p1oCnckEcYcP6/YReA0
NX6RzY/EhYlgylgjgd3BPEZbMsmN/CpcvHMI/FK5uqMni0T4tR8T7c8I9M19
6szMIXEoeiRbNovAfatiO4NCEjxqamyf0gmsy5p7h9SQEK6w4bVKIjDYcS+J
uYvEsQ/Dh2lRBCpCV5y6uknIK3dQnt8jwFA7KZPWS6KJx/jo9kgCJhmUEp1h
EqFzYRfa7hCo8m17GzRNQuuU/ax5MIGYfUr36LMk1nJTVkpuEDg/nmApTm7o
vTBiyB9EYC/t7EjdNxL9/+woHwwgwLLpY/r9FRLs9gPduEpgtFTNzeH7hh8j
DgfT/AnUuKXtV/hJQto2Yux3PwKxYtuW1tdJ6LeatbtdJvA/+v6BYA==
"]]},
Annotation[#, "Charting`Private`Tag$17084#3"]& ],
TagBox[
{RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[None],
LineBox[CompressedData["
1:eJwVxXk8lAkDB3BJmyg8KM241jHkmqgwUX7OJiG5thSTig4dypGjYi2jFKt3
m1CInEmMY6bCFJVYFIlCNIQswsOWRMX7vn98P1+1gwGufqIiIiIh//P/d/iN
tNWOeliMFM1eWfmOCTEb6uk+yiYEePZfjmlkYmNmanoFxRYVPwzUiEomHF52
lmdQ3HHR9fm+gFQmdvvOPvqL4guTSynUjXuYeL/+ok0iJRhmSstel/VsQ9Zq
57jLlFjU3A+2CJq2w7mXKXW/VcWCTX3gfWLQDr+x+0U19rFxfnQdLfSNHVbO
nImqTo9D5L0R7SeVdgjr4ISNq8ZjMn/+pEaMHVyuvfPfqfUnJJ9uiV9GsUO0
eIV2PIUDPdIoLGiXLXSZ/7lUfpoDjXNvdXxtbPGaHTDa08DByjj+fj8TW2gu
1S+in72OY5kBPalKtqj/mUvveJ0M/9CxqtpRG6z8nGysmnAD9owB5/k4G6S+
j7DhL9zC7Ys3BO4vrGGl5Jkr9MiE8ahTn8oTa4ztNV0mXpyJ+oVS2le+NVTG
ww8VG2QhvP/yk+ZMawQcM6GJ9GZB0HjokUywNWR9uXfyGNlouZt2b1LFGns8
b3OnpnMRbzR05vgFK5A97hLZ1DywxHq6PIKtEMcS93OzycPa7q8x9setUHEo
gHqfk4e9thqnHD2tIHVqK/ucaT68pYxW1Rhb4fkf3Xt/uVAAe8niAocpS2y4
R/yiJH4Xmm6i9MLjlpBcjPZiqnBRsIZfOjVtgdRju1n627jImnCUnhq0gGaH
vg9xiguua1L39zcWsCjsPNTziAuepUkAo8oClYXJ/Af0Uvxs3tVlE2OBCbdx
gUNLKdq91f++rmABjzspzUGryuFCrWgSbN8KmsvkyLMrPLhCtkOxyRzUKKbZ
kds8KGnJki2PzCFTnHVF4gEP6XbzpQll5pgXd6O7DPAw99XrX+0b5nhV+yBI
yOCjSCdhsueoOSIMoxe+feRD0VfWiC5hjhZpeXm65QP0rI6N1HA3Q2jLZqR+
qYSQdV2rVXQzpOj8j43iVTjCqzwaOsdAbqJhwnelKqw4cfGc1hQDbY7a3Sy7
KjwvOziT+p4BvWb5IFpyFR4HOp5oechAXwOZX25aDTO2uGLIaQaYT/KkXkYI
YNZ22iB6yBQKPEK4ZEkN/h5krTAUmuD+gM2L1i1Pkcbuymoe24Sn/hmKnuN1
8FE9udfeYSNmtLZKF59sQODya684P4wgOlcko0hrAr2ezFavNYTJos99t5IX
UPDLClIOX48XsZta6nVbMW3OLRflGUD16qe5wslXuLv67PDsDz18mu0TvjF8
DecPIyrGibrIHatukvqzHfu4D7dH03QgpVxADg114MzHgEQMayPhGP9wluZb
sOIZ7NK3WvhqWTR0NKoT0dWbdhGNNARvqOOtedaFap+0pPkPmugrqbvSpvYO
6ZXx1a7fNfDdvyNNJ6IHpWmyy67qakDPavnC4epeHLj0zKQ/RB3MbLUjZQpC
uFPHF0pr1BCqvF/9g1cflDLOH6CrqUF/3EOy06kfbZ6PH6ck/Qo56Snxuvl+
aOkVFBvPqkKsJo2rkf4Bvdeb5xY/q+D4puruFQ4DCD284dboJ2UU2R/Mevx1
ABrFmXIbvylh5hNVZjh5EA2Tv4qnqCmB78ZcyrEdgtPNiJG/7BQRtZ2dyRse
wrQwUcUohgq19zu6ctgfQXDK5de1UGBmGsuhbBiGyBZtAUeOAi+V1rkl7cOw
VinQVzi1FjNNiQOno//B+bkIHuuZAlLFWMGumiNw+/LySbyeAuSE/GzRuhHs
c/dy3ZmxBssuRLtvPjOKe/qtOf+uWAORQhZ3QHYMZ79F6kXGrUbgTW6i7NMx
iJwMOWu2II9HepfEiVOfsPOfOV3nSHkQOwL1/5Aax5rIkqlBSXn0GrxqDxeM
43bmT+d3HDmU3oLmEGsCnhz7Wh1dOXhzTQjlhQmsPXpAPOq5LH5n347uvTsJ
S4Yp7aSXLIpHlNOkHEmsMnAekl4gcCmD7SPcSSJ5l45T4A8Cvq4TtBIXElHq
w9865gkoCQSlTrtJUN0b1qbNErictK8+4SCJnmy/MN1pAkdNbkxLhJN4GyJT
6DFEQD1WfvvyfBJh71QOvG8isMA4v6rzDom+zsDl2xsJdE8Mvs4vIrHalTtZ
3kDg6u4K721lJIT1OVHxdQQWdV2D2AISrRJNhZsfE+htS7q1tJ2ExNtkIr+M
wMO42UPtb0jETG2ukS8lwDHfr5PTReLHcOu9mBICDnl0nrWQRG5hCvNgEYGq
sJeN0aMklrImw9XzCCQbGCe5jJMwkP6ddi2HwJmBdHc1kgTSr8iIZRNY53ii
r/YLiWrNjtzhWwTElnTkXp0l4Ub57LQng0A/39zfZ56Efq+zSVMaAYF/znrD
nyR4IT3eW24SSFGVnFlcJCH1Oa6uJJXAfwHuv2rW
"]]},
Annotation[#, "Charting`Private`Tag$17084#4"]& ]}, {}},
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->{All, All},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.8737302421940727`*^9, 3.8737302865099287`*^9}},
CellLabel->"Out[38]=",ExpressionUUID->"faad53b7-2ecc-458c-bd43-c2e2528af9c2"]
}, Open ]]
},
WindowSize->{1389.75, 768.75},
WindowMargins->{{0, Automatic}, {0, Automatic}},
FrontEndVersion->"13.0 for Linux x86 (64-bit) (December 2, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"a31d9556-d2b9-4444-bce5-a086ed60159c"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1110, 20, 71, "Input",ExpressionUUID->"4a74809f-4d6f-4bf5-84df-1c81e845ccce"],
Cell[1671, 42, 1195, 33, 51, "Input",ExpressionUUID->"4abccf8a-d47b-424b-acb1-36e9461ec53e"],
Cell[2869, 77, 586, 12, 50, "Input",ExpressionUUID->"ddda9570-52bb-4f7f-8d3d-86bdfd8586a4"],
Cell[3458, 91, 654, 14, 50, "Input",ExpressionUUID->"86a69de3-cbb6-4ee5-8cee-9244eebdf060"],
Cell[4115, 107, 1856, 55, 49, "Input",ExpressionUUID->"f9b93666-a5b0-48b1-94d6-6d1a85496d1b"],
Cell[CellGroupData[{
Cell[5996, 166, 950, 24, 29, "Input",ExpressionUUID->"aa0fae4a-3cd8-46d8-ac13-32fe6f27924f"],
Cell[6949, 192, 23640, 414, 230, "Output",ExpressionUUID->"3524f72a-730c-44fb-9dc6-30e13e9dc263"]
}, Open ]],
Cell[30604, 609, 543, 15, 45, "Input",ExpressionUUID->"1d64fb32-c3b8-4ea4-8f06-4b01e68febc7"],
Cell[CellGroupData[{
Cell[31172, 628, 787, 22, 29, "Input",ExpressionUUID->"5bc7a9f5-c5f5-4792-852c-3f1f56196559"],
Cell[31962, 652, 12950, 238, 227, "Output",ExpressionUUID->"faad53b7-2ecc-458c-bd43-c2e2528af9c2"]
}, Open ]]
}
]
*)
resonans6.nb 0 → 100644
View file @ 3130b7a5
This source diff could not be displayed because it is too large. You can view the blob instead.
resonans7.nb
View file @ 3130b7a5
......@@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 289629, 5106]
NotebookOptionsPosition[ 286500, 5052]
NotebookOutlinePosition[ 286898, 5068]
CellTagsIndexPosition[ 286855, 5065]
NotebookDataLength[ 306727, 5527]
NotebookOptionsPosition[ 302390, 5455]
NotebookOutlinePosition[ 302818, 5472]
CellTagsIndexPosition[ 302775, 5469]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
......@@ -40,7 +40,7 @@ Cell[BoxData[
3.8713910972634153`*^9, 3.871391103619568*^9}, {3.8714518138981028`*^9,
3.871451832796793*^9}, 3.8714523038600388`*^9, {3.87145238207703*^9,
3.871452385670923*^9}, 3.8720846338697147`*^9, 3.8737692337195473`*^9},
CellLabel->"In[2]:=",ExpressionUUID->"502c7901-c122-4614-8b72-a04caf16b1e2"],
CellLabel->"In[1]:=",ExpressionUUID->"502c7901-c122-4614-8b72-a04caf16b1e2"],
Cell[BoxData[
RowBox[{
......@@ -77,7 +77,7 @@ Cell[BoxData[
3.871701793434409*^9, {3.872065693342557*^9, 3.872065697733029*^9}, {
3.873782505658546*^9, 3.873782510479516*^9}, {3.8737825663259*^9,
3.873782609908166*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"8acf02de-4007-4da0-99ab-5688c509e7b2"],
CellLabel->"In[3]:=",ExpressionUUID->"8acf02de-4007-4da0-99ab-5688c509e7b2"],
Cell[BoxData[
RowBox[{
......@@ -89,7 +89,7 @@ Cell[BoxData[
3.870144988515087*^9, {3.870145025281687*^9, 3.870145047838258*^9}, {
3.871451965683363*^9, 3.87145196928242*^9}, {3.872063208516612*^9,
3.8720632133894377`*^9}, {3.8744963984725924`*^9, 3.874496399276744*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"e4eb0afd-6ac9-4727-a316-8fe76f4fcecb"],
CellLabel->"In[4]:=",ExpressionUUID->"e4eb0afd-6ac9-4727-a316-8fe76f4fcecb"],
Cell[BoxData[
RowBox[{
......@@ -104,7 +104,7 @@ Cell[BoxData[
3.871451836727564*^9, 3.871451840179946*^9}, {3.8714519734346457`*^9,
3.8714519739887877`*^9}, {3.872063215936698*^9, 3.8720632175080347`*^9}, {
3.8744964016057873`*^9, 3.8744964030518217`*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"8fe4d871-c7e0-46fe-8f61-898f90834b8b"],
CellLabel->"In[5]:=",ExpressionUUID->"8fe4d871-c7e0-46fe-8f61-898f90834b8b"],
Cell[CellGroupData[{
......@@ -136,7 +136,7 @@ Cell[BoxData[{
3.872063408893736*^9, 3.87206348665994*^9}, {3.872063558997143*^9,
3.872063588644578*^9}, 3.872063625019775*^9, {3.873782464804798*^9,
3.873782490792597*^9}},
CellLabel->"In[7]:=",ExpressionUUID->"221cdf39-c3eb-4a84-8500-19e402ba9a9a"],
CellLabel->"In[6]:=",ExpressionUUID->"221cdf39-c3eb-4a84-8500-19e402ba9a9a"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -664,7 +664,7 @@ LZGoHqRA64vQZ0KyFvvfu5FmOMqsn31iwazJGvw5rljEcZyCUL9T2xMHv+FF
T6Ys7v1lng/77t7EXdX4cIrR4y+TFCSmT4mf+FmF09LdR//9o+BqF0u8qLwS
/w9ygkaY
"]]},
Annotation[#, "Charting`Private`Tag$5602#1"]& ],
Annotation[#, "Charting`Private`Tag$5092#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -1189,7 +1189,7 @@ YeFngeeUeAP2fXwnRXechLnZZ5eITdfhypgSIftJElx9zu+PH/6Kl7+YMXr8
l4SaI4/u4p5afCJJ7/nnaRKup86Inv1eg1NSXcb//SPBoYchWlxRjf8HqjRS
kQ==
"]]},
Annotation[#, "Charting`Private`Tag$5602#2"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$5092#2"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -1243,8 +1243,9 @@ kQ==
3.8744066043152933`*^9, 3.874406655490415*^9, 3.87440672682448*^9,
3.8744910438855743`*^9, 3.874493787464353*^9, 3.874496457815384*^9,
3.874496969788514*^9, 3.874575389693368*^9, 3.874584506913414*^9,
3.874643379182371*^9},
CellLabel->"Out[8]=",ExpressionUUID->"d66364ca-3afc-4ff8-ba35-99c94587bf18"]
3.874643379182371*^9, 3.874664853309332*^9, 3.874744758076906*^9,
3.874746300909532*^9},
CellLabel->"Out[7]=",ExpressionUUID->"a94c9fca-df90-4e5c-bf47-3808b43aa772"]
}, Open ]],
Cell[CellGroupData[{
......@@ -1267,7 +1268,7 @@ Cell[BoxData[
RowBox[{"PlotStyle", "->", "sps"}]}], "]"}]], "Input",
CellChangeTimes->{{3.8737824405463552`*^9, 3.873782451614056*^9}, {
3.873782628025052*^9, 3.873782714421575*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"81e93a97-5638-4def-b308-95c66e4d9014"],
CellLabel->"In[8]:=",ExpressionUUID->"81e93a97-5638-4def-b308-95c66e4d9014"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -1776,7 +1777,7 @@ IBf+mNd/dIzjo96A1Quq/nBhISRLqTXwkUe4b7LqKBfm0zFsWF2AKqM/Cp0f
50LP3zuRPCsBWhE3rRc+yYUrzT15wYECZPZK7cXnf1yolcz98TdHgJLfXB6d
meHChJNo60yrAP0Pdc3IXw==
"]]},
Annotation[#, "Charting`Private`Tag$5963#1"]& ],
Annotation[#, "Charting`Private`Tag$5623#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -2282,7 +2283,7 @@ F9b+4sBCSJVSbeYhr8f+qSp/6DVtw8bU+Kg69r2A9V8O9P/2ieZa8dGqhBm9
x1MccGjrLwgL4SOzl6rPa/7R9ZbI//Y7j49S0+z/zM5y4K+LSMdsBx/9D3F9
ycU=
"]]},
Annotation[#, "Charting`Private`Tag$5963#2"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$5623#2"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -2325,8 +2326,9 @@ ycU=
CellChangeTimes->{{3.873782625093403*^9, 3.8737826298163147`*^9}, {
3.8737826629953127`*^9, 3.873782716224052*^9}, 3.8744066573106422`*^9,
3.8744937894971943`*^9, 3.874496459825425*^9, 3.8744969723015137`*^9,
3.874575391967374*^9, 3.874584508955443*^9, 3.874643381571106*^9},
CellLabel->"Out[9]=",ExpressionUUID->"5ac48ab4-be7f-4540-a299-281d1ed3902e"]
3.874575391967374*^9, 3.874584508955443*^9, 3.874643381571106*^9,
3.874664855121237*^9, 3.874744760331658*^9, 3.8747463032943068`*^9},
CellLabel->"Out[8]=",ExpressionUUID->"eba2d4c3-f484-4cd9-925a-782823139dd9"]
}, Open ]],
Cell[BoxData[
......@@ -2410,7 +2412,7 @@ Cell[BoxData[
3.8737957346039677`*^9}, {3.874496410284359*^9, 3.874496431182281*^9}, {
3.874498293997664*^9, 3.8744982953005877`*^9}, {3.8744983674115*^9,
3.87449836949916*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"d800b49f-9b04-4303-885e-198701a8fba7"],
CellLabel->"In[9]:=",ExpressionUUID->"d800b49f-9b04-4303-885e-198701a8fba7"],
Cell[BoxData[
RowBox[{
......@@ -2425,7 +2427,7 @@ Cell[BoxData[
3.8720653832249823`*^9, 3.8720653906911573`*^9}, {3.8720654424395943`*^9,
3.872065443404607*^9}, 3.873787124452415*^9, {3.8737923795460577`*^9,
3.873792380778249*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"036b641c-9c8b-4000-ae1a-448fc6136597"],
CellLabel->"In[10]:=",ExpressionUUID->"036b641c-9c8b-4000-ae1a-448fc6136597"],
Cell[CellGroupData[{
......@@ -2460,7 +2462,7 @@ Cell[BoxData[{
3.873792389433948*^9, 3.8737924135338287`*^9}, {3.873793945091408*^9,
3.873793955353887*^9}, {3.8737958552583447`*^9, 3.8737958584751453`*^9},
3.874491388118662*^9},
CellLabel->"In[12]:=",ExpressionUUID->"6f15ea9b-99d5-4a4e-88e1-2b680fb1bba2"],
CellLabel->"In[11]:=",ExpressionUUID->"6f15ea9b-99d5-4a4e-88e1-2b680fb1bba2"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -2568,7 +2570,7 @@ Uu7bUz6gnJQ9MEigzKDt5NBgPni7K8iNjRG4STBTahnlgJ2Bs68nCFyz/kVb
hywTJ3rAAoFEVWVDDuXctdVrDP4SaFSxQ+8S5ZKJ9bNLSwQalw2O0in/D06/
yQk=
"]]},
Annotation[#, "Charting`Private`Tag$6670#1"]& ],
Annotation[#, "Charting`Private`Tag$6330#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -2655,7 +2657,7 @@ nMD1FoUxPw3o9+IvLzszQ+D2B6Jhz2hH7zjDe8QlMBe08vNox64Y6AibI7BF
7PDKDNqZxXf+mZ+n+49zOBRO+/ZpQdaLBQLzI2+5+NAusPZhRv8kcMNmtdN2
tEs31suY/KLzFlzbZka7kqvM+/2bwF1K22z1aP8PQ9JcTQ==
"]]},
Annotation[#, "Charting`Private`Tag$6670#2"]& ],
Annotation[#, "Charting`Private`Tag$6330#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Medium],
LineBox[CompressedData["
......@@ -2767,7 +2769,7 @@ YoKAKk/19Z7Y/lqXp4qYBLjl3eHj7ocrS3qbPNgEtBeaMryxEwseRXI4BIwf
cJj35+7P4AVOpdN4/y53WRuEnXPUke4/S8BDsf36l7GL11dK68wRIHK5JSQU
+x1TcWp+noDJxzPVV7D/B4FB9Ug=
"]]},
Annotation[#, "Charting`Private`Tag$6670#3"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$6330#3"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -2822,8 +2824,9 @@ cJj35+7P4AVOpdN4/y53WRuEnXPUke4/S8BDsf36l7GL11dK68wRIHK5JSQU
3.874406664637567*^9}, 3.874406732477387*^9, 3.874491052616679*^9,
3.874493797842209*^9, 3.874496470510573*^9, 3.874496980840026*^9,
3.874498303216597*^9, 3.8744983772264423`*^9, 3.874575399674314*^9,
3.8745845170329437`*^9, 3.874643388780966*^9},
CellLabel->"Out[14]=",ExpressionUUID->"c5f65373-64df-472d-8741-a10399890e66"]
3.8745845170329437`*^9, 3.874643388780966*^9, 3.874664863533065*^9,
3.8747447747754107`*^9, 3.87474631094347*^9},
CellLabel->"Out[13]=",ExpressionUUID->"e5da8778-bac5-4190-9944-d2fac95ca723"]
}, Open ]],
Cell[BoxData[
......@@ -2859,7 +2862,7 @@ Cell[BoxData[
3.874406589007883*^9, 3.8744065943570213`*^9}, 3.874498330574841*^9, {
3.8745757024134912`*^9, 3.874575707947632*^9}, {3.8745804668090982`*^9,
3.874580473855629*^9}, {3.874580505334504*^9, 3.874580527100831*^9}},
CellLabel->"In[15]:=",ExpressionUUID->"eba599fa-45b7-41f1-be81-be340b9f2765"],
CellLabel->"In[14]:=",ExpressionUUID->"eba599fa-45b7-41f1-be81-be340b9f2765"],
Cell[CellGroupData[{
......@@ -2909,7 +2912,7 @@ Cell[BoxData[{
3.8744078940395803`*^9}, {3.874491069872429*^9, 3.874491075963235*^9},
3.874496992231851*^9, 3.87449711987507*^9, {3.874498346516799*^9,
3.874498356572147*^9}, {3.874498389168923*^9, 3.874498389261672*^9}},
CellLabel->"In[16]:=",ExpressionUUID->"d15ee31f-722c-4a79-b9bf-b0ddb3b85de9"],
CellLabel->"In[15]:=",ExpressionUUID->"d15ee31f-722c-4a79-b9bf-b0ddb3b85de9"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -3021,7 +3024,7 @@ lQ2ep6QoY2MstDCNfft3KBv89G7M5U2w8FL64ZuBd9jgv+Z788UpFl6/1bSi
+jYbonMeB87OsjCujPfi7stseHSdz7V4noWXl58fCrrAhgxLZyO/RXJ8zop8
jWfYkC/zVsLgDwsTqF+9N7mxoXSCPre8zEKKv0XBMUc2/A8jO+vQ
"]]},
Annotation[#, "Charting`Private`Tag$10671#1"]& ],
Annotation[#, "Charting`Private`Tag$10331#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -3125,7 +3128,7 @@ gmGYqAc3DcL5+zvOz1HxKldPwXYOGiS9pN1aWKBiX4io8OvFDMi4usatZIn1
v7+kWi/OZUDOYRe9SytU7CB0/oapDCiQqSHq/KNiUHWb+7rfGVA2I7e4ukrF
C/lPdNt+ZsD/ALJhdNY=
"]]},
Annotation[#, "Charting`Private`Tag$10671#2"]& ],
Annotation[#, "Charting`Private`Tag$10331#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Medium],
LineBox[CompressedData["
......@@ -3216,7 +3219,7 @@ uDqKCVYqd1+OjtFxl6d0xP4wJvh40BRnZuhY9a7bou0ME0IML8znsejot1Fz
EnNlwhPbYyYhS3Tcc04nLN+ZCflrPykY/6Gjbcjlh84HmVDKWj//9y8d33qE
9Qg5MOH/AEekbq4=
"]]},
Annotation[#, "Charting`Private`Tag$10671#3"]& ],
Annotation[#, "Charting`Private`Tag$10331#3"]& ],
TagBox[
{RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[None],
LineBox[CompressedData["
......@@ -3309,7 +3312,7 @@ ArHI5doGEkbcv7qlnqMQes+JXGppI6HFkTLnyQUyKA5JkgaHSDj9/HiXUxsZ
n/06ZGmJhN4frSrLXpMhxY/VqXCZhJm/3FnTksmQedJhv88KCafEoyNDE8mQ
t+mHjP4aCVVyrZxvPCVDCXUrfX2dhL/63cKtnpDhfxV5ks0=
"]]},
Annotation[#, "Charting`Private`Tag$10671#4"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$10331#4"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -3359,8 +3362,9 @@ t+mHjP4aCVVyrZxvPCVDCXUrfX2dhL/63cKtnpDhfxV5ks0=
3.8744964787182617`*^9, {3.874496986687258*^9, 3.8744969950790157`*^9},
3.874497122941259*^9, {3.874498319221292*^9, 3.874498392114354*^9},
3.874575404663147*^9, 3.874575714028183*^9, {3.87458049872861*^9,
3.874580532421237*^9}, 3.8745845227190323`*^9, 3.874643395170041*^9},
CellLabel->"Out[17]=",ExpressionUUID->"2b73a078-958a-4db5-97c6-3b13b7839335"]
3.874580532421237*^9}, 3.8745845227190323`*^9, 3.874643395170041*^9,
3.8746648696977987`*^9, 3.874744781315197*^9, 3.874746315775642*^9},
CellLabel->"Out[16]=",ExpressionUUID->"27efad4d-8e16-445c-9e3a-8bc939a733a6"]
}, Open ]],
Cell[BoxData[
......@@ -3402,7 +3406,7 @@ Cell[BoxData[
3.8744926142166348`*^9}, {3.874496483578697*^9, 3.874496514434507*^9}, {
3.874497900915886*^9, 3.874497901113262*^9}, {3.874497959060388*^9,
3.8744979617764797`*^9}, {3.8744985327087917`*^9, 3.8744985361920433`*^9}},
CellLabel->"In[18]:=",ExpressionUUID->"1bd789c1-ff1e-482a-8ee3-6d28b8dd4365"],
CellLabel->"In[17]:=",ExpressionUUID->"1bd789c1-ff1e-482a-8ee3-6d28b8dd4365"],
Cell[BoxData[
RowBox[{
......@@ -3424,7 +3428,7 @@ Cell[BoxData[
3.874492616920412*^9, 3.8744926170751038`*^9}, {3.87449368288767*^9,
3.874493683714024*^9}, {3.874496600768959*^9, 3.874496605264613*^9}, {
3.874497262237154*^9, 3.8744972838103867`*^9}},
CellLabel->"In[19]:=",ExpressionUUID->"b34b6885-f3e9-46c7-b40c-9e3d7913dae7"],
CellLabel->"In[18]:=",ExpressionUUID->"b34b6885-f3e9-46c7-b40c-9e3d7913dae7"],
Cell[BoxData[
RowBox[{
......@@ -3455,7 +3459,7 @@ Cell[BoxData[
3.8744976023283577`*^9}, {3.874497789055393*^9, 3.8744977906382*^9}, {
3.874498546539444*^9, 3.8744985786172743`*^9}, {3.8745780816377153`*^9,
3.874578082335264*^9}},
CellLabel->"In[20]:=",ExpressionUUID->"db4db487-96ba-42c4-af20-5155a072d67e"],
CellLabel->"In[19]:=",ExpressionUUID->"db4db487-96ba-42c4-af20-5155a072d67e"],
Cell[CellGroupData[{
......@@ -3492,7 +3496,7 @@ Cell[BoxData[{
3.874499492401615*^9, {3.874577378328621*^9, 3.874577380301509*^9},
3.874577462967452*^9, {3.874577535754869*^9, 3.874577557947267*^9}, {
3.874643485943836*^9, 3.874643505272416*^9}},
CellLabel->"In[43]:=",ExpressionUUID->"fba925bc-a4b1-464a-ab0a-78ae801847ef"],
CellLabel->"In[20]:=",ExpressionUUID->"fba925bc-a4b1-464a-ab0a-78ae801847ef"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -3846,7 +3850,7 @@ fiCL1Xqm2/9qw8MtzvbGF76jPUKideFT2kDbfU/t6PxX5MQbulp1RhuoPcUG
h4y/IjfOUc+yOW2YSfp+aS6kEnnNu6Z5LGqDRh2Psu7HCuQ79WNqeVkbcqLc
jQSmvqD/AWZqxSs=
"]]},
Annotation[#, "Charting`Private`Tag$150086#1"]& ],
Annotation[#, "Charting`Private`Tag$15609#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -4147,7 +4151,7 @@ NJnLYsBmhagnpY8JvF3ewGQnh+STRgKZDwm8b6VYw7Vpst+cKlddjSaw04pQ
+dWzpF9ZL5YuhxP4IDfb7dM8WU/LDIM1QQR2/+v67MgiA8rKLzbe9iOw93Tt
9L9/DNjU2DudfpzA/wMkyHOm
"]]},
Annotation[#, "Charting`Private`Tag$150086#2"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$15609#2"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -4204,8 +4208,9 @@ NJnLYsBmhagnpY8JvF3ewGQnh+STRgKZDwm8b6VYw7Vpst+cKlddjSaw04pQ
3.874575416348661*^9, 3.8745773993022137`*^9, 3.874577470146299*^9, {
3.874577556985689*^9, 3.874577565076092*^9}, 3.87457908928477*^9,
3.874584533995523*^9, 3.874643407900023*^9, {3.874643492027532*^9,
3.8746435119483356`*^9}},
CellLabel->"Out[46]=",ExpressionUUID->"5bb6c898-eef8-4c93-813c-b22a8f757d69"]
3.8746435119483356`*^9}, 3.8746648801715918`*^9, 3.874744794869657*^9,
3.8747463266025267`*^9},
CellLabel->"Out[23]=",ExpressionUUID->"6a616a0d-e73f-4aea-9d8c-48c154bcbf5e"]
}, Open ]],
Cell[CellGroupData[{
......@@ -4241,7 +4246,7 @@ Cell[BoxData[{
3.8744980256808853`*^9}, {3.874498565266568*^9, 3.874498592019972*^9}, {
3.874498646569261*^9, 3.8744986555761833`*^9}, {3.874499514917096*^9,
3.87449953846764*^9}, {3.874643512325345*^9, 3.87464353590913*^9}},
CellLabel->"In[55]:=",ExpressionUUID->"30fd378a-e97c-49ff-b96a-011fbeff0dfc"],
CellLabel->"In[24]:=",ExpressionUUID->"30fd378a-e97c-49ff-b96a-011fbeff0dfc"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -4473,7 +4478,7 @@ ODWI4x700gtnTEFgKjtO/fIg/lZ3NMr/jylcVi3fYO4/iIVtLNav/DWF4dEs
pt3TQUyNLKv4vGgK2w6WWVslD+KzTYa3biybQnBFCVM7ZxDfE86hoVVTUBn4
VcX3ZRBnH1ZZ+PfPFByjjRs66gbx/wDhQlfb
"]]},
Annotation[#, "Charting`Private`Tag$191702#1"]& ],
Annotation[#, "Charting`Private`Tag$31025#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -4753,7 +4758,7 @@ XibKSRnsrpihw/nlyo82SDLRu9ZdV0/9pAOfgz69UpWJZLZtEvk3T4c1Mcsy
vK2YyOZybf3rBToUfNHbcNmBiQ5+sj535i/J3+WJR25MdEHmORUt0mG2Qjvp
uTcTPduu/3tpiQ6WV7DwnWNM9D+l68VH
"]]},
Annotation[#, "Charting`Private`Tag$191702#2"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$31025#2"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -4804,8 +4809,9 @@ uTcTPduu/3tpiQ6WV7DwnWNM9D+l68VH
3.87449856140493*^9, 3.874498596081599*^9}, {3.8744986506660357`*^9,
3.874498659561907*^9}, {3.8744995172384863`*^9, 3.874499543395657*^9},
3.874575420536887*^9, 3.874576454174355*^9, 3.874584548965742*^9,
3.874643414283586*^9, {3.874643518171014*^9, 3.8746435413715563`*^9}},
CellLabel->"Out[58]=",ExpressionUUID->"b1d6f99d-b2b7-4cf8-89c9-21fd740767cb"]
3.874643414283586*^9, {3.874643518171014*^9, 3.8746435413715563`*^9},
3.8746648844881163`*^9, 3.874744802267324*^9, 3.874746333936838*^9},
CellLabel->"Out[27]=",ExpressionUUID->"48a07fb0-3e3c-4509-90a6-01f81268e433"]
}, Open ]],
Cell[BoxData[
......@@ -4821,7 +4827,7 @@ Cell[BoxData[
CellChangeTimes->{{3.874578099828415*^9, 3.874578119881692*^9}, {
3.874578170102661*^9, 3.8745781729058123`*^9}, {3.874578224113624*^9,
3.8745782445705442`*^9}},
CellLabel->"In[59]:=",ExpressionUUID->"02d29a46-a713-4510-a6c4-c7885644ebf8"],
CellLabel->"In[28]:=",ExpressionUUID->"02d29a46-a713-4510-a6c4-c7885644ebf8"],
Cell[BoxData[
RowBox[{
......@@ -4854,155 +4860,229 @@ Cell[BoxData[
3.8745796707960176`*^9}, 3.874579875962591*^9, {3.874579987275013*^9,
3.8745799875558023`*^9}, 3.8745800379421864`*^9, {3.874580095007987*^9,
3.874580115879561*^9}, 3.874580349535874*^9, {3.8745807387762537`*^9,
3.874580778974943*^9}, 3.874584642453106*^9},
CellLabel->"In[60]:=",ExpressionUUID->"330a3de5-975a-4319-bbb3-e67ba931053f"],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.874579940838122*^9, 3.87457995611978*^9},
3.874580012041656*^9, {3.8745808070920677`*^9, 3.87458081163946*^9},
3.874584750072596*^9, {3.874643440903295*^9, 3.874643458326692*^9}, {
3.874643584995323*^9,
3.874643610298279*^9}},ExpressionUUID->"70cbfdea-dd92-496d-8c10-\
256ba52aec21"],
3.874580778974943*^9}, 3.874584642453106*^9, 3.874664842911748*^9,
3.874665023941506*^9},
CellLabel->"In[29]:=",ExpressionUUID->"330a3de5-975a-4319-bbb3-e67ba931053f"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"Clear", "[", "TMatriX0", "]"}], "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{"L", "=", "0"}], " ", "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"TMatriX0", "[",
RowBox[{"e_", ",", "u_", ",", "aa_", ",", "bb_"}], "]"}], ":=",
RowBox[{"Integrate", "[",
RowBox[{
RowBox[{
RowBox[{"Sin", "[",
RowBox[{"aa", " ", "rr"}], "]"}],
RowBox[{"Sin", "[",
RowBox[{"bb", " ", "rr"}], "]"}]}], ",", "rr"}],
"]"}]}], "\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"Simplify", "[",
RowBox[{"TMatriX0", "[",
RowBox[{"e", ",", "u", ",", "aa", ",", "bb"}], "]"}], "]"}],
"]"}]}], "Input",
CellChangeTimes->{{3.874744915436295*^9, 3.874744953492803*^9},
3.874745005942258*^9, 3.874745274105584*^9, {3.874746119264481*^9,
3.8747461836336184`*^9}, {3.874746418141821*^9, 3.874746503888234*^9}, {
3.8747466779111023`*^9, 3.874746742166267*^9}, {3.874746784149022*^9,
3.8747468167245007`*^9}, {3.874746849720173*^9, 3.874746886451804*^9}, {
3.874747014343328*^9, 3.874747079332363*^9}, {3.8747475157435637`*^9,
3.874747548104156*^9}},
CellLabel->
"In[110]:=",ExpressionUUID->"77111c55-479e-45de-9828-bc692ef6cea3"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"bb", " ",
RowBox[{"Cos", "[",
RowBox[{"bb", " ", "rr"}], "]"}], " ",
RowBox[{"Sin", "[",
RowBox[{"aa", " ", "rr"}], "]"}]}], "-",
RowBox[{"aa", " ",
RowBox[{"Cos", "[",
RowBox[{"aa", " ", "rr"}], "]"}], " ",
RowBox[{"Sin", "[",
RowBox[{"bb", " ", "rr"}], "]"}]}]}],
RowBox[{
SuperscriptBox["aa", "2"], "-",
SuperscriptBox["bb", "2"]}]]], "Print",
CellChangeTimes->{{3.874746877392974*^9, 3.874746887280179*^9}, {
3.874747038058742*^9, 3.874747080684209*^9}, {3.87474769143569*^9,
3.8747476937078323`*^9}, 3.874748356520257*^9, 3.8747490426006823`*^9},
CellLabel->
"During evaluation of \
In[110]:=",ExpressionUUID->"98d7ae82-703f-4210-8868-04cea497926c"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"tmpT0", "[",
RowBox[{"e_", ",", "u_", ",", "aa_", ",", "bb_", ",", "rr_"}], "]"}], ":=",
" ",
RowBox[{
FractionBox[
RowBox[{"u", " ",
RowBox[{"A", "[",
RowBox[{"e", ",", "0", ",", "u"}], "]"}]}],
RowBox[{"aa", " ", "bb", " "}]],
FractionBox[
RowBox[{
RowBox[{"bb", " ",
RowBox[{"Cos", "[",
RowBox[{"bb", " ", "rr"}], "]"}], " ",
RowBox[{"Sin", "[",
RowBox[{"aa", " ", "rr"}], "]"}]}], "-",
RowBox[{"aa", " ",
RowBox[{"Cos", "[",
RowBox[{"aa", " ", "rr"}], "]"}], " ",
RowBox[{"Sin", "[",
RowBox[{"bb", " ", "rr"}], "]"}]}]}],
RowBox[{
SuperscriptBox["aa", "2"], "-",
SuperscriptBox["bb", "2"]}]]}]}]], "Input",
CellChangeTimes->{{3.874746890535481*^9, 3.874746899309466*^9}, {
3.874747084567083*^9, 3.874747125347259*^9}, {3.874747188692266*^9,
3.874747258664878*^9}, {3.8747472895829973`*^9, 3.87474731189454*^9},
3.874747698555007*^9, {3.87474773314426*^9, 3.8747477372715797`*^9}},
CellLabel->
"In[113]:=",ExpressionUUID->"b768f796-312a-4ac0-8982-3e0ad8be0da2"],
Cell[BoxData[{
RowBox[{
RowBox[{"u0", " ", "=", " ",
RowBox[{"-", "22"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"-", "20"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"T0", "[", "e_", "]"}], ":=", " ",
RowBox[{
RowBox[{"ang0", " ", "=", " ", "1"}], ";"}], "\t"}], "\[IndentingNewLine]",
RowBox[{"tmpT0", "[",
RowBox[{"e", ",", "u0", ",",
RowBox[{"kIn", "[",
RowBox[{"e", ",", "u0"}], "]"}], ",",
RowBox[{"kOut", "[", "e", "]"}], ",", "3"}], "]"}], "-",
RowBox[{"tmpT0", "[",
RowBox[{"e", ",", "u0", ",",
RowBox[{"kIn", "[",
RowBox[{"e", ",", "u0"}], "]"}], ",",
RowBox[{"kOut", "[", "e", "]"}], ",", "0"}], "]"}]}]}]}], "Input",
CellChangeTimes->{{3.8747473740379066`*^9, 3.87474744692907*^9}, {
3.8747475881780977`*^9, 3.8747476597465057`*^9}, {3.874748345221727*^9,
3.874748375460277*^9}, {3.874749025021101*^9, 3.87474903254362*^9}},
CellLabel->
"In[114]:=",ExpressionUUID->"15824ae6-d625-4532-b0bc-b98a74315672"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{
SuperscriptBox[
RowBox[{"TMatriX", "[",
RowBox[{"e", ",", "u0", ",", "ang0"}], "]"}], "2"], ",",
RowBox[{"T0", "[", "e", "]"}], "2"], ",",
RowBox[{"{",
RowBox[{"e", ",", "0", ",", "50"}], "}"}]}], "]"}]}], "Input",
RowBox[{"e", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.874584661336244*^9, 3.87458467461047*^9},
3.874584733384186*^9, {3.874643366819965*^9, 3.874643367100726*^9}, {
3.874643561728964*^9, 3.874643669911059*^9}},
CellLabel->"In[79]:=",ExpressionUUID->"ac7faa5f-86e3-493b-a9af-de5025387958"],
3.874643561728964*^9, 3.874643669911059*^9}, 3.8747450547466097`*^9, {
3.874745214431611*^9, 3.8747452191141653`*^9}, {3.87474535831985*^9,
3.874745365100844*^9}, {3.8747474937010317`*^9, 3.874747494437621*^9},
3.874747585435828*^9, {3.874749035302739*^9, 3.8747490388165617`*^9}},
CellLabel->
"In[116]:=",ExpressionUUID->"ac7faa5f-86e3-493b-a9af-de5025387958"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwV1nc8Vu8bB/CHr/ANEbIyn8eMiJAk55NRT6KeojIesvc4yEjDSEpIUchX
RWloGA0jESlRRFIqlZEtGQ1l/s7vr/N6v17XfV73dZ/7uq6j4Bq0y4OTRqNt
5qDR/v+kp85fuShbYlw69PVjv0OHURmvmlyAdyoh96fa+53TfqI2sjBf1fsS
URN/yCBlzXUiXb+PLXDqOjG5KnlFf0Q9Ub8m2Ivbu4jYnD2+Maf7C3FoxWL5
Yu49wn94KXfb7UkiI83ceC6ljDiaWRmULs+JIsHkuj9RlYRpysrtHdbL0ZDc
xvzl9ZjYxmhaLZUvh4l4/sHIm7XEzOKqrEIBDRyuK1Kbzq0jgrQU7b8EGmAp
p7V/WOYzgqOF9q5rmTky8LvwR8pzIuO6GKtpYScY0ecng+Mbie2Blm1GZk4o
rjLSnYh6SRRuoT/xI71hNNcVHhjcTMylvGguEwxBo+HRim9eLUSn9oLIWrEI
3DISOaJX1Ep8CZg9XsV1AJOd7pf233xNRBe19dQMR8DgYGnNvattxJnU2ci0
gDAckeLtncp9Q2xtd78w1xqCpxV2/+jktBPljFqaSyqJpXa3FIMz3xL2xYs7
OKMCwPozZ16c9o6Q1lPhWpbli8zM7V7jKR1Eg+Ujxc8sb3zRzz2hmfie0P9+
7eVAjCcU300WBMR/IJ4EXsqz5PeAb5jpy9vRH4n8Qbqt6Bc3FIue+zYa1UmY
VAzMXRxwxe97AwLq4Z+IrXJ3D5pJuWKjtYGWb/Bn4rJoqgVIF8RPJbIK/L8Q
hmaXdwz1OOPFmc7gIa8uYvLX6SZpX2ecyMpoTNfuJhYq9sf0cDlDw5uwX1vU
Tayd3vRGxWkfWtYNjbRp9BDM7J5ZvyYnhPCcORhys4eo0eY9f4rlhBUd6/mF
VXuJJ9zchaxBR5Rf680pudpL3OBLDll6yhEO4UmrdzK+El0DmlpJJo5YMNet
nsj9SvDqE020fxyRt+Lz9tOyfURQxGH+/mY2zPqPdWnl9BEiR3bSxvPYGLqv
SbZI9hNy1j/yeY6wkRTfQQvK7CcOnnYfhQsbmjYxZ5atGCBWGV/JeGXBRhtD
jV6YNkC4dccdoxmyEfbj9V0roUFidK+/uLEmGxJ1UaZjKYMEGdAXyKnCRmUa
oz2Zb4j4PaHj9oHBhpNrk7tG4hCxq3vrPFuRDQ6dsF8vuYcJe5a8+1pVNvI5
ZBP84oeJV+GtdAEtNra8rhfj4xwhQmcDy64YsDGSG3T9ZvQI0crPcCw3Y+MU
KWFgMT9CzKo3cItYs6GN2obhqFHCbSAhNtaNjXZBX7vEP6OExO0j5e/C2Ijs
Eh5RDf9GCO77JjKSyEb1EXc+7+Axou9aEv1RKRsu2wVyeMbHCCa7778NLWxw
yZZqXPf/TvwT3sw9M8SGRRXP9gGvcUJeZa1Vm5wjtBddf4lNjBPJyukRhoQj
kuX3vWIYTRCHUpYuFu9zxH7Xh2E2TyeI05dsl4RecYTZAPn0QfskkX1+pIWl
64Tesc8ukb9+EF2XnXpqgvZBfr4sZ17/D8H7YSxEhc8FzQL6/3I50rBBMCDJ
6b4b2rYJZ706REOjjte7jOdueJ/4Xfl8Dg3ytfcYTz66oW/JdTPNTzSo03aI
TdLcMTcvHmPrwIHlDvs4blu6Y9X3v79v23FCgsPzaWSPO068qurbvYcLgXVc
+i8XPXCKPztUPpwL1Qt/12ks98RZi3DO0XNc0JkyJQ/TPXGpXlM+5i0X2u27
vSbMPFFafcnhps0S9DrYvBJP9ER/YWzbwi5uBC+kj3kv84JJqnnN9R28sDes
4xAQ8EaMxf2CtkBeKCklnKNLe6N6CSN9PoUXJSKd/arq3jA8RPO0buLFxwjX
lzxbvbHWp5JvkfkvbHWcZQTjvaFoqr13j8lS1PV0T2+Z9gb3tPR3Lj1+jDqm
9yS2+cDsblKHlg0/3HiWzdR0+SAuYKbGPpQfoa5hCcPffLDwtSO9uIQfnLW/
xAV5fDHdmraerSmAPl7H0duGvhi6yXvsnsoyvBdkj66/5AsPrRkBbQEhlBk6
abQ6+sGy8/hVCVkh+Ek+TTHy9YPu8RUbaVpCiN489zcr3A9cXWv8W1hCMBFx
kKGn+uHyKa8XAWeF8NdF5WH4Yz90jbUn3Fy5HMzEwFs6Mv6wu120yFgljBLd
nm40+wO2GzP5NghjSITwqevwhyrXS80f24TBWdBjs67XH38cBhyfBAhjq4FQ
7I/f/sjgk3nkXCIMQxc/+2q5ALzxPRl5wUAEkuHn918PDICVmsek2BZRvH2f
0bScMxAzSWGVn/eIwrHeQBZLA3Hj+7Fj+Z6iSOX7/MlVOBBc969J6iSIIlO8
78kxeiAeGg9tsnomika6toyJSSCUbfzSjpquQM2wg11OdCBo0cFrJwgxpM7P
5glNBaKwJ3a+dIcYOJiH8z/9CYSDWdrzw/vE0FLyQOriYiBK/73nwBctht4L
UnEcAkHwP/vzqHK1GMQdQqW2qQThQ0FEO9tIHC+Vz+6csAvC3fbDYY0GErj0
TnKuvCwIN465u/ZulUCdvkRzeVUQLupv2zFrLwEJw9fsO3VBOJklobb6sAT8
23S+7G8Jghv73qfTtRLQFs0LOjIQBNG+IVNbC0lobPD+s+lfap6ca1kT7CCJ
1uZH3CN8JGibS2VO+kvCZOZ0dfIyEt+uH52uPCUJGZ8OoyciJJ75yd6SeyOJ
E+GCU2MyJMJ/WAsPOkgh5+eYsqU2Cf98w8VFfym015cM5K4l4bpb4ZvEESnc
+yaWOaFHYnvZ92cWuVIYNlbqjDEkoXIw8UBhnxQaXCx9PExJvOd83B0WsBLW
/w45mNiQ2CC8qogrWhpZGaWT3iEkXnHYNzanSkO9q/D7yv0knCcTv2bkSqOm
MzfpRRiJ+NZhcbUn0nC+ffS+1AEq/lRBjNUSGQgOrlY/Hk3F86ntykiSQZFO
60h6EompGVv/fTkyWHNf8BpnCrV+5ESC6h0ZJJS7GAWcIlHQOPTw4SsZuJoU
8OqfoeKP32B0LZfFrlL1+IwMKp5L9ZdKlizGjn9RyMglIfZzr+DkDVm48RWv
f5pH4sbX42oPK2TRbiTn8f0yieYng46WnbLwl7/Mte4qFR97vZ6UlUPKIdSf
L6DiyY7u9Vpy6LcR77xxk8rfmWeWE3Jo5v4qe/8WtX/CS+ucixwuGL3D4zvU
/uaVsyqo/xyZnOWWN0pIGI3tuRv3QA42k8f0z9+l8v+U0LStXg7W/Ld8E+5R
+68coH0ZlANb0KBq9wMSshvf6MaukMfKIXWvhnISXrNpF67ayoP0WXeV9pjE
2e3f6g44y+PdFauYW5Rr8sxHrLzlYdq208q6hoQE84/+7wh5eCo7Pz9fS6Lh
rGPr5kx5zOe8j+N8SuLnYOlvqUvyuJtVqHuOsvwGIZnxa/I49q3qm+IzEpE9
T3wyS+URVJtyYEM9CTVN1X+G3srjX+mybeYNJPbExqo9+iwP+gvVsBrKce0f
d5zul8cFybvlBo0kPkal5Bj8ot7f9DFT/gWJk8+n9BJFFdCU/Hqm+SWJUilL
tqO0AowF7NbrNJHoDbgap62oAG8nv6vplA1FbVs+rFVAcOELwe3NJEadq7xX
WSsgV4JF5r2i8rsvlrpgr4CWihVO45TNeMgHba4KUAaZbNhCIucOnfNgiAKY
sLjfQLmBdkh1R5QCtr6PvMvXSuVv/XY7I04Bk+nZM9soW84c/+/lGQXsleEK
eUo50qqn9tJ5Bfw0+351jnJ+ruFQaJ4C8syFVuu8JjG3eUxXukQB91ZqGZ+j
rJq92WGiXAFFV2ubnlC2GbsU+7RGAW9Dy8rGKN9J3/XKv1UBHDyDtza0Uecz
cOsn3ivg8kxBhRNlbsMlK1d0KyDnTK9GNGWdFKdNw4MKMIl9zXOBslN3mVfV
OJXv1APLcson1y4/dWZaAXfim+dbKZcm+N73WFTApm02MoOUez/UfVzPQ8f4
6/g7M5SXrZbhWCZIh6x0VjHfG+p8Y8JVesXoWLj6TFWKsuebFqtSWTrKPEwl
lCmnKavtP6lMh3mTeawW5eoDcdlOmnTY1i966FMeaeqs0dGnI7DqcoMhZTF5
vUFuYzquZjndMqJsEnpKoNOcjg9VLkL/d1D94NoiKzqshT/8NaBcg9t+Gnvo
uPNxpF2HslAleaXAiY6OxsVGNcrOenqdyl50fPzb0SlDubjor3B+EB2F4doC
gpRpq6otFCLpKCAanOep/Hbmx8VdjKFjkLnnwxDly7JbHq5MpCPvUPqB15Sn
svimss7Q8f6RnlkZZRORVjWxbDq29k1syKacnnLWJf0y5YZwtyjKfTx254Vu
0fFwfUTVXsq6cTKvU+7RMcWda6lDOX6uh5fvEfX+uRyRpZTfhl/Diad0BA+K
r+iivne4n1Zx3Fs6LDoU22Io1/f/GFz8TEdzLC3dirK4c7nc4QHqPILGssQp
l9tsSo2YpmPkUuSRK9R9421Z8vznIh26j1luHpRtt75YCOZl4OynO5mKlP9u
tA70l2Tgw5bdf7Op+21RLn5tWIEBz/ZG9V2Us3U+ffZcxcD7L+Ll3JQNVTys
XDYwEJAfPeRF1cshoQiNPY4MyA02jS+l6qvp5Ab3Nx4M8A74GNyh6k9mCS2H
FcjAt6Wrxy0pV/89wbctmoElNNWSeKp+aV+zR4g8Bt7+yGh6S9U7y3EfvaqA
AftaiSY3ynkdDHvDuwykhp+1Gqf6g0nT7UbdOgYCldG98JzE0QfVN9T6Gdh2
PugEjeov7VpHu6+NMdCU1d4ZRfUfxZtbJBR/M1A9e/rpFNWfnl5sPS7Lo4g5
6Zx9nXVUvZzo9RRRU8TRCP+FVKq/nbTnVpr3V0Si3OVvJx6RMF7D/3t4vyIE
FpcwhitJTC4Rfv7ukCKm54uctlC2LZHxKU5WhGMNMTZfQUKJV++O221FaP0Y
yLYuo+7nAze9F6OK+E/zfetlqn/vT/LhLvuhSPX2Lev6iqn56BLUcWVWEbKN
/DUMyqf4Dx44zKeE97xFxIVCEg5uaVVr1JUw2lekGkXNh99CteaZvkooiyRV
P+eTuDlQLxYfogSxDMcEDsqOj5oGySglbGAE0BWvUPl6vU+0OKmEI8OVK92p
eXWmerx5vkAJE7Y7TFoukNDwl93jPkytvyfz1pqad27PD3pqeyujwdo4TiGB
hLuR8vbfQcrg8V1nIHaMqu+SVr3KCGWMCL4O+jeehPd/SkvMjyvjeHy1z2gs
icCgliu215Rxe41uyYXDJKLEGT3RfcrYnNLQ+oia52leLxxeOauAZ6/6mnEX
ErU8kjv97FRRWC2iTRqQGLiiafHBRRV7DeLWT+mT4IeZ6RZfVSjmiveHUP8X
tpFBeoyDquAQ/atO6pAYH3om2Zmjiixr+Xx7Deq+vQjptehWhV6iV8aEHIkD
yU2hq7zU8GJ/Ga86Nwnt5TEZw/tXISQge+Pui0Fw/rFRY7u/BtQ1m3r2PApE
3sVn0tMpmphpa9xoXRyAe6cMO9t2rUF4RVVd9Hl/7H+4kXXBUhv3W56/paX4
4fGLq1OJDjpwP8+0i/bwhc+W9VU+tmvx4KiV/N6dPsi5of3Az1cX7gbBZ4TV
vHHmR1UsGaEHpXW7V3XxeWHgZli4d4g+KjU0Vap4PfF0c1pWXNw6BBZevtz/
xx0cOz72psYY4M266NVlXO6gbSrlyD2wHjpWFRqicm44IT5t1XbcEGXrXj3z
03YFae/2ZProBrgqWoqVObmgJ1bXnThnBKZSf2FGgjNE089/TMzbiOUi6VzZ
h/fhmtCqA8//M4ZpnkT8W1kn1IbImavcIrD28ULz9wo2LsrnSm+0AayPTHJb
xDmg6tAMzbsVOPD6hK2tuz0UtvHMMfZugm3KQLCeqR11LmpJH9o3YdzmsVMM
0xbJ9Qtr5B1NwH9fiJluuRfpocO+zp9MoGUgFyoeugeHVsgK0u1MoZkUuOLW
nd0oUFvyYn+3KYR2328xHrIB908OyVonM+yKVV3WaGyD62tKjlwcNMMlY3UZ
swxrqLne3D4fYA7Fneuvr1zchc6tFXd3j5qj3N7McfbwLrRdiVpNhG7Gwxjx
sdn5nfhzb6cRfWozjm0aNBs9vROL5SEPEgK3wC7stgKH1k5sW7PZ/NCvLZiN
+tXN9YqF545aPn6hTKw2PGJHHmRB2M278kIYE80Pf38RjGLByTtPoDWCiRB9
n+9FkSz8DhG5q3uIidSKrTcnw1hQPDE9Mx/PxCt/+9SDJAsxdx8nn85gwjJ3
6MMNDxYMeVjFDyqYqBzc3uTFYiGBP5FzqJKJzk+u0hI7WHi9/ImNVDUTi2cn
vzdYseAtrfv3yBMmfDTSpDS2sZCpLWHCfMlEla3nsT/mLPx06H7z8RMTTZ3F
YQUbWICLpLJAFxO/xKpeuxiykOS5K5LoYWLA/extqfUs0IOfSuf3M5HzrOJz
ij4LOxNueAR8Z8K4NVIlSpuFnKSesksTTMwnhYfqr2Fh6LTU0rYpJoJT/Ix+
aFL5/JdcqD/NxARzl1mgBgtNuc9oPn+ZkE1ridNQZ0H82sKu/2aZWEc4bBxV
Y8H11rqrzfNMrFhbGXpTlYXCYnJ6cZGJXIcHSr4qLPwPZm42Mw==
1:eJwVlnk0lfv3x5GhTBmOMQ0IcV1DSWXovM0HoXTInHko43GeSiQzFWUIqUxl
zpUiXQpxwy8NhmYyVrhxJSkzv+f7x2c967XWXuvZe7/f+7M/0u5B1l5sLCws
U+T531fmyurtvG33DvJvCNtOOfUn9eFGxe0BvleozCSXzerfuNFypqpol28+
tS37cOLnl5JoVwvx4fS9S0280zXHn6WE/0vupf3yaaYqhOvMGezSwjOt2Pop
ny5q4PpCnP1RU9zREY7ce7ebumOfxsDkCzP86PfMZ1b0UB2qOBI8DA4hUnLj
6GzBa2p0vsYHSQUrZGdb+nxPeU/VG/0jVcHLGp1p/SETPkPUV17bw/xajyHp
WtazDPVh6uHUoxr1PnZQ9qU67Lk7TC2OEJop47EHgystnFExQu1hdvxkWDlg
zUijaabgM9X8pWjbYrsTxP85a/Bfyji1ZCRqje2xK8wauSzHfL5Tf7TzTtou
ekJ93f2X6Mx36u4zwbG3dL2QvOP4K1mdGaqu0w1z82gvMN0bCPrTGarX2NMb
9ZzeMBwLfvrgzQ+q/e5vP5S5fTD634DbmV8/qQyt1oOxc754d/nSg9QDc9RU
UeH3+1T90Kl6YFP5uTnq7+ulCs5+frgfcrX6I8cvqotDf9havx+if5mta4n+
pj7iixd51HACO1Yf3lzVXKA6c2ZJ8h/3ByXPa0YkfIHa/tfjw0fS/LGRKmyo
0rxALWL5bS36jz++RwVOupgsUlMyj9QoygWgiV1O68mxJeqr5My9aZ8D4Myb
/j7mzAr1TjXPvn1mQXjJp7mJ3ZkFxf4lV1JGg9FrLnTtVQQLKvZucz73Mxgf
LkzL59xkQaSErZs+ewi+cJQaqnxiwS19BQsLuRCsrIpF2TmyYtxbzTzIKwRK
04u/K+3ZMOno3yY/GAI15Xfxp8PYYNp1fPflqRBonrhP0c9hw7VY09SupRDo
j53Y/f4DG1Ju+miNiDJgP9gfwGq3AZZp976ZWDCQ9Krxi40tO4pg/4dLDQOX
ea+H7jjFDhsX6Z64Zgaump1im8xkR1Ap/caF5wzkt6vsiHrLjppy7hyVzwzU
NeU7VtA5sMa8zf6fQCi+VkX3rllzYonr6/lg71B8m3J2e8bgRFnNk01ZwaGY
UdKayUjnxAYBSSL3bChWSmb5FHs5wTLf3G19ORSUfA/To0e48C68rcy5NhT6
V4yelFptxM5FvWWZ5VBEmdWW9wZuRFOVnLPtBiaaOGQzVlM2Ytmpdy2Ihwmt
CBbvoy824luMWpPtFib2+D3iWadtwrlhJ4P5A0zsNFA/ZqvPDS7Ne/yVDCbc
1/IR7cYN6Y8KQ3ZhTBTU8ytVRnHD1VK/cfo8E1JqUyuszdzo2a5q/i6ZCZGt
pbf+0uaBspS5dk4xE5zzUtPse3lRN0/7JviaCcP7l96r0nnRp3u43f0DEzEB
S08cQnnRqH1pd/4AE2uf32dU3+PFh85n1v3jTMx3px9wUuFDV7JBu+cyE5rJ
rLKJFnyQCMs5IMpCgGkSzHvfnw8tWwY9a9kJzDRaDHHd4cOp30cYD/kITFRs
jK9R4EfssILRp20E5L1PBw4a8yNmadZmXoaAp/TYsU3e/KhMrdBkUSAwnP2P
0vEifugpeX7vVyHwMS6ym1t6M0xT3n9t0iXgpbrEp84nAEcM+FnZETjUn1gs
vk0A67XhQ9mOBDQSRXRZVAUwHtR/+KULAfYhNf+uwwKwtploWfckcOuyT2fA
VQGU8dZzJwYTuKj1y82mWABbXo+laIcSCBmLWdSpE0BnU5n2IEEAB/N28X4Q
wEi/dPn0WQJD/71JqNgiiJL80sfUOALtOe7b0pUFofpaItEvgUCV0cyDMF1B
tPK15MQkEYjM5flKOy4IOYk86dhkAt6mORFqwYJ48uyP/hOXCVj8kqeIRwtC
XjvfSz+VgJSFvsH4LUF0Ku8Obckg81/s6ntVI4h0ztr9fpkEJoucGXVPBZFp
NHKUNZtAw8qZwvgxQQRku/NtuE7WV8Z5IGBeEH9e3z3lf4Osj361m75RCHHP
Swo7bhKwr7y7LqskhM+N4/yH88n67HSzebSFoFNoxxFZQGAX+3OVn+ZCiO2r
s8otJLDgOObcGiCEbQd5HKtvk/pwMX+VRwphcqDfrqiIQEcNa0raFSHsz7Ha
ebGYQBbP1seu94Rg8DHoxh+lZP0PK47SWoXg1qUVM06yl8f+SdXXQmDJHqvM
LCP129weI/ZFCKKLZ/drlpP6PToquT4nhFOHOvWekSzlM3JvjEMYWwdCvlpW
kP0QDjJ9JSoMKes+agfJU00rww8UhNEmuD9g9x0Cr09cPJO7Xxj3Sy5dSCW5
QVRcIN5UGNYyt6pHSL7VWlzq7yCM3PMia3KVZH8C91DpJ4Whz2GR4kwyQ7Ll
nXaEMGKLz4UlkezQbhkomyIMk+MVAyUk6zE+cfDkCaPyZtGbv0nete1E7myV
MHzTeMOaSBbonNfoaxZGbc6Rrw9JXiDiX7R0CyMv8/6eYpKHpIU9y0eEoWt8
MDKB5PaXBcups8KYKns96EhyVZhKxpkNFGy3lgn6X35Zco+VXCkUFLRX0D6T
+Uf2mLaayFGw9LYpLpNk73Pv7VU1Kfj4I1pHh2QLRa8foiYUBCT8m/Se7M/S
JeLRgC0FCmoOtkEkl03Hxxd5U3AtUtVxleyv7ZEsq5OnKNDVoN2JJpm9tkRi
dwIF/8i7OayQ+twXffh5IZOC9jCRiACSj4d1/NVcTP6/b1D2Lalnw8EJPYs2
Cu5c+WGdVELAt3CBh/KWgq61JJY3pB9E2De96/tCgY98b5QoycHPFE/4sovg
a1G1YRTpJ3n6yfRYAxHo/C03MkH68U1duJPZURFY89cp/5dHIFoiWV7QQwTl
iaqDE7kEPg1WNuTFiOCG9x8N7aS/M/ymR+tbRODa1qm/jZwHvFirjOoRwZa2
9Yohcl6mVTafNhkRQf+WKvacqwTM5lR53rKIIllUoPtnGgGW8yF7Zqii+Kzz
McecnM+qkejVOitRWG/NdHt1kYCjYXrHueOimLHbkm96gUDdphpHnvOiMJHJ
e6RIzrv/1blY+SZRFOrv2Zt+nryvyk+/cdIRw80u23LBEAIJvEl5sofEoLNC
k5ANIv0ddM33m6MY0k75//wzgECqRv3K6XAxPP/n63Y1PwLGzUs7MxrEULK5
eHzclez/m3PEs/3iMPlmQ1e3IvWL93QfNRWHt40cZ9UhAnma5lbLDuK4V+S1
LmtG+vmauOKf58Rx21ice8WQgIdTzafUFnFsTXhu7KJFgPJlwsDOTAK3K4XV
F2UJnPp5VGjcURJpRXkFP2aZ8C/SWl/3l0TY7JFND76T+8dGeko8UhK7ym6n
h04xYflwus2sQBJ7DwVpj35lQiH8QljVF0mcbY6zTCT3yQe25mEiYAsmdtYy
lx8zoS2kdJf9vBSSjWrnB2OYeMXq8OzlFSn0VoSXqJL7y/XHhc9ZBVJI3N7I
ey6cibjuf8UUW6WgcXNGnp9Jxl8uj7Lg2IoEY85Cbi8ynkfROuvSVqQ7qn5j
GpPx7Lt+KVzbhpdGvLYWXEz4LKfnFtvtwLWkA9ZdMaEIah/fc9dCBn2LXb1+
5xm46MApt+q/ExLtoQ4xHiHw6Aj3VveVR4/4XKCORzBauCSOnLTfBZWJvxbG
pgKhLhiV9S9TCaX971oGhALg+lNX2dJfGbBn6E1EnURhXpvUfIoKJJ0/Vd5Y
9EPNZa3+Xms1tJVsYnwo8gWzQfdw7iF15ERWP7W+5IPmzuLZC4674aJ5wVU9
0ht+Jgca/ez2gC1eMjC10As3y9QfnDyhATmf4cfvujyR9rMxOvj0XmR9P6VY
vMUTYxXEKV+GJlwfDUdsSfTAU+P0azEx++BnMb04Pe8OVqu+0StR+xHu0Ca5
NcodLHp1rAVhB1BruF1EWcQdSWLzFr2JWtj4mjIVV+GGYAeP1vlYbbyesm/t
sXDDSLSGJzVTBwMhEWPT066gZOT0XSjUBXdNa+BopitKBJTCOm4chMvyiwR3
I1e0MLYbKdyhojP4ieHQ0HHk7SiQ0qUD9RaBnyL1j6MxYonFtxtQ9n7WfbTc
BdLmXCuyx/RgqacyWbrBBbVdipc+vtGDraFA9k4/ZyS3r6ntcNZHeXR2hH+L
EzJC/z3h+kkfXDLe0ZE7nRAhsm2zjL0BZHVZfI9ddES5Ikcnc9gArfk2qqOj
DuCcY5VocTHEjMbvn+eNHVCqdi8yb9wQJyRVvkvn2kPRvcJyNcAIkFSLVZu3
Q79p/X2bSSMQkxaBk0526L199k9qqDH5zh+ICas7hoWaIzoys8YIkM5aFpc6
hvW/GQ8SAk1Q32T/eCreFuZqxkYRv0ygdK/D5+IXG3Q4q/qdDKVhv93FtJtW
NhDy8H2US9Bg5jwdz2VhAxffQr7u0zQcU7PKY5jZ4DdD+L5GBA1LKqbapkY2
2Jk0v7QaR8Mm2UmFBS0bRN1vTk7NouEjl26fk7wNtLgOVz+op6FEdZiiv0on
75cLbBOPaGjgPFt2b4mOHsFWumQTDT3lYu7SC3T4SmksRrbS0M+RZ8L6k45s
dXF92nMats5mDLRO0DHnOPy67xMNvkEr+hZvSOHcJOT5hmh464KDzT10XPK2
PkMdoWHyRZyrehcdMiFPpYq+0sBbbSEp2knHkYQyr4BpGmYdr3qONNNx89LI
w/wZGmKU0nLojXRMpEpy987SsEbh+d3RQEfUjeQqzXka8vbUyt19QMeLgjYW
v0UadI+xLcrU0CFWsmZ9Y5kGP4JnLquaDvc7+4pfrtIguzQoylNFR1V18Pz6
Og3XDyW7nb9Dx/8D2OmdBg==
"]]},
Annotation[#, "Charting`Private`Tag$384951#1"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$66267#1"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -5015,7 +5095,6 @@ Y8H11rqrzfNMrFhbGXpTlYXCYnJ6cZGJXIcHSr4qLPwPZm42Mw==
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->{918., Automatic},
Method->{
"DefaultBoundaryStyle" -> Automatic,
"DefaultGraphicsInteraction" -> {
......@@ -5035,7 +5114,7 @@ Y8H11rqrzfNMrFhbGXpTlYXCYnJ6cZGJXIcHSr4qLPwPZm42Mw==
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 50}, {0., 400.29627226080436`}},
PlotRange->{{0, 50}, {0., 346.7965021601617}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
......@@ -5046,12 +5125,337 @@ Y8H11rqrzfNMrFhbGXpTlYXCYnJ6cZGJXIcHSr4qLPwPZm42Mw==
CellChangeTimes->{
3.874584679169091*^9, 3.8745847376323347`*^9, 3.874643368809701*^9, {
3.874643431596963*^9, 3.874643463104959*^9}, {3.874643571459279*^9,
3.874643579152568*^9}, {3.874643614360291*^9, 3.874643674957877*^9}},
CellLabel->"Out[81]=",ExpressionUUID->"63f508fe-d80f-4b13-903a-57390834347a"]
3.874643579152568*^9}, {3.874643614360291*^9, 3.874643674957877*^9},
3.874664969807104*^9, {3.8746650273757973`*^9, 3.874665034675674*^9},
3.874745098044675*^9, 3.874745250504055*^9, 3.874745366818421*^9,
3.874747497577921*^9, 3.874748379661523*^9, 3.8747490532233267`*^9},
CellLabel->
"Out[116]=",ExpressionUUID->"b9f89334-b769-4995-9aa1-2e973fcfdb49"]
}, Open ]],
Cell[BoxData[
RowBox[{"(*", " ",
RowBox[{"L", "=", "1"}], " ", "*)"}]], "Input",
CellChangeTimes->{
3.874749071136558*^9},ExpressionUUID->"c765d048-e0d9-4899-a2c7-\
4e14e0f6d8cf"],
Cell[BoxData[
RowBox[{
RowBox[{"TMatriX1", "[",
RowBox[{"e_", ",", "aa_", ",", "bb_"}], "]"}], ":=",
RowBox[{"Integrate", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"Sin", "[",
RowBox[{"aa", " ", "rr"}], "]"}],
RowBox[{"aa", " ", "rr"}]], " ", "-", " ",
RowBox[{"Cos", "[",
RowBox[{"aa", " ", "rr"}], "]"}]}], ")"}],
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"Sin", "[",
RowBox[{"bb", " ", "rr"}], "]"}],
RowBox[{"bb", " ", "rr"}]], " ", "-", " ",
RowBox[{"Cos", "[",
RowBox[{"bb", " ", "rr"}], "]"}]}], ")"}]}], ",", "rr"}],
"]"}]}]], "Input",
CellChangeTimes->{{3.874749089053112*^9, 3.874749120261407*^9}, {
3.8747491518902483`*^9, 3.874749210436624*^9}},
CellLabel->
"In[117]:=",ExpressionUUID->"91ca8ca7-a915-4a79-ad57-4a7909a6a329"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{"Simplify", "[",
RowBox[{"TMatriX1", "[",
RowBox[{"e", ",", "aa", ",", "bb"}], "]"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.8747492274260597`*^9, 3.8747492286083393`*^9}},
CellLabel->
"In[118]:=",ExpressionUUID->"db3c6203-70b7-4be8-8993-6a4721eb9d47"],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
SuperscriptBox["aa", "2"], " ", "bb", " ", "rr", " ",
RowBox[{"Cos", "[",
RowBox[{"bb", " ", "rr"}], "]"}], " ",
RowBox[{"Sin", "[",
RowBox[{"aa", " ", "rr"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"aa", " ",
SuperscriptBox["bb", "2"], " ", "rr", " ",
RowBox[{"Cos", "[",
RowBox[{"aa", " ", "rr"}], "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
SuperscriptBox["aa", "2"], "-",
SuperscriptBox["bb", "2"]}], ")"}], " ",
RowBox[{"Sin", "[",
RowBox[{"aa", " ", "rr"}], "]"}]}]}], ")"}], " ",
RowBox[{"Sin", "[",
RowBox[{"bb", " ", "rr"}], "]"}]}]}],
RowBox[{"bb", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["aa", "3"], "-",
RowBox[{"aa", " ",
SuperscriptBox["bb", "2"]}]}], ")"}], " ", "rr"}]]], "Print",
CellChangeTimes->{3.874749230838007*^9},
CellLabel->
"During evaluation of \
In[118]:=",ExpressionUUID->"fb6f33a9-8d7e-44fe-af61-0d2dcf5c049c"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"tmpT1", "[",
RowBox[{"e_", ",", "u_", ",", "aa_", ",", "bb_", ",", "rr_"}], "]"}], ":=",
" ",
RowBox[{
FractionBox[
RowBox[{"u", " ",
RowBox[{"A", "[",
RowBox[{"e", ",", "0", ",", "u"}], "]"}]}],
RowBox[{"aa", " ", "bb", " "}]],
FractionBox[
RowBox[{
RowBox[{
SuperscriptBox["aa", "2"], " ", "bb", " ", "rr", " ",
RowBox[{"Cos", "[",
RowBox[{"bb", " ", "rr"}], "]"}], " ",
RowBox[{"Sin", "[",
RowBox[{"aa", " ", "rr"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"aa", " ",
SuperscriptBox["bb", "2"], " ", "rr", " ",
RowBox[{"Cos", "[",
RowBox[{"aa", " ", "rr"}], "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
SuperscriptBox["aa", "2"], "-",
SuperscriptBox["bb", "2"]}], ")"}], " ",
RowBox[{"Sin", "[",
RowBox[{"aa", " ", "rr"}], "]"}]}]}], ")"}], " ",
RowBox[{"Sin", "[",
RowBox[{"bb", " ", "rr"}], "]"}]}]}],
RowBox[{"bb", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["aa", "3"], "-",
RowBox[{"aa", " ",
SuperscriptBox["bb", "2"]}]}], ")"}], " ", "rr"}]]}]}]], "Input",
CellChangeTimes->{{3.874749239792679*^9, 3.8747492511980467`*^9}},
CellLabel->
"In[122]:=",ExpressionUUID->"078161ea-f9d3-4a75-aa7e-f0d965934ce5"],
Cell[BoxData[{
RowBox[{
RowBox[{"u0", " ", "=", " ",
RowBox[{"-", "20"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"T1", "[", "e_", "]"}], ":=", " ",
RowBox[{
RowBox[{"tmpT1", "[",
RowBox[{"e", ",", "u0", ",",
RowBox[{"kIn", "[",
RowBox[{"e", ",", "u0"}], "]"}], ",",
RowBox[{"kOut", "[", "e", "]"}], ",", "3"}], "]"}], "-",
RowBox[{"tmpT1", "[",
RowBox[{"e", ",", "u0", ",",
RowBox[{"kIn", "[",
RowBox[{"e", ",", "u0"}], "]"}], ",",
RowBox[{"kOut", "[", "e", "]"}], ",", "0.0001"}], "]"}]}]}]}], "Input",
CellChangeTimes->{{3.874749292306918*^9, 3.874749297661779*^9},
3.874750813792144*^9, {3.874750872734755*^9, 3.874750902954144*^9}},
CellLabel->
"In[138]:=",ExpressionUUID->"9b8a8755-0f98-4463-950f-2baf55054802"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{
SuperscriptBox[
RowBox[{"T1", "[", "e", "]"}], "2"], ",",
RowBox[{"{",
RowBox[{"e", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{3.874749313231708*^9},
CellLabel->
"In[141]:=",ExpressionUUID->"7a649e68-0353-4565-82af-28cbb8b733af"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwV13k4FW8bB3CESlqlosUSvbY4Z44t23wjnMhSKZKQ7LLNUIioVIqkhBZE
eypKUQhZQipKiihb1kqWyBJ55/fXXJ9rzsw1z9z3/X3mSDn5bnPh4+Hh4fDy
8Px3lD47fT11zSM9+mQDX3Bbmu7TOfIS3u5nyaVfZdNGrezIkqDMG3LuV8mD
SjqZ0fqhZLx6p9382NukmkBEaWLuWbKC5e8m6J5FOiqVJ9xak0yGis48m0l7
TAonb8hb+P0mmXjeUG/qzFOyt0y4NzEki8xaGFM2HlJAbmDPTvxon0NWxdRx
R92KyaF/YZeEGgvIwUjhnqCMErK6RGr6TnwJGVaWJT+WVkZ2qTTJRd98SQrx
bd8fmPSS7J5753aHZDWZiD+Zv89UktZOuY09/LXk2vBLQ/6Rr0jt1nALT7k6
8mGhjupgyGvSQ7FFeZj3I/lK61jeT7daUo3vRQvLvJm8pyNyWC3rHbmixLRs
3YsWcqjZ+WpAxnvy5fJdMsuIdvKw+JyO4bQP5PRtxXUHJLvI8rxds4jkenJ2
l9nbQJ0eUmjXPRn/pI/ke2s9kVK/PjIpydxt4EwDmSGkt+aU1C+yRT0tSvlU
I5mbFH6y3nyQlPk0dNc78jMZlqIymXVxiHy4NOHnj5Bm8tqiZdv8LEbI6nPN
/r1urWRFxYqFj4wmyaiLia/i2W1kS8/UQE7bX1LJnbTlZLWRWSf2RzUenyap
2ecOURntpJVvXfi5IB78M1QtGkz7Rpp5Fqq/lOFHuuhX87g1neQuetP9VasF
sKnreKtKcieZUysv8khcENGRDTy+SV2koZrgOg/ZOVhRFmLQf6aHbI3f7ScQ
JIyC82vrY+b1kknf7vwjLs2HvdMbZ6VTvWQEeFQtixfgBu+aE16RfaSjn+Ea
8TOLwEZJVV/ID1Jmc1b0O34RmBTONu92GyA1DL5aXtm3AuwZp9FlgwPku7kL
FMblxBAj6VCzVmeQnD+wuapnUAwBTvmBVuWDZHSqyCrPqJXY1O1XnlM/RLbP
NNS7f1yDjv6ve4NGf5OP+yy3+QxJQ3L6afK0+jip77Bs+XS9ApamugyKHhon
XTT5tBfaKWIOKbJJuXicTBx91bCmUxEDET4/7I0nyG5X0dXKY0oo4pfVemE9
SQ7lGop+kFPBHuHzDUeDpkhzR8UDWl/YeDtffS7/Hh4oOCzNai9UR53pkos1
oTz4IyhkODJXA42nfq27lMwDja3Scrt3aqBT4PYm5S88OFIbvHrtoAamppdH
2Ozmxck444mo/22Awq+JP/d38cGuRuau2E1tRNUUdu7YyQ9d11vUQS9A/6zh
i9sWc/AHJkIlk4ZwUZmcz56/CJDov+Y2bAkzeZehZcZLwTkrey/4gzWy68MC
X2muQKeS3/49u+2hvUQhiz98FYolXIu2ZDjB7e/5lJs2kth6wvD+shEX+Fb0
cLLMpGEwcOClQ6M7TtsKyk7vl8HPonlKbkVe2Fd5yJXtvg4D7g5aGWwflMwW
2+q1Sw5WObqvAxX80H1d2eTzXjkgWvTaa2U/CGOTgbGnHB4GL/qwhuMHmyBf
tbWH5DDjUIxCbT8M9L4Ua06Ww+UYa82mLX5YXU11mLTJgb8lSOCCjx+CY97Q
Cm7yiMlvvsH30A/sxRGJfQEKiG+rzcpQ8Ef+nAa5ylAFyJy3yRZR9oc+j3LB
jUgF8NALjULY/rAaaG51uKAA1Z8eEtD0x4G3GvKfHivgr3tqbKahP56fGigo
HVaA+M11s5c5+oPL59B+xU8RG0+cKhSO98f7iRw6OEgREHb63/8S/WE7JCxo
HaGIvtDQZeQlf3i15SssiVPEM/3Vx9yu+iO2aFlAVJYihr2exly+54/6kBrB
wF+KOOZpu+JUmT8cf+sqme9XwsMRie7jQ/6Yv4TnXX2AEmxj72vFjDDrYZXS
u8OYvjPtvnR2zB9LfYwK3GOVcD2X9+CZaX9U9ZqbHHuoBNlM12sucymwWhzc
n40o4XR5a8BJSQo8r47ckA5bD8XLb3pjt1B40GPAvXt8Pf5EGY2pWVCwFRT8
qRK7Hm4R3wWbtlJ4YnCao3t1PW4nPZETs6bgXnS+1LpkPebtuexL76Xw7vH1
thgBZUjZxzckBVJIT325auyMMoS9X6enXqGQbKfUsCNRGWbqwa+aUihcFI8/
9yRVGU8VeeYsTaMQm+goSGUpw/7C/FdhNyiExP4d+PlOGWOnw6yVH1DYdphd
1iGigvSR8dOziijw26d41FxSASf29dWwrxRmVvLLrL+mAoVbZ73tWilMfvZs
ic5QQfM9UwvNdgqDOzS3by5QweOiSPOeTgpfzD7olH9RQZyUmLb0TwpNqfxz
vi5kQVzGvWreJIXHsVrNddtYuKT/oOCBCA2nKwsE8ney0GQULysqSmPJnQ7l
dFsWynoUBUKW0fArOX3U14mFAqV7sjpiNJRGmuSFKRaMv0b0p6+hcWPXoSDD
cyxI3U+5/VuOxnZXi2tKCSw0snYHEAo0+Oi1b0QusRB6+9dTH0UajjGvJTrS
WIjo+XO9dT2NVcUrKw8/ZOHHTbMl1wkaF2Seiz6rZWFe9EbHh9o0DNhx5NUP
LNwL6rtVoUNjWNfZ40QDC5bGbNcmXRqW1sKFVq0sOCxWsJgkaQiftnMe+sXC
h413alZuohE5MJWtsIANATPDm12mNDhT774sXsKG5AePkx+20OiYc1NwQpQN
veT0ziIzGpA2s61czcYr7ZlFsRY0pqxSeJ3Xs2Gpf0J9wXYaAfm6lilb2Dgv
k9SasItGjm0l32dLNs5EKcrut6XxZ9IyZ+kONvifVhwkd9MI1nYWj9nDhpe+
iuFXOxqHn5/uDPFhYyy5JmrUgUax3dKkXIoNbaOLek8cafBMp2wePsCGyvfn
s/z20jiq+yjTI5y5XnN7YYsTjZNFDUE2cWysLzjz56ILjSr7vYoXLrBxwZmP
BVcaQjPfv9ZeZCP7p9OhTsYx5D9943Q2Xq/V3yzjTiPuhcx89Ww2cgPkXkd4
0njvmFnsn8tGZOaNlEVeTP15NakH+Wz8yWmKTGGcsNG0QaaMjeAd/ecz99O4
XOqfLlLPhvtd4tkDHxrNTn+3WzSyMeQ9pbXOl6nnrOOC0cy+4GEU/fEK41SD
i158XWyUisdtP+xHo/Wb1Bq9PjZaqXqNH4wlI++9C+5n41ZSiNoOfxrXy4vU
hkaZ9305/rAkRaPTmdurNMmsN/pL9RHG6wTqLrv/Y6Pfh0O0Mb5j2DXTKkig
+0PJ9gs0jfsV86prlhOoSEj89TmARr9rQqjQKgJyX8MkZAJpKM+WUDGSJHC8
fMLHi/EjY+JCoRyBI0rHvYYYD/cUGE0oMR49IsY6QEM1ynBClU0gf6C/x4tx
bpWN/f0NjB+N9zQxHnPvWNSrS6D3aIz4goM0NOfuL1urT8DhYrCvHuPgu6OB
DkYEzn7T6fFinL85XO6KCQFjc6ujiYz/9s1p/mROIDtfb2MRY53T588s2U4g
YFaozDfGhxVWwdyawLW/MUoCQUy/VN8cPrWbwDuf37tkGGeveOcf5kAgRb+y
TY/xDdfJQb99BEqif/zYyTjpiYyfsxsBU4k3h/YzPs1nMWDtRaAq9mNcOONQ
y2AfU18CJ+QCFeMY+6Ze79ejCVBjK7akMnb6+XY/cZAAt0zl913GVlrjP2QP
EVi1SF7qMWPjKGkvsXBm/WsCP+Ux1vq05bvwMQIG/ZEiRYyVZA568JwkYK9W
3VjMWIJK7/19moC0z9N1/3nJi9duPbEEFrwuni5gzL/gT3fTeQJrdaztcxmP
7ZZ0rUn87/fD3EzG3++adJVcJuBSLVh0nfGXsQDnnFQCaQeEihIZ1xpe/Xbn
GgHDHQGbTzIujX/llHyLgLLAc8dAxk/af7efzSCQ176Lfy/j2ypr9h7LJPCc
r1LVhPHlMG7bgWzm/jphwyzGMa8pB89c5vklxnRFGYeLpbTsyScQP561fIyp
D+VWuWdrEYEt79dGfGLsnDP0ZVMpgeW+tQcfMzbZatSsWE3g6/PyZa7/1feq
n61EDYHqG/OKtRmr9F/+vKSO6ceSyPH/+mfpqYGGic8Ealcvkspk+kuwQcy6
/ysBi0DZxSGMJ2Q2fWprJ3CTTV8wYNzy4mJ9ZR+zPvGKnbVM/75fULa9oJ9A
gk594jnG5Xb9dZlDBN5nKe3fyvju+Mb3CRNM/Y99anzFzEey0X7LU9MEDueq
+x9lHHshsTaUl4Oqr//SNBkHsH683TeXA07ez6oUZr703C9Us8U40LLy3WzK
zB87t2iz7GoOvAu17g8y8yvD31e1QoqDKfpNRjzjuWm6lTNyHLTWhIfVMfNe
39Bd9laTg6urJqM4TD5UyC42KNHhoONpxeeXTJ7k0dqlT8DBkbju6h2MUxfG
vbjC5aBuQ0CcjzcND+MNhR42HMRn6eYdY/Lpl5zYy0d2HDw6TeiPM3lGCU28
mXDkoNfReLYn49C3z76c8uAgP7yLa+jB5N92zam7IRyIRucXNzH5mOugof09
mQPNeN31R5m81d643IBI58BS7OanaiaPX0iPmYTc5IC7aqhqEeNXXbm2Qpkc
zBU5HX3Bnuk/L/UQhWIOrl/XSzvE5D1fkFqeZzsHSvMbK6qsmLzeJVqS3cW8
H51tzt3M/iGsPVo12ceBipavDS9j0X9PGk8Pc3C0XZqrspWGXKTqeMYsVdRP
pNp7MfuRRRxH44esKjaoHlR1MWTqdYed4+Wpiuj/mYi5cpj8/7yv6qqPKr53
dPOoM/vniFBi8wdKFav2/Q6YxaZh6j3Jq3NIFY83KwkmKdOYZJeZC8eoYjiI
pzdNnsauAqve+w8YG8wchQSNZTUHV/4aVMVS36MLc+fQ0J+5qyw9qorOhDTv
DbNp+LC+bNw5oQqlbwjKF2Dqd575ZOJVQ6U1mZTDRyPQem5O7BI1iNt0iMVN
Uahvu2yuoqqGIx3ZUg0DFM79Ljzid1AN3g4LOp7UU/Cpi9trd0gNjb4nHBZ8
oLDl0b6N3HA1BBpvHHV5T0HQdy6v5Ek1lMlpeC+soRD63SqiNlENpkXGd00r
Kbi2/zisnKsGT6JaxjOPgk6tWOjPETVMyo9+Nkym0J0ReMCdUsft4w3mWXYU
dq7+13LngDqcCorVPGwpvDx7wrgvRB1NXnnyUjYUbgQkrfA8po7w1YRe9HYK
Tnp5+V4XmOs7o/W4JhRa3k/988lVR9Af6VeuGhQ+jh87GTipjpXGhkfIRRTK
jc5fPHpUA68F+CruP/cHr0VTx9kITQReYa38vdAfPBtzedOCN2DLuliLfTv8
ELV8zKzupBZ0bEZyGyZ84Ge7r3TsmDa054rlf7byRvsRVWcyQQemU8L7fh3z
wtL4S02n0nVxT6O483qBB24tUgiuvKKHevZOemyFO0ooCcP/3SPBSjtrHeXo
ilTJtFW6VsDHgbfdxz45ozB0ksf9HfDG4mi1hds+SJnOnlprvRFfesM6Agf3
4kmtfPTn+o246Fo5sjLDETEV/1iSe/Sx9c249stye8TTfZ6OX/SxzeVpE3XO
DqGiaxZK7zJArrrw3+cJtrgrL1Ad0GYA8XYRkaFUGwiO8IqV2G9CtnpFtM3I
TtxmPTqc2rMJjX0Lzqdt3QF5pwzzaW9DXJUOdQ5p3Y7mzXnZO34Ywrgljey9
vQ1110PWk7QReCRvz68+uBXjj7fqSA8bYez9mfHaIEvMPKNyTvgYwyT79wYp
FQuYsowMQ0eN0WQa8/5OkBkq96h4eNFc9HCXPbcQ2oIl+9wLUgK5aC/XiDPg
3wJ79/T57w5y4f33panWP1P8oUSyVUO5eG48L4A1bAqZqLHJ6UgurKJOupBN
pojILo6JS+Qi8dDWh90ZptCabfkwJ4+LaT4BiW3mpjghfIqvt4CLnMrnvmlc
U7xfXGolXsTcf+Bb+JC+KdxXqU4cLuVivXj65ysapkhir9DnvubieMIny8VS
phjZ3fah6QsXdx8VkodHTIC9Yuvmt3LBw9b7M/bLBNGu24LIdi6Kt/XaBPSZ
QNq/fNWNLi5ano2vDmwxYf7H3nHx/sVFqXbr8cQqEyRHtz+9OsjFiVuHQ2XL
TNAbJy5UN8xFVEid6NNCE0RciclUH+Oiv6BLsSPbBG/SXvJ4THDx97jZrUMP
TLD81r9tV/4y5/3zi5bfMYHTPY2bb6e5UGnmDci9ZoLMh35jMzNcmCVMlFun
mOD/t3Cu4g==
"]]},
Annotation[#, "Charting`Private`Tag$94927#1"]& ]}, {}},
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, 50}, {0., 311.5468376063126}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.874749315126794*^9, 3.874749325627228*^9},
3.8747493595973787`*^9, {3.874750881550634*^9, 3.874750934396133*^9}},
CellLabel->
"Out[141]=",ExpressionUUID->"27d3f356-a0d3-4e6a-ab4d-075f5440102f"]
}, Open ]]
},
WindowSize->{1389.75, 768.75},
WindowMargins->{{0, Automatic}, {0, Automatic}},
Magnification:>1.1 Inherited,
FrontEndVersion->"13.0 for Linux x86 (64-bit) (December 2, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"3e3ae8a2-6cbb-4d2f-baee-671dff956548"
......@@ -5067,46 +5471,63 @@ CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1183, 22, 92, "Input",ExpressionUUID->"502c7901-c122-4614-8b72-a04caf16b1e2"],
Cell[1744, 44, 1296, 35, 51, "Input",ExpressionUUID->"8acf02de-4007-4da0-99ab-5688c509e7b2"],
Cell[3043, 81, 488, 10, 50, "Input",ExpressionUUID->"e4eb0afd-6ac9-4727-a316-8fe76f4fcecb"],
Cell[3534, 93, 603, 13, 50, "Input",ExpressionUUID->"8fe4d871-c7e0-46fe-8f61-898f90834b8b"],
Cell[558, 20, 1183, 22, 104, "Input",ExpressionUUID->"502c7901-c122-4614-8b72-a04caf16b1e2"],
Cell[1744, 44, 1296, 35, 57, "Input",ExpressionUUID->"8acf02de-4007-4da0-99ab-5688c509e7b2"],
Cell[3043, 81, 488, 10, 55, "Input",ExpressionUUID->"e4eb0afd-6ac9-4727-a316-8fe76f4fcecb"],
Cell[3534, 93, 603, 13, 56, "Input",ExpressionUUID->"8fe4d871-c7e0-46fe-8f61-898f90834b8b"],
Cell[CellGroupData[{
Cell[4162, 110, 1319, 28, 100, "Input",ExpressionUUID->"221cdf39-c3eb-4a84-8500-19e402ba9a9a"],
Cell[5484, 140, 66340, 1107, 254, "Output",ExpressionUUID->"a94c9fca-df90-4e5c-bf47-3808b43aa772"]
}, Open ]],
Cell[CellGroupData[{
Cell[71861, 1252, 672, 18, 50, "Input",ExpressionUUID->"81e93a97-5638-4def-b308-95c66e4d9014"],
Cell[72536, 1272, 63290, 1058, 254, "Output",ExpressionUUID->"eba2d4c3-f484-4cd9-925a-782823139dd9"]
}, Open ]],
Cell[135841, 2333, 3441, 81, 151, "Input",ExpressionUUID->"d800b49f-9b04-4303-885e-198701a8fba7"],
Cell[139285, 2416, 629, 13, 33, "Input",ExpressionUUID->"036b641c-9c8b-4000-ae1a-448fc6136597"],
Cell[CellGroupData[{
Cell[139939, 2433, 1397, 31, 80, "Input",ExpressionUUID->"6f15ea9b-99d5-4a4e-88e1-2b680fb1bba2"],
Cell[141339, 2466, 20791, 362, 254, "Output",ExpressionUUID->"e5da8778-bac5-4190-9944-d2fac95ca723"]
}, Open ]],
Cell[162145, 2831, 1655, 33, 52, "Input",ExpressionUUID->"eba599fa-45b7-41f1-be81-be340b9f2765"],
Cell[CellGroupData[{
Cell[4162, 110, 1319, 28, 90, "Input",ExpressionUUID->"221cdf39-c3eb-4a84-8500-19e402ba9a9a"],
Cell[5484, 140, 66270, 1106, 230, "Output",ExpressionUUID->"d66364ca-3afc-4ff8-ba35-99c94587bf18"]
Cell[163825, 2868, 2552, 46, 57, "Input",ExpressionUUID->"d15ee31f-722c-4a79-b9bf-b0ddb3b85de9"],
Cell[166380, 2916, 26014, 450, 265, "Output",ExpressionUUID->"27efad4d-8e16-445c-9e3a-8bc939a733a6"]
}, Open ]],
Cell[192409, 3369, 1638, 39, 78, "Input",ExpressionUUID->"1bd789c1-ff1e-482a-8ee3-6d28b8dd4365"],
Cell[194050, 3410, 930, 20, 33, "Input",ExpressionUUID->"b34b6885-f3e9-46c7-b40c-9e3d7913dae7"],
Cell[194983, 3432, 1250, 29, 57, "Input",ExpressionUUID->"db4db487-96ba-42c4-af20-5155a072d67e"],
Cell[CellGroupData[{
Cell[71791, 1251, 672, 18, 46, "Input",ExpressionUUID->"81e93a97-5638-4def-b308-95c66e4d9014"],
Cell[72466, 1271, 63218, 1057, 230, "Output",ExpressionUUID->"5ac48ab4-be7f-4540-a299-281d1ed3902e"]
Cell[196258, 3465, 1665, 33, 104, "Input",ExpressionUUID->"fba925bc-a4b1-464a-ab0a-78ae801847ef"],
Cell[197926, 3500, 42239, 712, 472, "Output",ExpressionUUID->"6a616a0d-e73f-4aea-9d8c-48c154bcbf5e"]
}, Open ]],
Cell[135699, 2331, 3442, 81, 75, "Input",ExpressionUUID->"d800b49f-9b04-4303-885e-198701a8fba7"],
Cell[139144, 2414, 629, 13, 29, "Input",ExpressionUUID->"036b641c-9c8b-4000-ae1a-448fc6136597"],
Cell[CellGroupData[{
Cell[139798, 2431, 1397, 31, 71, "Input",ExpressionUUID->"6f15ea9b-99d5-4a4e-88e1-2b680fb1bba2"],
Cell[141198, 2464, 20720, 361, 230, "Output",ExpressionUUID->"c5f65373-64df-472d-8741-a10399890e66"]
Cell[240202, 4217, 1549, 31, 104, "Input",ExpressionUUID->"30fd378a-e97c-49ff-b96a-011fbeff0dfc"],
Cell[241754, 4250, 33193, 563, 254, "Output",ExpressionUUID->"48a07fb0-3e3c-4509-90a6-01f81268e433"]
}, Open ]],
Cell[161933, 2828, 1655, 33, 47, "Input",ExpressionUUID->"eba599fa-45b7-41f1-be81-be340b9f2765"],
Cell[274962, 4816, 561, 13, 33, "Input",ExpressionUUID->"02d29a46-a713-4510-a6c4-c7885644ebf8"],
Cell[275526, 4831, 1673, 33, 51, "Input",ExpressionUUID->"330a3de5-975a-4319-bbb3-e67ba931053f"],
Cell[CellGroupData[{
Cell[163613, 2865, 2552, 46, 51, "Input",ExpressionUUID->"d15ee31f-722c-4a79-b9bf-b0ddb3b85de9"],
Cell[166168, 2913, 25942, 449, 242, "Output",ExpressionUUID->"2b73a078-958a-4db5-97c6-3b13b7839335"]
Cell[277224, 4868, 1239, 29, 104, "Input",ExpressionUUID->"77111c55-479e-45de-9828-bc692ef6cea3"],
Cell[278466, 4899, 774, 21, 43, "Print",ExpressionUUID->"98d7ae82-703f-4210-8868-04cea497926c"]
}, Open ]],
Cell[192125, 3365, 1638, 39, 49, "Input",ExpressionUUID->"1bd789c1-ff1e-482a-8ee3-6d28b8dd4365"],
Cell[193766, 3406, 930, 20, 29, "Input",ExpressionUUID->"b34b6885-f3e9-46c7-b40c-9e3d7913dae7"],
Cell[194699, 3428, 1250, 29, 29, "Input",ExpressionUUID->"db4db487-96ba-42c4-af20-5155a072d67e"],
Cell[279255, 4923, 1145, 31, 53, "Input",ExpressionUUID->"b768f796-312a-4ac0-8982-3e0ad8be0da2"],
Cell[280403, 4956, 874, 21, 57, "Input",ExpressionUUID->"15824ae6-d625-4532-b0bc-b98a74315672"],
Cell[CellGroupData[{
Cell[195974, 3461, 1665, 33, 92, "Input",ExpressionUUID->"fba925bc-a4b1-464a-ab0a-78ae801847ef"],
Cell[197642, 3496, 42167, 711, 429, "Output",ExpressionUUID->"5bb6c898-eef8-4c93-813c-b22a8f757d69"]
Cell[281302, 4981, 713, 14, 35, "Input",ExpressionUUID->"ac7faa5f-86e3-493b-a9af-de5025387958"],
Cell[282018, 4997, 7060, 135, 259, "Output",ExpressionUUID->"b9f89334-b769-4995-9aa1-2e973fcfdb49"]
}, Open ]],
Cell[289093, 5135, 186, 5, 33, "Input",ExpressionUUID->"c765d048-e0d9-4899-a2c7-4e14e0f6d8cf"],
Cell[289282, 5142, 917, 27, 51, "Input",ExpressionUUID->"91ca8ca7-a915-4a79-ad57-4a7909a6a329"],
Cell[CellGroupData[{
Cell[239846, 4212, 1549, 31, 92, "Input",ExpressionUUID->"30fd378a-e97c-49ff-b96a-011fbeff0dfc"],
Cell[241398, 4245, 33123, 562, 230, "Output",ExpressionUUID->"b1d6f99d-b2b7-4cf8-89c9-21fd740767cb"]
Cell[290224, 5173, 319, 7, 33, "Input",ExpressionUUID->"db3c6203-70b7-4be8-8993-6a4721eb9d47"],
Cell[290546, 5182, 1083, 34, 52, "Print",ExpressionUUID->"fb6f33a9-8d7e-44fe-af61-0d2dcf5c049c"]
}, Open ]],
Cell[274536, 4810, 561, 13, 29, "Input",ExpressionUUID->"02d29a46-a713-4510-a6c4-c7885644ebf8"],
Cell[275100, 4825, 1625, 32, 47, "Input",ExpressionUUID->"330a3de5-975a-4319-bbb3-e67ba931053f"],
Cell[276728, 4859, 347, 6, 29, "Input",ExpressionUUID->"70cbfdea-dd92-496d-8c10-256ba52aec21"],
Cell[291644, 5219, 1437, 43, 61, "Input",ExpressionUUID->"078161ea-f9d3-4a75-aa7e-f0d965934ce5"],
Cell[293084, 5264, 803, 20, 57, "Input",ExpressionUUID->"9b8a8755-0f98-4463-950f-2baf55054802"],
Cell[CellGroupData[{
Cell[277100, 4869, 709, 17, 73, "Input",ExpressionUUID->"ac7faa5f-86e3-493b-a9af-de5025387958"],
Cell[277812, 4888, 8672, 161, 607, "Output",ExpressionUUID->"63f508fe-d80f-4b13-903a-57390834347a"]
Cell[293912, 5288, 321, 9, 35, "Input",ExpressionUUID->"7a649e68-0353-4565-82af-28cbb8b733af"],
Cell[294236, 5299, 8138, 153, 259, "Output",ExpressionUUID->"27d3f356-a0d3-4e6a-ab4d-075f5440102f"]
}, Open ]]
}
]
......
resonans8.nb 0 → 100644
View file @ 3130b7a5
This source diff could not be displayed because it is too large. You can view the blob instead.
resonans9.nb 0 → 100644
View file @ 3130b7a5
This source diff could not be displayed because it is too large. You can view the blob instead.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment