updates

angular1.nb

+(* 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  ]]
+}
+]
+*)
+

elastic_lg.nb

@@ -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[{"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
+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#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=
-       "]]},
-     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[{"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

+(* 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

+(* 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

+(* 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  ]]
+}
+]
+*)
+

resonans5.nb

+(* 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  ]]
+}
+]
+*)
+

resonans7.nb

@@ -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  ]]
 }
 ]