diff --git a/bounded3He.nb b/bounded3He.nb
index a9b6e4d1a47288317a5fe4bf176331b2de478304..77691034be5fd16c58c4de40421ed51a54796726 100644
--- a/bounded3He.nb
+++ b/bounded3He.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[     36218,        839]
-NotebookOptionsPosition[     34231,        798]
-NotebookOutlinePosition[     34629,        814]
-CellTagsIndexPosition[     34586,        811]
+NotebookDataLength[     36311,        828]
+NotebookOptionsPosition[     34323,        787]
+NotebookOutlinePosition[     34721,        803]
+CellTagsIndexPosition[     34678,        800]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -56,7 +56,7 @@ Cell[BoxData[{
  RowBox[{
   RowBox[{"mass", "=", "625.411"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{
-  RowBox[{"range", "=", "0.912"}], ";"}]}], "Input",
+  RowBox[{"range", "=", "0.742"}], ";"}]}], "Input",
  CellChangeTimes->{{3.8762198970264225`*^9, 3.8762199052580624`*^9}, {
    3.8771827496672716`*^9, 3.8771827824193807`*^9}, {3.878286651057734*^9, 
    3.8782866641181517`*^9}, 3.87828681545533*^9, {3.878287607680107*^9, 
@@ -68,9 +68,9 @@ Cell[BoxData[{
    3.87957152299862*^9, 3.8795715245943327`*^9}, 3.880085368016633*^9, {
    3.880086070054988*^9, 3.880086097201236*^9}, {3.8800861558228188`*^9, 
    3.880086188062545*^9}, 3.880086260893177*^9, {3.880086310836638*^9, 
-   3.8800863244282427`*^9}, {3.880086371096949*^9, 3.8800865058217907`*^9}},
- CellLabel->
-  "In[350]:=",ExpressionUUID->"ad6df89e-d3d8-490c-ae91-dac6d80d1b5a"],
+   3.8800863244282427`*^9}, {3.880086371096949*^9, 3.8800865058217907`*^9}, {
+   3.880087577450821*^9, 3.8800876498236017`*^9}},
+ CellLabel->"In[77]:=",ExpressionUUID->"ad6df89e-d3d8-490c-ae91-dac6d80d1b5a"],
 
 Cell[BoxData[{
  RowBox[{
@@ -146,8 +146,7 @@ Cell[BoxData[{
    3.8782876443143806`*^9}, {3.878288596072308*^9, 3.8782886055224047`*^9}, {
    3.878288683259207*^9, 3.8782887288588037`*^9}, {3.878288791621035*^9, 
    3.8782888301901093`*^9}},
- CellLabel->
-  "In[357]:=",ExpressionUUID->"2fc4ef7c-d275-441b-9d3d-7d7239f74130"],
+ CellLabel->"In[84]:=",ExpressionUUID->"2fc4ef7c-d275-441b-9d3d-7d7239f74130"],
 
 Cell[CellGroupData[{
 
@@ -207,121 +206,119 @@ Cell[BoxData[
    3.879571536098033*^9, 3.879571540253443*^9}, 3.880086196183363*^9, 
    3.8800862894777327`*^9, {3.880086334717277*^9, 3.880086336693862*^9}, {
    3.880086380215939*^9, 3.8800863803996*^9}},
- CellLabel->
-  "In[363]:=",ExpressionUUID->"c2ad0be7-22ee-4300-8ad8-45a6e113c1b0"],
+ CellLabel->"In[90]:=",ExpressionUUID->"c2ad0be7-22ee-4300-8ad8-45a6e113c1b0"],
 
 Cell[BoxData[
  GraphicsBox[{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
-      1.], LineBox[{{4.081632653061224*^-6, 3.2503281874312813`}, {
-       4.081632653061224*^-6, 3.2503281874312813`}}], LineBox[CompressedData["
-1:eJwVlHc81QsDxiXJCmfhcJQZjWuUFdEj4nQyfmfZGZWVrp3MpnI7RqJXyuiK
-CmkYeTMSsnIVRcaNLpWUXBoaRnp7/3g+z5/P9/njeVT3hHB8hYWEhE7/0v99
-G1OPd+CQOEbo7tfi9SXwaJWRuMhuFfg3WbxYeVIC28/saLzmqI2Xmy92EY8l
-4Ks7v0p/lR7CjTq2LDEkYb/O96OcrQF6vFTNf4uTREVfwsGHJiYgarUWaocl
-YUZef0vkyFa0qVAtRzhS8F/IyLviAgjcfdv/eiaFkLaJzbfst0Pu4Ijfgtcq
-CNxENX8csIb2dflbqpLS2Nse56cfYIMzotmkhAfSaFpJZwe5MrH6plbN1DkZ
-vCnUYQ35MOHS43W8OVsGUrC2st3PhFSR2tTFXBm4RIcYqscxsZWnVcYtksHM
-21b681wmmgsUNoxXykC5M/wla5QJC8u8bEGvDGJSuiLW++/Egw1FT2MkZKFP
-Opr1LpIFskcBoglZ1IoNaLfHszAnLDKew5HFdiGduqJEFgpiU8WaeLLgzTz/
-x+scC9eY/r0yrrKIemS8rr+SBfr12aL7PrKoPz1T1/yJha7xyaLACFkwhb3G
-ckJ34Ueu+7LP52Xh/dl8o8MBO3CHH4havZHFKrJQT1+kHezWUpok3/3K12uO
-cE+ww9Euv67+97KgBtvUBaTZoY3UMBbxURYdbx1YJ27bodi10rVzURZ6L7wC
-7s7aob4zUv09hQShh8eK1BLssTf1jBvZmoQbE1bMkpP2qL6vbLrBlgQ3UdEp
-3TR7ZFwYe2LDIqHKSrDZ/JI93tVEmpwiSAhoyGh2brJH6Eo6c+1uEnoqC0dT
-VjigLexIzXQUCQX5rYxvqQ4ovp6RWV9GQq7HxgF+lgOa+ndVqd8mIVsx82xV
-vgPKip/PpFaSkJblLRp+ywFVDdkdQbUkxKYtzEz1OCC1/0uMfQcJnMP6D15S
-HCH83bm57DUJIp55gY8vOILxZ8+LhTVk/FQS0fjtsiPu/TCz7FYnY35o/4vk
-Uke8Ol/pfFWLjA98E+7OOkcI3dhf7aVLxrB979aWYUd4k5v6flqQ8Xe+iNiI
-DAFPDyTNe5JRmWb6/CmHQO7v+f9dfpmMPTnSK2qdCNCijMWkr5JBLn6pU+BG
-oHm825RRSkZok+B4yB4CqYYnPKwryNg4+/c6qXACZNNv+i3NZBS5xkXvOEtA
-bInJSnpNxjmNetrdbgKdN4gemw0UWOmnb7vUSyBmMVpzSJeCT+b7Ak8NENB7
-UKAVakAB4Sx1j/cPgYaMHscycwqkBB77Pk4T8NOZWtxNUJA4s1ixXpoN5wlF
-/xtRFETWmhN5dmzgqneLQTsFd9zahYcINm7u2aU40kXB13niDpXPhu61h5op
-TymIMdunmLKbjd3Zp1OXRig4XC94HRvMRnVf8VfDLxQkNQxEu6Sz8cLphM28
-BhUXm8MKKH1sGBSlm5gIqHi+Z4HrOMjGgK9pX086FYzlJ0WTh9lY2xT2Kuw8
-FflW2UHC4794Tr7Pe1RERWFLg+HHL2zI1Uk6/XufirI2yc7H8hy4HEpeHP5G
-xf3OK59Ou3Mg9YS0SyiEhgqFnrAELw4+mI+Z74iiochv/kPoXg4q2p8UZibQ
-IBB2nHEO4qCfC4p9Cg080+/vNeM4CCzflGFQSsNkCWu86SIHIsFLNhMTNFBP
-zwzMDXGw7+NkfmiQHEQH6M7/jnDQsTK+VzJSDnMa1v2jYxx4HttiVBkvhxeN
-2X3t7zjI0+VPr02TQ8l3yyf/meNAt8eYfKVcDhYB5zr16Vxs9SEiqAtyCLTd
-ci/QhQs7nbCkzGx5TGvTW8s9uFCITFr/V6E8wiXmuua8uXCYPXabdkse8Y/u
-Dp8O5KJ2wUXzdas80rkmiyWxXHBmtBQOzMqj2svYbDL3V7lm6WQ+XwFmlvJW
-mwq4WG26ybbXRwGNat9YsVe4OPx4ycg/WAEPx6vdJG5y8Ufmxj+fJilgOMgo
-dv19LmbKIxwa6hQgHG1Ys3+Mi3i+yl1VbTqSXGlNFeNckH0ux6gY0SFl9qVj
-/h0Xp0oPZmyxpoO2VDUo+MSF0c7pL3XedGgnGnwvXc5DeKbfV/EcOhzTNxu/
-1+QhaqxqN5mmiNxi/TtB+3k4LGZb76yqhI6hvR2XgnmgEh9Gvm5SwqxE1vPe
-cB4splsnaq2VsOv3+WVb43gYrXqSVBmghHn9Bw5SKTyUOrttiqxQgmsd723Z
-DR46E7WHC+0ZSJw6tTBazsNGRlhulw8Dt5VrpGnVPCQ25iWrRTEgdlTZMKGB
-h4BPb9xdLjFw1/rNMftu3q89CNR/fGZA7vEhpekPPHBeXVjeeFUZ23+W6Kh9
-4UGlZdNF8QZlBOsNWzrN8fBHvzMn+Zky2jJ+Xd4yPqIZ8u6mK1bjoLP4nTQy
-H/Ev8+U9/Vejb/Sig64BH3i4Iy/ReA3Ofr53LPQQH5s7oxztklQQ/DTdxyOO
-j896llpElgrsyvdaMo/wUSSoqYm7ogLREPFlKkl8sKwMU+xaVBA/yTvancWH
-6zM+dWK5KvzG3h/WqeZDufsO8pJVYd3Y4KlYywej0e9ncJ4qVC+dtRBt4OMG
-bbtm5C1VDHsYL4208rHx2Yn1jD5VsAePJ6Q+42PU9MTI4ho1bO2mx0/N8qFb
-sm9srFkN9JtT7oPf+eg+fN7ca1ANX1Pum7Us8uGrOVmvMq2GcpbvQo6IE1pf
-3dlxUFEda9tux+6iOmHFDxsLQZQ6SPdsY0o3O0E4RzHqtrkGpnMUXbOMnbCz
-sauH4aKBrth/TY6bOWFNyKENb8I1cMok87urlRO86z2Lz5doQHTk+LamnU5o
-vlzL2zCogf8Bmje6oQ==
+      1.], LineBox[{{4.081632653061224*^-6, 3.0993440325837347`}, {
+       0.00499839233763319, 3.09936427718092}}], 
+      LineBox[{{3.8501838081184587`, 3.1153700731572442`}, {4.497804249705671,
+        3.118150852990969}}], LineBox[CompressedData["
+1:eJwVU3s01AkDnUIiZN5ovIaZScnm0R4VuiRpPZJU855fKSE2SURbSQ9l16NZ
+j80jFJLaymOFUrSlSWvLs3dIptUWwhprw+f745577rn3j3vuOdd8x17/XXNJ
+JFLqLP7PxbQmc0k8Baf04xSGo/Phlrqu4dLGxSiTmNTGrNTCrm8mdW11l+NS
+cgN54XYt+Fjt+sJY74BgHe7U/RQtVHQcPvDI0RHXAgYOe97WwmrKkuvqR52g
+fCZo0fmihd3/yfOK+cCbphO6tYu1sbfpg/11Hzc82HvqXTyhjSThPM5UmDvi
+mpVV1wu1EfjwUJBtsAcKxp+ID/Vpo1HTcNMegSeai/ta7KwWwJYcnzkQ9R2i
+t8z3izy0AMSos7VvmDdOCbfJnZ4sQOH5ByxVsi+qqEu299rpoDJl1as2fz+Y
+iXOez83XQVSds1+e9yYcrJD/l6Kni7vNxSNnRP6Q12RtXJ2hi5D1K+tD+Jtx
+cMfCWhpbD7mltr/tCQ1ALuOaafSfejg7Wn8sImYLPnWsealMXQhl2YHo4Mit
+OFQxoLnnG33c95D/kpCwDZlrd1okletjzsaX71Lj+WD3BpxdDTIUd7ZYRJ3g
+ozOcychxIyPNpjWQf5oP5obcZV/dyTDTU7w3S+ODO+fbRb9vIAMtvynL8/lw
+6zYx3rmZjHivsx/b7/Ah1zrCHQsig+TpOcKc4oPldd2InzqrXavnFMQKUCiw
+7s7oJ0Po/qH5+WEBdp1RrSv+i4yq9Qbp5AQBoi6cpN78m4xg3zju8SQBfIM8
+Bnu/kNEqcvEKyhFgbNuLkYBpMi5EN6Vb1wsQKtn1uIJJgfvVLl4tSYhwm9JN
+gd4UnGaqfNoShaiLqlPfeoeCdIWi796PQhS3s9c8b6QgPzY7tjJViNyaeZsl
+DyiofuVcnJ4lhOCgPT3iDwr680983XpJiCTLuUE1LylwW0y58qpJiOn/7gc+
+U1Hw1XHZ/H4NEYLD6oJCHKiY/3E6r1NLhEo/krqvIxXUnKf2TboiGI4Zjq9w
+omLJ1H7ZJboIgs7xgYXuVAga66pDOCJkdq9O+rSZiuoNnrsG3UUY11iS4R1F
+RYQw8J7quAgmTx3qFTep0Mv/2ON0WgQNl4o1R25TcbVv38yxn0QQX56QOTZS
+8SEs3kknQwS1WKuMumYqpEfzqs1KRJjer5+uekOFd9Gzsg0KER4qo82FGjQs
+HvT6OUdHjDLHiMjxbTQ02bWX9+iLoVy2ctxHQsPOGOFTDl2M6gJC78oOGvJJ
+Ibo3jMV4u3PIJDqcBgb1VOJ9GzFuX2bd8jtOg7pjw6HPfmIoWryGTG/Q0HvM
+YeeaDDEmNw9PhOrRwWXopUScEyP61ltlKI2O0LIPNwvzxPjebSxknxEdY23Z
+C9RLxNjzE1sk59Ix33JOpaJaDIOrtaacNXTYNLXM8X8uht+HpBW/7KMjTnt3
+/s5FErzP/dNe+zUdd8/jUYapBEcM7R6PvqND3d5otMlCgq6TRGL/AB3JohYP
+K2sJJvZNXepV0VFw1X7ws5MEuQV9XBcaAw99Sc4xUgmifTKiM3wZoP187uWZ
+QgkYWSrL5c0MaHdSWyOLZ/Nyf05FKwMkZspD0WUJbMs5us4vGPicnVC1rFwC
+irWyLfwvBpou7ElpbZBgj93CKSdN5uyvnd0Me2b75KXEF3gw8aa193KpiRQp
+zR6Vk38w0UEVF5xlS7GipPHHW51MNG/pyozjSnHt15nsxLdMVL9oPu5tI0W/
+e2SV6zATab2VkmFnKaqG3VxAM4Dbl5NkR4kUkpnnTXFSA5ToL4l9mCNFS3Hy
+iZ+/GsBGKZhQL5BCeXfe60eahrh560yMW5EU57veWZKphlAEDRyovyqFzUEx
+p93KEB9vl0ZW1kuRuSBxhRXfEMtCeGH53VL4Vb5uca0xRFWjpSzGQobaDNe+
+HYlGcMoKeFvFk+GIKHRmQYYRHoSdkIwslWEbb+TD4wtG6GK+F4U7yDCyYlrt
+7B0jqMIv8gPXyWC0fOzVtyojrDJi+2/cLQOJpunHC1+ExkjTdbwrsz4/5tgP
+4SxM/jOUxrouQ1yADVV8mAWH2IbX5EoZ/E5bu2xLZqH06Paor3UyvN8/fqzw
+VxbSfrp4sbVZhgmNLmXyEAtECW/uDx9l6PnVpV071hjZVhM++wZlEBbfNVMk
+GaPjquJc0IgMcxQrdUpyjeFZGWK7aVKGX3oLeQ8ajGHQs2U5VYNALfNEUba2
+CWY+Zcn+ohHgWvtMThSZINcmXqOPQcCiM/vk5xoTOEYEX3ljQKA7a2B6fosJ
+IkcdVW0sAl+Wtp+q/scEyn9fpNRbEtiutOye8DTFn/NYd+QOBApP9SWfVpni
+vFkByzmAQIMhx1h42wx6SbaKZVsJbN5C7FZ/ZIajo/f2m/AJDH5/zaO50wxE
+U3/zjIjA7h768rIhM7DDlsbeCyTA9lWp7luao+Rmdef6/QRsVpNc76Sbg2Hu
+eczxAAG5/MnQxovmSEx6YW0VQ0CnNL9MrcIcwZKvx7UPEfi925Tb/sQcS9Tc
+7FoSCPgM8HtMddm45tuS4i8nMNcw/m5/ChsmNdJVa9MJaH5am9eZz0aq+XC/
+fSaBaUcvm+EbbESMUZzp2QTeFMjHL7WzYZfN//tZIYF//SNvOCyyQHV/33pJ
+OYFe7xB6YKUFuBsPjPpUErCdHBjY9NACWTXz8l1+I+CXM+UV88oCB3+0Gjet
+nd27LsYtRN0Sq2z3Fr1rIFCqq9mhJrBE/Q+TpOCnBEpIav5juhyMX1cOJ7QR
+CD55jvSYx8HyvraevA4CfMm6a/+4clC04UpD+/PZvYsiEnxiOEhiiOPX9BIo
+6Cro+FbJwdYb9TOMEQLuQ2kbMru4SOu7PGQ7RiBMvFX79DgXjxiZ3d7jBM6H
+CnZ8ZvDgdPj7uwmTBPR/73nEEvDA/s706ODc7ahYX/4Nv4+Hpem3HnSobYer
+eppW/CgP/wPj1umt
        "]], LineBox[CompressedData["
-1:eJwVj3k41PsXx2dQZMsWJUXIUqnE7XqKPqdui642/RC+s9r6jqikUhKTrYUr
-kjZlWiwTJVujm+r7pWstayhxMxIjoiFl/7rz++M85znP6708Z5nXkf2+cjQa
-LU42/98Go/2/Fgo8wcuFbHB1WUD2CKKn3bI84bBKiN14uw65xUIrp73CE8Sf
-YzZ52WqTe9q64W2NJ7TSw/hX5bRJj0tPW1/UecLQq6SBwEYt8ug3d7m0Vk+w
-4xVtnhekRQryBB6cXk+om12QHlesSU7bWSn1zMHg1vvdxk5sDVKpn7rTMg8D
-pZDqmivrNUjt1AabCjUM1B00TN3UNcgVM8HsrAUYOM1a8RLC55Mepc9FvOUY
-YFci/2e9W50U7XT0HdqKQaP7fNptLVWybHLR1CdHDFT0uy5W1amQtTkDifW7
-MPi9sn5DfpwK+UXt8os8FwzWJCqPZSuqkNpNLdrBPhikrFbLGVJUJo96epeN
-RWFAz2Gns8yVSHVBv9j+guzeuER+w1dF8lF30Oy5eAwcgr0sSnMUSUkA3141
-BYPupTqvK9cpkqyIOyKjTAxqy0c9AxznkrvS32fvrMKgfICTIb2sQPb3saoT
-3mKwYKvWM09Mgbxg1St514DB3pPOV/80VyBfi0ZNWW0YtLw6W1ZIypMbqjUF
-x/oxWLQ4pvLkhBxpMeSUnKrKgJDr5Y9sztHJinXv8sUaDOAtqWUaudBJnxDP
-huULGBDzfZ5jiDmdFNB4anlLGHCmwWaMWU8jdbVjz/+zmgFn32AREhMaqWBH
-nhncx4DQyt+M4l7OEF3nbH1QCgPuUwGw0XyCMNNVTzh6kwErVsp1638ZJ/yz
-JcX37jCAP+MsPndvnBhtuqWikMkAYYhrUueScULJlF5YJWLAqbIWUa7BGLG6
-opa+/wMD5m7al+tm/ZMIVT4o8FnMBE7Z2ZCnj4cJIg2qUwyZsOEWrtV6aphQ
-sNH/UWHChEceL11dtw4Tf2G12y1XMWFk3aLuQx1S4u4jm6FBeybgBqV2nzSk
-ROUemkMIiwliH3czPZ1BQif55seL95ggHLggij4iIZRbtBuPZTDByFDJss5Q
-QtD0Eiqxh0zIW9/sdrmhlxi8FVlklc+EdNWIguM2vUTF/UMJjSQT4ts/Ps+l
-vhCnChy2LBIzwZ5Gd1LI/kz829j1ULiUBX1T8XZvUjuIZm3G3SRjFuR1LiSz
-dDuIGtfWa6FmLDh601Bl45V2QtRWE7VrNQuU3kdq8OM+EoldhUypg8zfmvMM
-i/1AbBmO0bRjsuDU5rofprebiUyNFacrU1kgvtfAWx5eQ6zu9RhXuMuCfUes
-JngXq4nikoshW9JZcNdP2DSTUkVU+X098fIRC2hPL2YrFVYQ/S+Exwpfyvy3
-fYK402WEFc88QNAp4wkPQ5uTi4miUlN2iAkbaBp6E1Ozccj+usunInM28A2X
-FFuFXUXlAdHMkZUybo2M10hvoVa9L1igrYzXl3BHOh+gscAH7t7b2CBuTxdJ
-UR7aoG+8f+9BNnBE2deiol6g0mOG28xzZHp2gkrEh2o0+fN7osETGc/t9xKH
-1yDb02SHZqGMi56axJu+QcII7vHp52zIk2hFVwa+RYnxDx401rDhaLlFxuBY
-HeJkmsuF9bNBicdwHvvZiGa/XWf36XDgxmXlZfKPW1Ga0V0DBxcOGIkbYxQ3
-dyL1S9ZVVm4ckIbu+GHM70QRP8qCl7pzIL7kmZw80Yk4FT01sxgHEumWK+ct
-FSPjgJWny7w5EGlf7V9yU4wyi0UtO4I54BNpJKqL60K5e2oT9l/hgJvakazn
-WDd6GTZJwxtk+nxXNbOCXvTrSa80sokDfHkfVlxtL1rb3SS+08yBhWsT89/3
-9aL0nTnkuw8cWAFKkuWGEnRJl8FHXRwgD7ttun1JgtzyXs7qjnDgquKnA2rM
-PvS9m0+Va3NhixV9X7v0K1rmpDhtcoALaR1Jwj0fvyHblj+a9D24cJKvca5n
-6BvazuYLNTEufEZh9wPkB5F/8ITLLIsLdfGrlHatGkRFqQOPP/rJ8qSBzs5n
-B9H2b/XspJNcaIjI0YsxGEL+f914TaVwIfzgO725+76jonrLuLZmLuTtybPy
-rpSiRJPSjMlWLmC7/7R+0iBFh0LcycVtXOD5NlmPtkmRseH5n8x/uZCRf2Yn
-75sUXT78hf25hwuLNzo8oWkOI381ge3ALy5cD4pSH3AfRkZOOp+mF3qBojD0
-flf3MIqvoNYaMb2gP8KjukEygpKDv/pzOryA3B4hLEoZRWELls439vCGH/Zp
-U9vov9BDyzk1x8Xe0BNFCLIOjKG5o/RFpSwfaM7dmHz8yDjKWpsfnibxgQ8B
-HYNLz0wgS6/sPTOBvnDjZ9Z9BZ9J1L7z7wLXAV+w/K3esc1sCjU9CLVCwX6g
-Gplw1qNnCo0XOtsbj/iB3+aD6qdjp9Hss2NPYw8fhHSxmeST7gxyWrt9W9jP
-gwCL3S/tzZxBlcw1vEPBOJh5OvrvWEYhLW+85M4JHObX3stwM6EQC7+n1hCC
-AyQ5WPoup9CvY9oFtmE4RA9WKfMtKWR6YWxyJhqHd8kTmx9bU4hfQMQnXsMh
-PNK6tWczhTYo7st7+jcOEcu4Nk1cCsWqXpTrK8Fh9QWTdW+8KdSoWeai/wqH
-SWfVmNe+FMINbCfCy2R9m15YFPAodN164RbHNzj0dJ8IOh9EoVFM/O5jBw5/
-lMe4aZ2jEHAXmal14vD4fkkpLYpCcX77T6EuHE4gYexQNIWMg/4xSO/B4aov
-3bDqAoWcY4W+gUM42MyxSA5OpNDtuK5igRQHR/NLLYwrFOpL1FduGsFB6Oxy
-fNtV2T+p8bnrx3Domz5epXODQm/vltN4EzjoKp8In7pJIb1Man/qFA7xdmuv
-dKVSyCvn94zaGRw+vJiUr7xDody8o2OzszikJVk05wgo9B80W0QH
+1:eJwVj3k4lXkbxw8RIVt2TQnz0ttiHTU0/e5MSumlbENU9DzPOQ+SpUhx0GYY
+hVfa1FjKlqRDJIXnV5hk6aqTcZDerCHbsW/FnPeP+7qvz3Uv3+93w/EAR0qc
+xWJxRfX/XjUi1axgRUD1mAuR0KKN/2AyC3pFvLq/7+RMuTZWSjZ9IviFgK4y
+1dKWM9pYZ5szrtwl2o+c67ae0cLo/M32uH0EvNaSP3DguyaOUF2noOtOwOPa
+QOfrxhq4qWjVYeRBwFCoZ2DGtDpeZz+d5XmEABPdK5WnX6hjJqbR8qY3AZf1
+FWR89qlj8blzbDlfAhJ+OjipdlIN/94uqJw5R0Bu6Df/OIEKbg2tllbhEpAf
+LDDh5qpgwzWPnUyiCFDLe71OMkwF19vFDPpdFM2LVnz+S0sFy1Waq3bFE+Bb
+G+fWwF6Dk9P/e6LhLgEWN5eAr6aMe6y4ZQNpBJz6JHZtcFQJm7fS4iszRf53
+7tULeq2E/1aEW5BNgIRZc8Gbs0pY48JodekjAvIWCl0CehRxGmmnnVFFQFKS
+saFNsgJ+sFGy/nQnAeaRhkc/58li/tpdi/7dBHgptgRpnZLF3xS4mzm9BIS5
+UhlNv8hi+5mpBPcBAhzDNZVvNMvgqVe9TjuForl++PrLUjIYPGs+SbFIGCiQ
+8U8/L419HVgKYuIkaMzuji50lMbXrHfAwgoSwl6yr6/Xl8ZfDEvuDUuR8Hxw
+zwq9Oil8Zfo+570CCYE67oUJKlK4NeHieOp6EqZuL1usrJLE4hcY3ZQNJFSV
+l+/gpUjiTSGLTlf1SKiINd/z0E8SR3qcehplQIKaYUVxkpYk1jckwkkjEoqt
+wzuWwyVwwEtrya2IhE6fY0+LDqzAK6fENF8eJeFZ/GpJZR0xPMe7ldDrRQJO
+2dGf/I2Fh/yNJKQJErScO/td21j4Xb/nmD2HhCxr8mD2NRZO/VhW2xFAgteX
+c/l7ZVl4a7V/8Fw0CeYqd0tU5JYY1+S2BqP7JDRPZBRE7V9gbB0Cdzlli/Ix
+1Yt1SguMlZxUWWiuKL9EoFFw2zyjE2N+r/KhSD8vidvpM898PZsYZldCQmhv
+7JRy4hwT6W3zI6eWhBRbSTnZrzNMrnFRZFo/CSd/3un7pGOSOak6Pl82SMJc
+I/dH08eTjPmCccj7IRKi5cVNp89PMria5ychJOGSWEW7jeEk0+rKc/OdI4Gc
+X1YUC5tgpLmPTS1WUaAjcafOW2+cod88+tL0bwqi9+70Yx8YYbYWjnj3b6bg
+0lKKGckaYaaSt3xiGVHAitxoV18yzER7PvpgZkaBYYelUuO6YebWWAG+bUUB
+XZWpnjj7lalTLUilDoj+HQrSJl4MMBuP59t/9xfpLV5Am3/vZer+tORNBFBw
+ujUrWt6ul2G31SsNBFFg7C+Xs02hl8k6ONTMDxHtJ0rle97qYXTQZo88LgX6
+Z2o39z7qZtTWFnKcrlKg8XIT+3xfJyPeUhT9oIACxQkT4zapj0ymknV3WiEF
+t8o5T1PT2xn4D//XFB4FYQvZpW+3tTPcmomVUSUUbKfuGMX7tDFzxWZXnSso
+eOb286ddfAEzmlh6e7lB5H+TTvyqZ83Mx33lxS5DFGR8XyriZzQx1g5ZbiEj
+Ij2DX90X2huZfOfEpZQxCjrZHi5Lqo3MuWPU/uZJEQfUJV1PqGe0QpS6Hb+J
+7m/45rTFvWbcMnyUDq5mQ2DT/faY3JdMy4xm4H4jNoDJtptLbQ8Y/v1zW9Ap
+EXcFZa4sf4GUWU/LLUNE7FF8KOrvCuTkOW5jcYYN0RF9flPCStSsQh/dEs4G
+r0aFkhPKGAkuuyRqX2QDj6z3PAyvUAfHeHw2WcRDbbYjl/5CfZu+lPCK2ZD0
+WdrWs/QtmntyaIfuBBswpeKVM9iC5LZbvF0zxQbFe1e1GzcIkE6FlpfkjIif
+e9TWuAuQbU3PxYF5NsR2FVYYvRGg280hDYViHHBb5aEykd2KLKdvH7ZS4sBd
+oz5919/aUYRFd5izMQfIoEe/zKd+QsvPgktjTnIg9Q+d4A+CLtSxsjj+XiAH
+tl8Pc58TdqHnzuPeVcEceL5l8MgqmW50WhggPxPKgd7trmuFVt1owMCfQ0Vx
+YKuq+iI/rRvxb3A0dydxoGPwjIG4dw/KPu3JFSvmgHWXPZUm6EV2xntsIqY5
+kP+DbLphcj96fcTIx+8UDXzdcqcA+WGkTNAv/gyhgc2kB3frDKOjdObqd2do
++F+VgG9rNoxmgtcUm0fQwAtRvDL22zDSj51d+H6JBnHXCIecjGEUXcxcSbpB
+w8RXnn2N0QiylDrIKy2nQUJCz0nDZhTFyMWJD7ygocUh/qus6yh6r/TKWauK
+BkM/l31T7FFErzWfj3xFg45aTtz92FF000TD2raBhhM9evu5DaNoyqPzQ3sH
+DaN2PGsDhzEE3pr/Wv2Zhi+Ts34njo2heLZjGOqiIfRjpHRuwBjSDapZm9VH
+g/KyZ823xDF0KCaP8h+lwfjoDLHp3Ri6G99Vli6kQd7RdPcPnWNoIElLhj9B
+w7rYiAEJ4RiKvnOl0GKWBvcnrvx2KSFqzKhl+czTYHpPjWYUhEg9Z8nxziIN
+1xZDJ9PUhej4w23ZTd9p+MnX/uzZ9UJUyAucXV6mwdrHf8neQIj+AW9jz+g=
+
        "]], 
-      LineBox[{{1.045293530402965, 3.257984440454694}, {3.0557610692481476`, 
-       3.273178129112488}}], 
-      LineBox[{{0.33199357119643075`, 3.2527423191935627`}, {
-       0.9177425099948016, 3.257041469155708}}], 
-      LineBox[{{0.10890748787908792`, 3.2511183198251805`}, {
-       0.2044425507882675, 3.25181289071185}}]},
-     Annotation[#, "Charting`Private`Tag$86638#1"]& ], {}}, {}},
+      LineBox[{{0.7314343869017764, 3.102323629352612}, {1.9628681609693666`, 
+       3.107407951595617}, {3.722632787710295, 3.1148253544083313`}}], 
+      LineBox[{{0.13254941274579646`, 3.099881775754108}, {
+       0.24536209154974226`, 3.100340227512465}, {0.4907201014668314, 
+       3.101339758144879}, {0.6038833664936131, 3.101801887304794}}]},
+     Annotation[#, "Charting`Private`Tag$18876#1"]& ], {}}, {}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
@@ -353,7 +350,7 @@ dKVSyCvn94zaGRw+vJiUr7xDody8o2OzszikJVk05wgo9B80W0QH
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
-  PlotRange->{{0, 200}, {-5.332358609904164, 10.422205589087188`}},
+  PlotRange->{{0, 200}, {-6.959527542228844, 11.975586222486642`}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
@@ -375,9 +372,9 @@ dKVSyCvn94zaGRw+vJiUr7xDody8o2OzszikJVk05wgo9B80W0QH
    3.880084507024222*^9, 3.8800853736383677`*^9, 3.8800860259425*^9, {
    3.8800860771259003`*^9, 3.88008610210466*^9}, {3.88008616318576*^9, 
    3.880086198003504*^9}, 3.8800862293413563`*^9, {3.880086266837357*^9, 
-   3.8800863385534143`*^9}, {3.880086376964778*^9, 3.880086509882822*^9}},
- CellLabel->
-  "Out[363]=",ExpressionUUID->"03952c6d-0c6b-45a2-91c0-9040c75e840d"]
+   3.8800863385534143`*^9}, {3.880086376964778*^9, 3.880086509882822*^9}, {
+   3.880087582924012*^9, 3.8800876543745813`*^9}},
+ CellLabel->"Out[90]=",ExpressionUUID->"d721930c-928c-45cb-8146-dfcae2431ec5"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -422,7 +419,7 @@ Cell[BoxData[
             RowBox[{"2", " ", "mass", " ", "Esep"}]], "p"], ",", "0"}], 
          "]"}]]}], "\[Equal]", "0"}], ",", 
      RowBox[{"{", 
-      RowBox[{"U", ",", "150"}], "}"}]}], "]"}]}]}]], "Input",
+      RowBox[{"U", ",", "170"}], "}"}]}], "]"}]}]}]], "Input",
  CellChangeTimes->{{3.876220514856612*^9, 3.8762205364843173`*^9}, {
    3.87641380286448*^9, 3.876413813776764*^9}, 3.8765050174731894`*^9, 
    3.876505834830249*^9, {3.8768987485820503`*^9, 3.876898765145231*^9}, {
@@ -433,11 +430,10 @@ Cell[BoxData[
    3.87957154916846*^9, {3.8800857093214073`*^9, 3.880085717549158*^9}, {
    3.8800858670665894`*^9, 3.8800858795038633`*^9}, 3.8800861705593033`*^9, 
    3.880086201872179*^9, 3.8800862943082933`*^9, {3.880086341393777*^9, 
-   3.8800863417389393`*^9}, 3.8800863843913307`*^9},
- CellLabel->
-  "In[364]:=",ExpressionUUID->"22f1491b-05f8-4461-9d8a-7023940b0eba"],
+   3.8800863417389393`*^9}, 3.8800863843913307`*^9, 3.880087663509973*^9},
+ CellLabel->"In[96]:=",ExpressionUUID->"22f1491b-05f8-4461-9d8a-7023940b0eba"],
 
-Cell[BoxData["124.41224361311541`"], "Output",
+Cell[BoxData["178.1243246255173`"], "Output",
  CellChangeTimes->{
   3.8762205374997587`*^9, 3.8764138310515523`*^9, 3.8765050188080196`*^9, 
    3.8765050618099136`*^9, 3.8765058364421587`*^9, 3.8765058704783134`*^9, {
@@ -451,9 +447,9 @@ Cell[BoxData["124.41224361311541`"], "Output",
    3.880086027259701*^9, {3.8800860790573597`*^9, 3.880086104048421*^9}, 
    3.8800861718601227`*^9, {3.880086203223221*^9, 3.88008623091987*^9}, {
    3.8800862683749933`*^9, 3.880086295540452*^9}, 3.880086343066498*^9, {
-   3.880086385464319*^9, 3.8800865107303*^9}},
- CellLabel->
-  "Out[364]=",ExpressionUUID->"180f3cce-0016-47de-8516-e49d3b9341e3"]
+   3.880086385464319*^9, 3.8800865107303*^9}, {3.8800875839389973`*^9, 
+   3.880087671218701*^9}},
+ CellLabel->"Out[96]=",ExpressionUUID->"8446f902-e811-45cc-a8bf-ab7c70890a1f"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -499,19 +495,17 @@ Cell[BoxData[
    3.878289801822311*^9, 3.87828982476785*^9}, 3.879569118948894*^9, {
    3.879571556146941*^9, 3.87957155754856*^9}, {3.880085925692211*^9, 
    3.8800859424236307`*^9}},
- CellLabel->
-  "In[365]:=",ExpressionUUID->"444da03a-39cf-4c3d-bb1b-9d322299f630"],
+ CellLabel->"In[97]:=",ExpressionUUID->"444da03a-39cf-4c3d-bb1b-9d322299f630"],
 
-Cell[BoxData["1.434098657022119`"], "Output",
+Cell[BoxData["1.344522780057045`"], "Output",
  CellChangeTimes->{
   3.879570442808729*^9, 3.87957064413636*^9, 3.8795715629434137`*^9, 
    3.880084509531536*^9, 3.8800853767467327`*^9, {3.880085901406917*^9, 
    3.880085945613738*^9}, {3.88008606422783*^9, 3.880086105861314*^9}, 
    3.8800861742475863`*^9, 3.880086206862755*^9, {3.8800862701325703`*^9, 
    3.880086297423738*^9}, 3.8800863450137033`*^9, {3.8800863867709208`*^9, 
-   3.880086511995571*^9}},
- CellLabel->
-  "Out[365]=",ExpressionUUID->"7ab786b8-a8c7-4f5f-ab94-8d696a7c0fbe"]
+   3.880086511995571*^9}, {3.8800875856465683`*^9, 3.880087672538249*^9}},
+ CellLabel->"Out[97]=",ExpressionUUID->"fbc9f7e4-1f37-4a69-b281-392c36da0aff"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -565,19 +559,18 @@ Cell[BoxData[
    3.879569335601615*^9, {3.879570630856184*^9, 3.879570632038727*^9}, {
    3.879571567743319*^9, 3.879571576536313*^9}, {3.880085952401537*^9, 
    3.8800859833274717`*^9}},
- CellLabel->
-  "In[366]:=",ExpressionUUID->"7835cc6b-0406-456f-a3a3-ab6f89b509c7"],
+ CellLabel->"In[98]:=",ExpressionUUID->"7835cc6b-0406-456f-a3a3-ab6f89b509c7"],
 
-Cell[BoxData["0.7793879594854948`"], "Output",
+Cell[BoxData["0.8003232743677815`"], "Output",
  CellChangeTimes->{
   3.879569148123713*^9, 3.8795692505602217`*^9, 3.879569281919847*^9, {
    3.879570637910142*^9, 3.879570646893675*^9}, 3.879571580819501*^9, 
    3.880084514207199*^9, {3.880085965594881*^9, 3.880085985349716*^9}, {
    3.880086066066136*^9, 3.880086107886919*^9}, 3.880086176698345*^9, 
    3.8800862093348007`*^9, {3.880086271816217*^9, 3.880086299605596*^9}, 
-   3.8800863471623774`*^9, {3.880086388564464*^9, 3.8800865137393713`*^9}},
- CellLabel->
-  "Out[366]=",ExpressionUUID->"129ca179-e6bb-47ec-97ae-7f1255d4dd2c"]
+   3.8800863471623774`*^9, {3.880086388564464*^9, 3.8800865137393713`*^9}, {
+   3.880087588111286*^9, 3.88008767445716*^9}},
+ CellLabel->"Out[98]=",ExpressionUUID->"fb1c1bd4-f3ef-407c-ae27-b9cbd3bbd016"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -617,81 +610,75 @@ Cell[BoxData[
    3.879570725415313*^9, 3.87957082556467*^9}, {3.879571586117661*^9, 
    3.87957160585564*^9}, {3.880085993645627*^9, 3.880086011757999*^9}, 
    3.880086091143783*^9, {3.880086514826668*^9, 3.8800865176568737`*^9}},
- CellLabel->
-  "In[368]:=",ExpressionUUID->"fc251146-842e-4797-bd33-46971b36a427"],
+ CellLabel->"In[99]:=",ExpressionUUID->"fc251146-842e-4797-bd33-46971b36a427"],
 
 Cell[BoxData[
  GraphicsBox[{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
       1.], LineBox[CompressedData["
-1:eJwVVHk01W0XVdRbktfQpMxXZppDxf5FkZKvDK8iKkN6K6QPlYiopIgrCiWh
-DJUUmhSZZbrJNZX5jj8XIa5Zvvv98ayz9jrrnOfsffY6Ss5eVm4LhYSECgTv
-/zHpqvPiTa53jDzMb15jdcQaldMVLewU/8XBRSHr9Sj/xXxlUaii4mV4a6ky
-x5VDkVQcqbBIMRxqIvbsMOV7OGfo6zGhkADZJRV/ViilgT5zOnZYIQuJLdvD
-Pdfl4a92htqgwkdkXT3PGxYpQ0pNsne/QjWCom0lUl80Yiz+rWZ3RDVEQtLL
-rkw2wtS9ltk4VQ0Thzi+4l46BoQnbAvoNZgIP3KjppMOfUPLHeFhdaAHU/eG
-ijWjIWd2odrQN8SVOTc3ObUiqEZ7/6bjdEh7LM5y/96OzDfvVV/E0VGZaXxf
-eVUHGuONhdfX0SFjqF8VZd8BFfcjn9cYNGExP2k+kNGBGuHrukLSzdDf4Wke
-96sTqwzbpb5VtqCiykdefKIbr3LC28/p/sSeLxehzugFT4oXsf/kT2SX9HyV
-nuuFmt9+I/XYnzCjC/Hoqxl4smtZCnPqJ77wH440WDAQUx1xyr6iHWxvluL7
-fAb8mFEjZsc6keTY+m7uChO5psOp66M6cZBp57oylomhrEM2wqWdOCPsRZ97
-wcTp85Lvi9S6sGH0bwminQn7uZiAbaNduGgn2RCqx0LystpQyb098PnZe7iN
-w4KR4ZVjwU49uFCxWYwxw0KHp9a2oYs9IL2YlI8SbKxpvMOpe96DKdP3qTQD
-NqjxFua3JHrROuQUQA1nI3Q9TXy+vRdPg3U0DypwoGx3levB74Wz63m9VZs4
-KL6lW9whzsAl3dH3WcYczPbf9S7YzcDQ5L1/N7hx4Jv7nybfDAZE4/OWvcng
-wB3fEwYuMHGbEd15RpkLodTxgvY7TJQHz5QEb+QiXkS2o+YpE8kytM4TRlx8
-rT4ln9UiyAd67gw6yoW6zWyq2w4WLNOPqW+K5KL4nVK5jTUL+g4nnOISuDgi
-Y8Y2OcfCnNbKttJnXNzqoqopP2YhqHS16uVCLsjTai+7FrAxf3/ptkM8LoJr
-Lerr17KhMpYROTPGxRrdC78+b2FDp2LG1muei32jnzc+dGOjbsKiOUeaRFag
-1Vu7ajb6xh//FWNAwrjnYospgw2PSA/rq8YkfhonTWybYeO1qLbD5gMkRJeQ
-Bit0OOj2MLQccSBxJiawqCGag8iS3Oyv/iQW8lO7v2RxsF7Ku3j4GolEu69C
-OaUcVItPznTfIlEjK20SOcbB9rK72dL3STgH6bsGLOeitX9e5MgjEtO9jjfO
-qnKBvlkzl1QSWhmZVeZHuHC9J3aUlk2ifCmN1PfmwrY4TUw3j8Sxc6NL1W8L
-6ue/+dl8IBGxychi8WcutLyegV9CQiXWxYPfxIXBoukwr0oSn8dv3WUNciHx
-aof96xoSA5/oDaUKJKSson1vNJK4Lj818kafxJoW/5cyLSRkr8lLpxwm0Z45
-u8/nB4l8psnW6DMkvN0tTeI6SFiY/msbFErCx143NqCbBCvzrp+ngMfozZ6t
-mgwSAcvyHzi+JcEp1FV4zCKxwvPHBwsaibznpw+2cUhkN/z5sZMr4NHjUtBG
-kjDdojKjKdSHS+wrJ5N5JLrizGXXyvSBYxRjpD1Awm/S03Dp5j74Xxa3DBok
-Ie4Q6zS5vw+7NndFxP8ikV74MYjr0ocoOd/Ji0MkjBS7n7QE9EFjef1duWES
-LSEipRVxfXg85mYZLsCebA1m/qs+LBrcu/2TAPc4/VhSUt2HwPPTwzkCbN12
-S7ee1YewkOUPTwhw5WF9mx/zfQjJsNtWL+ivX8u9zF7LQwzlbAlf8P+LPQ+S
-R7bxcHj83u6fgvnki0wr5g7xcLOp9YO/YP5ovXHe0nM89CuMa7YK+Am/eSax
-KowHdof7oyEBfz9N2+3KqTx4ph+XKhfoQ6aJHNMt5KEyuTrGRqCfg1z+tR1t
-gv6uB1RSeknQ7rtkmI7ycJlvQsvqIkFISNdbiffjSXptvGe7QOfw0t9OGv1o
-WZwfMdRKIj5Ayeji8X58y7q9WrVB4OfxBpdQ/344WX8sa68lEegVHB4V148c
-VJcdrBL407m7KaO2HwdW/hk5VUiiqf3udB6nHxGt6jvFBX4zszVSLF4wgO97
-CPELuSS09yWdbdMbAF9GK9orncTjEgsqy2oAyzdVHF/6hITkztl3wx4DUJls
-mz6eQGJcx2Hh0qcD8C/r7DC5Q6JEWibBQGIQuwz9/MmzJLZGfi3aqzWIbVt/
-15xxEex38SXWYdNBfGhU31BuL/D7VMuGMwGDWLBzqPKqOYl/umMrE8lBRLtr
-vVyjRoL3XGJspvgXppsXOXQxuBBVuq7WrT+MoKDztVnHBPdoF3XD1b3DuLfz
-o9GgDRc3jzzWk7MaRtxxxu4tB7lYGP3BzOHsMLY4eI9VGnIx/WfAvTVpGBo7
-Gn+LKXDR32Gb+W3hCNbKLYuXYnBQF6+mUVw3gtYzJq/+/MvBXYlazZQTo3B8
-amakfY0N53abL8J143DZkMvyzWTCu+K6s5faNNZtPx/SM9+LN+fFrNeYzyHq
-dRRdN7YHKVfO8jbaCRFJbRMZR226EJI8e3hsYAGho1Nsa062Q4jeQ3z2FyZ+
-BVl7hH74AVWfU5dsNBcR+2RHn2XcbgWL/+CfZYWLieevNh9qftmM/ewzgTHe
-S4iwrUE+cd/psGRFa8nLixIfuq/Mp6k2glfmHPw1exlRyDFtIj80QFeyRc7k
-+HLCVtWj9HQCDaLgn+wYFScMrVTPRmrUwWzQfkLZVoL4YU16XS+sRlup6wJ7
-bUnC76ntguzoKry9Ve6kyJcktqfo6+TnVeDUIt8eGk2K6PL3d1zxowwuF668
-FUuUJnZH3fv2yLgUG9y1aBYnVxA5v/vOvaUX45uU9jJfg5UEw8Q1z6auCJ9e
-hTzUFl5F6A24z6jaf8aVBZqH6jpXEelLJItu9H+EaIf/Ps/81cSAuEiy0ef3
-YKcrxSYHrCE0rubqana+Ray6jMhHWxmiOFE2T18oH9GJp6pOKq4lyEWiz7+4
-58I+1pEmxl1LRPqvz5wYf43JPc+mkovWEcExdp5l4jlgso0vlYbJEtl+ljni
-CS+RarhpXf1JOeL9kT7HFNXnyL7hK+muI0+M5Z2S0RHPRJitywFhvjyR5TjX
-M6eRjm0dKVlh9QpE/bG1w4VmTxGv8TC7/oAiUfc2zDf/eSqCiiPjD3xUJLLU
-4/UUJVJwcJ3tsxoVJeJdNcftk1EydntWOUiGKxFHpXaGz1Y+QrKss0odX4nY
-eHqPjqFVIlTKMu5bOigT655NnavQi0e0TqlmY5EyMVln7vDq8H2cGhX5Xq1J
-IRQi0hMsPWLh/Oa3YngUhYh86HHekxaDcyHWs/upFELbXqzgalUMfK3zW8Xu
-UYhvxMMYanEMbvF970bfpxDzyWUDRbkxeGUwNfMgiUKENpKa+g9iMFUy35L+
-gkKsn5+cTTsRg+hGscjyKgpxW6ch0J5PRWKax+mb1RTiUb5MW8EvKtJ8aCb7
-aimETWxtmhxJxbtV0dO1NArRIEK7w/tJRYe99Gl6M4Vo/a52I6WYCjWmjAmD
-SSEam1bahkZQsTHfX/4pm0L4lQbai96kYseN9ik3LoXY8ku07F4QFRZqSa/7
-eBSiMufvguwLVFw4qyg/MkIhOho3qP05QkXArmtTuaMUwvCktk68FRU3ljOa
-fPgUYufkgaitFlTE56TdmZykEG17L7v6gIrUYBH3gmkKUW5R07zagIoXh92M
-A2YpRNpseXLhZirylSvljP5QCMeaOyVu2lQUjapOzc9TiIyA3TskVKn4H+t7
-7Vs=
+1:eJwVU3k01QsXVZoQj8gzT9cUEc/zUi/2TwohlaFBPaREkVCGhEqITJeISEIl
+ohIyJtFgnl/JzB1/0jNXV8p3vz/OOmuvtdc6+5y9j6LLORvXlTw8PEXc+n/P
+DHVZo3syxiicsdHnY8dtozc9ClaHFE5jNsV9xqkoAMvvaq8pKFyECv/fn3iL
+riOzLk5+tUI0embcNcwLU+Fp6Hf2m/xtFATvopXk56Hnh3vytHw+7u9tvZWY
+VY61A+NqX+Qrwedq8tkg4D366l76TbIrUc04euTclkYUPExr+FxchdqXnyRt
+WY2w9rV2mjCpQYRwdp3EwWbc4qu6xXJ7hVQVOa3DW9qw4U7jypmP9XCmjn01
+cetCdnOWz2f5Jojv46eFfPyA+bQyjZHYJtjo7vvvT72PMHVroXVzmuCxm1Mf
+H/8Rk7zf7Kt6mnH6xydBlV19MDC03h59vRVbDzeeKC34hM6nSyvVpjrQ4b1X
+SOXkIC43b7bQderBlqkcGe9Xo3hUXK76OKUHsYrTKcrMUXSn7eRVae2BUuDd
+TSnrx6DsdrhGYlsvNoZ7bH10eAzNvOHaPKL/QtTtjlXElzGIGw5s6Hj3AZHv
+annT+Wh48jR6wFO7H5pSjvrOaxmY2DARa3G8H+/uxemmKjGg5m9hpJ7cjy/+
+L5TDDRm4t0Mgm8bph57Y84BQXwaSmmJPObwdQPLDtlcTfQz40xJmzI4N4bXM
+QI1dKhPPTadzVBKGcIW9X/91ERNT+fvteOuH8Ohm2I7hBibcvUXKa9WG0fns
+UL36FBMOP5OC9eeGwXeuK+CbMQtZAi3XRHaPAiXdsYZ9LBgZXjp2xXEU92ba
+BRJJFga9NPWnAkYxom78nrrIgkR3DLO1YBQCqqFrkqXZSEyz2hMlPIZSmxyP
+3CNs6DQvKX7bNIb77ikxNu5stP8oXHQ1GUPNVY5moT8b/E6ChSb+Yzjeoa3q
+mMTGNZV2oeWBMQS09zSXv2VD6VAo6+zCGK7cffSsrIuNuijtukGhcSgONjw4
+NsTG0ud4nyrjcWxRqpJ+MMdGuiwsNh0dx8GqSGvTX2wY7JtSSrswjtnpkPmE
+dST8nu/r9csbRwnB4ZeRISFGXy6k143jpvmqrY4qJJ5vfBZh2z8Oixrzveba
+JP4LFN6qK0hDc21zjShIxBbU/XZPlYvT9AbmTUloDHqzhQga/jTR8gqxJuGG
+rtuTvjQ0vQ2KDj9Ggifna9VADA0RQRXyNBcSaatkBpvv03D3jKDhpDsJHTfj
+n5UvaRhxUWvL8iLR2HRKLv8DDfe299b8PE/CeXMs0qZoCBFbubj6Ionv8cXO
+19fRIZvx6nxFCAl1u6Uc1+10KNo1DktHkqh7ofjGzpaOBN9/S1qjSRyWNGOY
+eNLx48LXWLU4EtOXPNfoRdAhUDXiuJlKImo4UU3pLh2Vu93kB5JIKBiXm4uU
+0xFDC3+rl0KiInfwNE8nHbO7bPb8lUpi/5qVMVNsOuakBe6Pp5Fgu6sVDq9g
+oF9XsNMgncSVFqu2NikGzIL6Gg0ySEho+/5Xo8fAfqXfYsa5+Bk19bdCKwbe
+ZviJ/XWHhPlcjU6GKwPv7s+e0OPiUfvxAzdCGbhkmXCxn8sPrFh7/mIqAyNf
+/A9qcrGwtFay+zMGWPrfllS48/JDbMoONTHwXOSKdzNXz87RgA+m4wz8ysst
+k+Dq7d+Z+U3/BwMN5uLdwtx9fB/US6iIMbFw5Enrc+6+/OvY28S0mLhBnCz6
+lUAi54zgUV5TJvJ224TMx5LY3vZH8KwjE9MBpabJ3Ht2bzmcORbAhEg0W2w4
+gsSZpJDaTioTEXln57uukli5kDPyKp+JMDv67DmuP+mHGnme1jPB85eQfEUg
+iWYZUZO4eSZmKlSNzbh+u1w2OBksyIJb7A6HeG4eFsf+ifBQZUE6zJZ1mZsX
+zbxH7/ccZoGxTf+Ziz2JN3ztbAMfFtos1CTsuHk75jnHp36DheVId6tpbh5j
+dY2s1tSwwGoIDt20lcRkdU9nvTwboRZVVX+LkwiX48wUG7DhUX+CXCNEQuaq
+nGj2ATZWXTR537uahJXpafvL19jYV6UUF7jARlHnr09/s9joNR1UH+1lw4ux
+iVb6hMuz4RvSTmZj1PHTutdNJGQHVhv7x7Bh2xel3UYnkZyu87IujPt/LayL
+DKkJJLQUchx92OAtfiAsfn0C1YrpJ+us2UgLVjQKcPoMVwcnIXF+Nl6LSt7e
+JvwFfHznVVdfY4FfMVxtxGAaltYdVuUhTMQLt2hkO89Buv38ubkSOlwG7F7x
+tn5Fwt24nYOT4/B5G+5yTm0RNH/aKym7MRR7r7eV2PMT1RdWVk59HkH2JY8J
+nUM8hPt0vCL5xxDCspYOzE+uIK5Zm2z5OtQPnp5RoiaIl5i3C9sj1NAH1Qun
+Au00VhP8H8/gV/4H0BdSDwq8XEMIcQr7fgz1woJxJiTJZx1xUHOt83mxHljT
+qZpycvyE2+LxfZ4XuzDR4HKlsUiAiOy2dLaV7IS2yAdZEydBYjJ6r66rXxv4
+sXB8cE6IqHaL92yRaYHZF4dvSvbCRJ2wbszI+0b01Z9c4bBZhDCycVRpfvoO
+ZVFvHBUWRAjb81Tl2/Q3OLXab7S9fQNxMy6irkC6ASd8L5WtTxclBuzuaDsk
+v8YWN812q+NiRK+N+DYFvTp0bNgs4LdtIyHVIaDt8fAlqp+EZWzmFSfaaR90
+UiyrcWmFxv7WIXEiZ+xq56b5CvAPBpl7lf5OnLLVXqz+9AKMh4rJWcESxD8J
+DUHX1pchWV1yVaW9JLEj0yX2iHEJqOmn3h9XkCJaGm/kSlUUwyH5n/b1LCmi
+zdqXI2L/DN93PeBk1UoTJpX9/zkxi0Bj7Aysvy5DWGgcTlaOeowcQ13ptuOy
+xM66gmMiWvkoivATcdOSI7yHIxPvqOfhuv0JS94FOWIsY4An6OAD6A9m519v
+kyfKzmoZ/xmZi7RNGUVtlgqEqFmIH/V7Ni7XxaVZVioQNycjfCzO3sNeafsH
+zcqKhMaJFIV4sbsw9np/VCRakZiRFZM/VpqBLBkX5dYFRSK4d3iF4KHbUG7I
+u2V9VImI6LKczdufCqpWvUZ3rRLh1MkpfxqcglNzq7qaNCjErZJdZx0LbsKl
+eFYhOoFCPDlaHboglQTPMNsli0QKUVZotmgmlgQ/29KP629SiO8LRybvCCYh
+asEvnnqLQrTEeulY8yThyTbOj9RMChFr8VOunZEIzuvlDw8fU4jK6vmWncWJ
+oHavj3vznkK4HHypztmTiPTcs+6RTRSiePtYRZpJInIvtJuYt1AILwnZ3O2G
+iXghTl1saacQbk0nwyJ0EjHoIOre8y+Xr/rLduvviVCjSZqM0yjElFRZGD+D
+Cp3SILn7DAohf3rWqmOYiu0RAxxXFoWwLI49cauPCiu1zGfkBIVoDrzgq9lK
+ha+HgtzMDIWwc3Zf9i6hInjHVc7zOQoR2TguZl5ERYTgeO+FBQqR/3HxnGIe
+FWlPc2O+f6cQ+9QK5vrTqci5ssqtapFC9FmmSFUnU/H4gOvO4CUKITny9lpm
+PBWlSu9kjX5RiK1pp7TDoqionVPlLC9TCNGQHMnTYVT8D5IsW4M=
        "]]},
-     Annotation[#, "Charting`Private`Tag$88641#1"]& ]}, {}},
+     Annotation[#, "Charting`Private`Tag$22258#1"]& ]}, {}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
@@ -723,7 +710,7 @@ A2YpRNpseXLhZirylSvljP5QCMeaOyVu2lQUjapOzc9TiIyA3TskVKn4H+t7
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
-  PlotRange->{{0, 10}, {0., 0.7793861446401996}},
+  PlotRange->{{0, 10}, {0., 0.8003187560651602}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
@@ -735,9 +722,9 @@ A2YpRNpseXLhZirylSvljP5QCMeaOyVu2lQUjapOzc9TiIyA3TskVKn4H+t7
    3.879571608345409*^9, 3.880084516269706*^9, 3.880086015267064*^9, {
    3.8800860676554127`*^9, 3.8800861091655207`*^9}, 3.880086178702873*^9, 
    3.880086211051835*^9, {3.880086273266088*^9, 3.880086300605966*^9}, 
-   3.88008634841398*^9, {3.880086390133037*^9, 3.8800865180731173`*^9}},
- CellLabel->
-  "Out[368]=",ExpressionUUID->"8d1df92d-d2a4-4a0f-a87d-f36befdc5a77"]
+   3.88008634841398*^9, {3.880086390133037*^9, 3.8800865180731173`*^9}, {
+   3.880087591163252*^9, 3.880087675790471*^9}},
+ CellLabel->"Out[99]=",ExpressionUUID->"a19709bd-12a5-47c1-be49-b078c7a3cbb6"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -746,9 +733,10 @@ Cell[BoxData[
    RowBox[{
    "R", " ", "\:0434\:043b\:044f", " ", "\:0433\:0435\:043b\:0438\:044f3"}], 
    " ", "==", " ", 
-   RowBox[{"1.646", " ", "\:0444\:043c"}]}], " ", "*)"}]], "Input",
- CellChangeTimes->{{3.8800865535980377`*^9, 
-  3.8800865699855547`*^9}},ExpressionUUID->"700162e1-a626-4c8d-a329-\
+   RowBox[{"1.561", " ", "\:0444\:043c"}]}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.8800865535980377`*^9, 3.8800865699855547`*^9}, {
+  3.880087570285039*^9, 
+  3.880087570627646*^9}},ExpressionUUID->"700162e1-a626-4c8d-a329-\
 bbb787d8421f"],
 
 Cell[CellGroupData[{
@@ -787,13 +775,14 @@ Cell[BoxData[
      RowBox[{"r", ",", "range", ",", "Infinity"}], "}"}]}], "]"}]}]], "Input",
  CellChangeTimes->{{3.880086242737124*^9, 3.880086251815425*^9}},
  CellLabel->
-  "In[370]:=",ExpressionUUID->"1a4970d6-a8d9-4293-a27c-2d4dbe2240ea"],
+  "In[100]:=",ExpressionUUID->"1a4970d6-a8d9-4293-a27c-2d4dbe2240ea"],
 
-Cell[BoxData["1.646237974515782`"], "Output",
+Cell[BoxData["1.5612379745157818`"], "Output",
  CellChangeTimes->{{3.880086253659615*^9, 3.880086304157057*^9}, 
-   3.880086352535798*^9, {3.8800863938671637`*^9, 3.880086521539238*^9}},
+   3.880086352535798*^9, {3.8800863938671637`*^9, 3.880086521539238*^9}, {
+   3.880087593758895*^9, 3.880087646136713*^9}, 3.8800876779743423`*^9},
  CellLabel->
-  "Out[370]=",ExpressionUUID->"4e50f98a-4679-4058-8e93-44eb471f3344"]
+  "Out[100]=",ExpressionUUID->"f2064ae6-052c-4c29-85b6-4122f8ffe9c5"]
 }, Open  ]]
 },
 WindowSize->{1389.75, 768.75},
@@ -813,33 +802,33 @@ CellTagsIndex->{}
 *)
 (*NotebookFileOutline
 Notebook[{
-Cell[558, 20, 2143, 52, 154, "Input",ExpressionUUID->"ad6df89e-d3d8-490c-ae91-dac6d80d1b5a"],
-Cell[2704, 74, 2806, 75, 179, "Input",ExpressionUUID->"2fc4ef7c-d275-441b-9d3d-7d7239f74130"],
+Cell[558, 20, 2191, 52, 154, "Input",ExpressionUUID->"ad6df89e-d3d8-490c-ae91-dac6d80d1b5a"],
+Cell[2752, 74, 2802, 74, 179, "Input",ExpressionUUID->"2fc4ef7c-d275-441b-9d3d-7d7239f74130"],
 Cell[CellGroupData[{
-Cell[5535, 153, 2450, 57, 75, "Input",ExpressionUUID->"c2ad0be7-22ee-4300-8ad8-45a6e113c1b0"],
-Cell[7988, 212, 9178, 167, 235, "Output",ExpressionUUID->"03952c6d-0c6b-45a2-91c0-9040c75e840d"]
+Cell[5579, 152, 2446, 56, 75, "Input",ExpressionUUID->"c2ad0be7-22ee-4300-8ad8-45a6e113c1b0"],
+Cell[8028, 210, 9175, 166, 235, "Output",ExpressionUUID->"d721930c-928c-45cb-8146-dfcae2431ec5"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[17203, 384, 2112, 53, 75, "Input",ExpressionUUID->"22f1491b-05f8-4461-9d8a-7023940b0eba"],
-Cell[19318, 439, 1080, 16, 33, "Output",ExpressionUUID->"180f3cce-0016-47de-8516-e49d3b9341e3"]
+Cell[17240, 381, 2130, 52, 75, "Input",ExpressionUUID->"22f1491b-05f8-4461-9d8a-7023940b0eba"],
+Cell[19373, 435, 1127, 16, 33, "Output",ExpressionUUID->"8446f902-e811-45cc-a8bf-ab7c70890a1f"]
 }, Open  ]],
-Cell[20413, 458, 420, 10, 39, "Input",ExpressionUUID->"0b790137-d050-4e54-820e-ce3bbd34ede5"],
+Cell[20515, 454, 420, 10, 39, "Input",ExpressionUUID->"0b790137-d050-4e54-820e-ce3bbd34ede5"],
 Cell[CellGroupData[{
-Cell[20858, 472, 1095, 30, 53, "Input",ExpressionUUID->"444da03a-39cf-4c3d-bb1b-9d322299f630"],
-Cell[21956, 504, 541, 9, 33, "Output",ExpressionUUID->"7ab786b8-a8c7-4f5f-ab94-8d696a7c0fbe"]
+Cell[20960, 468, 1091, 29, 53, "Input",ExpressionUUID->"444da03a-39cf-4c3d-bb1b-9d322299f630"],
+Cell[22054, 499, 585, 8, 33, "Output",ExpressionUUID->"fbc9f7e4-1f37-4a69-b281-392c36da0aff"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[22534, 518, 1961, 50, 53, "Input",ExpressionUUID->"7835cc6b-0406-456f-a3a3-ab6f89b509c7"],
-Cell[24498, 570, 586, 9, 33, "Output",ExpressionUUID->"129ca179-e6bb-47ec-97ae-7f1255d4dd2c"]
+Cell[22676, 512, 1957, 49, 53, "Input",ExpressionUUID->"7835cc6b-0406-456f-a3a3-ab6f89b509c7"],
+Cell[24636, 563, 631, 9, 33, "Output",ExpressionUUID->"fb1c1bd4-f3ef-407c-ae27-b9cbd3bbd016"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[25121, 584, 1347, 36, 53, "Input",ExpressionUUID->"fc251146-842e-4797-bd33-46971b36a427"],
-Cell[26471, 622, 5969, 117, 237, "Output",ExpressionUUID->"8d1df92d-d2a4-4a0f-a87d-f36befdc5a77"]
+Cell[25304, 577, 1343, 35, 53, "Input",ExpressionUUID->"fc251146-842e-4797-bd33-46971b36a427"],
+Cell[26650, 614, 5758, 112, 237, "Output",ExpressionUUID->"a19709bd-12a5-47c1-be49-b078c7a3cbb6"]
 }, Open  ]],
-Cell[32455, 742, 348, 9, 29, "Input",ExpressionUUID->"700162e1-a626-4c8d-a329-bbb787d8421f"],
+Cell[32423, 729, 397, 10, 29, "Input",ExpressionUUID->"700162e1-a626-4c8d-a329-bbb787d8421f"],
 Cell[CellGroupData[{
-Cell[32828, 755, 1116, 34, 53, "Input",ExpressionUUID->"1a4970d6-a8d9-4293-a27c-2d4dbe2240ea"],
-Cell[33947, 791, 268, 4, 33, "Output",ExpressionUUID->"4e50f98a-4679-4058-8e93-44eb471f3344"]
+Cell[32845, 743, 1116, 34, 53, "Input",ExpressionUUID->"1a4970d6-a8d9-4293-a27c-2d4dbe2240ea"],
+Cell[33964, 779, 343, 5, 33, "Output",ExpressionUUID->"f2064ae6-052c-4c29-85b6-4122f8ffe9c5"]
 }, Open  ]]
 }
 ]
diff --git a/bounded8He.nb b/bounded8He.nb
index bec88b44be98a0772d2b26321e604d7bbee581a8..0e24a09724a029585c7daf6d273610189a6b5bfa 100644
--- a/bounded8He.nb
+++ b/bounded8He.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[     36835,        818]
-NotebookOptionsPosition[     35260,        783]
-NotebookOutlinePosition[     35658,        799]
-CellTagsIndexPosition[     35615,        796]
+NotebookDataLength[     46895,       1013]
+NotebookOptionsPosition[     45096,        974]
+NotebookOutlinePosition[     45494,        990]
+CellTagsIndexPosition[     45451,        987]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -56,7 +56,7 @@ Cell[BoxData[{
  RowBox[{
   RowBox[{"mass", "=", "821"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{
-  RowBox[{"range", "=", "2.5"}], ";"}]}], "Input",
+  RowBox[{"range", "=", "2.399"}], ";"}]}], "Input",
  CellChangeTimes->{{3.8762198970264225`*^9, 3.8762199052580624`*^9}, {
    3.8771827496672716`*^9, 3.8771827824193807`*^9}, {3.878286651057734*^9, 
    3.8782866641181517`*^9}, 3.87828681545533*^9, {3.878287607680107*^9, 
@@ -64,8 +64,10 @@ Cell[BoxData[{
    3.878288562531385*^9, 3.878288589887306*^9}, {3.8782886404025097`*^9, 
    3.8782886526954603`*^9}, {3.879567012355792*^9, 3.879567019384864*^9}, {
    3.879568558358831*^9, 3.879568558418344*^9}, {3.87956872817546*^9, 
-   3.879568728576707*^9}},
- CellLabel->"In[1]:=",ExpressionUUID->"ad6df89e-d3d8-490c-ae91-dac6d80d1b5a"],
+   3.879568728576707*^9}, {3.880087700774041*^9, 3.880087701627767*^9}, {
+   3.8800877975749063`*^9, 3.880087987460205*^9}},
+ CellLabel->
+  "In[218]:=",ExpressionUUID->"ad6df89e-d3d8-490c-ae91-dac6d80d1b5a"],
 
 Cell[BoxData[{
  RowBox[{
@@ -141,7 +143,8 @@ Cell[BoxData[{
    3.8782876443143806`*^9}, {3.878288596072308*^9, 3.8782886055224047`*^9}, {
    3.878288683259207*^9, 3.8782887288588037`*^9}, {3.878288791621035*^9, 
    3.8782888301901093`*^9}},
- CellLabel->"In[8]:=",ExpressionUUID->"2fc4ef7c-d275-441b-9d3d-7d7239f74130"],
+ CellLabel->
+  "In[225]:=",ExpressionUUID->"2fc4ef7c-d275-441b-9d3d-7d7239f74130"],
 
 Cell[CellGroupData[{
 
@@ -182,152 +185,265 @@ Cell[BoxData[
          RowBox[{"2", " ", "mass", " ", "Esep"}]], "p"], ",", "0"}], "]"}]]}],
     ",", 
    RowBox[{"{", 
-    RowBox[{"U", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input",
- CellChangeTimes->CompressedData["
-1:eJxTTMoPSmViYGAQBWIQ/WOD21zfh28c9y2XXAiiNSrOrgbRHQxZG0D0fAnd
-LSDaITlyN4iOCF97GUSXHrW/DqI7v+w8dANIK6XuB9Myj+adANGTuhecBNEv
-7qZI3QTSJmKZ0iDascziy4xHbxy/vCv+CqJncd+XnAWkpfeXSoPoDbq/voDo
-Kd4830E01zHZfcqP3zjmMfrtB9Hmy/pV7J++cTyxLFcdRB/fmdcPovv4ZoPp
-dUnH5oPoPJGPS0C00frAlSC6JDgMTLMZmG0E0VIrKjeB6ICLG/aC6AWLZx4A
-0aGOq06C6D1C26+AaLN22YMbnr9xPLR49REQvfVP7wkQPW/L9lMg+lH0lIsg
-Ou25wmUQDQD6hcRW
-  "],
- CellLabel->"In[17]:=",ExpressionUUID->"c2ad0be7-22ee-4300-8ad8-45a6e113c1b0"],
+    RowBox[{"U", ",", "0", ",", "150"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.8762201382091026`*^9, 3.8762201688017263`*^9}, {
+   3.8762202544209175`*^9, 3.876220291312565*^9}, {3.8762203214092555`*^9, 
+   3.8762203787933655`*^9}, {3.876220573416912*^9, 3.8762206019928536`*^9}, {
+   3.8765051098111005`*^9, 3.8765051099810953`*^9}, {3.8765051569651012`*^9, 
+   3.8765051650170374`*^9}, {3.876505811152088*^9, 3.8765058192839603`*^9}, {
+   3.8768987217644353`*^9, 3.876898731622919*^9}, {3.876901070970166*^9, 
+   3.8769010836795783`*^9}, {3.876902823818077*^9, 3.876902840384226*^9}, {
+   3.8771829609304247`*^9, 3.8771829704376745`*^9}, {3.87828765248904*^9, 
+   3.878287675426609*^9}, {3.878288507460178*^9, 3.8782885088455267`*^9}, {
+   3.878288638199546*^9, 3.878288679533744*^9}, {3.878288714552636*^9, 
+   3.878288714697687*^9}, {3.878288777693362*^9, 3.87828878780177*^9}, {
+   3.878288877525551*^9, 3.8782889008012238`*^9}, {3.878288973320475*^9, 
+   3.878289061721037*^9}, {3.8795689049227552`*^9, 3.87956893336374*^9}, {
+   3.879568964437098*^9, 3.879568981740798*^9}, {3.879569036636216*^9, 
+   3.879569049028247*^9}, 3.880087707720909*^9},
+ CellLabel->
+  "In[231]:=",ExpressionUUID->"c2ad0be7-22ee-4300-8ad8-45a6e113c1b0"],
 
 Cell[BoxData[
  GraphicsBox[{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
-      1.], LineBox[{{1.020408163265306*^-6, 1.9434682115973003`}, {
-       0.01533589602798134, 1.943748439521205}, {0.030670771647799414`, 
-       1.9440288987650578`}, {0.061340522887435564`, 1.9445905124319236`}, {
-       0.12268002536670786`, 1.9457165290480463`}, {0.24535903032525244`, 
-       1.9479797883972108`}, {0.49071704024234164`, 1.9525517709481117`}, {
-       0.98143306007652, 1.9618821897394834`}, {2.0454178542729324`, 
-       1.9830133301383182`}, {2.958029656364833, 2.002196235245252}}], 
-      LineBox[{{2.9899174114668736`, 2.002885289545698}, {3.0500121108208624`,
-        2.004187416350027}}], 
-      LineBox[{{3.081899865922903, 2.004880251719722}, {4.298771468715699, 
-       2.032343111696474}}], 
-      LineBox[{{4.330659223817739, 2.033090717404738}, {5.230370406745517, 
-       2.054815538265406}}], 
-      LineBox[{{5.262258161847558, 2.0556086163065914`}, {7.124041306441138, 
-       2.104932858194773}, {8.173138546173233, 2.1356335947117246`}, {
-       9.151727315943587, 2.1664489328692977`}, {10.112311928229225`, 
-       2.1989922535225253`}}], 
-      LineBox[{{10.144199683331266`, 2.2001147155868095`}, {
-       10.439885863942887`, 2.2106589009365796`}}], 
-      LineBox[{{10.471773619044928`, 2.2118108967365178`}, {
-       11.793784171133385`, 2.2623054642685347`}}], 
-      LineBox[{{11.825671926235426`, 2.263593437218421}, {13.228344634183118`,
-        2.3239364957656083`}, {14.211533911287631`, 2.371048144684206}, {
-       15.2772759429202, 2.427408695591982}, {15.997201695816472`, 
-       2.469068213762979}}], 
-      LineBox[{{16.029089450918512`, 2.47098698944541}, {17.299275412626642`, 
-       2.553095173962763}, {18.35757366702705, 2.631220222064354}, {
-       18.575031439058826`, 2.648544318091664}}], 
-      LineBox[{{18.606919194160866`, 2.6511241773082332`}, {
-       20.415705990432443`, 2.8164527768403436`}, {20.583264093501196`, 
-       2.83393478503636}}], 
-      LineBox[{{20.615151848603237`, 2.8373095136538247`}, {21.76163442231778,
-        2.9698829793498738`}}], 
-      LineBox[{{21.79352217741982, 2.9739133900641055`}, {22.463514267959305`,
-        3.0635652845752426`}, {22.476388432909584`, 3.065386539629232}}], 
-      LineBox[{{22.508276188011624`, 3.0699145486974073`}, {22.57976882002402,
-        3.0801551872074895`}, {22.712631165240843`, 3.0995193790226563`}, {
-       22.978355855674483`, 3.1396008842680088`}, {23.509805236541766`, 
-       3.225647302026706}, {23.525311334850716`, 3.2282846262936955`}, {
-       23.540817433159667`, 3.230929516488219}, {23.571829629777568`, 
-       3.236242127181056}, {23.63385402301337, 3.2469596083432255`}, {
-       23.745330149653963`, 3.2665373628853254`}}], LineBox[CompressedData["
-1:eJwVzns4lIkCx/GZ1kYxNzNjJoNhLBMHW6vtmMv7vr+1o7KqTRutGemm+w1d
-XHbbcmlLtehZk2IzLpMkZzsuzzhswlRjEpWktBK2cLJLORJFOe0f3+f778dl
-w56Vm2bQaLT1H/r7s26/TJx7zQ/JnPljd2qskSGl9vZYyLD4P/6aefNs4Gy5
-8FWxjQw3+xdmHiFtAJPra5mDDE6aK0NxGhscVk2/0ShkSNZHeR8/bQPaFwZ6
-XrwMZ9zf+53iMKBWDTR1HJRh7WZps9SegcrFwkxOkgz7jav0JgkDW5cnuCcf
-l2G+2HeV4wIGWjVk0OYcGYILEmbPW81AwQFTpletDDJ1b99YLgOq0gfSapoc
-w11v1Os/ZyL3suXIiIUcV0Ndns+hmJgo96vxnCXHZdbT6MdLmCitzl76C0eO
-sEVJZYfCmeA3RkQfksixb3eMHilM9Pf21wSo5NiwhVdQ087EMcH4sntH5Ujq
-nn/RKpGFTLP5qfGEHNXp4rkbT7Cgi8+Or0iXw9J2r8qsZcHQSZzPzJKDlbQ9
-q7yEhT5dylToBTn4z2cenNXOgv9c20udJjm0fV1VA3w2pvy8rfo+VmB/7uEf
-naLZsBp8f659lgKpTx69mxnLBjfnrq+JoYDj8/qXY9+z4flu79oLfAUipNv2
-DRxjI6yhxrDNTYG4z6+52+ezYQhcsmlYpYATp8/dfI+NKPVG43iyAtYH1p7K
-UXDA1A32KI8pwOKE1U/5c1D6NHo68aQCe7ZK1235ioOBnYeVNtoPHm+tIiyM
-g4hD5wzORQqYAmN3lcVysFT/sCTQrMAjVXidysDB3OGgn3NslEgrObHkuMIW
-ps/aynrYSvTQHEagskVkrPquG1+JZo+oKx8ts4WOto3xb0clZoaNufwaYQs7
-7o9Hr/soMfRm68yzSbaw8Kv/bmiFEp4bvhF3N9uiN3FBJKVVIvXhMP3dDi7c
-7ZhpUWeVCOtO0ZMHuNheMlCVf06JXSu9LqYf5uLVvWxriyIlfGMKItdpubD6
-hF5hNigRy/w6vb6OCx9TC31lhxINxck//CLgIWH2Fl2kiEDL7YSjf9znoS4X
-N7ViAhN017fhvTxY+NqPmlwJxDwUiv4a4uEnTcsiDy8CIeJb/wy05COv1Hd4
-SEmg3ThaZqHgo3E5jYiNIMCon19dVsQH7+ezv6fmE+Ayg96fzrDD7HZua8x5
-Ar9dY2xk6uxAE6Q1ai4S6OIn1eX+yw5D2UmV3mUEJqcqI61v2cFUsCOttZ7A
-X9ZElchSgLhywn9ODwFR9ZqQ0BQBdr+q8pvxjAAnKPr6wUwBIhd+9umfAwTM
-du8vG/UCBNe4O9S+IMAT3vQvuiGAp5H1et00AVVL+5EuKyG6WnsvFjuRkOuj
-HdVaIe5zw/NOSUhMmgrdki4I0RTy4HSCO4ksNf3blmohDI+akpf6kLga7dFx
-+4kQGb0Va14SJELvhA+mes6B/8gRjt8aEsH6S+wvb85BEdszvjGHROeqTcVK
-qQg+/WETFnkkvhv9YnE5RKj6LTXWX0/ibh6jI1Itgnnz8/21pSTadloFpKSJ
-MHilOKailkRce2PMjTcieG+T7tR1k0hu+yjGo8sBBnL1n4+fkuj+tVPd/dYB
-JO/odvv/kpg+b/T6Q+iI5XX9W7UvSRCBnaq2EEdE8Ys2naBT0Kqaq460OaKy
-4ZO1sa4UdLMnr4Z0O0GZtepJpZSCjL+9Z/8MMW7sTFnzv39QGFhBm5pwE+OB
-4Jlm1wIKjMdx9T67xRjfVfjtxgAKvYqW+Ot0Z8jtJSu/3kLBbdToeyffGcYX
-wa0nd1BwuaWT9BmcEXQjcUXTHgpnqjooZbMzwqN6lwfEUaiQ3r1dPu6MH0x5
-QYpUCuOr4/c8C3ZBQ4w4QHqJQldogls6T4K3Yy8yHC5TYLOzJnO9JFgQX/+Y
-U0GhxLK/cFIlQfGh9fumaj747k+T+QckyDhZWNjaRGGRZvExc5cE64qkM74f
-pPC6wWGQXuuKbI+JZdHDFE7eqt5X+LsrLM+cYtWMUPB9bdRmjLri/3eklrw=
-
+      1.], LineBox[{{3.061224489795918*^-6, 1.940807922738254}, {
+       3.061224489795918*^-6, 1.940807922738254}}], 
+      LineBox[{{2.282297965209684, 1.9845387764422011`}, {2.9941734674575162`,
+        1.9993610965838908`}, {2.99539175357331, 1.9993869892252918`}}], 
+      LineBox[{{3.8625306041212233`, 2.018295309200041}, {6.136253562818797, 
+       2.0729010424770893`}, {6.182822765517297, 2.0741037793717307`}, {
+       6.229391968215797, 2.075310175845261}, {6.322530373612798, 
+       2.0777340178746426`}, {6.508807184406798, 2.0826263971026}, {
+       6.881360805994801, 2.0925940258106626`}, {7.626468049170805, 
+       2.113295145936034}, {8.843893520444967, 2.14950944837228}}], 
+      LineBox[{{10.791098607617133`, 2.2145823816793007`}, {
+       11.308156126004256`, 2.2335674387661397`}, {12.038647322831405`, 
+       2.261777314434328}, {12.088172683001606`, 2.2637520106504767`}, {
+       12.137698043171804`, 2.265734881901272}, {12.236748763512203`, 
+       2.2697253612238386`}, {12.434850204193001`, 2.2778067751671274`}, {
+       12.831053085554595`, 2.2943838922288315`}, {13.623458848277785`, 
+       2.3293019531410413`}, {13.672984208447986`, 2.3315669181473053`}, {
+       13.722509568618184`, 2.3338420034147838`}, {13.821560288958583`, 
+       2.338422816820904}, {13.979240340272746`, 2.3458005797934325`}}], 
+      LineBox[{{17.861058649914543`, 2.568496428309608}, {18.182932399399863`,
+        2.5914197321642227`}}], 
+      LineBox[{{20.612359074679755`, 2.7965701464575736`}, {
+       21.384177652356154`, 2.8766877426854762`}}], 
+      LineBox[{{23.74486483122288, 3.188517520757271}, {24.5194156385197, 
+       3.320930813286054}, {24.545732075444665`, 3.3257699818548376`}}], 
+      LineBox[CompressedData["
+1:eJwVy31QkwUAx/Gx22xsbD4Pe2luS4FDwESyJZO9PM9+jgWdoCODAaHkuNuJ
+gAdYm8hUVIidIA0QbQiIZrwYJBfd5RRFC08pIenAViBnIy44okA5a3qW2R/f
++/z1Dc0p3GZlMhgM1Yv+Nz1pJDf+Rhy6pTEfbpzjgn7zKus+1Khks6sOXeaB
+YTDQp5PVyDs7FeAY5uEbenBfRoYamzlPGzt8PCTGjc2NFaoh8ny8eIIbhJS1
+8yPDZ9QwpzfmDGcHwUIqWq4/U6PC9FVgMclHuOCTHw9yNKisj8/8LoqP37hR
+hE6kgafV1rwTfOSxNpR71mqgUQ7eSSziY+/fSbu/eFeDo8w19YpRPiomHbHn
+PRqEFx/OHmkTIGE8oNByUwP7zv4j9q8F4HidnatGNPCfCizInxSgZuSEvHlG
+g72Dm5cSJMtxaqAr4KREi4Z2nmy+ejk6LkwMV36ghc/35EmYkUCI5eg5wxEt
+kmJKDa+ZCbila2z/1mixyrzscUkugSqnXWHv0GKlzez+toZAgZXMt45rkRzZ
+NFQxQWBa4aFDZ7RgTJnCzi0Q2DGWHTy5pEXIRe4Ym0Via3z35VS+DqwdzsqL
+60isD03kGKGD/N6ejK4KEp0//THxPFmHp5leW1wTidDahp6+TB26+4Vt8l4S
+wc995jfe14GtmhPP/0Li8f0DbWHtOvz68q0bC4ZgXHH3GgKCKLBcIUSdTAhl
+SqbkmpSCkT1vdm0UouslxlzJagqnfQ4nL02IZvuWukWawqafP7teVSdEWers
+gwfFL36H37uMFMHPc33ZdIjCYsF2plkpQtFArDO9mgL5T3o5UkXIUZbH3P2U
+gvWeacbfKIKRWHmw30shyhQRW7pOjKu3b6aUTlNQNQrIiFQxYsvyw1UPKWyr
+7mltcIgR8afnzudcGotT0Vk/DIkROPSOrIWi0SVRDjr2S/C989glx3kaU/sY
+fa8wpch6K/hhdg8N9y5lS+cGKWY5Ta8a+mj4rSjZkisFs6q7hTNKw8i/MM0d
+lUJ1/G75SaYedNyzWdulFRhIzrhWItDDcng2Y2FpBVL4vr+yZHqobrvaxl+X
+Ie+jR7vDlHq4hN0JVK8MrbXilB6LHu8dOCv13pIj+u0zx+r36NGexvy9jFDg
+Chk5YNuvhxv8aPl2BdLa6xiRtXqs37SryPRIgf8APFhbCQ==
+       "]], LineBox[CompressedData["
+1:eJwVjHc41f0fxu2shKzsRFl5tJD1eeucYxyjiLPzIFJCRSGrEk0rRROJjBPy
+EBXqe5KQpCOEyMpWOlkd+9fvj/u6r9f1uq97s9cJFx8+Hh6eyb/5fw90BQ9G
+SuGgMndeZrvORlZIRoFz6UYcmI+ZF/cIbmSltJ5tElDEQWCwXlxftjTrg4Vi
+TcFWHITgwg0zx6RY5tL0ohmEA09fL8adG5Isio2etrU1DkhmV5/WWEmyzkQu
+PbrjgAPXWsvwXWMbWMUj9+9YUHEw1DAcPPFKgqVW1XPxchAOvF9KV/qkibPM
+OYWrXWE4uCN5sUhWVpxF0Yo6q38OByM3+WWn08RYyUkqJ1qu46CTE6RUlS3K
+4vN2pyk9xsH5J0NGj3uFWap3DdoDnuBAffHQcm2wMMu0eXU/6z8cCJU5p9uI
+CbOCTTIJPq9x8NBXSE7Lah1rSLzf8GkHDnKb1bMs6gRZ16yz3FO/4SDsvbKk
+e5Aga8d5r/iI7ziYjbhnuUldkBU9MzRq8wsHR/ZWuu84L8BS+Dqe0S+Eh2jd
+778rnflZrzc+aaoTx0PaH2fb8yL8LB9H/8VCaTzcwR9rTajhY5WyptzOquJh
+a1L2irsJH8sxb0Zc2ggP/tRjltwdvKzZ/memXDM8HPDjuaI0w8O6pxhytNcK
+D9LlS4Z25TyssQTuW6YjHiQ6KgILzHlYMadXwnE+eGgReFiRXbSKVVitGz99
+Cw9vaWYXln2XMEZEgxz9Hh6W3JPGdwktYfzlV/FWD/Hghqfv7ny8iB3QFn+4
+vhAPItXx5TbjC9iEhBQ59y0efHa9fsc5x8VUexTfdUzjIdvFpCJuZA6rle2Z
+fsXFw/3xMAu4M4cd35+unrOKh/3rn0atEeewFzVqkSdFCeC7P6k9tGwWcynQ
+3CWiQYDUW6eaG5JmsMshBlmmzgQYHn3VKRP0G7uynudBJpkAP20O6WTq/8au
+5bSkCbgToL7NKF5sjIMlfj4d3+xHALWVDVZnPTlYqkFVqFcsATgq20b8qqew
+7BEbp2vPCfBiGFfW/mcCy4naZPfrFQG0DZv9r8ZNYLkykzjXWgI4mBHNE2Qm
+MOa+xL2qLQSARLP3AUbj2H8ZbZqlEwQIVP5UPH9lFMNInktdKtbQb2JgW+Q9
+hLF+7py31LQGQ7Jn06jAEFYTK/A7W9camoJRp0bud6yuNG8kwNgabO0PG1+b
+HMQ+Sky18Dpbg6b9SmbJhQGsuy48XyfWGjx0bsccLvmG/TG65XZ2whrgRKnU
+YcM27DTB05PFsYZaX4gNyW3FOAcNAtb9sYZ8bgq7WqUVGzvZEJvKbwMeMyrX
+WzZ8xr4yl8v+U7YBirPIvUJeNlat6iM94WQDB3wfx7buaMAuCBl9opXZgPoz
+D7LXYhm2KsPfnfXSBkqKRIdFnEux8C3skTHsL/fqHvnOLMGCwG81pOnv3swn
+X4zNxLzDM7bfHLYBnjw7RwnlB5j1lFD8B3lbUK8TfG2J3UJiXzpszSP/8q93
+bk15VUh6PHWdfIwtKGyd2Gg1VI0Ulg/W/b5sC5zZUzdrVV+jrRpsXN5NWzCc
+3ZMvaMNCENhgKf3EFqqTvfdLPKlBp4Ve7h7rsoU7b0IFNGzrUY/RPfVbxnag
++fzf32+GPqFBO0pfoIUdrFKGFMR3s9E4Qy7DDmcH8Ymv7Ohn2Gg+JkVpzckO
+DE5StMbn2Ujy0zU5vyN2wGpN2N0114IIvhHikGoHpNTSrIrvraj4NoM7OW0H
+Q9NScuTYDiQprBdLWLADduyNoEesDhQUtrAhc80OHtEes+8vd6A91LRtLuJE
+YK5C1P3gTlStyCa90CKCdveGm4OHulBjOq48lkIETSWtbm3NbjSSrRuk8poI
+t17o7F+J6EW2MgsrIbVEsDlKtnB62ouYsfVX2Y1EaDFxm/cY7EUBPt5ZFzuI
+8KUruP2jTR+a3ZrBHucQofb4Yeb4un7Ex5T6p2KLPTCFJV9GNvYj1RLupNNV
+e0g1N2YfMxtEolovdM2T7KEiWntq24FBNH839JhOqj18DiyQbvEeRM0X50f4
+s+wh4VmfyHDCIIomzw68eGEPDYeiOuT7BlHv6q8OjTF7GJksF3sf9R1lOI6+
+nbd2gGV+tTBi0RBSmWy/nyHgCJapgd/8ukeQ96vHeaJijtDYfeKj/c8RVJh0
+pixEyhH8Q58MK6+NINPdsh+cVB0h5Esjb7LGKCJFuS6uGjuCk7YBz6ujoyh5
+Qyvl3+OOcCBmTZI4PYoEdrNl1T87gqjxpU3Di2NoIrIxKSvTCYhmEcOaoxOo
+KMTJ89amAzCXkVoVbTGFtkMnpbn9AFhJhNm+ieKgjeUB0wNZzmBq2sB16/qN
+rKq2TBz3cIGcXyM6K2Iz6E2JLa+J0kFIlv/ng/TOWZTnfLby2/BB2H487ILD
+6TnUfrGxZeGRKzyc3TOgXTyP/Dy3Xf91wg3GXEynv6lwkbPBzOFte0lgWFfT
+975sATX2NSvLmZNA2e0eSbNyAe27wWwXQCRY/My4EMNaQLtnPW0G8STg2c8v
+Svy4gOQq2brpB0iQvTk6QWh0AfUQin9LHyXBTv4zBaZKi+jooWPnVtNIED3W
+n1N1aRGdi++71z5LAj52Oif/+BLK9cdV8nNJ8Mhss3x98BJqcsjr2rFEAm6o
+8vPJiCWksP6EQiIvGYJN1t+wjV9CpQmrqdYSZAjz6+c4Fy2hoUSVG8+3kaHx
+nX9zEWcJEW/QL9+lkeFnzNbHg5HL6OQpLLf+EBluRZ7oHY1bRmnOW+rmPMgg
+57/JYC5xGX2XmhRw8SWDdEm6vXbWMopMCY8RPU0GDdOuLdPvltHTm3ejIhLI
+4LAt8+tmqRUkk9YRfIhFBsuZO44+xSvoPLfM3+0tGfh6ch36nq+gSVqyj2Md
+GUJAycDrzQqqUbMjWzSRIUasuSOmbQWdLKg0VekkA0Fz1/UdSyvoQ3U677df
+ZHD71iR5kLiKYr4fTmKoUYArd+b+Fs4qmiLAFVcNCginPY3pXlxF1HzlCw5a
+FCBYDNzMEFxDhgHtQeZ6FEhxfnHFWmkN9c5bk5SNKZAkaC6vbrOG9orqqvQ4
+UUDOguS4PmsNcQw5THo0BfBCJ9fM/uGBTfuJhfgLFJDQ0hXZt4cH9gXkFG2P
+pcBgi/64kxkP3CyglKxdpUCYga1XlA0PGGm8Kc9OpYA6WbHawIMHIjemsCYL
+KaCbvTvzVwoPrJvf9SWimwJtYckvSas8YCiT2OHdSwG9SY10V0FeoOwc63Qc
++Pvn9P4gXZwXmIEPutVGKbAevYq7qMgLDqMCA2+nKXClGJO3MuaFlM72STFR
+Kng128bFBPGCalUo7wMTKlw3lTv+nMMLs+tox2rNqHBqF6e7cIEXGl3NW35Y
+UqE42pi3hI8PQqd4siwIVBgzip7pk+ED9uZr0OdMhafvSNSJvXxw8cqDcxrH
+qRBSat/8/hIfjLm9WclPp0JT1XunNn1+eP0o26flIRVcz90cbzLmh9RfcR8X
+sqnQw/BK6tzHD/uuEtOJTCq0vY1v0aHyw/3qVvMfFVSIb4GdlZf4wWnLSMQ/
+bCoYFR41eDfMD2Uc0cVyPhpIkH8Q7MsFoBnzMcsXpEGxydylf2oEYCKRFXlP
+mAaq/HdL9T4JgPr2kLVoCRoMLZh99x8XgMRjAwK2ijT44ZJ1V1FNEPwGn2/4
+uoMGpLPuOUeSBOHSf9LOTbtp4FgoN/EjXRCyzgekvDamQYlwsXByoSB0qm6R
+zbaggVLjo70GjYJgTU9U9LejgfYeiYw2ISHY3OattepBA9cBEZz6JSEwz8aO
+cA7TILnSJS8rTQgoQYr5g0doMNFlirfOE4JESbZuvT8NxHr+rC42CMGyg5lh
+chgNFCTHPqpJrIPOd1JmGsk0GCN+ZDdkroOk568PWGM0oO2u//fpkDBQyrO4
+oTU0OMoXoxK3LAwaZbEPC97R4I754PH7MiLwrJjIEW+iQX969kICQQQ6H39J
+au2kQc7hryMFTBFQvzXV7DFNA6EKPtyHGFEYv9ESkjJHg6/9D34YZYpCadIz
+1VouDby4l43+VIkC/np44LY1GkhTPr2NmBeFozFCElNidBDiiFx5c0IMSk6q
+OkZo0YFHLDi24bQ4nA3knSvUpoNo1EIU8bY47PMfetCrRwePR6c8LSvFoc2X
++cNqJx2MbgVyY3nXA9fdKF4Y0eHSlzN0dup6sHJ0+pBKoUOORHnIfx0SIGq/
+I7ieTofpivzuOL4N0GYro7TgToe0tup87vYNcAT/1Y/hQwcNFce0+ksb4JrZ
+EdEtQXSI6smv2asuCZ91ou1KrtPh/ZUnSp2TktBf0NX4JJEOVXXja26CUjCl
+s8ch7wYdFKpKXxmrSYGo7g+njNt0ML/vo2foKgU4XZprfDYdbjqzO0zfSoEL
+s7z9ci4dHq132aTSLwUeulLkiwV0sJt8KRW2IgWRug3U8Kd0OMnMJuTslYZn
+ukb/Hq2iw05mQ4DhC2moYd7oP/yaDk95lUJ3dkkDW/en579v6OCe1ufcsCgN
+P3VzvEn1dDiv+MYLQxthq560H76VDrXFS1ddWjbCbb2p0+qTdGieLvlAlZeF
+3Cd280pTdFD8qLOnGScLz/Qeh8r//uvF99bonpIFth4jXOIPHcAsNeBlsywI
+6zeeW+ZjwHVq4bhomhzIFWrxcgUZcCHV5fSDRjnQ1L8QMyPMgBa/h0DlkQcr
+fZO4CQkGyKRHPIw6IQ/h+rnXOhUZoBmzJFR4SAGuFPKKt6kwoD9lC/XTAwVI
+0z+U8EmdAcZfpDKivilAqb5Mct1WBgzovUiqOLwJJvVjUp/tZMARLFrNN04R
+Fgu/yZXsYUBgtlgR87MiCG/fe+eJCQPitV39hTSUQHM7594jSwaoMq19POqV
+YOR4cc41WwYYWvme3D+tDP8DgMXNgg==
        "]], LineBox[CompressedData["
-1:eJwVjnk0VXsfxpGxzENHx/BKabqFyqs30v7ae59jkySHUo4KyVAyXSVTiuhe
-Y64bqyshRZOLRCr9fpGrASFTqCjz7GQW3d4/nvWsz3rW+qxntbO3jauIkJBQ
-yM/8v6uNaIX320loVPIt/8JWx82Xf4uWNSYhZuSI2DljNVzYoZWlZ0KCnG7n
-htlFNo7Tf/zMmiBh29dnM/Yv2Jhu7Z1Iokho6rnnfd+CjQvW03yWJQm+446K
-6m6rcOw/S/pajiRo8AOuxlSwMPj2btU4SoJ18ocLbn+y8KRa7Ta2EwnsXc7W
-9W4szPe9bqDsSkJK5upAWpaFt6jv+p+kFwkekU6urk4rca3vOWI8hAQr1j2z
-LE0VfFHdCUbCSHBGVh/NZ5WxYRVjOhhOwtgJl3l+gzJOV1eluiNJmDoreP08
-Whl7VxVzW2NJ+FocUWM6o4TlNSb34jQShAPNrwz2KeKXVe1WZekk5PPeicVU
-KeJAv4p9TzJI2Dht3ReWo4g7q5L2F2WTYP7SccLBXREX+G21y71PgmKX9oXX
-IwrY5tVpfuIzEjpmfOIDxRXwH/4Dnsc6SBjHC6ef1MliNjfIl/eJhDa3+fNP
-MmVxluqKQG4nCSfkP5Zp+cviwrLNlzZ3k6CdVZjEZsniOgmfG7NDJFikpv+Z
-4SKDZdOm3ycukMAdFUkYlZHGl18uM3nBpmB+kneJkyGF5VOSqSJ1CnZv2lne
-HSyFUzx0LHI0f+6ry6NfH5TCt2XNDsZpU3BqcOrKMXkpXGn/u++hTRT0ikb/
-/nekJBYZkb89sZMCVVJh79ZzEjhERVNO+xAFxv0JjFmcGK4pkDpMOFAA+T4H
-mrzEsKbVVDbfkQKLCP7F61ZiGEVVG6U4UVAtxyr4IC+GRWaDTkh7UuA8aM4b
-TxHF0W0tZdNBFCwKFUmq5C/DSTeunHqbRsHNEE9BsqgI/mocWtKfTsGONRld
-dkPC2KDVXUQ8k4KzuZ8ToUEYN8lDKtyiIO2d6pUrGcJY9eJoxaMHFHzLLJFh
-EcI4/fgetYznFBipHsUOEUL4zkaxN792/vwzdu1wteUSalA3XfD6QoGoe88z
-tXVL6Ltc6Ga3bgq0eKU6mT8WkdX0ZPyhfgpE1szRlg8X0WR5N2/3OAW2d4KT
-WRqLCPgvP0oI0VAuZ7VBZ34BtcZHTFz7Dw0Z2qXRni1zSOQi0k5eTYMRH3SK
-iufQLwELvLg1NEiKujxYf3UOhTn4F59fT8N39fCdMXZzaO0Gl+DjejRkB7ol
-GTfPIu8XpJguQUPr8E7+0qcZJD4pvOrFERp281iFbOlpNJufGt99jAaLLt7E
-05EpNOSlJyrpQoP9sguake+mUF0ff8zKjYb7YTIql/+YQtfaSyo7vGmwznvo
-eEBjCulWePnNhtOwqzhWsXbHJDqQ9OGt3k0avuy98/VwlAAx+3xMebdo6LTz
-GLU9JUDG0hIlZ3JosHJWq/CyESCtKIOssns0rLwdMTKvKUCD5xIC9xTRUBu4
-41Bo6QQKc+LouFXSEMTKQpPfxlGOfkFYeh8N57tXdOfNj6LTKhNzJQM0nLSv
-jHKpHUUG8/oB9UM0tE9aDphljSJckX9SdJwGjfmnRekWo6j1QL695ywNLJGm
-+eDrI0gy9O9thlIceJ9ctrxozzByf/2gt2YTByYeS/fpvRpAG53vWi16cWDv
-cGgI3t6DXl03yhd4c+CjwCwoR6kHnfjwRqHflwNK4qxHd791o2zrocaGAA5c
-OpRkLlbUjbSIzQ65oRx4O+b1XtywG61Uz3PjxXHAoeW/p9WIr0ikuSD8zn0O
-LDMfy0053oXazUsL7YY4MPqUw58dakfkvmz7gBEOzDfYqp552I7u2iYsJY9x
-oOFG+tya4HYUdNTVovEbB6Ju5unKrWhH7ACFLzbfOfAP62C8+pY2ZJ/hoWAt
-w4W75YOfPp5rRc3Tq3ws9LggGBzwcDVoQg03g7YQ/lyIFF0wUaZrkaJQcalR
-ABeGO4OmW0ZqEI8/wTE8ywXpx+YSH1JqUKOy+5EtwVw4nvtgddJwNWq5ZJeg
-FvGTTUw+taa+RR1u+hMzSVywTXnQFvb9Fer5pbcov5ALp3YOKvmPVqDZh/t3
-aQu4EHjvh2dsZxH68djvUdRpM8hfcrY46pdL7NHnckKmzKAx+fPEp9hKospR
-z+OkPwNra9oFvsvrCUUX96fXAxgYH6k/kLu2njjinilTd5aBN7tMeHW764lp
-P6VCgxAG8mdfmE/51RNrL8/ML0YyUM2yTE1uqyfCC1Fs4lUGijQUOrfnNBBG
-Etb5j0oZOJ5MkXsMG4ko6d9E+p8ycDU9W1Bt1UjUK5Tbsp8zwBdTKTd1ayTc
-1Q3mwsoZaJM9MiSa2kikbFUlmbc//WsPZwpmG4lJh873bR0MxN8fIwIeNxHg
-tGqdzGcG5Id7lXTrmoiYEzaBRBcDu5XWFbf1NRHavi/Vs3sYCCm/kSDHaib2
-R+W6eo0ysMll4En/r81EWkxXyY1xBoqVO3RMY5uJ/kT28gYBA2fGdQvjbjYT
-4X/F5hnOMJAmnXNwWUMzUZ1RKeQxx0AiS+rS5oFmgnV7yeavBQbEhTnfzYVa
-COd7O27VLDLgbulY5cBqIfLyfWZ+/GDA09d83Em3hfgXBlLKRQ==
+1:eJwVkHtYzPkXxytNpTTd1Q+lhCQVbaVEn0MtRbGrtG30vUkSEhKtVLpoRYmS
+SqjtvopQKKPPd+lidHEZoptmrDJDRjS6SPxm/zjPeV7Peb+f8z7HjNmzcZuS
+goLCSXn917dYqSdNDAZCXcmIvrWlHiueTNHxlAaCZM7/Audy9NhtL1yL7WWB
+sGlT2D+vt+uyREpJq4YCAQ8aZEU/3HXYWQfjshSnEFDdnpDTqKDDdm0NoEY5
+BHyLndRwrNdm/VZwZa81CPiUEbO6c4U2u2HowMw6QwL2zbq0wuMCl+X2bui/
+OoOAQ8vDbwYv4rKtfMurxcYERJiGnFKt12Q9CntXnTaX7zsp8IkWT2PB7+fQ
+EFsC1n+1lE3312C/r5ptT9gRYNRyzWz+uDrLsx2f9HEgIN9nqcG8PHXWaWrl
+aeRCgNBrovDm26nsEp5+7fQ1BHDHpUMlGWrsUJk0ftpaApSnW7tfWaXGXjn7
+wEvJm4A/kl0XLx9WZRfuiRZ+2EiA1Gz+BtZflZ0z541qI0GAQnD7q/X2KqyQ
+W/+kjiZA23aX0W4ph704ce58VRABWVG74xvKOezM5+ts80IJGLMO2v3dnMPq
+/3nDb38kAa993aMezlNmOdL4YrM0AmziNTMl/kps+NT+536nCXiouWZXj4kS
+2zN3jcrJTPk9TwsaGvsV2erNGttHcgkQt86p2hqpyAbxMxa0lBLwstDa3/ov
+BfZeUdHliH8IMMu+HzcTfcc2rEpPeQMB+93CrbvfTOLc7pBpfc0EJP3yy9bB
+E5N4r671bs92Ajx1LqgP9H7DpnE1NibdBAi8xSgifQLHbG661iwjYPNhlZ3J
+C8fxu8gFr7+NErDdfEa4z+sx7HcmRddugoAWh3W52ufHsDV//f48RRJcou6n
+r9Mawz2OL+z3ckm4Kxbor1Eaxct0xbdmLCDBNvg3v2buF1xivVa8wYoEi5VZ
+9hUCGdb1rDBKsiFhdnbeerccGZbEhkd9tCdhr+HkpcPzZTj7w9iyhpUk7KAf
+X2Y9hvHIg6n1uzeT8CQ++/BPf3/Cs/MlIxkECc78fsuWqE/Y4yDfto4mwfpz
+eli/5yecO+94gUoICVt/9YvIeT+EXePVki5FkHB84Udxs/0QPuai6vUklQRq
+b13e6toP+Kru28TRdBKy4+4PKG3/gF9Kmu4aZ5KglGVie8LgA16Yfcw2NJeE
+ptzyR8MRg7hdxtGbUkrCxbpa3efL32PDK8pd9iwJJglWavFSMYakN7qb78v9
+WndtakrFOHRLw7qjTSRcb3hwPYUWY5564t22VhIyfR6r6L94i6ntUwqCO0lI
+T5t7MIg/gMtMlUKyP5Nwe05gK+K/wXn8H1+P6FLQ0LxVrdRShH1GrJRH9CjQ
+ndZpbjEqxOrm/pphBhTUJ5IGnEYhPhRdNZswkvObUd8OWoh9bWl3VxMKWj2j
+rINQH9Y8ey/1uyUFvEByyWe/HhxDJZnGrqTgpbTtc/LXDuyQes1ydBUFiaJ1
+Zw+Xd+DB2l67Pe5yTvCe+cW/AwfoOf5MrqEg7mhwckTtc7y0aWAH8qbAXy+1
+LS7uGR6y8rjxw5+CBROKzrx5TzE9qr46LpyCMqUjvN7jLTjM5bCS0T4Kwv9y
+uJ4w/hBHx76vv7qfAlZ8RKoT+hBnq7Yu7YukID/VZcUrbz5+bJhq6XqEgpB1
+gr6x2c0YOWlpfjtOQdUm5xhm8B42jtJ7drBQrp9689DOJTfxwrsJ6VrFFJia
+3b/HdavBTooyr9ISCoaOJc3S8KvGvsefNXaUy/P/XtCvFHcdn8w5e8uhigLh
+CDHHqbkST9Qanh/mUaCwc1fX+/OXcOfXmcyeDgpA5d9gs0eZSD3OQ2Pwhdxv
+ylMdvnMOLeMcqA7plOsnF8+3Kc5FuVrtKkyPPE9rjE2MYz7aMjfusu9rOb/j
+1ARIipHQ+43MWUrB4j832uvGVqG3+RXJyio0vJy8rHDqWx0ymt+5+KgqDVV3
+FFsML95BHpc5XZNqch4fT3znykNlNcSiUQ25fluTYF/MXRT6UPuJRIcG4R81
+KUu+YCQdjpjxyJgGNm/KbWf6HvqyekVljgMNXg59Y9JPTUj577Iu7lIaBvNn
+6GgtbUb6mvpqiU40lJUGXBAfbkZ2gndMmAsNrYs6u/jKD1AYmW3ktpKGQ9JO
+u1/1+Gjg4HDCoBcNFZVZWU/NW9DLsvIAFERDw1SDgl0Gj1Cd+nS1/jM0ZDpd
+aAqzECDTpEZxVCYNTm63b0y4C9CxHxF8bhYNPZ8KvHcxArRRJkhxyqHB5pT5
+0vE8AZL0ntY8eYkG+2jD7CbtZ8jomqbeTxU0RLYKbHyHn6HI3zgmRxv/my/r
+Xl/cgeyKZD8Zj8n/8ehi4YGGTlRHUornxuVzb+Puo12dyG1ma7v2BA1FvbYj
+0UOdyPdM4Q7l7zR8Naq2gVldKDJu46X3UxgIdsxUmdzXhWq3VKnXaTGwSOLe
+xBh3IzDYJfKzYEDbRtF8Z3APWn/s37R0PwaMVqUxYW2v0Jq1aV6O/gxsNj6w
+6IPoFQKus3rP7wwkMdHuW0ZeoSVZaUkWgQzwJGZVGrP7kH6Jc3T9VgbcempK
+ru3pQ92Np3YMhjMwfdz4rIGqEIVwlrt7nGDA4taDIKt8IaL5A4rSkww0zas2
+iy8XooDU0zgjjYHYiimLnl4XIi+Dt8v6TjPwY/yeJ9EoRLbzziyJzGZgBi85
+1eKdEI24i02Kihl42TZgmWQnQh/VMno8SxngVt6JiXARIXHrityPZQyENHy8
+GOguQp2+GQYuFQw4ZruTxn4ixAtynfb0OgNjy+9U+kSJUM0CCf9gNQNPv45a
+6caL0JXBjGTjm3I/T7nqYYoI5UdIlHbUMtBu9rHfMk+EcpwyWe4dBkJzRcWP
+i0TozDfXmGoeA3vftyXvrRShFFbiElDPQKJn4ZlpN0UoITFz/AdmYK716raC
+ehH6P9mIOYE=
        "]], 
-      LineBox[{{23.777217904756004`, 3.272213571286108}, {24.500912064223318`,
-        3.4109378348607606`}}], 
-      LineBox[{{24.61034969639067, 3.4337160525576738`}, {24.730449091526378`,
-        3.4593125448441233`}}], 
-      LineBox[{{24.53279981932536, 3.417522268161458}, {24.563001917687984`, 
-       3.423798359927806}, {24.57846194128863, 3.4270260774198293`}}]},
-     Annotation[#, "Charting`Private`Tag$5933#1"]& ], {}}, {}},
+      LineBox[{{0.580471590483438, 1.9514200875838648`}, {1.4721511207270248`,
+        1.9683836516713138`}, {2.186634699903562, 1.9825925710320407`}}], 
+      LineBox[{{8.939556785751089, 2.152490616868101}, {9.207993935126206, 
+       2.160967792009999}, {9.299305334729599, 2.163889625808596}, {
+       9.481928133936387, 2.16979276003634}, {9.847173732349962, 
+       2.181842875836804}, {10.577664929177109`, 2.2069690219426485`}, {
+       10.59036934281167, 2.2074186517273064`}}], 
+      LineBox[{{15.835754719747317`, 2.4414299437024716`}, {
+       16.687319194227936`, 2.4915397677971853`}, {16.73197212591572, 
+       2.4942919725966415`}}], 
+      LineBox[{{22.763523401115037`, 3.0445179991141096`}, {
+       22.947972382630205`, 3.069820622958715}}], 
+      LineBox[{{3.091055018879432, 2.0014259047659824`}, {3.343293478053214, 
+       2.006857035698921}, {3.7422877758768687`, 2.015614922736117}, {
+       3.7668673388151013`, 2.016161269426587}}], 
+      LineBox[{{18.917112571488154`, 2.6470421147113985`}, {
+       19.747774596335077`, 2.7162552749872737`}}], 
+      LineBox[{{21.479840917662276`, 2.887241944107288}, {21.568829651773182`,
+        2.8971921120413873`}, {21.76553538422295, 2.9196521759320224`}, {
+       22.158946849122486`, 2.96659757335866}, {22.200608173424442`, 
+       2.9717348968934307`}}], 
+      LineBox[{{14.074903605578868`, 2.35032866174145}, {15.180775289873466`, 
+       2.405721642181061}}], 
+      LineBox[{{17.05545921690165, 2.5146262200643115`}, {17.42684360447982, 
+       2.5388652813832806`}, {17.76539538460842, 2.561843832651462}}], 
+      LineBox[{{0.09344920708285748, 1.9424942553287703`}, {
+       0.18402156866230668`, 1.9441367148350859`}, {0.36804007610012357`, 
+       1.947498215336329}, {0.48480832517731554`, 1.949648438817852}}], 
+      LineBox[{{15.52807047584685, 2.4243668761537593`}, {15.740091454441195`,
+        2.4360684247050886`}}], 
+      LineBox[{{18.492341839908118`, 2.6142740417093675`}, {
+       18.821449306182032`, 2.6395162373133374`}}], 
+      LineBox[{{19.94153124592807, 2.733470483245029}, {20.169965455101522`, 
+       2.754330941876069}, {20.516695809373633`, 2.7872225167896643`}}], 
+      LineBox[{{23.226047178497186`, 3.1094414545487137`}, {23.64920156591676,
+        3.17340116189556}}], 
+      LineBox[{{22.30769504889355, 2.985091982002679}, {22.552358314022023`, 
+       3.0164564905150737`}, {22.667860135808915`, 3.031688294707287}}], 
+      LineBox[{{15.343333012503038`, 2.4143697715089045`}, {
+       15.432407210540728`, 2.419167306163315}}], 
+      LineBox[{{18.278595664705986`, 2.5983979935088914`}, {18.36672775876869,
+        2.6048959453198033`}, {18.396678574601996`, 2.607119481454969}}], 
+      LineBox[{{16.827635391221843`, 2.500232297983178}, {16.959795951595527`,
+        2.5085393163924277`}}], 
+      LineBox[{{24.641395340750787`, 3.343565604471415}, {24.655365320941417`,
+        3.3461915693103883`}}], 
+      LineBox[{{10.686032608117792`, 2.210818688735391}, {10.695435342311011`,
+        2.2111542530000747`}}], 
+      LineBox[{{23.043635647936327`, 3.083246216359192}, {23.05083928655206, 
+       3.084265758591256}}], 
+      LineBox[{{15.25449064936491, 2.409626312171736}, {15.25449064936491, 
+       2.409626312171736}}], 
+      LineBox[{{19.8193359030368, 2.7225634976773403`}, {19.845867980621946`, 
+       2.7249171149694478`}}]},
+     Annotation[#, "Charting`Private`Tag$48818#1"]& ], {}}, {}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
@@ -359,7 +475,7 @@ COd7O27VLDLgbulY5cBqIfLyfWZ+/GDA09d83Em3hfgXBlLKRQ==
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
-  PlotRange->{{0, 50}, {-7.026255643989277, 9.975712471055067}},
+  PlotRange->{{0, 150}, {-4.790211036257171, 7.236631161024249}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
@@ -376,63 +492,68 @@ COd7O27VLDLgbulY5cBqIfLyfWZ+/GDA09d83Em3hfgXBlLKRQ==
    3.877182971722556*^9}, 3.877183021959716*^9, {3.8782890252122993`*^9, 
    3.878289063704639*^9}, 3.878292725117619*^9, 3.879568890539933*^9, 
    3.8795689360093517`*^9, {3.87956897106921*^9, 3.879568983881357*^9}, {
-   3.879569032952899*^9, 3.8795690542179728`*^9}},
- CellLabel->"Out[17]=",ExpressionUUID->"7ddecd95-d077-4b74-bbf8-e6285ce1c409"]
+   3.879569032952899*^9, 3.8795690542179728`*^9}, {3.88008674094413*^9, 
+   3.880086745707924*^9}, 3.880087709857608*^9, {3.880087803643498*^9, 
+   3.880087992161138*^9}},
+ CellLabel->
+  "Out[231]=",ExpressionUUID->"3ccd7abc-262b-44b5-b38b-4667bce6baf7"]
 }, Open  ]],
 
 Cell[CellGroupData[{
 
 Cell[BoxData[
- RowBox[{"FindRoot", "[", 
-  RowBox[{
-   RowBox[{
+ RowBox[{"myU", "=", 
+  RowBox[{"U", "/.", 
+   RowBox[{"FindRoot", "[", 
     RowBox[{
-     FractionBox[
-      RowBox[{"fIn", "[", 
-       RowBox[{
-        FractionBox[
-         SqrtBox[
-          RowBox[{"2", " ", "mass", " ", 
-           RowBox[{"(", 
-            RowBox[{
-             RowBox[{"-", "Esep"}], "+", "U"}], ")"}]}]], "p"], ",", "range", 
-        ",", "0"}], "]"}], 
-      RowBox[{"dfIn", "[", 
-       RowBox[{
-        FractionBox[
-         SqrtBox[
-          RowBox[{"2", " ", "mass", " ", 
-           RowBox[{"(", 
-            RowBox[{
-             RowBox[{"-", "Esep"}], "+", "U"}], ")"}]}]], "p"], ",", "0"}], 
-       "]"}]], "-", 
-     FractionBox[
-      RowBox[{"fOut", "[", 
-       RowBox[{
-        FractionBox[
-         SqrtBox[
-          RowBox[{"2", " ", "mass", " ", "Esep"}]], "p"], ",", "range", ",", 
-        "0"}], "]"}], 
-      RowBox[{"dfOut", "[", 
-       RowBox[{
-        FractionBox[
-         SqrtBox[
-          RowBox[{"2", " ", "mass", " ", "Esep"}]], "p"], ",", "0"}], 
-       "]"}]]}], "\[Equal]", "0"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"U", ",", "50"}], "}"}]}], "]"}]], "Input",
+     RowBox[{
+      RowBox[{
+       FractionBox[
+        RowBox[{"fIn", "[", 
+         RowBox[{
+          FractionBox[
+           SqrtBox[
+            RowBox[{"2", " ", "mass", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", "Esep"}], "+", "U"}], ")"}]}]], "p"], ",", 
+          "range", ",", "0"}], "]"}], 
+        RowBox[{"dfIn", "[", 
+         RowBox[{
+          FractionBox[
+           SqrtBox[
+            RowBox[{"2", " ", "mass", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", "Esep"}], "+", "U"}], ")"}]}]], "p"], ",", "0"}], 
+         "]"}]], "-", 
+       FractionBox[
+        RowBox[{"fOut", "[", 
+         RowBox[{
+          FractionBox[
+           SqrtBox[
+            RowBox[{"2", " ", "mass", " ", "Esep"}]], "p"], ",", "range", ",",
+           "0"}], "]"}], 
+        RowBox[{"dfOut", "[", 
+         RowBox[{
+          FractionBox[
+           SqrtBox[
+            RowBox[{"2", " ", "mass", " ", "Esep"}]], "p"], ",", "0"}], 
+         "]"}]]}], "\[Equal]", "0"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"U", ",", "60"}], "}"}]}], "]"}]}]}]], "Input",
  CellChangeTimes->{{3.876220514856612*^9, 3.8762205364843173`*^9}, {
    3.87641380286448*^9, 3.876413813776764*^9}, 3.8765050174731894`*^9, 
    3.876505834830249*^9, {3.8768987485820503`*^9, 3.876898765145231*^9}, {
    3.876901089974984*^9, 3.876901108003067*^9}, {3.8769028508117027`*^9, 
    3.876902864692957*^9}, {3.876912179610631*^9, 3.876912183976046*^9}, {
    3.8771829776133184`*^9, 3.8771829780132623`*^9}, {3.8782890831225157`*^9, 
-   3.878289091001782*^9}, {3.878289430122672*^9, 3.878289446396935*^9}},
- CellLabel->"In[38]:=",ExpressionUUID->"22f1491b-05f8-4461-9d8a-7023940b0eba"],
+   3.878289091001782*^9}, {3.878289430122672*^9, 3.878289446396935*^9}, 
+   3.880086673187624*^9, 3.8800877134548693`*^9, 3.880087807038721*^9},
+ CellLabel->
+  "In[232]:=",ExpressionUUID->"22f1491b-05f8-4461-9d8a-7023940b0eba"],
 
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{"U", "\[Rule]", "46.48728734369617`"}], "}"}]], "Output",
+Cell[BoxData["48.01652525001887`"], "Output",
  CellChangeTimes->{
   3.8762205374997587`*^9, 3.8764138310515523`*^9, 3.8765050188080196`*^9, 
    3.8765050618099136`*^9, 3.8765058364421587`*^9, 3.8765058704783134`*^9, {
@@ -440,102 +561,114 @@ Cell[BoxData[
    3.876901091009881*^9, 3.8769011091519423`*^9}, {3.8769028519905815`*^9, 
    3.8769028659018292`*^9}, 3.8769121525485616`*^9, 3.876912185418889*^9, {
    3.877182978736745*^9, 3.877183025647654*^9}, 3.878289092820195*^9, 
-   3.878292505137838*^9, 3.8795690844906807`*^9, 3.879570642631118*^9},
- CellLabel->"Out[38]=",ExpressionUUID->"5e4e737a-a194-482f-a372-1fbe2ace2da3"]
+   3.878292505137838*^9, 3.8795690844906807`*^9, 3.879570642631118*^9, {
+   3.880086743953726*^9, 3.8800867473357487`*^9}, 3.880087715279483*^9, {
+   3.880087808333634*^9, 3.880087992954145*^9}},
+ CellLabel->
+  "Out[232]=",ExpressionUUID->"b4205776-3774-42a9-8a33-cf7915e0b844"]
 }, Open  ]],
 
 Cell[CellGroupData[{
 
 Cell[BoxData[
- RowBox[{"FindRoot", "[", 
-  RowBox[{
-   RowBox[{
+ RowBox[{"myCoeff", "=", 
+  RowBox[{"coeff", "/.", 
+   RowBox[{"FindRoot", "[", 
     RowBox[{
-     RowBox[{"fIn", "[", 
+     RowBox[{
       RowBox[{
-       FractionBox[
-        SqrtBox[
-         RowBox[{"2", " ", "mass", " ", 
-          RowBox[{"(", 
-           RowBox[{
-            RowBox[{"-", "Esep"}], "+", "46.48728734369617`"}], ")"}]}]], 
-        "p"], ",", "range", ",", "0"}], "]"}], "-", 
-     RowBox[{"coeff", " ", "*", 
-      RowBox[{"fOut", "[", 
-       RowBox[{
-        FractionBox[
-         SqrtBox[
-          RowBox[{"2", " ", "mass", " ", "Esep"}]], "p"], ",", "range", ",", 
-        "0"}], "]"}]}]}], "\[Equal]", "0"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"coeff", ",", "1"}], "}"}]}], "]"}]], "Input",
+       RowBox[{"fIn", "[", 
+        RowBox[{
+         FractionBox[
+          SqrtBox[
+           RowBox[{"2", " ", "mass", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"-", "Esep"}], "+", "myU"}], ")"}]}]], "p"], ",", 
+         "range", ",", "0"}], "]"}], "-", 
+       RowBox[{"coeff", " ", "*", 
+        RowBox[{"fOut", "[", 
+         RowBox[{
+          FractionBox[
+           SqrtBox[
+            RowBox[{"2", " ", "mass", " ", "Esep"}]], "p"], ",", "range", ",",
+           "0"}], "]"}]}]}], "\[Equal]", "0"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"coeff", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
  CellChangeTimes->{{3.878289683612082*^9, 3.8782897289455433`*^9}, {
-   3.878289801822311*^9, 3.87828982476785*^9}, 3.879569118948894*^9},
- CellLabel->"In[39]:=",ExpressionUUID->"444da03a-39cf-4c3d-bb1b-9d322299f630"],
+   3.878289801822311*^9, 3.87828982476785*^9}, 3.879569118948894*^9, {
+   3.8800866773952007`*^9, 3.880086704667201*^9}},
+ CellLabel->
+  "In[233]:=",ExpressionUUID->"444da03a-39cf-4c3d-bb1b-9d322299f630"],
 
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{"coeff", "\[Rule]", "8.80922839269386`"}], "}"}]], "Output",
- CellChangeTimes->{3.879570442808729*^9, 3.87957064413636*^9},
- CellLabel->"Out[39]=",ExpressionUUID->"3eb7226b-93be-43d1-8fd7-dced997b260b"]
+Cell[BoxData["8.088071130275875`"], "Output",
+ CellChangeTimes->{
+  3.879570442808729*^9, 3.87957064413636*^9, 3.8800867486475277`*^9, 
+   3.880087717563438*^9, {3.880087810097796*^9, 3.880087994342682*^9}},
+ CellLabel->
+  "Out[233]=",ExpressionUUID->"e978557d-baa8-4635-867c-ce6bf4ad2127"]
 }, Open  ]],
 
 Cell[CellGroupData[{
 
 Cell[BoxData[
- RowBox[{"FindRoot", "[", 
-  RowBox[{
-   RowBox[{
+ RowBox[{"myNorm", "=", 
+  RowBox[{"A", "/.", 
+   RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{
-      SuperscriptBox["A", "2"], " ", 
-      RowBox[{"Integrate", "[", 
+      RowBox[{
        RowBox[{
-        SuperscriptBox[
-         RowBox[{"fIn", "[", 
-          RowBox[{
-           FractionBox[
-            SqrtBox[
-             RowBox[{"2", " ", "mass", " ", 
-              RowBox[{"(", 
-               RowBox[{
-                RowBox[{"-", "Esep"}], "+", "46.48728734369617"}], ")"}]}]], 
-            "p"], ",", "r", ",", "0"}], "]"}], "2"], ",", " ", 
-        RowBox[{"{", 
-         RowBox[{"r", ",", "0", ",", "range"}], "}"}]}], "]"}]}], "+", 
-     RowBox[{
-      SuperscriptBox[
-       RowBox[{"(", 
-        RowBox[{"8.80922839269386", "*", "A"}], ")"}], "2"], " ", 
-      RowBox[{"Integrate", "[", 
+        SuperscriptBox["A", "2"], " ", 
+        RowBox[{"Integrate", "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"fIn", "[", 
+            RowBox[{
+             FractionBox[
+              SqrtBox[
+               RowBox[{"2", " ", "mass", " ", 
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{"-", "Esep"}], "+", "myU"}], ")"}]}]], "p"], ",", 
+             "r", ",", "0"}], "]"}], "2"], ",", " ", 
+          RowBox[{"{", 
+           RowBox[{"r", ",", "0", ",", "range"}], "}"}]}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox[
-         RowBox[{"fOut", "[", 
-          RowBox[{
-           FractionBox[
-            SqrtBox[
-             RowBox[{"2", " ", "mass", " ", "Esep"}]], "p"], ",", "r", ",", 
-           "0"}], "]"}], "2"], ",", " ", 
-        RowBox[{"{", 
-         RowBox[{"r", ",", "range", ",", "Infinity"}], "}"}]}], "]"}]}]}], 
-    "\[Equal]", "1"}], ",", " ", 
-   RowBox[{"{", 
-    RowBox[{"A", ",", "0.2"}], "}"}]}], "]"}]], "Input",
+         RowBox[{"(", 
+          RowBox[{"myCoeff", "*", "A"}], ")"}], "2"], " ", 
+        RowBox[{"Integrate", "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"fOut", "[", 
+            RowBox[{
+             FractionBox[
+              SqrtBox[
+               RowBox[{"2", " ", "mass", " ", "Esep"}]], "p"], ",", "r", ",", 
+             "0"}], "]"}], "2"], ",", " ", 
+          RowBox[{"{", 
+           RowBox[{"r", ",", "range", ",", "Infinity"}], "}"}]}], "]"}]}]}], 
+      "\[Equal]", "1"}], ",", " ", 
+     RowBox[{"{", 
+      RowBox[{"A", ",", "0.2"}], "}"}]}], "]"}]}]}]], "Input",
  CellChangeTimes->{{3.878289888090169*^9, 3.87828992516182*^9}, 
    3.878290001694314*^9, {3.878290037135365*^9, 3.878290114624291*^9}, {
    3.878290154622223*^9, 3.878290162835559*^9}, {3.8782925361300364`*^9, 
    3.87829257237002*^9}, 3.879569178546549*^9, {3.879569241919948*^9, 
    3.879569245267922*^9}, {3.879569277686201*^9, 3.879569279300724*^9}, 
-   3.879569335601615*^9, {3.879570630856184*^9, 3.879570632038727*^9}},
- CellLabel->"In[40]:=",ExpressionUUID->"7835cc6b-0406-456f-a3a3-ab6f89b509c7"],
+   3.879569335601615*^9, {3.879570630856184*^9, 3.879570632038727*^9}, {
+   3.8800866795052*^9, 3.880086723648281*^9}},
+ CellLabel->
+  "In[234]:=",ExpressionUUID->"7835cc6b-0406-456f-a3a3-ab6f89b509c7"],
 
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{"A", "\[Rule]", "0.7583626465084375`"}], "}"}]], "Output",
+Cell[BoxData["0.7696211451653487`"], "Output",
  CellChangeTimes->{
   3.879569148123713*^9, 3.8795692505602217`*^9, 3.879569281919847*^9, {
-   3.879570637910142*^9, 3.879570646893675*^9}},
- CellLabel->"Out[40]=",ExpressionUUID->"04ad714b-04df-47df-ab06-0b100aeae348"]
+   3.879570637910142*^9, 3.879570646893675*^9}, 3.8800867527823553`*^9, 
+   3.880087721464933*^9, {3.880087811800939*^9, 3.8800879962360888`*^9}},
+ CellLabel->
+  "Out[234]=",ExpressionUUID->"46e6a3ad-c2c6-4495-b04b-21996d66b414"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -548,7 +681,7 @@ Cell[BoxData[
      RowBox[{
       RowBox[{"{", 
        RowBox[{
-        RowBox[{"0.7583626465084375", 
+        RowBox[{"myNorm", " ", 
          RowBox[{"fIn", "[", 
           RowBox[{
            FractionBox[
@@ -556,12 +689,12 @@ Cell[BoxData[
              RowBox[{"2", " ", "mass", " ", 
               RowBox[{"(", 
                RowBox[{
-                RowBox[{"-", "Esep"}], "+", "46.48728734369617"}], ")"}]}]], 
-            "p"], ",", "r", ",", "0"}], "]"}]}], ",", 
+                RowBox[{"-", "Esep"}], "+", "myU"}], ")"}]}]], "p"], ",", "r",
+            ",", "0"}], "]"}]}], ",", 
         RowBox[{"r", "<", "range"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
-        RowBox[{"0.7583626465084375", " ", "8.80922839269386", " ", 
+        RowBox[{"myNorm", " ", "myCoeff", " ", 
          RowBox[{"fOut", "[", 
           RowBox[{
            FractionBox[
@@ -572,172 +705,173 @@ Cell[BoxData[
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
  CellChangeTimes->{{3.8771831750308676`*^9, 3.877183283833062*^9}, {
-  3.879570725415313*^9, 3.87957082556467*^9}},
- CellLabel->"In[49]:=",ExpressionUUID->"fc251146-842e-4797-bd33-46971b36a427"],
+   3.879570725415313*^9, 3.87957082556467*^9}, {3.8800866815822*^9, 
+   3.88008672825279*^9}, 3.880086759707464*^9},
+ CellLabel->
+  "In[235]:=",ExpressionUUID->"fc251146-842e-4797-bd33-46971b36a427"],
 
 Cell[BoxData[
  GraphicsBox[{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
       1.], LineBox[CompressedData["
-1:eJwV13c8ld8fAHA72XuP616bzGz1OdkyspPsrDKSFhF9zVRmipIZJRUVFdkk
-WxkZGZn33oTIvIjf/f31vN6v53WeMz6fc87nEfO8aONNRUFB0UpJQfH/Z06k
-J52y193jElFVJn1jMcc/D2DMT2POQ8XCm1Z/DU84+FIfg8GEQXagy+JxjRDI
-aUwSpcUkQsbsv0QejWgIOHY1cEv0EUTeaoz+pJ4OA7t+GSuiL0DBeUQxUK0Q
-Do3NSC2JVgNVRfk3U6V3UNCZd+m3aAeIC/540yPYDGXliWMBCj+gNK/J1OpW
-P/hC36PFkFmgFOTU23/6AygKNz+N3Z0FbGrrNcXmH5BFIzTeWTQL1pc9+q2n
-fkB7h4/Ii6FZ0HYOrzkvNAbSdnuF3tpzcIWTI2bu/hgQ/aReTVLOg6K6QchW
-1DhcSL9Z/y0VDxLsUQsY80kImpeZrSz7Bc02ZwNvj0zBlOsofVPHLzjEFOmS
-j58C25HbCj1z5PddOQav16dAs4sQNi+wAJ6+MgPFbNNA/baYjSdhAWzOO/1l
-M5mGrAix49fdfkP48VDHtsppaOLkf6TFtgR6H8yNrsfNwNGk9npDuSVgvkn3
-Uyh9Bp7Rhc5ZGy3Bjkbu6Q+5M3CPNKR4IWIJQlwT2j5/nAGHnxlfHhOX4PzK
-eJ3lrxlYKGVb321cBsmQ3l3Wk7PAIBYr9VNzBVz+3MKyU81Bu26aYqThCuwe
-vfvMh2kO4h1zNYRtVmCdorflDc8cUKVWGZ/1X4Gt3Ox3WLk52Nlf9B3OWYH9
-Yr6GCNs5+D1uX/KVahVUZSQzaQrnoDtLSqaxexUe7CzW6KrPw53Ko8puo6vw
-kN80VQDmweTbCa39+VWIpQo5tWg8D58POZvqHqxCp6LYDf8z81B7LfV8lfJf
-SP2rsTkcPg+v7Ugv3jz8CwXrAie96+chma1LtsB9DUIvJw4paeOhWkP4vWXQ
-GkjuvZIQ1cPDnOtF2Atfg3/P9x/um+JB5zWn3enMNXj+/UhX6hk8EE2dbzL3
-roEE1xqRMhQP+jFLX8N01mHmX1EGxzs8BJWCk5TpOpg+jylmq8bD4760uUGH
-dWjYF0k8aMDDiqg6STFkHR7QsH0o78FDbm0kFl+yDtFx76TOEPGwvcF61YZn
-AySfSKd3CxAAJ+x5cIDbAH0n/+rvGAJYGlQmvlbegM5GwaCvkgQoTnfMpbfY
-gDbG0YsZKgSwUSxoq4/ZgK+yab5epgR47aciILe6AW/Fzk7xXSHASEps0cj+
-BsSxqvPIhBGA5uOQQjzTJlSevpUrE0kAJ9pw/WmpTVi3Z3u0m0AA+sKWgEzX
-TbA7kBybeUwAzzG7BuruTWDI2pqoqSMAQ/Z04KXRTSgmZozVNhHgnVOQ0E/8
-Jjyy2EoqayUA9Y+EsE+UWxCHW6Lz6iFA0cgn1UsaW/C9epWGd5wA5lnGM5MG
-W+AY33Yu5ycB1k8PpprbbIFinKQX1ywBDIeXlqQCt0CPmIMGfxEA/x1TMlm4
-BfZZgfLZmwRIfvDawfzNFsxz6J99RiKAur027ae6Ldhn/ilQuEeAhEFbzwcj
-WxDa1GrgT0UE6YF4IXOWbbhXSWI1YCbCt3TOrmrBbUgzOJ82wEqEUJv8MCmZ
-beCMd3xgy0GEjr7qISqDbZCjtBKR4CXChW+LqdVh2xC0TsfAgiECR2oYSCVs
-w5hX+hUxLBE+naJbzsjYhhj8oL2EOBEYv4qaBZdvA8tbx+v7UkSoTH5Fmqjd
-hoY20fcDMkRwttQqMevchql7L7weyRHhVY8NrdT8NhRMRXJtKhDBLulnRcbf
-bWBwyudIUiLCnnmAJxUFCbodlSK5VIhg0R3XMCFAgj//3j9aP0qEzbscQWbS
-JDjV3GdsoU6EXLM8oWo1sk1L3B5qEGG5syosw4oEvJqog6RFhId3DKWpXEmg
-SRPKz6VDhOMn+4cu+pOg1Pn0NxFdIuAPu8VNhJIgN0llif8YEVI6fquaxZMg
-Zdn3Iu1xImgmhs5U3SfB7Rk3h2myp0xo0yQLSFAwcq/gNRDhNn06ZJSRwNzc
-3+oCIoJSu8gyZS0Jylv/8+Q9QYSRhJdPLnaQYGnUfbiS7FvGmmYTQyS4Ive0
-TE+PHK9DraSTcyTQvrBEaCT72xfrkqpVEmzbLkcr6pPjFT/pIHlAAq9K16hk
-sjFG/rQZTDtg7U05MUF2O+12BaXADixYPs0WNiDCpdZYz4tSO9DiK1hjQbbI
-nBHdpuoOuB+7nhhAdhfV4dIItAM4id2Gm2SHinVZUFvsQMONHNf/yJZASauJ
-Z3ZASsPZ+zrZ/a6nHrD57EDSiu6gG9lRN9m1MkN24OwP85faZMs/GRgXjtoB
-ydb8hUNkj356cKvo7g58ELFPbyOPL370tLhc1g58X00qDCNbdZu//W3RDnjh
-rwmKkD3FM+6v+Zbc/oT+v0ry/JPUclkb6nbgyewRk+Nka9u5Vxh27sBh87C9
-avL6EUKwp7uHdkDiwUUBabIz0uZ2bGZ3gPOaZ+Ft8vqfePMsd/TPDvDovcwg
-31aw3Oun5763A+HE0lUM2dlLsng8/S6cWu+odiTHc0O2/Mi62C6sX1JIyiPn
-Q6Hppb4bCruQR+X/qIycL6f8VK9S6uzCnNp7jjfaRHhR/LGWxW4XKH0rLe9o
-EsHhc5j7A/ddcDydw3GOnH/Uszo0QoG7kNC7a6hAzk8XTKOZTPwuoJ7Bf9mq
-RGDPbv+hX7ULM42NXwaPEKG++k5k5+ddwJ9fEDghTwT/EXOsdd8uKP5rncuT
-JUIrd99514Vd8NQ7MXGUvL/CUke3Q4X2AHzeR9SKEkGyPPvJgfQefPZ69qhW
-mAgDPS4oXm0PfDn9j5YLEuEI40zCfcs9WENsRH/y/p6OW+Apu7UHB8lD5/VZ
-iJBc9OrT0aQ9yG3RzRxmJIJOS5BrzaM9EHodYe56mAgPKNaK29/twTqfkJ0+
-DRFMw3ePzs7tAWHgFkUA+Tx6G8xky2f6D4TD+uS0pgnQ/Zgz7LXDP+DNeXO7
-fIJ8nn0WyNPz+gehvtFHeH4QQIBf5ndA1D94UhDjWNlPgNgmw5im9//ANY8Q
-erSFAA4cURUXsPtAJXFB3qiAAMG68aMHivvQ+iFSp/kJAe74JB1kHNuHixam
-dQpZBGj4lG3W4LgP3cL8EqPJBJA+VzXLmbIPpdz3xi+HE2CnYpWzbncftkcj
-W1qsCcA1ua1lc/gAtDi2bpqYE0CBnsKdwHMATfaSU3VGBDjnzPKKXeUAjkZa
-lN7QIc+HRs7Ax+8A3tb41+uKEyDX3usK6/cDeJphY47/i4eCcP8FpdMUKE22
-9vhiLB6UGg9vJ7hQoJuZcfcZI/HQSFNC+/McBZIp4j8Qvo6HqaQ5TFIwBVrS
-T5MVOo8HkXyX078SKdAz1QX9SHPyffr51OeCWgpkptghNsGGh3Tmo7kcWEpk
-krHKLZ46D1ib/pfnpSmR70pJfFnCPLx9GFzdqECJ3t97kC0fNQ/fRF8PBulQ
-Is3jua3UQfPAoiLJ2GVHiQyyCEUiZuR6w4EvNCaBEtWrn9hloJ6H6Lw96/VF
-SpR8ZLVr5vwcWClVXZJbo0S7d92YRdznQKTpcponiRIJVVmxWzrMwaeZhW/f
-aKlQbZHftXt6c/BXYvTUaxEqpPk71jJGYA48X7238LGiQmr8hpyu7bNwojrI
-dKSCCpVErHKuCM4CxcAUqr1BjVKCgiJ+PJ2G2F/1BTf+o0bvKvIe+DychsMU
-OVRat6mRs8SQHuH2NHAcOfP5/QNqVD15PuJL4DRIJPQZl7+hRh6NAef+qU/D
-SZ1my0I8NWLu/95v1zYF958+db5tQ4P6O0kg2fMTJK/4hNrJ0qI3J4WjjZLG
-4Yj2T9s8JVpE+e9klcO1cThK4ai4oE6LXp26cTbMbRz07pnio/Rpkbtv5esN
-5XFwLZK3e+lMi25KM+Hbh8fg4eBfRaoUWkQ/F7bSLTkGtGpRhPI1WuQfxCZA
-7BuFuY1MB8Y6OrRpmhpz5cwwFJ5QvTzRQofebW+JYAyHwS2pN6W8kw41yJcH
-TigNww9x2g7bETpkffkK4R79MPTZhug8WaNDWjfF8uuqhqD+rTnmiOwh1LhX
-9MdRaAgyAykXLDMPoYuVlnusK4Nwcv7CzfRL9AhJl6sFf+kHo5u4Vwah9Oj1
-SWz7uQ/9oMc9/mMzkh5xRrlyeD/rB21DC82z9+jR7x27vNT4fpAtVlzDPadH
-4xUu9neM+4HRe93v/Tg92uvzxe139UH33E27EePD6EL+ytesyW9gOZcqJyLC
-gMZ7207fseqFbrm5QWdxBsQuoiDrptkLZpc1IrNlGVD1PfcTxpheMKGa/Man
-wYCOiLRQWK/0gB5G7hqnFQPalnTmM03rATXn1kb6aAZ0aTo4rH6oG4QGSfZr
-8wwoP9MY73CxCxZaPG+1v2ZE8gSdDdnBdhBNG7mQXMmI1Jxc/Cvq28HO1dLe
-roYR3VD9E2z5oh3qt7Vkp9oZkUH2iYWayHZIP8I+uDXLiKpkPwyHyLaDTmaD
-lJQAE6qi9RvTi2uDexeEvsbFM6FRiTvKFCZfQIF9SFjfjRklVo/kNey3AD4J
-H/3Amxk92ko882S5BXIYtggEf2ZEdErgj59sASYavnf3QpnRRJtn9K36FljY
-PGM0lMaMSA5nB1ijWqB4fCLo/GdmhGVp9U+hagGhkvmGFBkW9JFWYLWLoxkY
-YMNjfI0FWS2tMmEcGiH0hDT9hx0WdKrMXnDYuBHw+mfLUihZkQFH8PPHWo3Q
-bNK0o8fKis5WijEbCzfCDZuk+y9kWdHmwVadb2cD/PaWaL3mwYpwBkJRJcv1
-0H3PXpr9KysSOWY+1WNSB8ZLTltYezbUfOHYpDV8glyumIEoRzZk5x4p3iH9
-CdZ1XpaPn2VDE/7OLbYcnyD/zq7vQ082VKSc3F44Xw07Uk9GDgezoT0LLZxk
-UjW88pyoXrnDhuRWHMYqflYB24hbRH0jG5Kd3laPSP8II81elE7y7GjVapQU
-IvceVk78ELipyI5o+L1/3xR4D4eaTh3NV2FHrDeVQh4efg/qDdq+eE12dDr6
-MNcKoRIyath6QgzZ0e4vvRsGxZVwqrI2664rOxrLPQj1w1bCl2IupbpUdnRs
-bVnHTrIC3t/+7IrZYEdX5Yuck2zeQsnJLr6EbXb0QaD8SbT+W3jM1N+/tMuO
-PH8lLMYefQu3Un8a1VBxoGc5lslveN6S6/UdBQc2DlRiTJdXOPYGZp4rHdyV
-40Av1l7oEH3fAEvbk7wtDw6kdSmD4yxnOfjQXp3q7eVAv7WldRt+vgQB0Y7h
-3T4O1FyYZCrR8RJ6NYW/Sn/nQNxsgaU5716CekBrXfQYB6qYUZNrjXsJdAPc
-2epEDoS1H7i7JP8SivM/2OdScqKn1O6HMiNLYU5nuzPwKCcS8P6t+0vhBZwL
-CX/P9JgTXVJL4k5vfAbqKpPvZXI4kb3a3Gx42TNg+Is+GOVzov9ktjiuPHkG
-by7Rfbz1jBNdFS/0Tgl9BnvBaVXr7ziRIC/KC1Z+Bg8vPq8Z7+JEHPXP0geK
-i6EjYKDp1T9OVNtu29ibVQSKvnK95h5cSPaigrJVcSFMnhe9+NqLC6lObJ7Q
-fVAI9wI42Vj8uBC39pCielwh/Lq0a/01iAu59XFctvUuhKcRXd+tI7hQk46N
-mYpkIfCm+084ZHKhFqNqquulBXBQ+3LRvYcLGb5Rfdhdmw9fOeQZr2pxo86o
-rh8pTLlwPDDwV7YuN+LcqhXzWM+BsraytmbgRg3LrZOG4zmQHKEcy2bEjbaM
-4iJMX+WAOV7930sbbrR9z/S+hkUOdFaf+DPjz41kn2jWFKQ/gVb30wNWudxI
-RaHkp4FcNtSURWfLU/MgmZMBdkWpWUBnbi+QSceDzAzf7mqEZ4H1L6lHlAw8
-qEZz2nrSOwsIuJ6HQ2w8SCpktsNTJws4H/Gm3xLhQc7ClThTQib4x7y6PajF
-gwaiMuJv6mWCoOPQ1YhgHnRscoSfj+4hhFPKWnVP8CBPgSjsSP19wBswjkhO
-86BX14PEVl7fB6vbi27/zZH7wzI+5sm5D+Ks5RfVf/OgvectX5LD70O30NGU
-/G3y+HI/v5fVug8imsd7r3Dyol39DRO6j+nQHGRjLmzKi8SUn9qTatOAYfyG
-SVAlL5JKjHhfPpkC6tdfMKd85EVGbPf9dFpTwINjpL/8Ey+6X6gSPPYyBapM
-1FxWG3mRbqKkrmNYCrnM/HPpSg8vSm/2o9bnToGmZK/sG3heZC+U7vLVKpl8
-Xlkux/PxoZVD4YYOQ/dg/plYRl4EH8pQ9HgzznsHFmOnSdS3+NCuP9MHfco7
-8NezwM0vhg+Zmr6zqF9IBApRMTnlO3xo/azyn6W6RBDIxDQ3Z/KhL8b04mre
-iWCVILoy/44Pta786bb7eBtqfYXN5X/xIVz8mWbf8wmQIc1PU23PjwzcmRgj
-KePA2VXy+awjP9J7K6sTvRIL4hmqJ1mc+ZHU+QzJjJ+xUHlgkXrOkx/9NV6g
-mq6LhcGhaCGWi/yo99LmE+HwWOCMWzx67jY/Sh906OXbjoH06QZv5hp+dIYi
-7FX3bjSkPvZp88AIoFvND/6uSv0H169FX47ACSB17oguR4H/wNUmVzRTUgCZ
-hOf5dzL9B/IMQ9e75QXQR/HQnz2rt6AjzFBaQ0sA9V+Yf25XewuozognMtkI
-IMPjet5OtrfgKu/MyY8xAuiV4btAAY4ocMpw6WUiCCAZq0+4SmwECFUwCPov
-CKB1jTzeaIYI+Nn30bdjSQD985H+4fU3HLxYOSjj1wVQm2xRjF9zOATd+aJ6
-QCmIbh6mue5zLhyibyk+WhUSRIIV+glHXtyAFwGUXkM2gmi3ajIrWD8Mtg2K
-SXn1gsg5sqlAp/waRNTkxXxuEkRqBMuCQznXgELlMfOvz4LozpyB7syda3BI
-NEVMpUsQNZilcbf4XAMeUqjp52FBxFXaxqoieg1UX5s/Iq6QLXnAXpN+FYK4
-1zWVcULI54j2M9nYKzA7rxfanCCEaDInUqWSQ0Avr7dQ9q4QGlNzWaeODIF8
-R6ee9GQhxBkZ5rEcGAKuXZew5x4Iob69GqklixD48Sa/m/qpEPpILcGexhIC
-/eH7GMN6IYT+tvz0Tb8EzeyfOtrWhZBOqVX7wdNgKDymLNjjIYwusxQODI8E
-QrMlQ8yulzDaomhwe9QYCDNuswsyfsLo6qxyTlBJIOCiH3yKDxJGr97KLtqG
-BkLRF9IZFC6MNG0+CNPzB0LxqeasigxhxGPygfOwawCUeNjyPG4TRvUvzlFT
-bV6A13FX2X2PiKAKbgGXHCc/WNR1iY5TEkHfgmwNNY39QH7dYO2pqgjCxeXn
-zaj6Qakn1/cpLRFU9c8szJvZD0qgIsvJSAT9uT1/AdvkC0WkFVFLNxFkyNz+
-IUjOFx4HBiiopYkgPkEP930GH0iwP2dGvSGCLpfU+cSsnYPCU+PO3tsiKF2J
-imQ8cw5qTe2D2nZFUEJlRKBg3zn4e8w47S6VKKJgr+hYLjsHzpJyw5xsokjk
-yuIvQ/9zoLL111NcThR9F6pqKcV7wmRW9A1DD1HUz1A/tU3wALXxghcJPaIo
-xbw5j4/DHdgU/LbLv5G/F003hKN1h8UoBeORAVFUi83YC1lxgyJczZz0D1GE
-GbSgo69zAy7/QdFOvCgK8Fciypx2g50IajM6CgyasHh/8XiKK4wyqjeZ8GPI
-f691KVosLpAlk/26xwyDYpPZc/kNnGB9zag4xgKDMh8WTUodcYJT9X+faJ3C
-IIo3krIneZyAzvbkvWIbDCJJHGR3Es/A1QjShZtnMIiW8zZNdfIZsPl6WvqI
-LwZFvn+B1510BKarXE/vRZP79yma9b97GqIak7LMqjGIrtP7+6KAPSxMNGaQ
-PmGQTLsRywC9PTjsrqU+r8UgoULjnvZNO5BXd0qkbsSQ6+eQkpl+Oxh5KXmj
-5gsG7XZc8ui9awcqmQ1n5QYx6Ngh/ss3KOwAH7gqwvgHg2b5gaJ73QYsBO2L
-O8XFUBZL6mAZnTVkzSk0npUUQ6xuHLasJCuYe00/tiglhlxv0Ffd+G0FEaiW
-jVVODA3IXuEI+WYFr7xxEbbKYuhJZRfPzGMrYHizajN+TAzl/ZScalC2gjaD
-ZIplBzG01SgxdrHXEk4EtZ1lTxRDh2hEWD9MmsHOyC+jz3fEkEsh/+rtL2ZQ
-qc+kcv2eGFLnXO4KLjMDSX5r+okUMYRjDMBFRZoB0+cflSUPxVBloIZ7hqgZ
-jPAvM6MiMaQ9t3o9zfskBLdyNQY1iCEWXtrrzhSmkCfkKd69IYaWJ4ddswKN
-QFtVTsFzSwwFLd9cDTxrBIOm6xrb22JoKb9V28bUCOivx5uJ74kholdWk5GE
-EQT3lYZEUGHRzPVdu8kJQ0Dxa43yrFg0qh12us7aEGb+xLokSWORNVfd2IK+
-AYi3PH9oeRaLpt/GTRac0oNe+e2icWcsign4ms97Qg9CH5pUXHDFoid9LctZ
-KnrQdf7X13gPLFo8RH+4nlsPQtjkDjf4YpFtLJdm2vgJaHApC1e8gkXOmbH5
-tgEnwGm70p0tCYss3RlYGTMQpB5plu2vx6KGQ5sp4zTHoUTz7OHoRiwa55Oc
-oPh9DBr01wnKzViU4hEdrNN3DJbPSBantWIR4wib8FrOMTCLvyNq3Y1F/OGO
-oRc0jwHdTxuub6NYlDb9tMXvki6Ep87+61nHIjaOx7a4NW3wWaPp65DFIR9x
-u84GZU1wLTXodZbHoeAcbKO5iCY4eMR2/TmCQ2/7ohx/MWiC0VfqL9zKOPRd
-pfS49ZwGSL6kqvHQwKFsa4uYH5kaMO9JUUzSxyHalm1sO6UGePXvhsq44NCS
-b7lPzZQaeL79i0lMwSHH5PGjke2qEBBtu3cyDYdOH/cwr/+gCldtK4eZ7uNQ
-WkGNFUuxKtzeuJqc+hCHfHWH8RP/qUKZFmk3MweHNlFdjZauKpCaDoaevcQh
-FGrbOVyhAqn9TEmf23DIzomPy7JMGR4/DfSL78Ah5tiMw5dyleHplV59ky4c
-Mhks1S5MVoYPPKk7Xb04JMuZI6R4URnGnTj9Br7jEEvGaMSqkjJIzfLrz8zi
-kMfZzjrmj0qgVHlDpGgeh5i+nUpkKVEC7bgxkjcBh8rmfDqEHimBuVTOm18L
-5PatDNc9wpUgxB8jsrqKQ6rvujTvICWI0P2P9G4Nh46LHD2zoawEccwzg1c2
-cIjKsS05EKcEWeVP725v45AzJo4hjk4JCm/R+H7awaGtydIQkxVFeGntrRex
-h0Nr6xo5+QOKUIn9Inx8H4fuxty9yfFREerXJEkHBziUYZWxl/NYEf4HOcku
-zw==
+1:eJwVlnc4Fd4fx+3M7L0uV8gOyag+x6qkbCozI3tHIdIXWaWQrWyVsgpllJXs
+mRGi7HuJIuRexO/+/jrP6znPc57zeb8+5/McEQcfkxsUZGRkreRkZP9fn911
+oDnh9ODstOZbkZOTUWfbhjGXrmDcoIIpRakd4wiH7Y2RGEwwjEa71KdhbsKz
+5gRhakwchHI597ljIsHzTKDXjnAmyC0f46LCPIHhPdeUdeES2NPQaE0QKoQj
+3+Yk1oTrwH6QyrKDpwryu3P9fgp3waFlzoUW8k9QXhH3zVNuEiY1pqQuOA2D
+CwxlrvrPg9P27WqlqW9AVvC3/tuDeWheLT0SsvcNMqgEprqL5mEv705DBd8U
+dHY5C5WMzcNNk45d/NUpkDTbL7ihvgAdol7DiSNTgHeVKP1OvggpFxvxxZ3T
+4J4c1jiYuATFZSX5LoU/wHvx+Hx1+TJkZWkGND6ehRnbCdqWrmUYrJabkciZ
+BdPxWLm+hWXw4wzZiyqdBdUeXPAi3wpkkTHw8HXNAuWbYhaumBWY3+f8Uk4+
+BxmhImdv2/0EcYn48mDfOWhh581UY1kDvb5aChOdeVBO6GzUlV4DG8+IJCHj
+eXhOE7RgfG4Nxuxyc6dt5uEhcUzePXQN4kTUuJRuz4PFj5T2LPwa9Dl2BqqX
+zMPKK5atveZf4LOe6VRFvwD0IlESP1TXQXb/uwL7pwXoPJ0kf1d3HTzy1acc
++hYg+mrOKUGTdcC9tJku/roAFIm156081uEzC1Un9eoC7B6sunx9tg713D1J
+MhyL8HPK/OUAxQYo16a+ZHFYhN4MiePNvRugoCrDQL+1CPHVyifsJjbAydJy
+tXZ/ES4MaqodLG6AxJkCd0vqJWg7Yq13+nAD7pdEHA/kWoIPtxLdak/8gbTX
+LsJ0qktQZkYsqUz7A2o+rWHPg5bgEUuPVP71TWAP7T+f+nsJ6k4J1hh4b5I8
+AiN2ZwkWbH1g/84mDAgvOeUdLIFGGbvZlfRN0PEP/OjGhAO8nnUYU/8mRF9L
+CFKRwoF25NpAsMYWDDTuFVVdx4H3K7CU0NuCE/FEbVUXHGQNJS2MWGzBxzxa
+iVIvHKwLqxDl/bdgkPbPc/sQHOR8uCu69HIL4t9XM1M+wQFhmznQhGsb/Inx
+9fwtOMAKOhweYrfhs+iZB8ntODDQqY4rO7ENDx2+WBF6cFCcfDWH9vI2EDBa
+a4ljODCRz+9ojNwGjIuY6/YKDu5abBp7Jm1DIGNs//xvHJSE6U7x5m4D+Wtt
+7pYtHJD1Lq8H1G/DecdFzQsHOChzVeST3tiGs/w3n8Wy4GH8cVTR+ME25OvN
+vl/jwAPV+zG5aMa/sBkvnaXJiwdL6jvasxJ/wW3hsKRGBA+0BZ88023/wtNa
+hsL+E3hw+GbWRNn7F7Rar0a3GOCBPnvWy2/iLyi87gukMMHDW0tvgR9LfyE4
+8EqBojkeKCdjguvJd4Ds9M+S61Z4KBqvV/I7tQNrhzdUN53xcCnj/Nx3nR1Q
+eRw5WuaGh60rI4mXTHZgcvVG7hVPPOh+XVuT8NoBrJjs2yA/PCyNYl5+L9iB
+wVmNwvUQPDxKLbO4VLkDtULFgWJheFAxV6eu/7gDPLJuLufD8RAzYuqQOr4D
+ASnHCy0j8aCQMsNCubQDVusWKxfvk/Iw9Wry3dyBxGOa+lIxeJAcjha4dJQA
+cmpy5u/i8TCYzN5Tx0+AK+eb9hwe4iHIJC9Y4jgBmBKPvz9IwEPXUN0YhQ4B
+pr3EXSmT8OCfdO6+rzEBHoUUWXkm44HPeFjpuy0BjN5+sWt7ggf3wdXEumAC
+TP5OS9NMwwNbYjBIxBBgpSewwzkdD/WGNL9SUgjQeS+N+k4GKW/mJ08pCghw
+tFTd6G4mHhgGhPV9KwjAllXx3DcLD9WPSonTHwjges6A1iQbD9YGai/1uwlw
+2fpOgOhTkt+j7RZ1XwnAeerFyiyJS/tMqCUWCZA4d9k98RkezBJ+VKX8IYA1
+/84f2Rw87F/ydKAgI4K+oUpUPYmLGIksvkxEyHj2SlAlFw+Xe+83TfMR4dTX
+g8Y8Ev99wOatL0kExvBll10S5+jnCtSdJAJvtwyPdh4ezjHI9IhrE6EmN20g
+hMS/umuDU4yIUJxJ9iifxGnxupIUtkRQpjIyfU/isxe/jPl4EMHwe6DwBxIv
+0dndnw4iQsKE958KEj/u+qmkH00EAUvt3mQSq8YFzdU+IcL8rSNlTiSeuUCd
+JJ5PhKvEyZRjJI6lTYaUciJ42CxHjpLup9Ap9Iv8AxEChtxCAkg8HvP6qU8X
+EWhVcoMoSHzvvKr+9BgRWgXH74aT6pc88pl4cYEIIn3eCT9JeQ22G7+s3SCC
+onpX0TkSB0V/txA/JIIV47XPiaR8Mec8qFMYd+EwO/t3F8mH3+coBx+JXQju
+dHWkI/kSWjhH81dpF06GxB1gSD57KOhehaJdkLodNnGc5PsYStiIu7YLjPuq
+xsyk/vhia5jK4rwLYQHav3+m4CE8jFUt3X8XbvK8GKgj9dNEfeq9oge7QENp
+b3mc1H/RE1fEpDN2IXAD0fQ8xoMSgbfzTdEuqFgm7Ng8wkPCyRzmpo+7kMk5
+U3blAR40K5/nTPzeBdyf+MisKJKfflet6/u7EJtVHtAegYfsNamlJdo9EJZi
+qpq/h4dtqQrZLZE9sOqiE/gTioeS4vcfjprtgVb3aLNtAB4s2oKvp17fA8sG
+lzOc/qT3P69BJeC1Bxycp1g/+uDBBtOsfzx6D2ZdVdpm3PHAmt05qV27B3s6
+Z/8Luo6Hxrr4u91te/Ath2q2zgYPHuOXRI2H9mAl4EzRqiUePnMOudmu7IFg
+S4eVOGm+BCdOEIIE9iFMx6955QIexCuynx5K7gN5QrPne108DPfZoOiT+/AS
+i48P1MKDLMNczBODfRiUzBRr18DD7P0VrvJ7+6Bjdo2mTpY0T4pK65UT9iGv
+jCqEVQoPGp+8bRsy9+HvBwFfK3E8pJJtFne+3Yek8IjVT0J40Luzpzy/sA/3
+JNOdcUfx8MaX0ZRH7x/QSS+Gh6zioDeLPbjM4h98YMuVjcPhYKmNL1fL6R8k
+s7uTxczhgI/3+E/P8H9w+oEd1mgcB1EtupEtNf/g4FdqG88nHFiwhVe5ix7A
+xBvfruhUHPiejp44lD8AXu/VuLjHOIh3TjhMOXMAWuX3y+7E4aCpPlu/6eoB
+/KiWl5cLw4GkY+08++MD8LbqSut1xMFu1Qb7x70DiFmLW/8jiwOO7wQ1E7pD
+wCsV7q+J40COluw6jusQkm8/rRkXxoGj9dFSVsVDyK1Q1gpjJdVDJa3j7HoI
+RfvPzSi3liDH3CmAefQQhm1uEo+8W4L8Ox4rClfIkEaqoRef3BIoNNMRYmzI
+kKfpraiKY0vQTPWS+ocjGQrXDjtUEVyCmYQFTIIvGRq+SaMiyLgEQnk2V5bj
+SCwyonp+eRGy2gzb8j+Qoc5/NIZc+YuQzKScwyZKjm5891HvpFmEiNx9461V
+chT1YMp86PU8GCnU+klvkiOvCpHLrnnzINRyM8mBSI4sKXjLNlPmoX5uZXCQ
+mgItDii34sLm4c+xCcMyIQpk+e002TnDeXAorbnsbESBHONyJmd+z4Fmnbfe
+eBUFumtD/N4iOQdkwzPoQwgl4jxm7hF2bwailhvzQ/6jRLX/3Dsu+M8AHdkz
+CrVYSvTpAo8txmkG2GSvtdWkUiIqb3HWrfMzcCxm6HxFJSUK0I1xk2GZgYsa
+rQYFS5SoPaaxtkL3BzwpLLSONaFClp3bDc/zp0E8wDnITIoa+aTf2IrLmgRZ
+9R+muQrUiJc8eEjq/iQok12VX1GhJuX9dmLKZxK0HuothWtTowb1IOUA3Umw
+LZIxe21NjYJ/f33ivTEBaSN/5CkeUyO694Ki0ZcmgPpkOK5ikxp9JPfdmD86
+Dgvb6RYMH2nQVVvdb+kto1CgqXRz+hMNsjAof/K8fBTsEvofV3TTIPV/Kt2f
+s0dhUoy6y3ScBml1agedvDUKQ6b+Gk83aVCQ9EW9celRaHxzCSMrdQQFCwX4
+CGeNQLoX+YpB+hFkliLRZRoxDBcX3cOS/WhRFA3bk5C7Q3AuDFuqE0SLxujC
+QqJ9hkCLc2ry711atCDOJpV7fQjUdS+rWj2kRRriLO/+ag2BVLH8JvYFLcpv
+qjc+QzsEDDe2XGumaNE/lgNV4dRB6F0IMxs/T4eyL8+ZTfgMgMFCorSQED3i
+d9M5SQm90Cu9MGItRo/ozr5TuivZC/o3T93NlqJH9ZZ24gxsvXCB4vsgzyl6
+1H9RpMJysQe0MNK32I3oEdMp5+b+hz1w0vpzM20EPYo12Us7+N4NAiNE881F
+evR1NotMMLELVj453OssY0BK3+wZbot2gHDSuPujagbU1CATeutoB5jZGpib
+NTAgHy4l1ZjddmgkqEnNdDKgLhoFi6kv7ZAsyzqyM8+A6H55xptGtYNGepOE
+BB8j0qYfI3db+QwP3QUG7kczoh8PB6R6W9tAjnVMUNuOCZm12BaE5LfCUsJS
+ROoNJuQeLID8klvhGf0ODufBhLgqCskCIluBkYrn7cMgJiT8Bt/67EYrrPy9
+dm4siQkJyP3T+E+qFYqnpr3d2pjQC3L39PB3LSDwcrHp8fGjiI2s+wzP12ag
+h237qc2jqK68PjLGrxGCNCVp3+0eRcYX88rwFo2wpG1V/picGb0ISxKyP90I
+rRdadrWYmZFSypmo9CONEGKS8KREihk9lJY7zpP7EX7eOPb5lj0zUqRLdL7y
+5QP0PjSXZB1gRhe4JHN09Rrg/Jrljqg5CzL6JRsxFlALORyRw+FXWRCj2VGX
+r3a1sKXxumLKigWNfnlqsnKxFvLi91zSHFjQEPPKoa5ILexKPB2n82VBfp+U
+qYf730Opw3TdejwLIsSRB6rIvgeWcbvQxmYWdJviq23D3xoYb3Uit5RhRV8S
+mzxL6qpgXXOSL0yeFdUItiZPlVTBkRZD5TxFVlSd1nxdIKsKVJrUXZZUWVGU
+qUxvS0gVpDSw9PnrsqJXIbPtBaerwLD6Q8YDW1Yk2SyaXt36FtqLORQ+JrKi
+46dqsoa/voGa2DZbzDYrilyl/riDrYSXF3t4YgisKDdv98MmZyVkMX75srbH
+iqrCUvB7RyrhXuKPcw0UbEhoc1vBfryC9J/elbNgYUNekiPuZu4VMPdC4fCB
+NBtSL/F/+Sq5HI52PM3dsWdD0oe7m7FbpeBMHTjT38+G5rMGRyYIJcAn3PV1
+b4gN0cKrsu75EuhXFRyQHGVDjDdmMnv7S0DF8/PHiG9s6PYDhkDK4hKgGebM
+VsGzIeXzfjUaJiVQnPfOPIecHYlZBtzprngJCxqEbi9lduRnE3KW6vYLcPS/
+U8OYxY4Mei2IWKViUFH8XnP8GTtqw9S90xMtBvo/6N25PHY0r/dmIpS1GCr9
+aN7fe86OwvS+HGNYL4J936Tarbfs6B6urry9rAjSfF40TPWwo2KRAptK6SLo
+8hxuKf3Hjuz5dN/SnCgEeRfp/kv2HEjr4VXZZ3b58N1N2KfMiQM506tyFRjl
+w0NPdpajrhwobYZypUozH5b99owHvDkQXnnq2AE2HwpDe0aNQzlQwDJtnfRy
+HnAne0xbpHOgp0EKzbOBeXD44fXq9T4ONCYmmjutkAsDbDIMgWqciPztXfHS
+w2w46+W1nH2aEwUtOX/FLmdDeUd5RytwosdVAa/KvmTDo9ATUSznOFGSX1no
+TnE2XFpS+ffahBNZPJzQcLicDd11mr/nPDhRn4PZs5jcLPh8/cqwUQ4nEra8
+SllplAkN5RHZMpRc6ORdwvqD+TSguWTOl07DhaYdXQZSB9LAeFkik5yeC1UG
+OXO9aUgDHLYvbYyFCx3hds3nT0kD9kzu5HtCXGjWOY+6STcNPCJLY0fUuNAb
+2U0KxdJU4L86Fhjqy4XkdyKNHO+nwB1yKaPeaS70vMjZ9feNZFjSYRgXn+VC
+d6H/vZxFMhjFrtr9t8CFxizoou6cSwYx5goflZ9cKP7eF6czEsnQK6D8OI/A
+hYK122jsl5NASPVsfwA7N9oJaFoQ9E2CVm+TS4J63Oj9oe4nTEwi0E+FXPCu
+5ka7b5qm/r1JAJXbJUyP33OjV7s4hXNZCWDPNv6lop4bZQ4G38qPSIDaCydt
+Npq50TVP+8xE0wRwrvntF9DHjYa3UzMN/z6ElkdO2SFL3EjWwvG+NjwkzSuD
+X9E8PEjTVCX82fd4WHwukpIbyoMWDkSS2IxiYTVqlkh5jweVVhkZU2nEwh+H
+fDvXSB4kTp5/mVY8FsiERaRPxJP2meMazu3HAF86prU1nQd9xxfVZJfEgFGM
+8PriWx6UzFWXkXEkBj64CF6SWeZBxySIoQGD9yFFkpeqzpwXreQO2iclR4K1
+rfiL+au86Dne+XRjRCSIpShdPGrNi1TNPOd2/COh+vByoqMDL2r+6eGSZBoJ
+I2MRAkd9eNGoe9FJa85IYL+/quwYy4vuaWqRX8iOgOTZphtMDbwoicF2XbHy
+P0jMcu6wx/AhsbiOY3GEcLh9K+JmKJYPlT69hjvxIxxsTXKE08X5EDFssvHX
+53CQoR+73SvDh7jGaXyLnoRDV7Cu5Ck1PnTmuQ3mQD4cKK6JxTGa8KEpt3uM
+Np53IZB77uL7SD4U/YRGwXYzFCxTbPoZcXyoZtRf4sypEBCoouf3WCGd73C9
+6Q0mBH4MvXfpWuNDp/vC6tXoQ8CJmY08eosP2f0tTo+cDgbv+HalQ3J+pEdu
+LfQvKhgi7slnbgjwI2YhXdbgr0FQ4knuNGbCj/KTJCmPxd8Ggk4xMbeRH9Vy
+6dvtiwZCaENuZFsLP8IHJVrQsAUCmWIW03IbP4p04V4RJA+EI8KPRRR7+NHp
+Da36wB8BwEUM0mv7yo86j7sNtD8NAKWyS5n4dX7kq8/tucgbAN6cW6onsALo
++0LEsR7BmzC/qBXUGiOAHjS0cNBd9AOt3P4CqQcCiMlP3uFQ3Q/yrlr2JT8S
+QDFR1G0UMn5g2+Mn6pgqgB5x30xXOOoHk5V5vZSFAkjRS0VTYtgXvtw5wOg2
+CqB/uzd/3LLzhVbW+q6OLQF09edvt+cUPlBw5gR/n70gcrdsib0z4AGtBvSR
+e06CqKEsI2mh1gPm7OZXjrsKohHZrk27Ag/ARqTWR3sLIqvKwtiEQA8oaide
+Q3cEEcfNBfNWAQ8oNmzNqEoRRBjH7bf3vd3hpb0pV1aHILq8Y/Yfs7AblN0P
+ZHWRFULmUV41ym+cYfW0TcR9BSHk2JfrLJrrDDJbOpuFSkJojYo3VCjBGV45
+cIzOqAkhe37W55puzvASqjIszwkhtUCP94qizlBEXBc2sBNCRj+2dmrSbkCW
+l6fcySQh1EhfQb4V5wQx5o76lNtCiPGN0yuKdAcoMJyyvkEQQjw6tme3oh3g
+g565d8eeEDqkTa7cvOUAf86cT3pAIYxo9jsP+a84gLW49Fd2FmFUWJu9z8Lj
+AIo7fxzEpIVRJjZaKuKpPXzPiAjRtRdG7Ee91E5UXIeTU/klMX3CKGSrS6/l
+jw2wyLkSKgaFkZ7frytPJ21gNVzu/PiwMMpQk5yOb7WBImzDguSkMKqaEj1a
+kGwDHB4jwt1LwqjzAG/+XskGdkMp9WnIMKiUYEbpG2wNEwwqLRd4MUiwxTGh
+ks0KMo5nl/XpY1CT+PeWi8FXYWvzXHHkZQwa7k7sWXa8CoaNf56qGWKQcAlP
+RLbBVaAxvfiw2ASDFJ0Dq1XErkJgKNE97BoGkXnyu10cvAImA1ckZV0wKPjv
+NueE9BVgDOQofBiBQf9lzniLr5tDeHNChn4dBt3Mv/JT+5UprEw3pxDrMchm
+bdrYOdMULPY2E198wKBB7mvy6bGmIKNiGUfZjEF0npmCYi6mMP5aPKShHYPC
+n0Z6L4uZgmJ6k5X0CAad7Lx1lrvQBJa8NoQYfmPQ8jHutNISY7jMb17cLSaC
+RkWiNh7WG0LGglyzlbgIcttAU8fzDWGhjPbbqoQIEonm5v4WYwih6AMLs7QI
+CqMQOB1ibgilN7ChpidEkLxFTnjJhgHQV26YTJ0RQUvy0TsfZQ2gQ+cR2S8L
+ERSz/DHduPoSaHp3WLHGiaBEXG/T3I4e7I4vn2uLF0GPTat+W83qQbU2o+Lt
+hyJocFXgFb5bD8R5jWmnH4ugONP6kNM5esDYNln9Mk0EcZpyV/fo6sE47y8m
+VCSC5kPfHQRnXADfzxzN3k0i6OVQbXqR/nnIFXAQ690m1TN388Xwog6oK0nL
+OeyIoA89yfFLIzoword1ikAQQRe6jbBH2nSA9na0vti+CCq/e0HPr0AHfIde
++YdSiKJffP6KeDsdQNGbzTLMoih9SmLDYlob5n5H2SRIiqJSzpGitVktEPv0
+Is3AShS9kxr5r4NZE/plCEVT1qKoOVYXNCg0ISjtQpW7rSja+lDdWLeFoMdt
+eSDaXhQdFXedHZtA4M8iTdfkIopWeXM6E4sQNNmU35EPEEWvork79zQQWBKq
+r7MkiCKXVeUbKwtnIVG2VepLoyjqXqm0CSdowEtVK7qIZlG0Js9h6TKjAU3a
+W7gTraLII+Uxt1OnBvy6Jl6c9FkU9ftbPcrO0AD96Hhh415RdIs6NIRMXQNo
+fphwDE6Iov0mC0LyPXW4kzj/r29LFM0fTP1xEFAD502qoS4pLDJd+vgX80AF
+bF/p9FvLYNGev1gJebAKWNhH9fyWxSIujoPVdWcVODdA2c55AouqJzR2d7VU
+QPw1RYP9KSwqWT6/2LB3EhYdyIqJ2liUo2Xye8nnJDh92Qs6boNFdg844YmD
+Mji8+YOJe4xFBB359VVvRfCMMN2/mIRFC1Ix7I62ihBoWv2V8QkWvXoZw4S/
+rAix24GPEtNI52ddNhKSVYRyNeJe+jMsklLiylVfPQHElsOx56+x6AvjPaK4
+1wlI/MKY0NaBRbdPpn4MDFaArEIv1+guLBr10u8tc1eAwoB+7Qs9WMRw8UBw
+00oB3nEl7vb0YxHNo17L4rMKMGXJ7jo8ikWh9v/9fk6lABLzvNpz81g08Jvi
+haS4PChUhwgVLWIRu8EjKRV6eVC//414A4dFhurSLda/5OCSxLPK5RUsmlyv
+7Nt6Jwf+HhihjQ0s+liw9eeynhyEnv6P+HYTi57vRD8TkZOD+0xzIwHbWKQu
+6FDCxC4HGRWFDwgELGqMjUmQm5aFgntULvW7WPRJ7LK6Y6ssvDa+oRW6j0VX
++Ew2Kl7IQrVou+DZAyw61kb1jCNBFho3xYmHh1hE8XVJIslfFv4HFzk/YQ==
+
        "]]},
-     Annotation[#, "Charting`Private`Tag$14210#1"]& ]}, {}},
+     Annotation[#, "Charting`Private`Tag$51114#1"]& ]}, {}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
@@ -769,7 +903,7 @@ zw==
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
-  PlotRange->{{0, 10}, {0., 0.7583624694778662}},
+  PlotRange->{{0, 10}, {0., 0.7696209539853472}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
@@ -777,8 +911,65 @@ zw==
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}]], "Output",
- CellChangeTimes->{{3.879570843622718*^9, 3.879570853774201*^9}},
- CellLabel->"Out[49]=",ExpressionUUID->"a2b7c079-b84d-4e78-b408-da71e768420f"]
+ CellChangeTimes->{{3.879570843622718*^9, 3.879570853774201*^9}, {
+   3.880086754549075*^9, 3.8800867612813787`*^9}, 3.880087724555195*^9, {
+   3.880087813143466*^9, 3.880087997646585*^9}},
+ CellLabel->
+  "Out[235]=",ExpressionUUID->"7832bb28-3d46-47d5-a351-fd05f230e3ed"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{
+    "R", " ", "\:0434\:043b\:044f", " ", "\:0433\:0435\:043b\:0438\:044f8"}], 
+    " ", "==", " ", 
+    RowBox[{"1.688", " ", "\:0444\:043c"}]}], " ", "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{"Integrate", "[", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["myNorm", "2"], 
+      SuperscriptBox[
+       RowBox[{"fIn", "[", 
+        RowBox[{
+         FractionBox[
+          SqrtBox[
+           RowBox[{"2", " ", "mass", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"-", "Esep"}], "+", "myU"}], ")"}]}]], "p"], ",", "r", 
+         ",", "0"}], "]"}], "2"], "r"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"r", ",", "0", ",", "range"}], "}"}]}], "]"}], "+", 
+   RowBox[{"Integrate", "[", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["myNorm", "2"], " ", 
+      SuperscriptBox["myCoeff", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"fOut", "[", 
+        RowBox[{
+         FractionBox[
+          SqrtBox[
+           RowBox[{"2", " ", "mass", " ", "Esep"}]], "p"], ",", "r", ",", 
+         "0"}], "]"}], "2"], "r"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"r", ",", "range", ",", "Infinity"}], "}"}]}], 
+    "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.880087741923903*^9, 3.88008775501427*^9}},
+ CellLabel->
+  "In[236]:=",ExpressionUUID->"3894cc59-ff84-4f88-8130-0b3a87025770"],
+
+Cell[BoxData["1.6882859930125582`"], "Output",
+ CellChangeTimes->{
+  3.88008775773094*^9, {3.880087791981393*^9, 3.8800879996867847`*^9}},
+ CellLabel->
+  "Out[236]=",ExpressionUUID->"02d33532-4691-458b-888b-cfeaf1cd9444"]
 }, Open  ]]
 },
 WindowSize->{1389.75, 768.75},
@@ -798,27 +989,31 @@ CellTagsIndex->{}
 *)
 (*NotebookFileOutline
 Notebook[{
-Cell[558, 20, 1791, 47, 154, "Input",ExpressionUUID->"ad6df89e-d3d8-490c-ae91-dac6d80d1b5a"],
-Cell[2352, 69, 2801, 74, 179, "Input",ExpressionUUID->"2fc4ef7c-d275-441b-9d3d-7d7239f74130"],
+Cell[558, 20, 1896, 49, 154, "Input",ExpressionUUID->"ad6df89e-d3d8-490c-ae91-dac6d80d1b5a"],
+Cell[2457, 71, 2806, 75, 179, "Input",ExpressionUUID->"2fc4ef7c-d275-441b-9d3d-7d7239f74130"],
+Cell[CellGroupData[{
+Cell[5288, 150, 2232, 54, 75, "Input",ExpressionUUID->"c2ad0be7-22ee-4300-8ad8-45a6e113c1b0"],
+Cell[7523, 206, 16900, 292, 235, "Output",ExpressionUUID->"3ccd7abc-262b-44b5-b38b-4667bce6baf7"]
+}, Open  ]],
 Cell[CellGroupData[{
-Cell[5178, 147, 1556, 47, 75, "Input",ExpressionUUID->"c2ad0be7-22ee-4300-8ad8-45a6e113c1b0"],
-Cell[6737, 196, 10268, 183, 235, "Output",ExpressionUUID->"7ddecd95-d077-4b74-bbf8-e6285ce1c409"]
+Cell[24460, 503, 1906, 50, 75, "Input",ExpressionUUID->"22f1491b-05f8-4461-9d8a-7023940b0eba"],
+Cell[26369, 555, 793, 12, 33, "Output",ExpressionUUID->"b4205776-3774-42a9-8a33-cf7915e0b844"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[17042, 384, 1706, 46, 75, "Input",ExpressionUUID->"22f1491b-05f8-4461-9d8a-7023940b0eba"],
-Cell[18751, 432, 716, 11, 33, "Output",ExpressionUUID->"5e4e737a-a194-482f-a372-1fbe2ace2da3"]
+Cell[27199, 572, 1046, 29, 53, "Input",ExpressionUUID->"444da03a-39cf-4c3d-bb1b-9d322299f630"],
+Cell[28248, 603, 290, 5, 33, "Output",ExpressionUUID->"e978557d-baa8-4635-867c-ce6bf4ad2127"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[19504, 448, 906, 25, 54, "Input",ExpressionUUID->"444da03a-39cf-4c3d-bb1b-9d322299f630"],
-Cell[20413, 475, 241, 4, 33, "Output",ExpressionUUID->"3eb7226b-93be-43d1-8fd7-dced997b260b"]
+Cell[28575, 613, 1907, 49, 53, "Input",ExpressionUUID->"7835cc6b-0406-456f-a3a3-ab6f89b509c7"],
+Cell[30485, 664, 368, 6, 33, "Output",ExpressionUUID->"46e6a3ad-c2c6-4495-b04b-21996d66b414"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[20691, 484, 1752, 45, 82, "Input",ExpressionUUID->"7835cc6b-0406-456f-a3a3-ab6f89b509c7"],
-Cell[22446, 531, 317, 6, 33, "Output",ExpressionUUID->"04ad714b-04df-47df-ab06-0b100aeae348"]
+Cell[30890, 675, 1247, 35, 53, "Input",ExpressionUUID->"fc251146-842e-4797-bd33-46971b36a427"],
+Cell[32140, 712, 11288, 205, 239, "Output",ExpressionUUID->"7832bb28-3d46-47d5-a351-fd05f230e3ed"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[22800, 542, 1216, 33, 101, "Input",ExpressionUUID->"fc251146-842e-4797-bd33-46971b36a427"],
-Cell[24019, 577, 11225, 203, 242, "Output",ExpressionUUID->"a2b7c079-b84d-4e78-b408-da71e768420f"]
+Cell[43465, 922, 1391, 43, 75, "Input",ExpressionUUID->"3894cc59-ff84-4f88-8130-0b3a87025770"],
+Cell[44859, 967, 221, 4, 33, "Output",ExpressionUUID->"02d33532-4691-458b-888b-cfeaf1cd9444"]
 }, Open  ]]
 }
 ]