homonuclear_levels.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    287200,       6378]
NotebookOptionsPosition[    280459,       6154]
NotebookOutlinePosition[    280880,       6170]
CellTagsIndexPosition[    280837,       6167]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 "Electronic Energy Levels of ",
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox["H", "2", "+"], TraditionalForm]]],
 "-like Atomic Dimers"
}], "Title"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "diatomic_base.m"}], ";"}]}], "Input"],

Cell[CellGroupData[{

Cell[TextData[{
 "Calculate energy ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"E", "/", 
     SuperscriptBox["Z", "2"]}], "\[Equal]", 
    RowBox[{
     RowBox[{"-", "2"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"p", "/", 
        RowBox[{"(", 
         RowBox[{"Z", " ", "R"}], ")"}]}], ")"}], "2"]}]}], TraditionalForm]]],
 " in dependence of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"Z", " ", "R"}], TraditionalForm]]]
}], "Section"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CalcP", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"l_", ",", "m_"}], "}"}], ",", "pstart_", ",", "ZR_List"}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"p0", "=", "pstart"}], "}"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"#", ",", 
        RowBox[{"p0", "=", 
         RowBox[{
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{"RadialPZero", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"l", ",", "m", ",", "p"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"2", " ", "#"}], ",", "0"}], 
               RowBox[{"(*", "homonuclear", "*)"}], "}"}], ",", "10"}], "]"}],
             ",", 
            RowBox[{"{", 
             RowBox[{"p", ",", "p0"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", 
          RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}]}]}], "}"}], 
      "&"}], "/@", "ZR"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CalcE", "[", 
   RowBox[{"lm_", ",", "pstart_", ",", "ZR_List"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"First", "[", "#", "]"}], ",", 
      RowBox[{
       RowBox[{"-", "2"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Last", "[", "#", "]"}], "/", 
          RowBox[{"First", "[", "#", "]"}]}], ")"}], "2"]}]}], "}"}], "&"}], "/@", 
   RowBox[{"CalcP", "[", 
    RowBox[{"lm", ",", "pstart", ",", "ZR"}], "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CalcErepul", "[", 
   RowBox[{"lm_", ",", "pstart_", ",", "ZR_List"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"First", "[", "#", "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Last", "[", "#", "]"}], "/", 
           RowBox[{"First", "[", "#", "]"}]}], ")"}], "2"]}], "+", 
       FractionBox["1", 
        RowBox[{"First", "[", "#", "]"}]]}]}], "}"}], "&"}], "/@", 
   RowBox[{"CalcP", "[", 
    RowBox[{"lm", ",", "pstart", ",", "ZR"}], "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Use", " ", "energy", " ", "limit", 
    FormBox[
     RowBox[{" ", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "/", 
         SuperscriptBox["Z", "2"]}], "\[Equal]", 
        RowBox[{
         RowBox[{"-", "2"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"p", "/", 
            RowBox[{"(", 
             RowBox[{"Z", " ", "R"}], ")"}]}], ")"}], "2"]}]}], "\[Rule]", 
       RowBox[{
        RowBox[{"-", "1"}], "/", 
        RowBox[{"(", 
         RowBox[{"2", 
          SuperscriptBox["n", "2"]}], ")"}]}]}]}],
     TraditionalForm], " ", "for", " ", "R"}], "\[Rule]", 
   RowBox[{"\[Infinity]", " ", "as", " ", "starting", " ", "point"}]}], " ", 
  "*)"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ZRrange", "=", 
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"Range", "[", 
       RowBox[{
        RowBox[{"Log", "[", "0.05", "]"}], ",", 
        RowBox[{"Log", "[", "32", "]"}], ",", "0.1"}], "]"}], "]"}], ",", 
     "0"}], "]"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"p", "/", 
        RowBox[{"(", 
         RowBox[{"Z", " ", "R"}], ")"}]}], ")"}], "2"]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "1"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", " ", 
       SuperscriptBox["1", "2"]}], ")"}]}]}], TraditionalForm]]],
 " for R\[Rule]\[Infinity]"
}], "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p1s\[Sigma]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CalcP", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "2"}], ",", 
        RowBox[{"Reverse", "[", "ZRrange", "]"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", "#"}], ")"}], "/", "2"}]}], "}"}], "&"}], "/@", 
       "ZRrange"}]}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<p(1\!\(\*SubscriptBox[\(s\[Sigma]\), \(g\)]\))\>\""}], "}"}]}], 
    ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Blue", ",", 
       RowBox[{"{", 
        RowBox[{"Gray", ",", "Dashed"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwtxQk02wccwPE/6mgcVcdcCSJIWou77u330zKWTlfGW1dle17jWHVdh7qv
0rWdlnpbjUc3Fdq5qec5t5RoaIsQRx21MIxFba64j63v7fPe932pQVd82NIE
QZz8r7fXlFvpf6D1PvpXBYvT1S3QO9PC5YaTM+5EHKfL2L2LsRkCFUuOAzLu
nd53+ukYnsl98us2yw6/p9eY33KnI/ZExEyb2aLvSKrTvIkJjgt8+HFojWTe
vM6CIw2b21TzhtIs0exRWlZJAhWTQ2jBUtNMvAbekawBA0yVXk0Rk8wwiZnq
17NFRv6urhIlhoHa9XPZ+WxdLKaPvCNlbIqRhJ4AVbUxqjzQ+2cFY0xj8zpl
1jTRhVPByzY0wkffVCeNKWrg4pGnm5JgQ/y8wMrB9xM1TPFJkTytouDXiwNJ
EXxV7OpQIzjjuojrBWur7SpIc7U65+eljWfVO1JCXZUwZ/7YD6f3NFGl/KZ3
I0FCYehlYe6sOh4kn+C5bsnjbW29jElCDb2eicYLaHJYHsAe8GSposmBhLwd
cwgtqh1E43HK6DLQcJ69Ko0twUqMqgoSzuxS517flcKD9tArI0YK6CHOjnF3
I9Cz68Zvo8Oy2E8zj8wx3QfCcTBL0C6DURdXifilHeiJ1WgJnpLCM9PF2aNT
W5BP4/b1MAnUYl/SJ29swNid+2neHntA8cpc8GCuA1/kH6qYtA0dk3aMsdQ1
MKbs95ZsbkAl2XiuYmUFgnfzDMprJOCcqH/nj8RlOMpP0z9VuArJnuq6w9Ql
sMptWqG1L8On4eZn9ZsXwZFumpd+dAm47bEmVy8sQKjdximqxiKQwgwTrBl/
weW+WKvmj8WQdF1lhKw3B9a31CStvXOw9aV8gYrNLGzmTLtyv5sF3x0hVear
adj7k66xmjgNGRdTwpRfTME/Dwf7tThTMJEZruPrPgl6Y9rlo2IRpFiVWFJa
J8CGNXCdNfUaanOGGXIm45DcNbrWRB2DQ9hQSGofgRVW2ReUklfwo18/7U3W
MHSSK2s02UOwzc81/DZjEC6dM5UX+Q+Az756Wm+tEKjbrzZd0/uBMBkRDB/0
Qfxnm4FKdQL48Dwo58/2gt3QE053VTdcE1fbHhzphsh788aktefg28MsrYt9
DoHM8mx+fCeILhyWH6R0goG+8mYlPAPh4dv13I0OKIt+kCnnxIN6e6cVXRke
tKhNKBSx2yBAItYROLfB1l1mUWE8F8gzG0EaLlyIvmqp+DihFUYlEB3/USs8
jiKdKOM3QZdS5qRjURP4/z2m0OjTAOLj1N9t7RtASzhTfFO3HhpTnVVfytbD
3EHQyTDtOjBy2wvvVaiDOE8Ox96jFnhvHr5MdK6FpDj6i/tu1aCmvhWya10N
LSHr+qOsCnBcZtn88l4F5Oe9VQqDRfsfNGWVAvG/AGeGrEgo5P4LqxDtkg==

     "]]}, 
   {GrayLevel[0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVxX1Q03UAx/FBCQuQYAxZEA8DYhJyPE9Ej88XpYNbabI7BaVIvGOQSVZG
wlCYoYkgkgYcHHAh08MYThN64EF5UAfSkGd5ymM/BgzpkCcHAwGL4/dP77v3
vbhHTwhj9BkMxu7/Xvf/qVBYsN4vaFOup0Jt7ILdgKACgZWLLQdHVEgR81pz
g2+jZ2eY3HlZBXGoVLo95Fek+waIT7IpaF4f3f05pxJrHi45P3hRsOoavX7B
+jdw9+4T3wyjEPlikPmn8A+My7MkbgkUyhKM/MoV1Thctl96rIjCqa89jctO
18HKsPKr1mYKS1nupSXJ9VD1OxrVLFKoZT1jlsY0IrzUJqhq2wjKTxVfNgh4
AK28u5PEjsDebrPuFh7hoVSvXls2gih32RVFcjMqYvy6EqdH8O2PE85GLx/D
lFUcfDZQDX7vXalSrkTZ4e9yBnLVSD6kizKpbIeH8XBm9IIa3OU+XdC5TqSv
+aWYRY/iiwgXw+HIbtjkPW5cfDqK5ndv3bGM6YV3iNvxDw6NYU5QfsT2Rh/q
rr4fEfJ8DKktAy+ruYNw+IZ/5sv0cfgIur8XUH8jq6uqROivgc0gRzYwOYwL
fMWx35c1mL7W02klpaDbPzmR2TmB1XEee/6MGinzFhlL959Dl6cOqs8Yw+m/
Zks+ezQJ73SWtu6JBu8EXxRHaf5BfEeSV83Hk+BP1HGe8aYQx1/cw2VPwbfw
1TWzjBfYwXMpOGc+gyKLnz5qYs7AK796zqlpFhzlJ0vm1AzMFWl2e0rmwVQH
ZXM7ZiFaKbCX3dHCZ02ZfaB/Ds62a09u6BZx1TRVI1yZh2I4Ms44ZRnqafeq
TdBi8FJuWljIKuIVrY03pQsodKrvaHNnkA11aEti14ooPbLhEhg7erLbm94g
G75CaMv5+wNPN5ENV/G6Ke5EvyOTSKKrth83Z5BakclWeYURifIxYIcf1CMe
t/2Hh8SbSX540XT8PX0i+zSmO1RgRvsmucixyVQxWLQGpCsuvit/zILWkORN
uOZ8uGpJ+xZxCvKKOLCXQ2tCWh6yGNIha1pTIhFKtA1yW0JcG8RH+szI1NsN
Oq3IgZZFdkkrHlxxcKRlkwRZVNjPTGfaLeQ6r3+LnrMLLYcoVqxNbBO30lqT
s/rzkkkjN1pbkhrrJNJTu9Pak5pGs4LeNE9aLhlqFyrExJvWiZC2k4lqN1/a
98i+/Lv3lgV8Wh5Jymw39ZT607qSsMseu84H7KTdRiwN5jqLrQJpPci/aRz2
sw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"p(1\\!\\(\\*SubscriptBox[\\(s\[Sigma]\\), \\(g\\)]\\))\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.2941205549586153, 
   15.546125946802059`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E1s\[Sigma]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcE", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "2"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(1\!\(\*SubscriptBox[\(s\[Sigma]\), \
\(g\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkDCOk6LQBDhv1GOLzyF
OjtA3aDI1uQs4b95i88OMKM4QEukCmSNTOG/TpiyvfpKNkCVp0z6i2/hv0DN
c3jjKzRAHm+lSTuW4b/bz1LGekAyQGFTLiAAweG/usEQmdWDMEDDGyI2S/Dh
v39nI2YB4y1ADANJdpwk4r+BAvOA6gorQOSgL7OJXuK/xvwaDB14KEDxNL4P
zJ7iv6Qn2BYBJCZAwN1FCVjm4r91q15RnwgkQEyGUiqCNuO/PKOsw5EgIkC/
mU7qK5Hjv+0PwPj1ZiBAHJtxwej447+AUoD1wK4dQDgasmD/cOS/yMQSAKPb
GkDw7F3NKf3kvyNBMVhVTRhAIOxocg6h5b+W6CmUS/0VQDgV3eeYX+a/0mht
0pjlE0BiMvDkeDrnv4kYG4vgABJAi+b8svsx6L+rXWXTSEoQQOGYHMs8Rem/
L68439t6DUDnfHuzgHLqv7tmDCiurApAK+lomIy367//wmhv2CIIQLn+sSrk
Ee2/SMiFvtnWBUAe1lUn7H7uvwA51I/PwgNAmgUDRPn777/NeRS7ZuEBQMdo
tRoqw/C/myO/0M0tAEDUyWGjnI3xv9qMlYNRR/0/vV9Puutb8r/G31toC376
Pxd23JCoLPO/JB3+zqX49z8rJBGpX/7zv2b8mR+rsPU/QBnN1JvP9L8RxoMe
Q6DzP2YoIYHqnvW/MZi58iPC8T/Pz9cX4Wr2vzknJpmEEfA/UjsGKyMy979o
NvdDIRTtPzaC5Q5p8/e/bdB5MbpP6j8b7Tt8hq34vzKIEvW8zuc/4W/C0XBf
+b/4luNBv4rlP02MFo5ECPq//eYnFPN94z+N2YqmSaf6v++h1NEXo+E/S45v
cfY7+78b2hir2erfPxJfLPPwxfu/M0rTgkrh3D9forl6DkX8v3/I2fS5Ido/
odLmmFG5/L/ySqpgHaXXP1a5O5vmIv2/xxytsBVl1T+OpA3MHoL9v2tYJgff
W9M/qAMiy2rX/b8h+tf4QYTRPwi8b1tUI/6/e1n4Xgyzzz9zNvQCeGb+vzbV
sqPMrsw/ofv70X6h/r90kOgkCvTJP509dpkY1f6/Xi2rkcZ7xz+WrT3G9gH/
vx8eDfitP8U/ZL4bBMgo/7+qd52OBjrDP4V82Lg0Sv+/uxLdCKJlwT8OWo9X
3Gb/v/mNLaKge78/XMPFf1N//793cTALp3y8P2RWydIilP+/p3UKNarGuT/8
t4tkxqX/v1vu2gi4Urc/0rcPq620/78X0uSkhxq1Pw6v2s87wf+/5/9iQmkY
sz9oNANJyMv/v3pIo6M3R7E/PrG0op/U/79+eifKlUSvP10yw2UE3P+/u2f2
HtlKrD/KxMMLMOL/v5uZmZmZmak/jEG+9FPn/79/tStd
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(1\\!\\(\\*SubscriptBox[\\(s\[Sigma]\\), \
\\(g\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-1.9939765510826843`, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E1s\[Sigma]Repul", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcErepul", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "2"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(1\!\(\*SubscriptBox[\(s\[Sigma]\), \
\(g\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)+1/(Z R)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "0.5"}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkCfDe/HBQDgv1GOLzyF
OjtAK2tgoggA4L95i88OMKM4QDa2guYMAOC/TpiyvfpKNkA2z4lJEwDgv0DN
c3jjKzRAfeLP4hwA4L/bz1LGekAyQP+bansrAOC/usEQmdWDMECIb5ZcQgDg
v39nI2YB4y1AFXLAf2gA4L+BAvOA6gorQFwe3g2uAOC/xvwaDB14KEBTko5x
OAHgv6Qn2BYBJCZAhWGt5lgC4L91q15RnwgkQMkQ3IqvBOC/PKOsw5EgIkCR
mN9uVgngv+0PwPj1ZiBA5qKqqwQS4L+AUoD1wK4dQC4FsGUNIeC/yMQSAKPb
GkD0uHl4HTngvyNBMVhVTRhAYMpV1rFc4L+W6CmUS/0VQD0vnVVtjeC/0mht
0pjlE0Ay5ndYlMvgv4kYG4vgABJARBnunOIV4b+rXWXTSEoQQGSkstW3aeG/
L68439t6DUDbSXQWbsPhv7tmDCiurApAIppWhKwe4r//wmhv2CIIQLYCjcef
duK/SMiFvtnWBUAGEEGUFsbivwA51I/PwgNAOlbX9okH47/NeRS7ZuEBQIpf
pQcaNeO/myO/0M0tAEB+Ka9qhUjjv9qMlYNRR/0/OnHUeB8747/G31toC376
P4/MKRLHBeO/JB3+zqX49z9NkYjs3qDiv2b8mR+rsPU/XgQzf0cE4r8RxoMe
Q6DzP7VWwkFaJ+G/MZi58iPC8T/YPjWw5QDgvzknJpmEEfA/mDMUrFIO3b9o
NvdDIRTtP0SMRf6hX9m/bdB5MbpP6j+oorgp3N/UvzKIEvW8zuc/eHfLhLjv
zr/4luNBv4rlP0h71Mo1HsK//eYnFPN94z8AGCp0nbiYv++h1NEXo+E/YBbK
2266vD8b2hir2erfPxCD7ZUNPdE/M0rTgkrh3D/E62WwwL/cP3/I2fS5Ido/
OoiGrJ/s5D/ySqpgHaXXP0wWRvyHV+w/xxytsBVl1T+odwh+ilryP2tYJgff
W9M/1pWWJd4N9z8h+tf4QYTRPwIdONIaUvw/e1n4Xgyzzz9gBkBtchoBQDbV
sqPMrsw/VDXg5aliBEB0kOgkCvTJPwhq6EcQCghAXi2rkcZ7xz91X0GW6xkM
QB8eDfitP8U/+6cRG0NOEECqd52OBjrDP8pDf/elzhJAuxLdCKJlwT+CVNSt
dJQVQPmNLaKge78/zxgZELemGEB3cTALp3y8P838LyI5DRxAp3UKNarGuT+P
vDGPn9AfQFvu2gi4Urc/II8ZET/9IUAX0uSkhxq1P6olkEG4SiRA5/9iQmkY
sz+bpu6+mtYmQHpIo6M3R7E/2sTdj2anKUB+eifKlUSvP2CT4/5MxCxAu2f2
HtlKrD+2/mh/oRowQJuZmZmZmak/5hu0wIoBMkD/HPqk
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(1\\!\\(\\*SubscriptBox[\\(s\[Sigma]\\), \
\\(g\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)+1/(Z R)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{-1, 0.5},
  PlotRangeClipping->True]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p1p\[Sigma]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CalcP", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "2"}], ",", 
        RowBox[{"Reverse", "[", "ZRrange", "]"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", "#"}], ")"}], "/", "2"}]}], "}"}], "&"}], "/@", 
       "ZRrange"}]}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<p(1\!\(\*SubscriptBox[\(p\[Sigma]\), \(u\)]\))\>\""}], "}"}]}], 
    ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Purple", ",", 
       RowBox[{"{", 
        RowBox[{"Gray", ",", "Dashed"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.5, 0, 0.5], LineBox[CompressedData["
1:eJwtxQk0GwYYwPGkRtUtpMlUgjrCUHfmar+Pdqqm3Xhbsay21/dc69RTR11F
62prpZ2xhB40xSpu88xRcaxxTMR9HyUzlves5pjwHFvf2++9//vrXQ3zDjhC
IBBc/+vdyXLrg08oZ7DBJlCSqmGBXlkWzmmOTvgVW58hwzTD2EyRiiXXHr8c
JRw4PjXBS+zaV7seTFyVtTW7+xEDURgRIza1xT72jyYrhoY4LfIWxKE1rlFn
myUO+tjUrsYZTbHErBjrGW6CHiYF6QcSxeZ4TrmXfnpYB28f2UiWKJhiWvwp
VuGONgr2tJRoMcZ4rDbUmhKghS8YE8eJBkZo7M/LWVGhYhTP3+uZvAGa+TiL
xGtkdOaWdz7SPYnCb9TtPWU1cVW1TboVqIssmo+4z42Eyd7JW22VNCyx4ZyJ
rlbD7l9JBO60FspvMy9kxKugvouV7+cXqTgr3YhwH1XEvBWTHz7eJ+OUiWBG
JugYDgWHDrGXNHDOUKU2/YOjeI96IvMNgYQdW5k3srVkkXclYNjdQw2rLXcy
Wqxl0KLKfn46ThmdNUlWUWFEbA5UMq4sV0DmWAKpsOAQDjuCwyZOymPPJj1p
PW8P3LvTWifHZJF/0SjKWrgDBIeRbFGHDF53mmuOdtoGYaxmc+ACEX3V3WyC
5zehQJ8/IDQnoHe84p5CwzpMfZeb4nV+Hx761QpT29ZAMM8KVkzchbYk6k9d
G6tgQDvoL5ZuQ/h7Ot9PtUsgcI+jw6veglvpb6Z3l5ZBXZBCP1u4AfMURynx
iyWwYjeu63f8DcSl8RwNihgcGEacVPU1KGEJ2W/JCxDM3D6rp7kKCz2SsZKn
cxA6EGvV9IkEVDmtj4tipsH6LmmrpX8ZgjKXXMgVEyDNE7vw7y9BiFPLSqnl
GOz/wdDcuCUGQkS6UejOMLwtGhmkcBcgLKu3fuhgEE5MUXmTknm4QVNlJTgM
gI3H8B2PhRlYfJV+ydZNCEndk5uNelNA6xJFJH3bC+seZV/TisfBju4akzTT
BV3aFdXkgFEY++y2z/tZr+Gar9HRedYwDMrU9J+O6wS93XGpS+ogrIdIRK35
7RDvJ/VXqhPB8p/MSr8RPjBHa7l9lX2gbOjIiupqgciHKwYKmz2QY1xe4SnX
BP7mvEeC+C4wSIyx8LzXADp0ZWkFvAZiflByzYV6KLv5JEvOsRNUTSOPh7vU
QTNpVv55QDv42ZXp6l6rgZ0H5s8L4/kgiFCL60ypgpvhloqlCS0w1+jVVnGn
HEqjFOzKBI1AzsFF3d9eAuuvKflfvBvgVFXKdbnLpUAZ+v1FhlY9KH7awN7V
Loblw6uuIdQ6MP1ZyHPQ4kKcO5f74fka8KF3l2a7F0FiHKM391wV5IZRonPc
nkFz0D/0SY9yGMu9XO7t+RgKOO+8hAQ9vntNPgcI/yuLfDBodWWR/y97n+vu

     "]]}, 
   {GrayLevel[0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVxX1Q03UAx/FBCQuQYAxZEA8DYhJyPE9Ej88XpYNbabI7BaVIvGOQSVZG
wlCYoYkgkgYcHHAh08MYThN64EF5UAfSkGd5ymM/BgzpkCcHAwGL4/dP77v3
vbhHTwhj9BkMxu7/Xvf/qVBYsN4vaFOup0Jt7ILdgKACgZWLLQdHVEgR81pz
g2+jZ2eY3HlZBXGoVLo95Fek+waIT7IpaF4f3f05pxJrHi45P3hRsOoavX7B
+jdw9+4T3wyjEPlikPmn8A+My7MkbgkUyhKM/MoV1Thctl96rIjCqa89jctO
18HKsPKr1mYKS1nupSXJ9VD1OxrVLFKoZT1jlsY0IrzUJqhq2wjKTxVfNgh4
AK28u5PEjsDebrPuFh7hoVSvXls2gih32RVFcjMqYvy6EqdH8O2PE85GLx/D
lFUcfDZQDX7vXalSrkTZ4e9yBnLVSD6kizKpbIeH8XBm9IIa3OU+XdC5TqSv
+aWYRY/iiwgXw+HIbtjkPW5cfDqK5ndv3bGM6YV3iNvxDw6NYU5QfsT2Rh/q
rr4fEfJ8DKktAy+ruYNw+IZ/5sv0cfgIur8XUH8jq6uqROivgc0gRzYwOYwL
fMWx35c1mL7W02klpaDbPzmR2TmB1XEee/6MGinzFhlL959Dl6cOqs8Yw+m/
Zks+ezQJ73SWtu6JBu8EXxRHaf5BfEeSV83Hk+BP1HGe8aYQx1/cw2VPwbfw
1TWzjBfYwXMpOGc+gyKLnz5qYs7AK796zqlpFhzlJ0vm1AzMFWl2e0rmwVQH
ZXM7ZiFaKbCX3dHCZ02ZfaB/Ds62a09u6BZx1TRVI1yZh2I4Ms44ZRnqafeq
TdBi8FJuWljIKuIVrY03pQsodKrvaHNnkA11aEti14ooPbLhEhg7erLbm94g
G75CaMv5+wNPN5ENV/G6Ke5EvyOTSKKrth83Z5BakclWeYURifIxYIcf1CMe
t/2Hh8SbSX540XT8PX0i+zSmO1RgRvsmucixyVQxWLQGpCsuvit/zILWkORN
uOZ8uGpJ+xZxCvKKOLCXQ2tCWh6yGNIha1pTIhFKtA1yW0JcG8RH+szI1NsN
Oq3IgZZFdkkrHlxxcKRlkwRZVNjPTGfaLeQ6r3+LnrMLLYcoVqxNbBO30lqT
s/rzkkkjN1pbkhrrJNJTu9Pak5pGs4LeNE9aLhlqFyrExJvWiZC2k4lqN1/a
98i+/Lv3lgV8Wh5Jymw39ZT607qSsMseu84H7KTdRiwN5jqLrQJpPci/aRz2
sw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"p(1\\!\\(\\*SubscriptBox[\\(p\[Sigma]\\), \\(u\\)]\\))\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.573876294405314, 
   15.546125946802059`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",ImageCache->GraphicsData["CompressedBitmap", \
"\<\
eJztWwtYVVUWvsIVsWx6TA9npm+iKU2bsvqayiktKyvTptFsRmvSdErCVz4i
BdHwci+XS7xf8pALorxMEBW4gCL4AG9CeBlQSZAYQoNJChVHUmwY1l5nn8e9
Z3HRbz5n5vv6Pjj33nP2v/Zaa/9rnbX32ecP8729Fiyd773wvfker6ycv9xr
4Xsfeby8bGX/KdchGs0QL41G8zcPDXzv6/8qHPr6//oWwgHOXN3359iHVmMz
e2o8PfFfZ2kfy0679h/bNRadWWPr/+Xi0FSnsbT3jR5UUyb1fqGp/LQLO7rB
ZXbVTvooEuKqgNifg//7VLTwNNsIO55EhzzLPtw0fTazQli7Racx2/rGsB83
KKxlTfqbe+osmnbl91FcmkrzfukugnWCcPbrNwp/erLzrjKlVHq53wlExQ70
zQjVy+y3ek9PoJNuww77wH0c+TBXQibxAcJbYi/st01j9mTXRinswOZDVcTe
L4hlI2i2OSqvFMsZKm+uJhbbuYtiCHED+GCsfJw8lfYOQB758MuujRqIa47S
Uf3heFkwk5AsDIyyLSFWw9Xg8cJdQsh26p6h6Exdv3OloBQ0GoGSLLbBUgZ5
fCMJU+tqjGycwQBCNDYbJrOT0nq4HEaJ0zg6Zn25f7nMMZz4LB1pHuSWsWHx
VAwNEZ1CYLirYyTZo2XBL48fGGFm6UBpZjgNk2mv3oXkjEHnl9Qd83awXw8K
5FFkc0zdwoi6Knpweruyb6ouWkEwnew6V77P4Z4lRIy7Mwy/Z3EYdc/q9+3A
9yyZu8o3TdqEzobjM7Isxyl7qyBKUo6JGuIgypo8PlldFGf3bSq0dZTTEukR
Kcl5QIHxFF0ANYDcP+y/3aLRmW2usvzNu0aHjFTev6C5bPjMZnngctHyITGz
Nuh7+zaEV3oM7gbJmjFyBws0d+NH1F6yBttoZVEkT6VSypCc6SoXJWoHxGXX
XTWk/2+Cjz5QeCwc3IWW0JHyFmivp+gGLW+kUiGoMdeFMNtmdqYrelcLes6u
z6pviB0Tu9waYXWTnC4KUzs37D/c7nr08ZMu/z1dfqZxTCdazk5ZChFJLiOz
i0rwKglPBO81BIQb1/qWnq6eiOLlxRAYU5qKmrT/h07/SZf/fV14YMinkVou
wf5m5kB0xzuFfF7uGETXHhjuCq37/8ecaThTlD4lHWrFkd3t3WNUjHvoOpy7
WdRcvEULzhmMA6+lthLFCSLm2VJtkCbgU/Pn62DyCJnq9ks6ngpzxfrMlaTE
tXhgUktLC/uFTNVCsgQeAB+AC0z+4/ZaDrIOZjVJe2hoaFZOTs7I7u5uYdkA
srDoZtbDNDlsKCu5ent715eXl3eZTKblVqtVqLdEBbNyZufAdwZ/1QHOXQO9
jm9ra+NRzCuk8W3WNux6Cs0KQV2Prq4uO1drwTdQ4QeV+pS69/b0sosv06IE
94JV4JD4goICUE24F/kcDDoIUw+PrpYu1OolmSgmSTS/p/9mVlwMQubZbEI5
7Arm2BIeTZjekNeAAibTugyTzGKusRv+vOzp2XC/FM16gRaF/B0Gpsi5CvUn
eAcyC6rzPC3jRuwa1IHBBuvASoHTj7bb2kGUxJVJztTRgjrgYRA3vaGhwUVJ
HTBQpM6ztLSfcQ3a28ecOXNGnijAz0CjSS3lLajVRFrOz9nRjdMIqAODraDO
MzRcyNqgAox6UGlpKfgHzgJvuJ9Z46edaeHOfQOipjQ1NcFZ8DGwB8Sxxr+n
xdwBRxdQxoVTuqcXTAGTxIzxFC3gl9IYgfd4HmAX5RNyljxGIr+ApjCYkBDu
6u7slmcodP/vnHXIOAp5qCUyMhKGlCchyAgaWZpTlXG3pAfnOjAIkpBSj8do
GR5SCnirbledwvBHncHcIFGDC0x7ivZs3j5/O7hbHPZxNPxeiXx52dnZMOxz
awtrFcP9MA2/T+odFOeDrSDdb2k4LldoJzcfbD664akNCsqPdQYbCrF71hRk
ys8wZPDqXb5woIrFS27A0KL09PSTURFRB1JmpEDQi/QcTcOFdTIIDTCYBzr4
CrseZc/Rh6TsElHsU1ydNCEJAoo1vo/uaJxkY7fRYGwLnx7O3YMd3UtjH0Es
0NianJzcGhEQ8XX42HAp+3vQ2MekfsEf4BegsJSqf01jMcq0MA4wnGCuOJx3
0zBcltR6Vx6sPG/UGTuDXwkGVdnFX9EwzAZDIei+SIxPPGtabao0v2yWNP0F
jR0vWcmzDHgXBgmxd9FYYa0Ohvxk1ONRc2ozaxFzJ42ZgCYm5efmXzD6GU/E
vB4jkuB2GjZRYltjTFhMt3GJMcay3CKpeZsMy6DP8SFoaoK7LBjmVR1fzRrf
SneE919WtsQXeBUcSXg+AWoGdvFmGvYiwrJzUnMuGj42FGQsyxCD6CYaNllS
sj3UEHrB+IHRuzKikl0cQcOwftL+pe6LOihAIEfB4LGLN9AwrOC04G/IioUZ
cyUl3WnYVIRVmsPNPYblhqRdgbtEMrvRsGmSkmdN/qZzQX8NEsk8lIa9hiMN
OWV2vbUewg6UBaVxpLGy0KCdDs9+1RYt/ohNwUXgqvTcxbliWSPU4cPZhxv1
GNNVReoMPFebEJTwg2GxIaIotAgVFFZF7aYZrApgJfd0VGdRVWXVhUD/wO+C
3w6GRPGjoyYqj8nUNJmJLoNiZ1Z9RT1kKXAbK5J75VLVH4mpuQzndFqe1ZPy
ffNhzC/JpSmnTGoz/VkoBZCQensMXobVBzcd/EE+guqPQ9TMfAulrarYW3FJ
/4n+dNjcMGDFRZpLb0uOWVRVWAWDD0HNqpALNGwOdgTpAowP3mPcAyacpxFz
EQGs6gjxDzkXtChoQc32mnM0Yh4iwoq3F18OWBfQEDsvFvJ1F42Yj8ZAWbWo
KrcKNIPgZynwOxr2Pp7jOdDvQOwBTaesOWu9ALW5p+tU1/mgdUHfmxaY3jhe
cvxbWqynFKZRls8sl/Rr9NVJXknMtR00zEsyYt3+lP3wzAaeTrKb+Tc0bJFE
JGgOhiw+nH34NI1YgogJrfWtPYa1htNhnmETWm2tbTRiqUSWjNyU3N4AnwBL
xscZzL+tNGwZdgR1o7E0rBQsAl//nUaskMjCs/fs+qL6r2jER4iY2ljZ2Buw
NuBk9OLocR0nOk7SCG/JmF2ZcZlXdH663K1rtjJjGu1HfxWKf6TjVEdYsbGY
F/snaPE+iIDRhtL+8ManN85oKGtooBFrEPF+TVHNZb2v/njc0rjRna2dx2iE
n0SVfakRqVcCVgdsyvPPY1Spp2HrsKMnT7WeCi3xLwFjIIvV0Qh/PoItXZA2
96e+kPpi8+fNtTRCh4hFVTurrgT4BVQneSdB6ByhEQHcYd3d1UmmJCDXhoLA
ghoagU//+mcEDc3RFl8LL+uraYQREXyVsnTztM1A+cM0woQIXVlmGTDEmuyT
DLNGqz1BgiWOH0kMTIShWF8eU36IlhyCiJnHao8l7Vq4i1coFTQiDBG8OCnI
mJkBHD9AIyIQEVS6qRS0L03zSwNy7KMRkRLRm6MCoi7rV+i9qrdUl9OIaES8
VVdVB0SH6RyUg3tpRCwioBW0zst+JxuIvodGbEBE8s74nWAHTOLAjhIaEY+I
ia2Nra0Rn0Rc0q/Uz7NtsxXTiEREvFtbUSuvqCw0YiMieNGUlL8iH7hRYM8N
M2Lzsk3ZwIu07Z9u1+TTYlMkWn8bsi7kYuDSwNe/LPxyJ43AfQbaBTVlNUBr
PgfLoxGbEcEXLjYU+BZA4sulEel4riJFnwLOjLFEWjQ5dPMMiRVdprUmuN2/
fHLvyc9oRBYiVlgtVvA9L8+yacRWRNhXYJk0ArtnN8naeH38Jf2H+oAycxkq
K+1Ec77VUq0gRG9o59msNpi3dX76wadA8S1y4YPerqhW3eHosIICajWIHYg4
VlCkDdwLsROK9cIq7u2oPF/T5gVdqnOxKhvP1JRH+rJb+vG4dXHA6lUVGRVI
dqGYveo9Z2od5UtxfN7oa2wP9QqFOMYNNEIlf3V7udR6KcRe4P4Gsc/LzCR7
JjndBaXGpCI8B0USFEtQNAnpSZXVxZJr28LXhoNrl1u3WeNpxG5ErDxUcugH
vZ8eqiWItTgasUfiHgybYhEkhobtlQIO1kB4eR1NI/BOw+rs02FrwrpMS0yz
6kvrI2nEfkQE7/5sN9RNRxIWJkBIhMsQDID3SVbwrTyUdkhRWIfS4iskE6A5
wKCwDqERhyQTYKHpu+APg6c3HGwIphGfIyK2cEshVEuV5pVmMCGIRhzmY97T
Aw7lO3WMNKJaYgnfwgCTJAONwNJLCxXSxUDfwI6QZSHwPYBGHJFYkp67MRfu
1QUZfjhBWE/DsI5kpR8kHr4Q5U8j6jgC16AgBCEU19GIo4iAsrXH4GP4JmxF
2BOnG0/72bPkmGRC9rb4bT/q1uhytvpvZSzxpcU38DHv7IKaGlgCudSHRpyQ
TOAThDm1u2tX0YgmREArIPqxuFVx4zqaO7xpxEmJ8sXpIelQU6fsCNzBjFlJ
w3CepR3X0drBC2u4ya6gETiXEycIJVumbpnaeLhxGY34GhGrKrZWAE2OJPom
3nO24+xSGtEmUX5falAqjExsYUjhEhqBk1/tE6e+OgVLoXyCsIhGCHuQ+ASh
KP3NdJgfe9mz5B/YTle2uQycak1emwzae9KSv5UI8nmyPhlQhr0xexfQiE7O
2KPN8gnCezTie0TwCQJoDwSZTyPOIiK0JLUE/Lkv1T/1lp7unndpxDnJjvoN
6zdAQQvZdC6N6JbskE8Q3qER/0QEnyDsypyTCXa8TSN6EBFfkFAAGpWm+aeB
HbNpBK6wsYlOU/T6aD5BmEUjLiNiamNNo3yC8Cd7blzBdvK1VJjezKQl/wsR
eVmhWRALeVmGLAjRGTQCj+L05mLgCjZHmO4EIdQgfAmUTxRedwITnujz2UJa
3so8YPtrTmDCemd+hikD6J6ZE5ajmeYEgxsKtNMaaxs7Qv1CLwQuC4R5w6tO
YMMFw47uO8onD5BYX0HY4Ap7cnGcHYWtBZAHIbnHFvoXAsNekvfgplGr7om3
i1yonoSdB8AAa/L6ZOBztCXRMpm2Re0VGmkxXS70jeM1x783+ZqgrALyviAX
Ouj3W9QKYna8BXuBJSz5SrKwzQJhV/eGCDkeSAVxBTrKYrSAx4Q9GAhz+vqF
2oo8O+IOB1YsnYj5JKbH4G1Yuz9r/0T7MRjcmwukv+7AbmDifsG42ggVFsTj
ADs42BEfOGrt17gH2GrBjviM05XvqGFVwHgnmDevz3X2/RpfnKS+803EwuY2
5cZiu8CRtbtBhTrSuwl9fLMy+/HSgD3ZZCi6p+GyyS3QyVP1NTF2RkgB8HCJ
iTGz5jxUpBDCaau4Q9o+zFSwatlQfNllqMOLbKCtWk5jxxcFLd0VruauE99q
4m+T3KmuoBpMcV56riZi5HN3/nap8o0QNQXtXgzh71z2f4r7xlU9KL6+KqLk
pwd44UrxCokoTTHCA/tOVO3WwftOroAdUYapcFPhqNtpvtnvuFdL645Yvu9Y
/hKMTENRIWLk3HiIKl4V6rPP9vw5sTIli5fdnBAYtRimCGP7sbyda0qEqsK1
AmakmB6ktx7kGDKfDfk3zycGIw==\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E1p\[Sigma]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcE", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "2"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(1\!\(\*SubscriptBox[\(p\[Sigma]\), \
\(u\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.5, 0, 0.5], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkAUtE2LQBDhv1GOLzyF
OjtALEfA1uQs4b95i88OMKM4QIe3pWONTOG/TpiyvfpKNkC3cJP2i2/hv0DN
c3jjKzRAv1KDLTuW4b/bz1LGekAyQN5nfnL/wOG/usEQmdWDMED3GwK5R/Dh
v39nI2YB4y1ACI9TQo0k4r+BAvOA6gorQMKYR6xQXuK/xvwaDB14KEB9b1BR
EZ7iv6Qn2BYBJCZAh6vEXTvk4r91q15RnwgkQG1dgFIKMeO/PKOsw5EgIkBV
l6iyYYTjv+0PwPj1ZiBAcUeH+6Ld47+AUoD1wK4dQBoAHHiLO+S/yMQSAKPb
GkAjAZRPI5zkvyNBMVhVTRhAaBQQ68H85L+W6CmUS/0VQPFqh/4lWuW/0mht
0pjlE0CUyN5lnLDlv4kYG4vgABJAH4A3RjH85b+rXWXTSEoQQPd3Nu3oOOa/
L68439t6DUDTUyrI/2Lmv7tmDCiurApAccZwTjF35r//wmhv2CIIQPIyDnkE
c+a/SMiFvtnWBUB2zM9xGVXmvwA51I/PwgNAW+Sr6W8d5r/NeRS7ZuEBQH1a
Tt6YzeW/myO/0M0tAECKJHk4w2jlv9qMlYNRR/0/ZiOfUJPz5L/G31toC376
P3SMOQ69c+S/JB3+zqX49z9TjRoWaO/jv2b8mR+rsPU//5cMc3ls478RxoMe
Q6DzP5ri4aPs7+K/MZi58iPC8T/X/yiAZH3ivzknJpmEEfA/x8BEvwgX4r9o
NvdDIRTtP1+25W2pveG/bdB5MbpP6j9/a9anDXHhvzKIEvW8zuc/PRGStE4w
4b/4luNBv4rlPxVCiPYo+uC//eYnFPN94z+48oJROM3gv++h1NEXo+E/zD2Y
Mh+o4L8b2hir2erfP9OgPUKcieC/M0rTgkrh3D8RUNADlHDgv3/I2fS5Ido/
Vf/B/BJc4L/ySqpgHaXXP7sN271LS+C/xxytsBVl1T/1M7D7kj3gv2tYJgff
W9M/hESSAFsy4L8h+tf4QYTRPzCJESsvKeC/e1n4Xgyzzz87rGvPryHgvzbV
sqPMrsw/x2UKnY4b4L90kOgkCvTJP8nhxIyLFuC/Xi2rkcZ7xz/UFrdOchLg
vx8eDfitP8U/ewXPKBgP4L+qd52OBjrDP+b+0DVaDOC/uxLdCKJlwT9ZcVX1
Gwrgv/mNLaKge78/XibtHkYI4L93cTALp3y8P1VniKzFBuC/p3UKNarGuT+S
LCESiwXgv1vu2gi4Urc/I7FcmokE4L8X0uSkhxq1P6upUeG2A+C/5/9iQmkY
sz/d5t1nCgPgv3pIo6M3R7E/tp79On0C4L9+eifKlUSvP6gYb6sJAuC/u2f2
HtlKrD/EX54SqwHgv5uZmZmZmak/D6lkol0B4L+EORiA
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(1\\!\\(\\*SubscriptBox[\\(p\[Sigma]\\), \
\\(u\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.7020498783151209, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E1p\[Sigma]Repul", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcErepul", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "2"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(1\!\(\*SubscriptBox[\(p\[Sigma]\), \
\(u\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)+1/(Z R)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Purple"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.6"}], ",", "0.2"}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[0.5, 0, 0.5], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkDxhu7HBQDgv1GOLzyF
OjtAehFYoggA4L95i88OMKM4QHLJHeYMAOC/TpiyvfpKNkBYmNBFEwDgv0DN
c3jjKzRAHsatxhwA4L/bz1LGekAyQHywus0qAOC/usEQmdWDMEC8b3bfPgDg
v39nI2YB4y1AEf7KS1kA4L+BAvOA6gorQDoW9gZ1AOC/xvwaDB14KEDfzCCz
fQDgv6Qn2BYBJCZATC8sOzwA4L91q15RnwgkQNTPE2Zv/t+/PKOsw5EgIkBP
LHNuGPnfv+0PwPj1ZiBAdp6Ay33t37+AUoD1wK4dQCDWM/oy19+/yMQSAKPb
GkBPml/1LbDfvyNBMVhVTRhAT+X5ncpw37+W6CmUS/0VQOwJj9j0D9+/0mht
0pjlE0DI+Myyb4Pev4kYG4vgABJAsGVRYDDA3b+rXWXTSEoQQPQGme/Huty/
L68439t6DUCOQUZW2mfbv7tmDCiurApA0O68dKK82b//wmhv2CIIQN1t0iuA
r9e/SMiFvtnWBUC8DHa9hzjVvwA51I/PwgNA92kAOQFS0r/NeRS7ZuEBQOKh
I8J68c2/myO/0M0tAECC6ZJxPVjGv9qMlYNRR/0/MKmmptq2u7/G31toC376
P1DNpuovA6K/JB3+zqX49z9gm/L3hMemP2b8mR+rsPU/jFhq3dq5wD8RxoMe
Q6DzP/RdeHI4msw/MZi58iPC8T/ewaL+767UPzknJpmEEfA/Ijh7gSiM2z9o
NvdDIRTtP+uHwrBXeeE/bdB5MbpP6j9jHcU7EXrlPzKIEvW8zuc/p/C/zaTS
6T/4luNBv4rlP7O377LSju4//eYnFPN94z/Rt/gHy93xP++h1NEXo+E/yxDg
xY2z9D8b2hir2erfP2zviDdm0Pc/M0rTgkrh3D9I9eqktDz7P3/I2fS5Ido/
FBfJ8JcB/z/ySqpgHaXXP8+eOF2ClAFAxxytsBVl1T8eAR/m794DQGtYJgff
W9M/nrs3uA1mBkAh+tf4QYTRPzmKD8xrMAlAe1n4Xgyzzz+LNt96QkUMQDbV
sqPMrsw/spmbp4WsD0B0kOgkCvTJPzIoudh8txFAXi2rkcZ7xz9GONkyJcsT
QB8eDfitP8U/5bb+FpIWFkCqd52OBjrDPw5D+96nnxhAuxLdCKJlwT/afA1F
6GwbQPmNLaKge78/2uQsLIOFHkB3cTALp3y8P76iqJC0+CBAp3UKNarGuT9+
Qgjjr9wiQFvu2gi4Urc/CLvVLIzzJEAX0uSkhxq1P/Fgdk2kQidA5/9iQmkY
sz+6LpEh488pQHpIo6M3R7E/F4GEsNKhLEB+eifKlUSvPyII5fCsvy9Au2f2
HtlKrD8FSJAnt5gxQJuZmZmZmak/t9rsEvV/M0AJrAwU
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(1\\!\\(\\*SubscriptBox[\\(p\[Sigma]\\), \
\\(u\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)+1/(Z R)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{-0.6, 0.2},
  PlotRangeClipping->True]], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"p", "/", 
        RowBox[{"(", 
         RowBox[{"Z", " ", "R"}], ")"}]}], ")"}], "2"]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "1"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", " ", 
       SuperscriptBox["2", "2"]}], ")"}]}]}], TraditionalForm]]],
 " for R\[Rule]\[Infinity]"
}], "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p2s\[Sigma]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CalcP", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"3", "+", 
           RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
        RowBox[{"Reverse", "[", "ZRrange", "]"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"3", "+", "#"}], ")"}], "/", "4"}]}], "}"}], "&"}], "/@", 
       "ZRrange"}]}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<p(2\!\(\*SubscriptBox[\(s\[Sigma]\), \(g\)]\))\>\""}], "}"}]}], 
    ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Green", ",", 
       RowBox[{"{", 
        RowBox[{"Gray", ",", "Dashed"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwtxQk0G3YcwPG477rFsaSu0T3MsdUUb79/isei1bHqWN7MM+Jei3XOqi7t
09EZ1vYllNJU0yYRV1UjKogmrO77XKpY0KZTZ5pRW9/b573v+1pFnQ2JUcRg
MMf/6/2NVTeGK7CfIw5+LmZJYImCi5y9r3h6oYC8eySvSjzKLBw85EL3QO7D
ke6MtxYoiNr4RE50R1qO3oXnfjdDqD8tY9HhU5SGFwEjBotmB0OEWcgNTQ++
8pMnGKPWTj3aOMUFNVFP2DErDdHFWBuywqITipRT4jP29NElxc28NU0HVNxz
2rM0Tw8J98y1cRlHkMbXLSJp0CF0137KRMHWDrWPnNF/MquFzrMigm+r26Lh
pNKPg6s1kDedLSixtEZ6/PHNepoakup2yLbJlkjSK+cjvgrKC8nb7uDgkOWI
MnVJWxn1dBtg6LPmSPcL8ZJ5riKyIbiGhZ40RR0BZJ6yrgK6ufLR9cB9Y1Ri
6fXiccYBjMQlj1CXDVH+eIW9QHUffjG1KHyOMUCa+WqHKAI5sL6NGQ0g6qFy
v+KXiiwZONd5iGezdNCUEpY0yd0BHln7CIetiXbNdmkK0i046Io7O2Wtjv48
s/psirAJAT1X2qcnVBBlo3Fe1vwGMMfGfhvsUkIJ9KL2o/7r0J9pxCMvKKBv
5PgmG4kUym34Q/1OGJSuESpJTn0JM9duUIL994HJCS9ZcFwFoZgUp5Urh6er
QdPBhhKwxb0bqJHtAtN7zUVkvQzkPdphVv024AiBhKywRdAXUvA+VZuAJcQN
DTYsgCuVu2HT9Qaiu3xIoY7P4Zi9He2y/jqQZioScgrnIc5918fKSAoTywUm
XbszkDyU6dp6ag0Skxq/T6RNgdtVg+22AQk4vyB/dy9pAmQ3Fwn8gmXoNha+
nk0eg/2/7I02LyzCqQ/LS9m0Efi7emwYS1+AxgLdc9JXQ2AxY8qaXhPD+FqN
Q2DvAHxCHP2ZuDAHK7FbUpO9Z3CxZ3qLazUDOVE4B5XkXtggMiNxNZOQMrFe
64YVgeiD2nrjmHFIC+LKdHa6ITHMTk1MGoWgXWnKVyoCsJJPygiXhyF0Qq1T
g9AJ2eGyCO2mQTDSL6vaI/LBfbyR3sfpA7N6j1FKRBv8WLxiq7nVC2WtmD7i
Iy5EOLFKhNkigPK50aQTLXAYryOrhaegP8o7nWHRDMz0iiJVTwGEe51MjcM3
Ac9gXv1OTCcwI60aK79sgLe/Ot2pyuaDBoPzA5dUB+kpLlqMnDagiatccqLZ
wDiveZQp5ALVq4wd/fABkF7PqD8OaQFxFeud1JcB2JGlu/nmzSDws1ex1asB
yUHU8XjTJkilDuVQ9eiQFUCnf+bfADh/3q0wQjXkZtn/ccO3Dv65FP6T0Os2
8GJ38NNENly7cF8JfG9BOe29B5AjL4y/f50GmP+JalIf7kU94v8LS237iw==

     "]]}, 
   {GrayLevel[0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVznlM03ccxvGCirUWRwsF1gqCkBbGiCDjUvTzBTqFmjmBbKjEDlFKiRA1
SDiKUgUilzq2YcqQwKhEBwUc7OKyCKMwJoVyiMBMZRz+Wu62SEGO4fj9s3fy
5PXvYxtxOTjSkEAg+G3uvf8Pg8KC9/0IvP/CoCHqrfUQRwLFQ4KLTlcxuJHM
6sxnV4O6yCGUeh2D5ACx2PP4T8CmWzV5Z2PwZiPCL9qyFjYsTDmtIgwsescf
3qb/AnlM1pH+xxiEzQ4Tfw/+DeIGjzXn12PwKJ7kXi6rg8qQx0HucgwSrrrs
fpTSCLlpZ7wmxjBYvuNcWiKQwpUYyo5X7zb/UF8RSyOfwceKOzZnzVVQnlB0
1+hQKwgGVfwSNxXsszbWV0Ib/KMQKldCVMB1rsiTCdrhRQ09ujFBBde+xuxJ
uj9hZ9bJUlSsAo+BGvHzqucQ4ny4c7pTBYIzei65thtEGXNtLu9UYLsyqPdN
VwB7gw6ZLmq4dJq5UxnWB8Z/jb8WXFJD+97KJ7TIASgQ034tlahBwykPtyob
BG4gTSLWqSG1Y0hXZzsMJt6FRz3ZU+DG6bvFGf0bjkWfPeX4YAoYw5YVQ2ol
+DMuuIetTcHcD/0KC/EopDjE69r407A2yTLTXh8D6fKuthTlNOjvj/lKsyfg
6URiT3XEDBzMpC42yt8AuZR9pFo7A7E9Sa71n6uBcY2bO/vtLPA9lvxtzWbg
+661U8RP58CbxSxIp8yDPCuQeX77PLiK6jR2LQtA5lWtZl6ZB4oszdq/RAvp
CyXtJtg88FYL9lU8WQR66mT7RzELYG+1Li/TL0HgbWmc4/oCyJRh/N03VkCz
ZD58q1gDw7n5aUHH18DjwkR4f5AWCu2kPV3OBCTP+wqbNNdBV5JZA2/UAE36
ZJ+rndcBwbv/XnfLNiTcq26PGl2EgI6Mp0MvdiD7cT9lzNRb2GjhX365n4iE
53/2jKHooYFHdqiSkBDXzcgs9MtlOFDtpRxJNkai0AdzsU0rUHEusi+AY4K2
XIUsS0bOawIVbbkOvfzYXtGEKdpyA+5jjt+dWKOhEzqzzrJ1ArLzdT39xWeW
6JsSS0k50xB1/EEliEfo6GLELqEidvNnsHCxucoKIcfm5PDB7Wjmg2b9Is8G
1wj5iCWteTb7cYkovoIbVEy0xyWhh6yX5gb2TFwykq3SyVaJDrh70E1DrVBN
ckLoZhKKzzBBqVF2PIMxZ9RcS6kVLlBQ/TOTgoE0F1xTNNIdLEtGB3FpCHXF
JY45fYJrgU6KappWOB64H6KknO49LmIvXAYKunvAJ+PQYVxrRDPSKIosjiLS
tmVMnmOD/gUWNfnW
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"p(2\\!\\(\\*SubscriptBox[\\(s\[Sigma]\\), \\(g\\)]\\))\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.08744792371239561, 
   8.382601912613008}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E2s\[Sigma]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcE", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"3", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(2\!\(\*SubscriptBox[\(s\[Sigma]\), \
\(g\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkAfUgfAb93Dv1GOLzyF
OjtAEfSjkDw7xL95i88OMKM4QDALJWD8oMS/TpiyvfpKNkDZdye+Qg/Fv0DN
c3jjKzRANeO4Y7yGxb/bz1LGekAyQGi6PA4/CMa/usEQmdWDMEC4qNzs25TG
v39nI2YB4y1AXgGolu0tx7+BAvOA6gorQByChsYV1ce/xvwaDB14KECYxqvq
HYzIv6Qn2BYBJCZALceDTbVUyb91q15RnwgkQETIj+wZMMq/PKOsw5EgIkCk
zy79yx7Lv+0PwPj1ZiBAX+EYH20gzL+AUoD1wK4dQCvo21XVM82/yMQSAKPb
GkABnIffS1fOvyNBMVhVTRhAqy7zXceIz7+W6CmUS/0VQHHXLJoQY9C/0mht
0pjlE0AhNKrxmgbRv4kYG4vgABJAVO22nPqt0b+rXWXTSEoQQAz8jfwzWNK/
L68439t6DUBoCfTxVwTTv7tmDCiurApAu5VKuoKx07//wmhv2CIIQLMkxpHa
XtS/SMiFvtnWBUAua4SPjgvVvwA51I/PwgNAUT5k69W21b/NeRS7ZuEBQI1c
FLrvX9a/myO/0M0tAEAkfAgbIwbXv9qMlYNRR/0/ArSTzL+o17/G31toC376
P2A+GRcfR9i/JB3+zqX49z8GGHb+pODYv2b8mR+rsPU/sHpJp8F02b8RxoMe
Q6DzP6McNNzyAtq/MZi58iPC8T8xoY2dxYravzknJpmEEfA/Y9WqpNcL279o
NvdDIRTtP1oD9sLYhdu/bdB5MbpP6j9sYysFjPjbvzKIEvW8zuc/jlhchMhj
3L/4luNBv4rlP7g5K9F5x9y//eYnFPN94z9IGRjqnyPdv++h1NEXo+E/2Wud
s0543b8b2hir2erfP3FZ8u+sxd2/M0rTgkrh3D+a4wq88gvev3/I2fS5Ido/
5wMtn2dL3r/ySqpgHaXXP6l2akFghN6/xxytsBVl1T+OlcbiO7fev2tYJgff
W9M/XbAysGHk3r8h+tf4QYTRP2HYhRQ+DN+/e1n4Xgyzzz8qHSEiQC/fvzbV
sqPMrsw/j4JWLtdN3790kOgkCvTJP+NDbrJwaN+/Xi2rkcZ7xz8sMPh/dn/f
vx8eDfitP8U/WberT02T37+qd52OBjrDPxXqE6xTpN+/uxLdCKJlwT8sNCI0
4bLfv/mNLaKge78/8KnPLUa/3793cTALp3y8PzR2TV7Lyd+/p3UKNarGuT83
HtwbstLfv1vu2gi4Urc/Mh4MjTTa378X0uSkhxq1P7xYrQmG4N+/5/9iQmkY
sz+FQ82S0+Xfv3pIo6M3R7E/VLqYWETq379+eifKlUSvP3r6kUb67d+/u2f2
HtlKrD/NYiaQEvHfv5uZmZmZmak/ZR8tOabz37/OtR0N
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(2\\!\\(\\*SubscriptBox[\\(s\[Sigma]\\), \
\\(g\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.4992461737024228, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E2s\[Sigma]Repul", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcErepul", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"3", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(2\!\(\*SubscriptBox[\(s\[Sigma]\), \
\(g\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)+1/(Z R)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.3"}], ",", "0.2"}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkApOxVlCTm/v1GOLzyF
OjtAljoGfpcPv795i88OMKM4QLSlCtT03b6/TpiyvfpKNkC8LDj2v6K+v0DN
c3jjKzRAZGHFkIVcvr/bz1LGekAyQL65W/bYCb6/usEQmdWDMECV71sNcam9
v39nI2YB4y1ABXsLeTs6vb+BAvOA6gorQPrvgGJOu7y/xvwaDB14KEA+eNrj
niu8v6Qn2BYBJCZAf6xDhnGJu791q15RnwgkQHHka92e0bq/PKOsw5EgIkDb
leUe7P65v+0PwPj1ZiBADQH6j7kJub+AUoD1wK4dQAQop9Ma6Le/yMQSAKPb
GkAmmO0XNY62vyNBMVhVTRhAUk9N26nutL+W6CmUS/0VQOwttNbl+rK/0mht
0pjlE0AEb+ZiR6Owv4kYG4vgABJAMJbKhEOuq7+rXWXTSEoQQJSY0I1QCaW/
L68439t6DUAANVp+K2Oav7tmDCiurApAQOp9iaTwf7//wmhv2CIIQIBqepDG
9Yo/SMiFvtnWBUAQCCm15DCjPwA51I/PwgNAuIHMuyLIsD/NeRS7ZuEBQPAd
2oUSCrk/myO/0M0tAEBesEA6iT7BP9qMlYNRR/0//NABVmChxj/G31toC376
P7wBChDqv8w/JB3+zqX49z8MVr3MG9fRP2b8mR+rsPU/lOGErR7B1T8RxoMe
Q6DzP4vXy6QCKto/MZi58iPC8T9bIGdh8x7fPzknJpmEEfA/JvKsLTFX4j9o
NvdDIRTtP508Lb0UdOU/bdB5MbpP6j8s1wXh2O7oPzKIEvW8zuc/ndUjQA/R
7D/4luNBv4rlP3YucWCfkvA//eYnFPN94z/bKjQ2f/vyP++h1NEXo+E/u9RE
somp9T8b2hir2erfP3opqxzJo/g/M0rTgkrh3D9qZND3AfL7P3/I2fS5Ido/
xNVeh8ec/z/ySqpgHaXXP2kTgkTJ1gFAxxytsBVl1T9pO7IobRcEQGtYJgff
W9M/s/ZVQhiWBkAh+tf4QYTRP3kxQ9QvWQlAe1n4Xgyzzz/1/XVqxmcMQDbV
sqPMrsw/0mITaa7JD0B0kOgkCvTJPy3gKj/HwxFAXi2rkcZ7xz8dmLAUfNUT
QB8eDfitP8U/HtwdR0AfFkCqd52OBjrDP0ok9OrtphhAuxLdCKJlwT/CB3aw
/XIbQPmNLaKge78/B48tjZeKHkB3cTALp3y8P4G9fpDS+iBAp3UKNarGuT9V
dEsDc94iQFvu2gi4Urc/KCUTIgP1JEAX0uSkhxq1P8YQPovbQydA5/9iQmkY
sz8Mo3gr5dApQHpIo6M3R7E/L5VvYaiiLEB+eifKlUSvP9hpZ7ldwC9Au2f2
HtlKrD94oeQ1AJkxQJuZmZmZmak/gUsbZzGAM0CMJPdw
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(2\\!\\(\\*SubscriptBox[\\(s\[Sigma]\\), \
\\(g\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)+1/(Z R)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{-0.3, 0.2},
  PlotRangeClipping->True]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p2p\[Sigma]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CalcP", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"3", "+", 
           RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
        RowBox[{"Reverse", "[", "ZRrange", "]"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"3", "+", "#"}], ")"}], "/", "4"}]}], "}"}], "&"}], "/@", 
       "ZRrange"}]}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<p(2\!\(\*SubscriptBox[\(p\[Sigma]\), \(u\)]\))\>\""}], "}"}]}], 
    ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Red", ",", 
       RowBox[{"{", 
        RowBox[{"Gray", ",", "Dashed"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwtjnk0FAgcgAfPsa6c69pxzlLr2Rw51/b7YVferLRjV1hLrXZcu6QiDEmO
V2RIYcmRTHLf64lhx5GhNjGOclSuJLOOdQzjmNp6b7/3vvf9++n4nnWlChMI
BPsPfqyy2DqnQOUohiv7bM52ayMl7bBtks1XGD/l5GJSqIlR1wdkjRlWyFVk
3r+2o4EuOQ3tu2QLvJVZ9YvmLTXE/guRc4ZH8IWbb/nMryo4OeDKpqEpGpwO
HXMOVMbWTrnc0QRjXKqfXjuZp4iX/fX8hOaM8JRVilLgljxeEd6I40oaYki/
xp77RTlk76tLEyMPolp2alvHl7J4z2DsUyGSPlrmy0Y6VUlheKUP5Y4ECeei
y8xcTn2Ctoyq7gxtXSQnunvcsBfH5QMdfJ6fNtJaJ6vDKKIY5xrH66ghotCP
ZsG8qyLY91CBwJhUx5Fwj+P0WSHUszPxcDuuikV/bx0l+RAw++2hzO8EyjhA
ixLeXxXAUEDwUM68IobWFVNOeu1BsqrG9WmCAgatOSfu7PCh0ps67ESWwyv7
4vObvVtwuNZqapImgxcfutc1dW4C00/6YE2VJJovZTD35tbhfVfA2TFdCVxb
avHnGK6BU1/SX+PPRFEPdhOkjVaBYD2SPtAlgkncsiPuDkvQH6XE9JsRwv31
ZDNS9iLk6bEG+40I2J58iEfXWYCJ1KwEyjEBxNQVGmvOvgb2lFeAVOwu1M44
bDNHZoFEfPe0hL8NP3P62tO3psFvP1erso4H1qqmBFbyK5BnJ2g6FG3Ai2WW
zWjUJJjktKzrda0B0CbOFzWPgbWBfm6i/L+AtttLcl8/gwCLbQcdpWV4sxKa
MisyAsGDUSatJ7gwFFSYNiA6BKbXFHhtTxeA7nP7hz7bQeBnz9mxUuZhgi5v
ho79IHhjoLRxaQ6oN3868b3/Y1i9O8JRYczAyp8FqmHDvaAxoVo5zp2CcMNu
QVB8D5iRh+PJMy+AJflh8fduuNw3vtmiMwHOiw4hWamdsE6uOE0seQ47zX7h
sc0s6P2suk6ZOgqyQrzehYo2+M1DX3zKaxi+PT9lV8RtAZ3d53y7RA7cfpUe
MxPSDNGefB/pxgG4vzik1m3cBBajDYwnNU8gw9tzjPhFI4TdeEuS3HwEgUkU
rQtu9eBjVJnBju4FnXExep1XLWhpyvCroQfE1gT/PPKugoqIgjQxm25gUfNJ
TuXlwFR4KVFM7QTZjvUkGctS2KEbFRdFs0Bg3RPcQCiBiHPGUqUxbdApRXxw
jsCA0nBJ8wp2C5zxUCpUMbkLXisTEg9cm4F6adtxXuMOqAy9vndVvQneHShK
Sf08Hxbe+9oHqjZC2Rm2a2xELtCcGAzLY/WgYc4150j+AbE0g8dZ39SCbtkY
xXE8E5j+W5rj5CogymzEW728CXm5HymHCC8LT7p8BhD+pzyMzjHxnmX9B98h
/R8=
     "]]}, 
   {GrayLevel[0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVznlM03ccxvGCirUWRwsF1gqCkBbGiCDjUvTzBTqFmjmBbKjEDlFKiRA1
SDiKUgUilzq2YcqQwKhEBwUc7OKyCKMwJoVyiMBMZRz+Wu62SEGO4fj9s3fy
5PXvYxtxOTjSkEAg+G3uvf8Pg8KC9/0IvP/CoCHqrfUQRwLFQ4KLTlcxuJHM
6sxnV4O6yCGUeh2D5ACx2PP4T8CmWzV5Z2PwZiPCL9qyFjYsTDmtIgwsescf
3qb/AnlM1pH+xxiEzQ4Tfw/+DeIGjzXn12PwKJ7kXi6rg8qQx0HucgwSrrrs
fpTSCLlpZ7wmxjBYvuNcWiKQwpUYyo5X7zb/UF8RSyOfwceKOzZnzVVQnlB0
1+hQKwgGVfwSNxXsszbWV0Ib/KMQKldCVMB1rsiTCdrhRQ09ujFBBde+xuxJ
uj9hZ9bJUlSsAo+BGvHzqucQ4ny4c7pTBYIzei65thtEGXNtLu9UYLsyqPdN
VwB7gw6ZLmq4dJq5UxnWB8Z/jb8WXFJD+97KJ7TIASgQ034tlahBwykPtyob
BG4gTSLWqSG1Y0hXZzsMJt6FRz3ZU+DG6bvFGf0bjkWfPeX4YAoYw5YVQ2ol
+DMuuIetTcHcD/0KC/EopDjE69r407A2yTLTXh8D6fKuthTlNOjvj/lKsyfg
6URiT3XEDBzMpC42yt8AuZR9pFo7A7E9Sa71n6uBcY2bO/vtLPA9lvxtzWbg
+661U8RP58CbxSxIp8yDPCuQeX77PLiK6jR2LQtA5lWtZl6ZB4oszdq/RAvp
CyXtJtg88FYL9lU8WQR66mT7RzELYG+1Li/TL0HgbWmc4/oCyJRh/N03VkCz
ZD58q1gDw7n5aUHH18DjwkR4f5AWCu2kPV3OBCTP+wqbNNdBV5JZA2/UAE36
ZJ+rndcBwbv/XnfLNiTcq26PGl2EgI6Mp0MvdiD7cT9lzNRb2GjhX365n4iE
53/2jKHooYFHdqiSkBDXzcgs9MtlOFDtpRxJNkai0AdzsU0rUHEusi+AY4K2
XIUsS0bOawIVbbkOvfzYXtGEKdpyA+5jjt+dWKOhEzqzzrJ1ArLzdT39xWeW
6JsSS0k50xB1/EEliEfo6GLELqEidvNnsHCxucoKIcfm5PDB7Wjmg2b9Is8G
1wj5iCWteTb7cYkovoIbVEy0xyWhh6yX5gb2TFwykq3SyVaJDrh70E1DrVBN
ckLoZhKKzzBBqVF2PIMxZ9RcS6kVLlBQ/TOTgoE0F1xTNNIdLEtGB3FpCHXF
JY45fYJrgU6KappWOB64H6KknO49LmIvXAYKunvAJ+PQYVxrRDPSKIosjiLS
tmVMnmOD/gUWNfnW
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"p(2\\!\\(\\*SubscriptBox[\\(p\[Sigma]\\), \\(u\\)]\\))\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.5738762944053138, 
   8.382590900883523}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",ImageCache->GraphicsData["CompressedBitmap", \
"\<\
eJztWw1wVNUVfiSb3U1Bi1ot/TUtovhPmUrTAYUWFAa1pUinaHEM/mwjjpih
kYITISkoIWRK/IOorKCApIpNoDEJAxpa1DD8uDixrhVopEFXGzR2dmxqt+3r
fvfcc9+9u+/u4s/YdsYZ9pF9e79zzz3nO+eee999V86uLL/p1tmVN98wu2Ty
vNkV5Tff8POSy26bl75VOMhxBpU7jrOvxMHfbvpPeXHT/9ybccEd7++TxX+F
biQSEX+JD64zPvHfq93Fi8W3c8Q14MSiEQc4fGraEmdT0/Q14bTVRJ1Y+ltB
VtMapy3hnnlcTYXUM2RT/XaBuAbxs/g1Q/oIK6TQgGTew2e4jxaRaMwyjjFZ
RlrrlpWJb2SNoOPGokYHibYaJxpzR4ovnzMsIJqkm0dq2pyE+fcIlubTPC29
QI5YChffvmnYOCLuF2pK+fRyRh6IzzjIXkN8fxbf/Xu6SDOcsNv53LUm5yyL
jZRs8T3mRCPitxGG9tS8yEfsGVKs8GU0lq2yKZa5qjf3E0vtwkqMRZw+cqJM
uztlShZlIhFzvDkooztd+21ELoZlSyf1i+lnOUyLZOkYs61FrMNqcOSwSSyy
s83T6U6YoJmniIxZkzauF55SoyEkqS12vJQh9g62wvy6Gqn5GQOwiKZmIW2c
Nq2LdZhNnJPXMEx8kZhkjh4s3RIxXGOJSRkYYX+MJ/tMLeT1+IGHxUhzJZdi
O0zT3r8LzxjHkVXIRnF3JDniHEkeI69TEpceLTR6yDtxZTb1F20QrEb7nZV3
s2YvGTHhfBievRhmm73Stj3u2avHLSlxVAkwVstyTNmTpChPOSFq0IcQxew+
2Ye22XLw1ZNzloGJKBOgGtDtIz6JNqcmGivU8jd3TQYZZs5aaK65LxrVA5dF
6y6JijZk+8w2FquYoxmpG1jSPMhX0t4bDbUJaFGkp1IvZXjGLNRFKe1AXPF7
oWO1/wn4z4XCZ+MSli3RkTkFZuqpzBDgRj51gR9zCyzDjkXz6UrWDUDPCnfl
yi63tHSUG4sFPaMrYX73Qp9wu0+jj890+e/pcqKTnU4CzE4thSiSa2Qu8Ale
k/CW4P0IAVHEWiMYEBQL3GXLuHD9v7L4Z7r87+vCUaGvHAMsIXMmy2J59jSh
L8+zI+ijR0VI1zrsDgwscxcsQHQMcxMJLqSNkZ33Kdz7vFJbTc7SMsdjvY9S
VWUYtLDU7epCrTzNbW527v4YQ8mqGbXtmogxDFVxFVr9/LFGRsYJDHX7+5vd
adNWuhUVcLj48duZWn6Yylb1IJMpVx0j3Xic6ror7BgZPJyUZ7qbNhHmcjtG
BiFGssmdORMjIcxUO6bY1E3QW/wyRcOIoqnYZMAEt7OTWk62Sx/saYRVKHoh
zGV2zAl0D9rDH8ASZpIdI9MKWMl1HWEmZmGGDgwM6MEEbwBT7q5eTZjv6xgx
9P7a2trqzs5OYAkWAEVWu+XlMDRUFMgJOlJMrCX9/f1rW1paEvX19eV79+51
hlKv8Cd6hTWp1/FZWB7dqEQiMeXgwYOSeUpjMVGLFpfk5V5pb29vpoWR0rCn
5Fl4XF457Rs2bOhpaGiY2d3dzVaf4ra3m4wYq8kRYiSbMYpYY2MjpEh0AIwD
N6CNirvv2hWRawwYNtP9MAhEeQFWapczhO7BrRN6enp0usIpMXfUKM/A38kn
J1AWi8Xg5OampiY4bLBHE4wMamGkApO9/ZDpmnAqlaro6uoShpL3YF6Yucxd
u9bRspOvnK97SQ07zfgolo62w06he5s2b968urW1dVgymRQ7g+l76Bbdw9vU
/bfyySlCvCzbsWMH4mdlR0cHhiUzjvA72GeodqFd5Kl0Dyot2LVrl+6vbNUu
sMv5sidHpYJQDpXOy+QyCQhACYwL/2NcYZsu59p1+QqJAl/AG/DHE2Woo7hz
tl3a13wio9jUyuPOSLucb0i+paNiWhyR5PJ0pPgEtZRKZ+YTFUD26Vy3bh1i
HzkgZCYOL/WOsIuiLatCaAQxI/v6+thv0Aq5mCdXARhuF3Wh1EoLc5V5SGO2
m8+joSKj/kx/hGjaNixEWuQMIFOmSgHoCl0KUInZjV4O+5XN5K0iTgsgCmJU
uFp2w7OCQV5KAxwnxqMJUXWLeUbuLiEakA2F7iEbb4hknD2NHalCq6lFPhPJ
xGsn6M1cUl6jiOCUZ2z+F9g9CarqczStKALgF6yOB5LKwV/SLR+07TL7jWWU
1Ds9DiQzdAgyBzw3oyN0iI4FZlhGZ/47tX6djfaCWRlO8zSMhtJDBeFpdrqP
8XyAWUr3FcoQ+Neb6U7NJ0eMHxxHGQB5Wv2cRfNT7NJKvSyD1ADXyZVggIte
xLSi8kl2Ud+je0gjJlmH2jEX0z0MBpOsSHQFJjG5khSAEzVRQhLVXAEAYQmM
AWMpMHMLqlg1hCF2dUTlWABzyj0ilMpmbhxsR19K/OL5DAPgfKhcUWyHU2Fd
DIJgKKhXeRIBnF3hrQ1C+VQJQBZciiBBBVBgusjjW9AuarKXl1T5WmCSjWda
AQjYRdFCKwhnQRxHENYXJW5Pj2hUkA8ehmH0NIPlBjQwSld/CVeSBJgVsQO2
4A5QsAUegiAW/22X8EOSIEoovid9jUTAvv6nJkGsXabT0JGxQC92KCePf9h7
vIp65AjleIee0Jenzb/bJfxYXEMwO2zHI2bPiU2EATv8GnL2WalDh+Ap1NCI
x/fzIYKoXaFyRU9zM6KQ2Zu0I39KqmKAHM63platgpo8fTh/tcNnERze4ZoJ
HAWUfeu8Z4fPppFe3nvgwNb+a69lZ76bDxHEmhKU/E1rNLovOX48u/WYHXk9
qapPY+XJ9euhJhwjVoN/ycx2N5oZhnnLGepte3flNLSrD+7Z83zXvHmvps49
FxGbyIcIIlZQ5PTV19bGu8rKtqWmToX737Aj5xCS6+k5iaee0t3fa0fOJS05
P7HLj9gRtxFiTuz55xON1dVvxy+5BBPP63ZEhbgWgR8vN9533zuNd9zxamL8
eLFS+JMdNs+DTUzu3o28hY/Y4zhEML0a4+rUr6i4nXRGjy+lRo/ekohEYJfX
PpyU+aQQrPxe/ZIl7zddf31jYvFiQZxXSRTXteJBoFE+BzLLZ1GCkmKivq3s
2rUrWV9dfTQ+caLYL4rrIuWpDu3xPsQFfLRc6Ik8PXX0KCZilXP+QCJpZRvw
nnuSOD9pVdRUTBzJGTN6O2688fLkzp3dJGiwZjmgbDrdSToh9J7sWLMmVVtV
dajjllsuSr7yivOS6QT9Wa2fExZ7orZ2PPDAsb2TJ3Ot4cTsZPoljQOG1XP4
fjtiCSEgeOXAggWphsrKx7vuuWefHXEXISYmXn75SNP8+R80zJ9fdXDTpj12
xDJC/CSxc2dX74wZTO/dmVloucdfxDWKtIl9Bw68YJe8ghA3pR55ZKCxoqJ3
XVXVFT3d3c/ZEfWSN2mrRON1dR80zp27u3XJEjEB/N4O+5VnpnuTCxfCuEgm
v7MjGqQHZbEGcka7HnpIVF7P2mH3EgxMjHeWl4ND7S2NjQK2ww67n/S7YmD7
9p7OsrK+dZWVELHdjlhFCC5yeBdimx3RSKohDWL8R9YtWlTb2d4uJo02O+xB
z+LL++++O9kya9ZAbXX10s7t252nMynwsGfnVf0LF77TNXUq+mu1i496dsYY
OAkIg22xw9Z6dkbx8UZrJJJoqK0VK6hmO+xRgmGzLtYzbRrsfLRhxQpRtj1l
h633jH24b8wYNvZmO2KjaWxM3ZN643Gxl/lrO+xxcQ3yBP7WwbFj322oqdm2
4bHHkNA32ZFN1CGX3n2xSZPevP+uu4R3H7fDnqCRZZp/ox1Bgw6y5VH2Ld/7
xBMoVpDuHtWQosIlswZh8r0D48YhKlAzcPu19p5aPKu/NnD++Xs7KysvSB4+
nAOxlRAIbb1gKoB/H7bDfiuuIb3cf7S7ru6t+hUrsJ8j2PGgHU5REBQ5OJ3k
exKlpfub6uqwDQR/N9qR7aQvFjmwPuqNH6SefjoHguI7iPyLPMxFNyyJEuR+
O3K75wdk52cTV18db2xowG4dkJS41KSrlwaWSfcZYhxnoGfic+agcBIheA9J
s23jyI0jv5mzkxTgwOFZs8EUaB47VaWGEChKlmc9l/Jsiqrx9OSxY6haxS5a
vSnT7yCxRUmaaUK8hng9NXx4c1dtLQij9hfrdOlFJC3qPU1FT35Wfc7Lhxg7
CnJM6MKqdbmtmmNz7AWTaCAA/CbX/WoLC5+ldiKog2umcCoEQuAhZ4TpyW3b
BpYuXcpRzlL9iLnHIyagKOA2dKxfL1Y+6fXTEjtyn5cgMKLm5KxZUxP79+dA
vEiq8iIZFqZ9E9dFEIhIX2SHHyBVmVFLU4sXtzatX49IR6K4046k+jHI25BA
r0jDtjZt3AjGVGlIAaTSNaBySro9qqQqew9UNYcyMznuYotHrHt/YYdTHR/i
tI41blX8ySeRHrrWrFkjJq7b7fA/Em2xLIYT8VkU27IF/s8FO0jD5KTEOz6S
l8Zuym12KYdJdwwXhuIFJXYJYFxRS+SA95BveNZAHY3CCATEvshcO5KWk0X6
xFE9sGzZtd0vvujkgP3Zcy6mKK5G5aiRPVRElmcS46i4Eea6FFiMm5938ebX
z+y9v0nWgp1hb9j9uv6WFn4OLowescPfIuX1GWjSwK5dOTqk7YoQnAxaoVM6
AuC6SGuIHLnt4Qs/5nmXlxUze9I00za9nDI7nHZpgvysBNE0vWf/fmwrw8rX
2ZH9nnf1OUQs4nLAaB8qrIc64PiOfMZb0dfYJZDrw3rwgx+8+wVOQ/WZdgm0
CRfMZAkkwL86UhRpfyOn6pzAMk6bH9Rzy6vsvX5AeuvUQELAYxgwiyeD6XYJ
qWyqYFeFd8JEFvqRHf4v8phOFazeBaVzwOga1inCswL05ZjKcR5IXOmMUXEm
Xy7oP3KE96ZVOZnjzI+4ynNjOomQYS7sO3oU7hfZPJ+Mouw0A73kESVvx8Z8
6uWd+fMRGfKyDzOTzj65Lh75gp1Q7VK9i6DtZRi/QkVcCRcGG7FjytUKb3Vj
TsLfE7N7UeWQOJPm9SJqQk12UC9WwDZorclUe098skw/Du+jMT0RDagaRm6R
yBGKp+Hc/uIM8+un+mVBZ+2GTjeFeYeFp0t+NISchtnjYtMwltdsrOY/yUu4
PJ1ij44fbaOacMaZdsp4JcU6AHnyRE21aQ59MXXsmEguOY43iesXcqTjsXmw
9Py1iAt2RDnnZCfHaSZxpafEAeY8sMDlOLwkrvIki+iCf8hxUElc9bd1CxVl
j/MdX/G3z7vFH+fvrzJLtXfJ1Nsy+E2eQ+RT8/rpBXWSPuMdTq0d0SesJQgk
h4ha2snT+eLLpTl7ikW9l1DsPWW/F2m+cCP3rXFHHmcEUIiJCsV45aYymQyr
tKIB/W3mbIjfe9HqnS7/NOD3OrC4yiSF3WjNwGww9fKe8TqCtjQ8zQ4z7nvn
c9Vw+TfjVSTVnWG4sO+7T/wyMS/WfdbdEsYGUyj9tnm0JeTjcMNQ4ZyGUvsb
Q0272SC6IUweHK8ifmwiSJEckPK5T3M+PW9MeJ5SIR8L6UoEVZBob7tlUM4b
K1s3mPFipHqvNJiHpSFFfOaSoKN6LUCj0cmsuSUYDfNKDwzTNFbBrGH0bOYM
+g8RrcBw\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E2p\[Sigma]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcE", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"3", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(2\!\(\*SubscriptBox[\(p\[Sigma]\), \
\(u\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkBqK2lUbN3Dv1GOLzyF
OjtAwzjdRy87xL95i88OMKM4QLKX9k3PoMS/TpiyvfpKNkAsqExwuw7Fv0DN
c3jjKzRALnbP1VCFxb/bz1LGekAyQIGcZrPLBMa/usEQmdWDMEB0I3wtNY3G
v39nI2YB4y1A7v21t1Eex7+BAvOA6gorQEFthW+Ut8e/xvwaDB14KEBtQvDg
GljIv6Qn2BYBJCZAWjnv+7H+yL91q15RnwgkQPUzZS/iqcm/PKOsw5EgIkCZ
y1cI/1fKv+0PwPj1ZiBAC0LnvTYHy7+AUoD1wK4dQB+TRDCftcu/yMQSAKPb
GkAI7W5BP2HMvyNBMVhVTRhArAvChxQIzb+W6CmUS/0VQDd6PwcWqM2/0mht
0pjlE0BpLSf5ND/Ov4kYG4vgABJAiWIN31zLzr+rXWXTSEoQQNwal1Z0Ss+/
L68439t6DUAcOTR3YLrPv7tmDCiurApAhgJ8foYM0L//wmhv2CIIQEmYRgo+
MtC/SMiFvtnWBUDO7YiFcE3QvwA51I/PwgNAASvdd2Rd0L/NeRS7ZuEBQAa8
VzypYdC/myO/0M0tAEAzhL4IOVrQv9qMlYNRR/0/Mwt0lptH0L/G31toC376
P9BakhL/KtC/JB3+zqX49z8GLmOxOQbQv2b8mR+rsPU/gPKCklG3z78RxoMe
Q6DzP809UZTaW8+/MZi58iPC8T8AK44+Kv/OvzknJpmEEfA/zsULCJelzr9o
NvdDIRTtP7tMa3JOUs6/bdB5MbpP6j8kP+m3PQfOvzKIEvW8zuc/fhdtGDjF
zb/4luNBv4rlP29I5fI8jM2//eYnFPN94z/aWaxRwlvNv++h1NEXo+E/+IMI
oPMyzb8b2hir2erfP6ojIPzeEM2/M0rTgkrh3D+KFak1kvTMv3/I2fS5Ido/
6YIrMyvdzL/ySqpgHaXXP0cpmbzfycy/xxytsBVl1T/JeJfs/7nMv2tYJgff
W9M/LJHkl/WszL8h+tf4QYTRP+M0tipCosy/e1n4Xgyzzz9Un5Dke5nMvzbV
sqPMrsw/lWpf9kqSzL90kOgkCvTJP3CWrsdmjMy/Xi2rkcZ7xz9lUH6Ck4fM
vx8eDfitP8U/sxQF8J+DzL+qd52OBjrDP6GSbqVjgMy/uxLdCKJlwT+GCS16
vX3Mv/mNLaKge78/lKxBP5J7zL93cTALp3y8P6kuda7Lecy/p3UKNarGuT8X
OvOIV3jMv1vu2gi4Urc/PhGb3SZ3zL8X0uSkhxq1P1FhV3Atdsy/5/9iQmkY
sz+SUcs8YXXMv3pIo6M3R7E/uPWJD7p0zL9+eifKlUSvP7rZ2DExdMy/u2f2
HtlKrD/LRq0kwXPMv5uZmZmZmak/B88naGVzzL9VEBMc
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(2\\!\\(\\*SubscriptBox[\\(p\[Sigma]\\), \
\\(u\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.25596075909464877`, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",ImageCache->GraphicsData["CompressedBitmap", \
"\<\
eJztW2+IXUcVn7x73582WbvWqmuMdrP5tzS0xtraVdRG1DaIyqJ+CIiQEHxs
hOJS8yEfhHahEPyg+aAQRB4BQeIHMR+EjSASsNCAiA8EDYKQguATBCOIREQc
7++cOXNn7p3z7rvdZIlLP7y3986dc+Z3fnPOmTPz7n729Lm1r7xw+tzZM6cX
n3/x9Pra2TNfX3zuay8WTdkuY3atGWNeWzS4tsWl+3rUWGtNZofDIV3RB9/P
06Wh5/S41tokVXk+T9/dY3Y8Pm6vX5fPwN65w7JP6rJz9J3P29u3X7YvvTSx
Cwtje+xYdt0eP27yO3YwwNWavXQJXUjmfbq2Paxtxd64ccOurEDjgp1MugwQ
oC7ZtbVbdnHxol1fxyMG+Dir7NOfB8x4NDRQOxxumM2JI8GOzWhj00yKazzP
qUdmNjYn9BxtnUobAUzA3M1tIAwwl+3Nm8WohBFWrtuLF+sYjzLGHv0pvscj
M3R4guvMDzoxmxtDMxoLBBYJoU02N/A8TyB8kNuADAiBSsjFtALhTbu8fN5e
uEACjzG4YigoZe6Ejz6BQHs5eMHlcGTGsNgBJs5HY2ZBjAgAkxE5QA74Hpjg
Kov21i3zUOlGF+z588CG2SZsyzFxzmoHBCwRkJ6be+LS4aBrhzMgzKQY4/nL
rtiTJ0/aK1fo7q2MCizCiy/bU6e8Fx+uo0rQwx7ZD0DDC4uujmEg7SbQOI6A
BIjo7hFuO2UvXwY/q/bqVfasQy08q0KQc3yGBi45YPoJSK4N7gPnJsd+BxOE
66t2dfWaPXEC1yRwIIzJvBqTuTeT/VxczgNnZBKRYSSnItKBg+/Ap+lugdtO
2GvXwBd4Y76W9ATEHGYwAkZSCtxb+iY8IDJysZqLnQKEPoKM7vZpQB7VgXTL
FIMgobv3xkDgknBNEnhPoypMEPtMcce4M8QY1DNnaNun68kTkJbKnALukWvw
nAT2NqqKIB00PvdDPdRBLQks6KqyBKoj3Aar0AYr2bp3NuoBqdy/uFuux7+f
+bdXZ77DCrDUYZGiu6NxyOIZA3kkBNKPV+vC3GIQ9Ke0/Xg569AbUfxwqKZX
VSO2HIuZhRZvxnyooSsaQDysJVf9AIsDvKwZfmLeEopTdkfKwigQfbqEjulE
M4KAJOdqU4FER0vpSkk7gg1meIt3V2n/MHcWT4YSrCjU+QF9uj/CYkAbLtX0
sK+LfYzFZP1EgeJXhK4u9izTK1USRhRR9odMl/14k+wuXfYTU2T/q4t9KhZD
UQenoZX6P9UJ4MKyC5eAi2AMTAK8zfxbH+PT5QTApfFBKviXLvEZHgiKkTgw
kNSV5p+62OdYDOBhBIyBaxO+f7BY+7qxF9WNgUxqMV/l8ARDiAqYKhGCtr8z
iC0WhgmRVJnzBWYD8QQWZGop7v7GQN5wEfhgVATio/QnYJQtvsgWYA4lv4Aa
XCMc/xpT06L0U7omSz8ur3rgRDwEDgbXxPz8pQ5CrfQGfuBpplfG/xLPCdwf
kSMeilRp/tzCOfbotd3sDvLlckbgoEjAAIQEiZD5UxgxSlW32zRUdVGQpSLm
FIOACyDVImLEU8HS63q0n6HvPiThRJjH23Z+Xsp6Kuj+qIvzVR/WS+2NPSzU
gA0qev9QzYBfZbRAJjEFJwZlmMPf68O9wMPB82AnyMZw+It7isrf6uLr7HMw
CgNhQEQQMiOAwAJY8htdwznWgOQI+2Av6JIyARpg8690DedZA0wA4eLAggFa
YcZruoZvxBggBSskDEEEtP9S1/AyJwAgxSSAB1ggpw+oPWAJrV+/qM7eK5y7
QCKKCJQ3MAIGgAoowCIIgjHAz3QY3+SgAOXQBCnMZAeWmBy2oAmP0OWnuqJv
MySxB1KAATjQJZDAFrT9RNf0HQ5IaBJIsnWACHgGRLSDIfBsfqSr+x6rw4SC
D4iBK5ANEfwVM/Gc1tgf6Oouc9rCqGIn0CDcISK2Yj6FOQz9/eoU/pAa5sRK
eIxwBgvFUuENz9GPovm7Orwfs1thSCEPUKAG0CAGqHTU1cHTDrp9S1fIU06F
uCgkMWjoQIiv0MbbRX8M94qu9Of4ppFZcLfUzHD/ECPCAD1AtVDpgi+p+FVO
ToIWgQFxTLAwa0rUJoNjoQNtJgkQH/JU0lVyrF97I3i3BD3AK7rh+pDFX2kT
e2iT4mT5zDJK5snxfleucnLcKfbBDDeCMIiPGzWXcMEHCc8NTLklXtADB329
NC+XwMEHOdbpRb6RsUBtxUj2CWj4vG4Vl0u5OKxYRX5BO9uMLMklGPCBPRlp
z8UxaM9YxOQn9ZHu1EeCXU6RuAg+dBrMw+JSmpE2stLR/bw9o49J31wI5eFZ
NRKXUwVjyK0DVVKYNRT3bvtuwmKR28IqZ4iaLlWx0Lc7Y28o1rryOBjJui6F
dgESVrCpI69wxC2c24Yopp/b0oDPxSYqZbbsB1ImJg5kU3VoilDFFmbHVZ2b
4/qoMx66tphDf3xJBg0jo4KD1NQ5ajiKUkb3PPPlfLFbdCNfFFdu4k+NpjbP
78pPTdv+/P8T9c606r5DfVeXBvX4p0VamZo3Z9u/h6Nt4SSniqDxJIe6bW11
ULrfldVhj9FWhxYHNS1m0p+EpBaItEhjGm+9WrR2z50Z5jsY9c606r5DzZE3
1/gDAe6rfe7NJoKz2kDNJdu7mZAfIqbn0q3vKySXa6f793Z/oVl/D/YX0csa
qelteFmj7rzKWlBrvuf7jPsuuHdmyto+1Ms1R6IEd8SHeWPVfHCmrqR1yXUN
mzvTf5LVRZrf/tufQFGEt2LHB3WSjgTxnniH7zDdzFz4HxBtsx8hLUYcz/T7
8f4GkYQdLLIn+Zju0yM9rRN3VEAEGg8pbCkJ+kDCvVJHXUtO7Yy/Yovapjcf
2bsHXo2ibgoHofMkljfNeZRV8sA0X6trZ/iz/bqe6qu9hCkwJIaEEkV3Iz1d
k1qHD4lDttv9sR+3O1I8HMzzlGKJEU1/JfSQ8BhUGVr1ERJDvMSJl1fuZbGn
xXZ0ydnTcMZ5MAj5Fu8e7E+5ik2/jpoeIijAWmeVZecyqSrnsOevcT99UO2a
Vh251YzvR/hpaP+mbGr1Krhtv3rNVCI8EeQ+cWT3BnUAnoaa8spaTZX4/MMJ
t27SszeSGXqKUC2E/NFnsmk2RmN5zwrkyNBM2EK8qqF7ML2jURjOYZU+9NGD
Pjw31T4zsfLukGAXBn4fwehLAe6TB1EWJtgykZRkZqEqjw6OTc/jF9Ai/olm
C8D78OVeXuddZLQwVnF6GnLplKgbUp7dUcwej5qwptjtvdn2ZtsW21K78Dnn
hmEu8WchQf7wHh54cicRubG3K5G75Wh4bBvajk5hK9xu5MJtNb3VrK/njnBP
V2d2u9l61av1GdUhn8W6mZdCUvDRQKa6SR5G4/h1LFOJajf0anXoxiKAxM6+
sev9wdTXFlk84xfg5R/2nLGVHWBAPvcbBEskJmvo9yMukOnmeKx6PCpXJ111
fRsVr8SunkXLs6w/i6CHJUy3hKi9n07jj8gE9eSCrPMxFK79DqnEC29Yaofd
1X+ktGLAUwkDol+6epWC3oe9/8kumC6hn6YiaveOyEAfMtHWICpmSqMmm6Py
BD/sg5YPNSGPY0IIqp4buOkXyr1I2BxXcwPpKo5TPPMFe1YHuqL7CMd7Xu7a
eHTGPx8zr9EcnXFH9VoNKB6VxXMN6DMzMBoEi6R9v0euO3LklolN4SBMDSO3
gx/xkElvd4Znmjs/0WRC10R1fRQ9WUCq1Aq9yhbR77D7Tl14EiL+6iMnXDLK
+aPOTzZljl6Q0CRrUfD55TIg5W3eM+vHRUFezF1OKo9uAudBy/v1VPwux0pY
J1UcTv4jNuYYbfzfbe5tvyyCRd/u382fSpLq8m+gR/pJ6o9OPoJ+4TJkdv0P
7EX11A==\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E2p\[Sigma]Repul", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcErepul", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"3", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(2\!\(\*SubscriptBox[\(p\[Sigma]\), \
\(u\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)+1/(Z R)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.3"}], ",", "0.3"}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkC/7diNAjm/v1GOLzyF
OjtA+sN47HwPv795i88OMKM4QLi+ra+a3b6/TpiyvfpKNkBijYJasaG+v0DN
c3jjKzRAVofydK5Zvr/bz1LGekAyQPB9r0DyAr6/usEQmdWDMEAN5ZqOI5q9
v39nI2YB4y1AJXQnuwMbvb+BAvOA6gorQETGfrRLgLy/xvwaDB14KEDob2PQ
mMO7v6Qn2BYBJCZA2ZAa42rdur91q15RnwgkQNO7FmMvxbm/PKOsw5EgIkDF
jTc1UnG4v+0PwPj1ZiBAZcKWzUzXtr+AUoD1wK4dQOx9eIiu67S/yMQSAKPb
GkA0OrzbG6KyvyNBMVhVTRhAqBLWXYjar7+W6CmUS/0VQCyJ//iefam/0mht
0pjlE0Ck8hcdiw6iv4kYG4vgABJAaGuRNsTXkr+rXWXTSEoQQICLW4i/z1E/
L68439t6DUCgmETnTw+YP7tmDCiurApAYNxETc0pqT//wmhv2CIIQPh+DfAq
EbQ/SMiFvtnWBUCIeYKC6pC8PwA51I/PwgNAfGf0RPQWwz/NeRS7ZuEBQAZQ
Zj6Wgcg/myO/0M0tAEBAoNReXZbOP9qMlYNRR/0/TZEgYdSx0j/G31toC376
P27kiwwVfNY/JB3+zqX49z8MQNAZh7HaP2b8mR+rsPU/BOOMizda3z8RxoMe
Q6DzP6SqaxuEP+I/MZi58iPC8T8G1tbvERXlPzknJpmEEfA/ZGv/Pbcz6D9o
NvdDIRTtPxtrDYJtous/bdB5MbpP6j8ZOaF1T2nvPzKIEvW8zuc/Al4bvtLI
8T/4luNBv4rlP9ZTXzb2EvQ//eYnFPN94z/ypYTm7pj2P++h1NEXo+E/Mh8r
6z5h+T8b2hir2erfP2G7I3kYc/w/M0rTgkrh3D+f+h1gbNb/P3/I2fS5Ido/
MFNiBP7JAUDySqpgHaXXP6rP5VC32gNAxxytsBVl1T+OlkGmtCIGQGtYJgff
W9M/rAPeHtWnCEAh+tf4QYTRPzeJKHSTcAtAe1n4Xgyzzz+lF3GwFoQOQDbV
sqPMrsw/PR68TyL1EEB0kOgkCvTJP7hPFBTr1RJAXi2rkcZ7xz+dKJzgNukU
QB8eDfitP8U/7m6YHFg0F0Cqd52OBjrDP1buiQgwvRlAuxLdCKJlwT+5wubX
PYocQPmNLaKge78/QXwQXq+iH0B3cTALp3y8P3hUt7w5hyFAp3UKNarGuT9f
iAY2J2sjQFvu2gi4Urc/1RkFK/iBJUAX0uSkhxq1PwceygUH0SdA5/9iQmkY
sz/i3xtDPl4qQHpIo6M3R7E/KzP2mycwLUB+eifKlUSvPyNLamP+JjBAu2f2
HtlKrD914Nv93N8xQJuZmZmZmak/YbAvNRnHM0ADZfVA
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(2\\!\\(\\*SubscriptBox[\\(p\[Sigma]\\), \
\\(u\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)+1/(Z R)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{-0.3, 0.3},
  PlotRangeClipping->True]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p1d\[Sigma]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CalcP", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "0"}], "}"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"5", "+", 
           RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
        RowBox[{"Reverse", "[", "ZRrange", "]"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"5", "+", "#"}], ")"}], "/", "4"}]}], "}"}], "&"}], "/@", 
       "ZRrange"}]}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<p(1\!\(\*SubscriptBox[\(d\[Sigma]\), \(g\)]\))\>\""}], "}"}]}], 
    ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Black", ",", 
       RowBox[{"{", 
        RowBox[{"Gray", ",", "Dashed"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwtxQswGwYYwPHQh3e9H0NERNHiPFopar5PMRY3PW6UFeuY0LmeGZ2iHi26
dWmptTqZqUeYVwh1nXo/G+YRrxoSLjSjmZV61IRSW+/2u/vfnxwa7RsuTSAQ
zv3X+2se3Rgr0HbGOYUkTj+ZjD5ZVk6Zjmdxx2JF50IMCRMYI8esWfbo+EWr
/86yPnrnPW7bpVGR0fVrfWK1LuJw7DWR+WlcHCPTddk6KBjx5SaiLVIpjRym
SAubu1SYk+nWuPf6BqnIQxNTIyh0KZElavEUD3fy1PGG9Gbasrw5qjoqz8XG
qCF3T1eReM0M773SiFE5qYqlptNaUsYmeDrLPr5UrIxXq0N8CmWNUUw1k59n
KqETi92TY2iEg3qbxRWhCrii3CnZohvies6dNmmQwzTftK3OWiLG+EWs21nI
YH+vGoEl0MUybvea5okjSHGxCfD7RAfvH9Q4+FMP4UPxiQde+5r49C2Osv2l
cDzyynjeojpmZoedIhMP4LaOHmOeoIa1CW7bUn1voTo4fMKTpoLHiO4hvCcS
sOLYCwWJSuiaH3Pv9voWtNAVzWrZ8th0zviZXfImHHRHRk8byeIZMplt7r8O
nv2Z7TN/HMEkuZnpruVVIDg8zx7pPoTOir4Wsay/YThBo4W+IIULg24yhr1i
yKd0jA5bErBCYWCp0GkJ+Hdy03089kFQJyBlHYiAK7wYqZCyC+kJwW1a0i/A
mPiOVybZhoBC94yUs/NA32OSquu2oDhsje738RyoctMNXIs2wc59PC05mg82
eU0blO51+LDd70KpcAocTE2YGaprIDaRDojLmYRI6rYrWWMFVIJO2/YmT8CV
0QSb5vPLoLvE/C3o0RjYfq+21cp7Ce1OVrL5ghGQPBS5dPywCFuHrVzzeEOw
v2SqsZksAqfcIWk7pQF4Xfx8TJu1ABRJZPNidh/o8XWqZ5aFQLmSs7d6/hmc
ok3cpC3MwqXIm2KaRw+k9s+8aSLzISpPX/n+112wQau6RCybgqjZgkeCux3Q
p19Tpxk+CX+R8oR7jFaICjCREV6cALW6senaiSYg705JXDLGoCPwM9JccCMk
BUpCFBtGQCZUTv248ROgTj5mDdUOwSTPk9Fj2ABx98TG8m9+h0zO5yUZ3vUQ
Ylmdw03qAwtvKusrHw6QDJQkNfAMymkMZ0t/NlTFF2QddeyBMBspv1JWJbSo
zcmWhHdB3EzchNC2HHbuWpYUJXVA8cnsVeZ+KcTHWCuUX2+FShH5Z5N3JVB+
Vd6uitsE37h9WvmlVTFcXOXLPvVtBO3m6fFLHxSC9vifpd/pPgHbID6RQ/kF
Xh6Enrus0wDpS5dZ+t8yIdGTxTrjUQ8vvF7ZDMr9BCmJpgO5bhyI6F2lZkw/
gJaIfwxmaGw4XmvdWDH7I+Qz36uE1MBb40aqOUD434HXR4zrZpKOfwFML+9G

     "]]}, 
   {GrayLevel[0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVzn0w2wccx/Gg0zTFiMcinudhlkOrpma+X6ot6dpd3B7ac0zTxcNw+mSt
WEmVeYzNimN9YAnXVjwUm01VPXQL60U8U2zFKc3p2hG/n4QlunaXf/a++9zr
348jJyWCq0uhUEJe7bX/j4Crla+7DXv+i4COuHW7KVY9DP71fkuZPwEZPLeH
ZaFNQB4t9cwPIoAXJhK9e6gZnATFj20PEPD0JSckwaoVKEU7ak98QIDlyJOa
XOufIOzKFbsvPiIg8sU09ZeIn6E90XmOFUXAzVTa3jpJO0x6jN2yjiPg/Gnv
nTe/ugeSnneuKU4TsCFgCqvTu8C/LS/rxcVXf+h/UoXcHiiXHzRmFhJQd/56
sX7AA+h8ds53qJIAeztDVQP8Bqvx3Sma2wREM8UlkvQ+SDwu8H3cQcC5b+Uu
NOJ3yA51Y1cPEuA33iKSNkqhrpzB/XKRgPTjqmiD1kGQ9io5FRoCHDcnVcHZ
wyDMFNiHWpGQeMx1+2zkKORyz6x07iWhz7bhjjl3HKTDtEj2JyQoWHUxjNpJ
aKqhTbB5JGT2TxHtjtOQd+1IlY2QhD2s0SzW/B8g8mXeMpORYDNtJZ5angWh
oPn7hi0S/v5hbNhSNA9BpQGbHN910Cy5ma1dXIA5dTbnfso6qMoXgrsKFmH2
TKD80+Z12J1HJ+/JnoI+W3hjcmMdkofSfO5+uAxGAV4HleFKiPdT7nc0ew4D
Sxnu2UIl7HNzrcw2WQFZfrjriW0q8KloVzj3roJBbKM675QKTCSX7fZXr0H2
anWfsVwFsepKe/EdEqwzl/reTtoAF8aWrFalhPDcrrMeWxsgmY2M35mxCQql
xXRW1SZMF5VdZh/SgN/JxZgx9j9w1blraIBJQVnJZ/IlCzUMpJl1xM7r4FJg
QVTrihoo+8a+GezVQ77tcl/cvAbC+nPuT028gS5PQmaTnm3By974lEdOVOz2
nrZpo1KwI9bAvbGehk279Ao8xRT0avKfneEZotRTpmyL1kFxFHc0jGWME40t
CS5v6WK+lU3hHIWOoUWCA6coejgSnzxSsWiKCT/6JUgVelgu9yg9rDHHw4TZ
w9qtbegc7HPs4yNW+F21VX2dqz72/0qniGas8XPODv5w8nbkR/DJ7kYGokc3
L2aSis/f7FaRsQ5aaRgoqn9Q4uCk1QBTxdHsKqqLViOscXtkoePiiiOmSYUU
ujFK1NYGjAvueDLD8GujQBO8pLvGX6Z5Il5Kw9QcOmbGOcfqLDCxu9Wklb9q
ind7jCvHL3trNceZwQgJD3drtUQcOHthwdNX6y48WtHSucny02qDaYWDRt4i
f60MZBd7BeYEvIfufZY3QhgOaK6vGL5uGYQ0vQ25rNAR/wUrkvdp
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"p(1\\!\\(\\*SubscriptBox[\\(d\[Sigma]\\), \\(g\\)]\\))\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E1d\[Sigma]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcE", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"2", ",", "0"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"5", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(1\!\(\*SubscriptBox[\(d\[Sigma]\), \
\(g\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwV0HkwnHccBvClE8y6QgmVuMJYqiaOElfy+4mz29BZkYzQkkqWNSmiCNYZ
x6QiFp0QRrfVLNFYQRlJHM03NrKud9ndNxJHt6hIxCSROGKrVN88M8888/n3
sYxJCmWr0mg0H6of1lBtVcY3OopPJKV3Rt8fABbvkHexpxfetFPObZ18BJml
4zqOAnd87mxA7jxdDCE1HX9sMd1w6IV4zeDnYsCSlIwF+89xm8JVU7IyCDPj
oWIudsYvDW+VdtkNQ0//3tqJQkd8wT+Nf7FiBPLirGJVFhxw5FVFQu0BAi6p
ruUv0+3xxk6fvXBAAuJtEy3TDFvsukyfI3PGoYExuU/F2ga30b3LuvlSSBNG
sX7RsMZ+9StnnNJl4C1oeVhpcRCHmBjrOhyTw2vdB8qNWAus5zKVuromh/zQ
/I0Hrab4X9KssTefhKEBfZpgxgS3urCbtBUkWPk4hZ8MNsaJ+ZZFc7skVC/Z
XftyxxC/ua42+tkiCXJOgrxm8WMcznFMUqsgocR4f+kcTR8LSl1uhmiSIPyG
TQYx9+IediLfnyOHQ23uszNcbZxYU3J4oUcGvbFatq0tdOzaMu2tYiiDXREn
afKgBsbu1WvFBVIIGiq+P/VkD5Y6fdfC1pACzeNx+bjoI7zFO/GMd3wcJJkG
vbHzKrgs4q/1TzrGoM4KpBIHGq7LqbKv8RiD6atVhazAHaQT4zfZNUP9NxvJ
0czdQpkIIqJ/lIC16X9jjcpNlHPliEAWLoHY7VpzYfsG8g0Mqoi3l4CeuNDM
t34NiXinzsWqS8CppnvVSvQOTf2dJ+9YJsCDYVNbpPcWlXn5J3eTBHDcNn0t
DV6jjj3lb337CUiQZjr1fLWMFJXlazEdBDj/oL/RN/YCcRcm4r6+SYCyesEH
riwiR37l9Z9/ImDnOcNgLWcBLYnuNdy5RsDKr49lRoJ5tG1ilPEFj4D908bC
qeVZVPVkOE2nhAAXJlnAnP8TuZkXZI0WEZA3NLXebTmN+EdkUtYlAlaZzWdM
G58iie3iSFYuAYMHbrcbsidQxW77+0+zCTgfbqM+G0ki02L5bwFcAiy3nip9
imRoRuE505NBQNZpZZRW5zgSJZIB6ekEuE10CIhWAuW8GhUmXiQgtWLJmr4+
jO7kcY9WpxEQ5SCsFGcNope5+5wWUwkwN9NW3kaPEMv4dFgY5eZ0Pk/N8yEK
Pv/tiCKFgF59hcYNdj/iST2Gsin/U+Zwoz4LkMLG4qwD5fRkR82m7D6Eo5lx
r74noCmN7tos7kaZ+afc7lKOfDOtcS/0LgpLficspWwkf9Zw2aQLeaWWqHMo
v9iNORZv3Im6ik2mmZS5QQLB4cDfkSiFtelMOZfLGKnya0MMTly8OeXeuPdm
U8wWFJHoGqdLua72Q24hRoHRcVXK/wPQvyAX
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(1\\!\\(\\*SubscriptBox[\\(d\[Sigma]\\), \
\\(g\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.312492493661927, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E1d\[Sigma]Repul", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcErepul", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"2", ",", "0"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"5", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(1\!\(\*SubscriptBox[\(d\[Sigma]\), \
\(g\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)+1/(Z R)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.3"}], ",", "0.3"}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[
  {GrayLevel[0], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkDIuvqldH3Av1GOLzyF
OjtAMVNXD4qiwL95i88OMKM4QA6rJojf2MC/TpiyvfpKNkDXDl5IaijBv0DN
c3jjKzRALKvfb1OXwb/bz1LGekAyQGA4mvhiJsK/usEQmdWDMECClEY3U9DC
v39nI2YB4y1AgEi7k8mLw7+BAvOA6gorQNbzdpY8TcS/xvwaDB14KEC8X0xn
hQfFv6Qn2BYBJCZAcCQWkHarxb91q15RnwgkQHxqBUQYJ8a/PKOsw5EgIkDm
L3QwBGXGv+0PwPj1ZiBASoWWklRMxr+AUoD1wK4dQM1TNV6vwcW/yMQSAKPb
GkBulzn76anEvyNBMVhVTRhA2nn2l07uwr+W6CmUS/0VQPCXDU2rgcC/0mht
0pjlE0DgP/9Y9ci6v4kYG4vgABJAVMRX6HFMs7+rXWXTSEoQQATm05TdiaW/
L68439t6DUCAlcxefy93v7tmDCiurApA6I5PWvfloD//wmhv2CIIQBz/zkoL
0LI/SMiFvtnWBUCAafXmFaW9PwA51I/PwgNAhC5bUC6FxD/NeRS7ZuEBQIVt
N8LOkso/myO/0M0tAECGFV6im4jQP9qMlYNRR/0/eWtyC5UL1D/G31toC376
P4KfvnHk3dc/JB3+zqX49z/UqJT5VwvcP2b8mR+rsPU/URxVxhVQ4D8RxoMe
Q6DzP2ZWaieh1OI/MZi58iPC8T8QaNrKL5rlPzknJpmEEfA/9Q2xoy6o6D9o
NvdDIRTtP958hCKwBuw/bdB5MbpP6j9rpLcmhr7vPzKIEvW8zuc/g0QuNK7s
8T/4luNBv4rlPz7JyQHqMPQ//eYnFPN94z/QGCNc0LH2P++h1NEXo+E/Ukwp
MNR1+T8b2hir2erfPwOF7okShPw/M0rTgkrh3D9p2WI3ZeT/P3/I2fS5Ido/
hfeHmrvPAUDySqpgHaXXP7EPAZBt3wNAxxytsBVl1T8i/p/1kSYGQGtYJgff
W9M/bSTPDQCrCEAh+tf4QYTRP6c+IOkrcwtAe1n4Xgyzzz+u6kz6NoYOQDbV
sqPMrsw/LroQMgH2EEB0kOgkCvTJP23wXZih1hJAXi2rkcZ7xz8pZydTzOkU
QB8eDfitP8U/0c51edI0F0Cqd52OBjrDP5FXYjeUvRlAuxLdCKJlwT+BXHbd
j4ocQPmNLaKge78/b4jxhPKiH0B3cTALp3y8P7b/0zlVhyFAp3UKNarGuT9F
+1C3PWsjQFvu2gi4Urc/VcDLlwqCJUAX0uSkhxq1P7tVbRsW0SdA5/9iQmkY
sz8Ro6acSl4qQHpIo6M3R7E/MxVXuDEwLUB+eifKlUSvPwYu+4YCJzBAu2f2
HtlKrD8m0FZh4N8xQJuZmZmZmak/+9Bn+xvHM0CMK/nT
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(1\\!\\(\\*SubscriptBox[\\(d\[Sigma]\\), \
\\(g\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)+1/(Z R)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{-0.3, 0.3},
  PlotRangeClipping->True]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p1p\[Pi]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CalcP", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"4", "+", 
           RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
        RowBox[{"Reverse", "[", "ZRrange", "]"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"4", "+", "#"}], ")"}], "/", "4"}]}], "}"}], "&"}], "/@", 
       "ZRrange"}]}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<p(1p(\[PlusMinus]\[Pi]\!\(\*SubscriptBox[\()\), \(u\)]\))\>\""}], 
      "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Brown", ",", 
       RowBox[{"{", 
        RowBox[{"Gray", ",", "Dashed"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.6, 0.4, 0.2], LineBox[CompressedData["
1:eJwtxQs8FAYcwPFjxIjznPfjECIhZRj+f6xwPulzpqWMNpvXlpmhc96FMpbl
81nFMI8jH+9iyKOc13nMOZxHTnVEXk0Jx+W59fns+/n8Pj+SX6iHvzCBQHD8
rw9XPLQ2nKdkj1bUsCtC/2gjJcPUNsXmM4yUZ5+242siLZ0tbUa3QrXRezqO
XuronlX7eJtsiV/kizx+sa2CyAqPmjU+iaxSc1bVhBJOsT2Y0XgCq92epPGW
FLG5XSZ7LMkMyW+CyJPHFDAhUDdAaNYEqd3XEgdz5PCa8HrisoQxzuWW1GeZ
yyJzV/WwRpQhynOv/rw8TMRig6efCOnpI8muNX2DJoWRFb6UfHE9zJQn4pyH
JNrSKzsztXXQgmFW/Pb8x7hCZAj4AdooItJg1RcnhokeiXxGtQYuHzmx48kU
xd4uOQJ9ShWXEvvGvzomgroO5l7nzyrjeL8z16NKGO8uHv3dbU8RhWcjFHWd
hXAkKGQk65U8hkgyNvVWD+AXZbX0aYIcpowfH3aP24MKH3+OC1kGLQyV580t
dsC0xoo3FS2F36VUc1KI76El4LBhdaUE9jakatnIbMFBR1DoUx1xzGyUMQq2
4INLb8qTyXFRPB7Go7hT14FgPfobu+Mj/PZG6vf23HfAoim0BMwIYdqX2puF
l1YhR7dtiGVCwMuOnOSZlRXg/nonieK8B6T2FE8f79fA5HkHScZvg8GOyZ8j
24ugp7E/WCLYgvsS0pSQvnkI2M3WqnjAhwtihD+CuuZAlpmk6VSwDn/HXqiS
XnoJ5llNa7od7yCYwr/VdHIGrA30s5NlV0E0lnGkzJUHQZZbTiSFFbjvbDHe
GvIMQoZo5s3nloFox2gfH5qEE6ly/NbBBXCzCT197scJENyddWhLewXGP9l3
1DqMwd68gcJ63CyIRYye6j7DgbeFo8NK9BmQ65veTaYNgxpXuWJymQf3tuKd
L1aywYLMuU6eeQbX+cSEwNoBSOid3GgicaEx0LYhb78P1sjlX2uUTMA6b1r7
eVoP9KhXPVD0H4O29qypGEo3/OClL8bz5oCgLvAOnu0E0vaEwCF5GBwjrlz2
obVDzEWB7+E6Nhw1Ve/nFLWB5VgtfaB6ALxdtzKai1oh4vainsRGH2QmJecS
XzeBr0lFJjOmB26zKoxUIhtBS1NKUAXdULM0X9NgUw/l1LyMQzadUMMO53la
1kGL3HPxIv92qGIsmL30ewjvb5kUFcS0wSVqgFQqtQaoYWaSpbGtEJyoQsim
VUJppMSpcmYT/FXgufVNVxl4v+GKP/JohBfhvXeFKaWgNDJXfFO1HsKlRIxA
pQQWDvwcg5XrgB5ysy5MiQ7RLnT6p84PYcd62Sr2TCHERxv03/m8Bqav6oZH
OeVDS+Cm5iS5EuJvtETtu+ZCTvYHZaBpzGKsZmUD4X8mtT5lpLhHbf8CRf32
sg==
     "]]}, 
   {GrayLevel[0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVzn0w2wccx/HQ1jQehgW5eCoyD7McSlXNfL9UW9K1u7it2nOMdAmG0ydr
xUrqoSixWXGsOpZwbT0W3YOqeugW1iPxrNgaTmlO1/aXSCqc6Npd/tn77nOv
fz+O7NQIjj6JRAp5s7f+PwKuVb3tFvj8FwFd8a/sZ5hNIP3n4/ZyfwIyea4P
y0NbQX20zKMwiABemEi091AbOAlKHtseIODpa3ZIIrUDSMU76+M+IcB67Eld
Pu1nCLt61f6rzwiIejFr+FvEr9CZ5DzPjCbgRhp5T4O4E6bdJ27S4gk4f9rL
6MY390Dc92G18jQB6wKGsDajB/x/Kch+cfHNH4u/DYWcPqiQHzRjFBHQcP56
iUHAA+h+ds53pIoAB3sTTTP8AYqE3lTtLQJiGI2l4owBSDoh8H3cRcC57+R0
supPyA11ZdVKCfCbbBcNtQxBQ4Ud5+slAjJOaGKMO6Qw1L/GrtQS4LgxrQnO
HQVhlsAhlKqApOMu78iixiGfc4bo3qOAAdvm25acSRgaJUexjilAyWyItauf
htY68hSLp4CswRlVp+MsFFQfqbERKsCHOZ7NXPgLRL6MmxSJAmxmqY0zKzIQ
Ctp+aN5SwMufJkatRQsQVBawwfZVgnbZlbJ6cRHmN3PZ91OVoKlYDO65sgSy
M4HyyDYl7C6wUN+TPAUDlvDH6XUlpIyke9/9dAVMAzwProWvQoLf2n5HynMY
Xs50yxWuwj5Xl6pccwIkheEucdtV4F3ZqXTuV4Axt2Wz4JQKzMU59vtrVyFX
UTtgJlcBd7PKofG2GmhZywMfJKuBbrclqdesQXh+z1n3LTWIZVEJRpkboFyz
ms2ueQWzxeU5rENa8Du5FDvBWoNrzj0jwwwSSkq/kC9baWA4ndLFXdDD5cAr
0R2EBkj7Jr6V9m9Dvu3KQPzCOoQN5t2fmdqB9CchsuRnG/C6PyH1kZMh8uPu
7E0234QurrFbSxMZY3wMKJHHtODZ6i+b45lgZWT1y5TuLWiM5oyHMc1wqqU9
kf4+CQupNkXzJAsMLRYcOEXSw7GElLHKpfcw8Y5f4pBSDyvk7mWHtZZ4WEV5
WL+lj87B3sc/P0LF72upTQ0u23HwdwuSaI6GX7J38kdTdiA/gq/ubbFDdO/l
xU4b4PN3ezVq7i6dhhgoanpQustJJxnTGmNYNYZ0ncZY5/rISo/uotMUxZs0
Y7sLbngy0+SyaaAZXtJf5a+QPRAvpWNanjlmxTtz9RYZ2Nth3sFXWODdPrOq
yRwvnRSck0aIebhbpxXi8NkLix6+Oql4tLK9e4Ppp5OG6UVSUy+Rv05bZJV4
BuYFfKTTAS0NlKPXrYOQvG1dLjFyxH8BYhL3sg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"p(1p(\[PlusMinus]\[Pi]\\!\\(\\*SubscriptBox[\\()\\), \\(u\\)]\\))\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E1p\[Pi]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcE", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"4", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(1p(\[PlusMinus]\[Pi]\!\(\*SubscriptBox[\()\), \
\(u\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Brown"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.6, 0.4, 0.2], LineBox[CompressedData["
1:eJwVxwkwHGYYxvHFEONIUPcZR5Gm6kijkqrvQ5voGjW0iJiYVLK7pBIVN20I
0SSlaWQwNirUMsatwriiL4t1W3aJXYvPUUfVFYIljsoz859nfoYBIZ40SQqF
4njc+1eT2RjK0XDA9xutZ9bt28HjiaV98sXP8Vx1bJ6ooh1iUrgnrVh2ONbG
zOGORQd8k1XdvEe1xTUOCni9sQNwf1j07NlPsY92PTv1KgdEXE9OLLbBvYT5
2FupExpblZgjSVZY/tLqze6pTohnGNMlZi2we+LzojpuF9yX3ExYkjuLlSzY
PnqkGzj72gp60eZ4MHyEkX2yFwrMBOoSJqYYOB8HiPz6IKLU3yNX1gQHa6Xo
0tr6wZ5V1pZ22gj3Shtp+jhyYeVUi3iLfhq/+P7qR/OBg5DgmbDVUqGHn90Q
yCbYDUFXuwqFJdLGt5xru4sUeWDsaH3Fy00T20C2d9Y8DzIXz6S7Hqhhp4YI
lN7KB17gbV7W3AfYxEU5cPaPYXisqZMyRVHBloMaj/iRI1B6jcZ3oSphhm45
tcntNVhW2hFRrCJOXPNLPzIYhSa6gnlFmRzOtJzz1V4ehSN2YIjASBafSLOk
5VcJwKUr+W/ha2lcwIjy/zZYCJQLw79z2VLYKaD4jpr+GPTHqDbRpyWwU730
qFTHGGQbw2C/BQX7HNxYDr0ugrHUjCSPywdI1ltSanVNBBziFyh/bw/1FC9K
OIWNg4ne4UCheAfRKYyHoUvjQN9nGpRWbaHpfUFzrdcEKHOS9J3zNhEKO2MT
VTsB1lkNG8bsN4gprWN6SW4SLpiZMh8oryOJNYmNoe8mIdB2x9lQdQUFn69S
nsqYhNuDMdaN7kuoi2iHOA9Mgs0jla1XAwvIcauGNnw4CeLMWUf4dQ6xK58J
gswJHMybqW7+PIt+Mex5ynclsPbn8JAGaxr95xSzPRJEQGdMs1S4RNDBcw8t
syQC56j8ROr0OOra6FwIziIQ3yV822A4hkyiXtDtSwhsUEuu6xWOIhn1mhqt
BgKduuVVarQRlDvtWhTdQeCHK6YniB8f5djHc5u5BAz3RsWOD4ZQYmF8CxIQ
iPMV+yu85CKpGbtIF0LAdqSa1VfRh6hBdW3qcwTCny6ayL3tRpH2HXXkXwL+
FqVpnLhO5JxsuMxdIWCgryguRx3oi/TQeoU3BEqicp7IXGxD++9yvqrdJNCk
MiGbT2tFnzAmEma3COz+ZpGfFwfoLv/WWtkOgahQK/min16hCaH4pvEugaII
ufMlnAbEm0vN9doj4Lc6JlvvWYe258t63d8R0OD9U/BQuxadOjewqbNPYOEo
wClI8yXKcuNdYx871oXF+uzyX4ib8qHw6wMC92LNejK+rEQz4YNHdcduYmzr
C6llyOVucrDyIYFs5vsVI+bujwu+x/4fx/4uug==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(1p(\[PlusMinus]\[Pi]\\!\\(\\*SubscriptBox[\\()\\), \
\\(u\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.4998993644875554, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",ImageCache->GraphicsData["CompressedBitmap", \
"\<\
eJztW32IXFcVf9n3ZnZ2N5ts2tpu0jbd7e5mN9/RWtvaxixqW0WDleIngl1L
hw2lmLb5wyJqF8UvKCoFS9ExgtRSKLVUnFIsNCCxVooDwaqBSiAQRiQQWgkl
fo3vd86975773j3vzTQRtiLsvJm9c3/n+5x77n1v9i8dWr7rnqVDB+5cmrr1
vqWDywfuvH/qls/flw7Fa6JozXIURS9ORfjcSz+aSy/96x3ABSPhz9P0Fvea
zSZ9oheuN/P3E/Q2GnVazQhzms2VqN0183qdqLXSjroGl84ZoklxtNLuZuSG
Klisp7d61Ou0oqYl5z7H4mtJttteiVod87VOvcHf03RWoBmxlA3AM1KOdKpU
sxV1er1hA5WcSZkauBH0fb4KRiZDqBu1V4iQVKHJtIsqENGp10+f+kLn2cN/
fOLLt3/g5O+PRhqXgLiGjHFLOsVo22x1ooSh0koT586+/mz7e/fc8aejz9DA
ewdwR2zU42CoB3xgvP748z944JOv/vY555dFGVhJPrBqRgk37GIu5GrDpvHP
v5974ecPNa//y5+PeWxC8W3owNadJ7/6KRiCMft0DBswhipQyanzHoEhSE1T
fK9O3WAmz752GhLhvRJT1yS6SceYiP7Zc9+//7YTnRcc5sZKDGQ68dMH9sPS
lRiTdIjkb7z01MOOz7srMaCP6Id3ihiCjPBMaABNHPUbdOqjPIaA57yymOsr
MQtnuifgFad5CWaMx77z6yceOnjs+cccn+sqMYhDaO68X4JZy2PLrxx58pFf
PfZ1x+ddeWuN80xosOf0yeNu5rU6dYPBfOD6wqzjscNHfvwgSorDvLMSA42h
ucvEEgzXpxjWhZUdn2t0zIRmg3dUYlBRXnz6m3eEMQTZoGn+dp36Bi3jSzAX
8Rh4gJfjs0fHXMxjqI2Lp46/7DC7KzHFuDeYCZOvFT1BtlKI5TNUwi/hsWKx
2MXsKhak+mBsoA38yXEg2JxHoxCr0MRrWdJXApku0UJrp69xaTtRkxJk2icB
zS/lMRgXRnbsdhTZBbRjkum1245WYHNmVcIJNkbkIIKCnBRX1oQrQVZT6DLN
fttlgBZ6C9vPST1DkTKp2WubnjOTTnO/D5EYgmzUsmurTn0TjxWr/YKOuZzH
imv9fCUGdRiyuTW4BHOFcwY0d/ps0TFX8lixhs/pmM2aPrN5C292WiA8XBTO
6tSv4rFiTzijY6Z4DHUVfYXT/GodM615clrHMLlATzGlY2Y0a11ViSnGsMQQ
ZFaLk8069TkX9/CKs/CVOoZDiPoQSOQwV+iYeQ1zuY5Z0Dy5ScdwusboJmFl
h9mYt9Y2f6aTaFKnvt1hfC0u0zE7NM0v1TE7fYzrQ96mY3Y5jL+S8rr2Zs8M
sE+1LEJnBrtdikJUtz3mfuV8zhHS/0MLwR4X5ggLJC1z5E7sQpwtyK/d2YJh
jArh18cJX1WlQbDrqHWAto5yx0xl2A/M9UU2AR2yzkv0ISEzcjNP+zXXgWNs
3cCOczGSb748jte6UEGEcleOsXEZocrhQ+IdPqTmDZmOt1kJsh69ODyFz/Tl
mJ46vHOk8u+n22i+aPBelpZVbI2cCiM6dd4pJ/AjhELMggN9OazDbnK1xmdV
1zF7fVZ44TP3uDpsH4+BBQ4TXEbFOmbRsYKZ4VBYhb5co8P4OCuxTSKgIPHv
vKHf71ySifQvnezNvjQIaBjuHzriVkYg7OERu7Se0xEfZASWI4iO3AT6DR3x
IUbYFIM7EPxndcR+RlhPAIGl+W864iMOgTCBVJDwtbxBP+pkga6QB5gzOuXb
6VqDjpAD8qAmUT06rcM+xjAoiioJGFxC9eWvOuwTXE9AHc6GfNAHnzHW1ZGf
ZoawExh1f3LoFshLjdIpHfYZZoj6AEPApZYh0vNk3oCf5fmSDQwJk0DXEzqn
zzESbrEWgXpAgtqrOvIuRsJ2QEI+vB58+ZlHgTyuI5fpOoxZmG2RkBxnk+TE
V3T43Q4Og+Ao88zhg4sQGxswWuWPMZyr9khlX4HvE5pRy2+/ifW9zBK6Yn+H
pOw92rwG7/if4ud3zHKgw3BaLIKH4XxG2YAyUArKQUmkEGwGfyE6XmKm59FW
eCu/WSupHFNbcYgNCJcgO8EagfXGD+++ASLBZfABGeCobwCl05CHL5ZfaEH+
InMGZbv1AUdwhgSQBMah9fBIkXNFA2UFC3WNX6HrKMwLM4MTHI2kggvAHS6B
VPj+lwP4Pd+ScOQp96S+Rtcx2B58EGiwAvgj+JCqkAvyIW3IB7+QcV/oVhIr
hAm+7HaJF5ueEN+m61pUEZgbzJBwcAWEwDv+xzgqFQSFS57S0/e7dB2HuBAb
SJREqAUTgyrqnXUyKhGo0p78cZ3sI3Rdh8pqvYayBDIoLtZi+B/j1mqYS6tI
vqT+iFMeimMOxLDK2zUqGgLVqGbFhRqYQ0dAQ3R4GvMmz8j4sC4+a1az4sOW
IEXHm0MgHsUIfasGj8WYYhjx3ttQ+5bO6Gkes3oxmOgQlwTKgAteCHczbAsP
Xoh8w5VPSgzpL+lcOUkSG8t4oZ4MgVyU2LC2zorBnE6go5qNLvuiO2S0775X
Z/cbciOJWLNBZl9064uIx+w+u1raF+2fyCTc42VmIp2XdK5/YB8i/i3Gho6l
JzVlHyYshI1N+0JmRwmDYClfiJzhP5wPXq59NelkvGhpNEThUF+SKLaJQiKx
dWgsm0dmqzEBm5hOqpKbadzsktQu6nA1xGyqSmncfZee3T1VPnywKr6Ps5v9
q0mqt5xWfd40Mkt4JHqM4NGFJN3vXYUBSF6AFqzAbtCnRt6M3H0/IpKSbHcu
pJWzu0Tm3k1T3jyqCotCbxM6Wqoi9dbMi//NbF89Ui8UAozOQ7cEkmsoHIuz
fU0lquZOjTfMZaOepWOO+rQKiT1I6Mm66YAU6XZE0aNk0Z0XuR14xo5v3Yx6
Fuj56S8/z1hqgekpdVviZdmb8mzMG2lvk1XkUgUJ6MGqr9VuAWicSh562W6F
EBRnFWspNXkmEF61ANmrDVm5tS8h64WimR4iy9I2MjIKuRIbyOAJPN2oBY+y
6s2UxVqROos/4u3EFcrm/qY/VyEbWTHkLZQS2pXmCT+WOWsDMrAel/iW2Yyp
sBCrLcLPUEAhzRINCz2LpOasHcXirJCLpGHILvNeuHMPOG/18XuHshpj0qER
xjjamYXDJzXlxWVEhwnpwyz8R3MGqyoLJmRCD8HOZfZzHCoXrvzUMGkvrIoH
SpkBiphGFSa7xyu6/tDqldp28NWrrxZhh6h9NpA3GFZOeGJVclOpQMrG/EWB
sK6iM+lhmpmJ0C1I+9ELD1+1OvbAGcbxbhvjASS5qmG6cG+rJdPZkpYua9Ec
9k1+Tl9W2SgNbNKgbq8svQPwnERkmSywrpA4Y8aSVCYdApu+Dz2WbiSmZ0Xo
5H8TLt7WzlsY83JmZkjspEDfEIrsIUXtTqtK1pB1QzcU/j8WHqutIllW+5h5
yNurJYkNTVE/9OdzRoo1J5ujZO55Z8O2wNhkYGx9n9itgbF+szBEb9xTh7sF
tupwsQwWrFSsMXLvV/TAf9OqobGP9znvxox9VqGNhv1Yoe+llQjsFZj8prvp
8cnWxVh/5Gwg1rflWVc2FQSr+E2e9tmuXKxEbqcojJoE5nFYjnnJLltnt/j3
3Bz8d53PuyPmlfGW85i32eWs5PcLCJBmaE9FA6bty5Wk2Hu4Pnd4vC4q7IdI
wBYxsm5i+q7TSQVK5AFvbl9ovZmdX4gtUm7rCaFsdvKcwiOPSeAwh67bfXUN
KnOo4DQUMKqLcPe/t9FpdRq2bHhlJmfBYcdJdltmjOc0sv+77ZY7yXfzaWBP
pT5+Fxs4NOLgsruCDMLv8pcX/lMA9cjvY3MqjouoFVs1r7kUS1rKDeSzGiHn
YWx3MEztb0CaYieYCT2Y6yp1laSyz568Xk+e+Pq7nUVBtV0lLry4uOiHjiO0
9BNYKOXlX2YDWZfosyzU/kajJsZSEVosqqrZzhLNGrnw8aul/HGwmOZnvVh1
uHjUbDj451TDRnaJsjnl/fbGwNKwiLX6MVdaLi31vCFFBtj6IO0uZB3NIM7F
9cxgxRM7x9HUPCOEi3T6fqu/yMhEWBsYC3WudVO5vAUuV+OHAwrTLPMzmn0B
n9L35ucviyLyMv/iyodr5qHYvCdX3GI678+zi593fiXmycU/WvMfi145Cw==
\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E1p\[Pi]Repul", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcErepul", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"4", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(1p(\[PlusMinus]\[Pi]\!\(\*SubscriptBox[\()\), \
\(u\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)+1/(Z R)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Brown"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.2"}], ",", "0.3"}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[0.6, 0.4, 0.2], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkDtC2qpC/i/v1GOLzyF
OjtAPrizndX2v795i88OMKM4QEj0DpDY9r+/TpiyvfpKNkByugH6Gvq/v0DN
c3jjKzRA1OdhJxMCwL/bz1LGekAyQEICi/YDDcC/usEQmdWDMEAelb/+pSDA
v39nI2YB4y1AdD54zec+wL+BAvOA6gorQPEifMKuZ8C/xvwaDB14KEBX6hbv
TJjAv6Qn2BYBJCZA0tXK197LwL91q15RnwgkQGBDsZ4a/MC/PKOsw5EgIkAU
AWYqASLBv+0PwPj1ZiBAZOKY/Ts2wb+AUoD1wK4dQPtyqCU4McG/yMQSAKPb
GkDmttk/HgvBvyNBMVhVTRhAYvfqPL67wL+W6CmUS/0VQJja6zV6OsC/0mht
0pjlE0AQv4I8afy+v4kYG4vgABJAhNbob4X6vL+rXWXTSEoQQLbNZH/FWrq/
L68439t6DUCoJTZpaQe3v7tmDCiurApAEEYCx2jpsr//wmhv2CIIQADILPfM
0Ku/SMiFvtnWBUBAt92Eg6qfvwA51I/PwgNAgMEBKWqbar/NeRS7ZuEBQHC8
UkgI150/myO/0M0tAEDwWxMv1xOxP9qMlYNRR/0/4BlJ0gcmvD/G31toC376
P+gqazqkZ8Q/JB3+zqX49z9Y25iHnprLP2b8mR+rsPU/Y1/1lirg0T8RxoMe
Q6DzP++A1k5+d9Y/MZi58iPC8T/zu9nYcp/bPzknJpmEEfA/WGUBB7Sy4D9o
NvdDIRTtP5Qj0BUR7OM/bdB5MbpP6j/+GA4s/YPnPzKIEvW8zuc/RId3T4mD
6z/4luNBv4rlP+ehLr3G9O8//eYnFPN94z/MqIdMcnHyP++h1NEXo+E/9t6N
4Sct9T8b2hir2erfPxdZU5JqNPg/M0rTgkrh3D+eIOFs4477P3/I2fS5Ido/
9XiCVRJF/z/ySqpgHaXXP33fGBYysAFAxxytsBVl1T/nkSGQpfUDQGtYJgff
W9M/K2Vsvqx4BkAh+tf4QYTRP9X3w56vPwlAe1n4Xgyzzz9aBfNfxVEMQDbV
sqPMrsw/+0Vndsa2D0B0kOgkCvTJP6Rw1U6wuxFAXi2rkcZ7xz/MAu59ls4T
QB8eDfitP8U/UH6RUGQZFkCqd52OBjrDPyuDW9H3oRhAuxLdCKJlwT+SVKqL
zW4bQPmNLaKge78/b9wTIRGHHkB3cTALp3y8P2RiSdBX+SBAp3UKNarGuT8Y
7i3nNd0iQFvu2gi4Urc/4h4eSPrzJEAX0uSkhxq1P/QJ7dv+QidA5/9iQmkY
sz+7eiC1LdApQHpIo6M3R7E/pC5rNRCiLEB+eifKlUSvPwV2ncvfvy9Au2f2
HtlKrD86JXM6zJgxQJuZmZmZmak/GTximAaAM0BuIwE0
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(1p(\[PlusMinus]\[Pi]\\!\\(\\*SubscriptBox[\\()\\), \
\\(u\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)+1/(Z R)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{-0.2, 0.3},
  PlotRangeClipping->True]], "Output",ImageCache->GraphicsData[\
"CompressedBitmap", "\<\
eJztW12oHdUVnsycOT/3nuQaTWtiYnJufm4sFGyrtUopzZP1RQj4Ut8M0kNC
kQbNQ30pXgTri5RSaJF6SKHYIkhbLBwVhAjFSotwRCytYAlY5PQhkCpIsRRO
Z621f9aetfbsOfdebSmBnLkze/a3/vZaa+/Ze+XeMxfOfuuhMxfOPXhm9I2H
z5w/e+7BR0Z3f+fhqqnYlWW7zmZZdmmUwf2iujWXRfVvcQ4u0LLc/TH8M8hm
k3E2HsNvM5vOsUf1m2WTzWk2r+7hfQd7FNnmdG7eL4jWHUTrKP7pZovZJBsb
HLsv8DVc59l0c5xNZgb+VYIfNO/n000jyjjL8dqnvtVbeOfZV+KNJ9lssSgN
FLWYzPCpA9fOosIj9IuhjEDIEiWBkFDXyghiG0JGbqAUqv0lSVKRrcfUshzz
liQbLdkNpFyYQapYpAQ+ZuxTG/OOpWrGx45BOHxRqre3eV+48VgG9d9+nzup
b/sfkupTGYuv4LUcfXjl/VPvv/OG/Z3906vPZ/3H3njh6az45rt/fNm2Zx28
Fl+48t47jsbf4uRvJZ+77uOPPgTgd2cvXvz+H371o0u/fWr85+e+d1++eHp8
W1Ze/sWj90KT/f3kd88+Ybn/8pWfPmrbsw5ei9nzj98PSEQXcKUX5cVXf/YY
wOwP+KkivxkX+fN4Hdz597++BaK+/psnH7h68fwpYADPQBII3nJ1fjk7hDkI
6ZcP/OW1Fzhv6KwKTEoXXOksp34vTn/4kMVnBV1PX55dcuYvSZf+v//1sRP4
pbgunyPzw+iCTUEP0Ad0AP0MhA9+lhOHe957+7W6JL9++cePOIlLkvifz3z7
LqdZlzSDkXX9VuB6gAiAVzlGp4kR2tHKe0dclZPkqOCMYCWwHpADz8ruo/5A
ypFfgavhC7o7gU6T4OgaGl9MBhuUQoEiGAycECyCvQdxIY9TG9CGIQcbU1yu
xjE0F3RgEIAVuA0ML74cxmHrXmdQyLPaE8eMqA0iAVgBS8KsEYYmjn5qsWBm
t4zNqzQb19gdoTYwHLDDocI31xG7xCxYtmRzmNrAAmAJig1o20tsdmDdIUTA
dcchegt6wWh7c14f6hdZi7TV72Zqg+iDXOCTvcJG0YHm9ZLYTGdJdqhVDoGD
z/tajRUR6lAT2hgZaPQPeicEq3l19nEnFKsXt3LzmqniG/JA2md8Rl6Li5uo
DXILRLrHfIZhEHKAeoKPQQba/9EHV6jnZ+PUD/ikgHOCo96A2U9tQB/4eJ++
MYmRfNKY+c8v3E26tMDQK5yXwCc9Zn8SA5kb0oGOQQgZBfMazCO+54E4dYP5
we+fe+r8W688uwxGat6AIXcoYGbBScRhbkpiYArCRdUSGCkbxyCEnBpzH6RY
3/NgnLrB2MXMMhjwRUpz1dNuEahjyD/HXaD6PJPrMb3eqitSNUk+aKYk3nVJ
r0b9SBRSBJB6G/wOK1JUX2IRPb4cN9wN1BZkOzIc5VLO1MwTlABXAqtgFz31
jiw1pXtF3U7WfBI6FNidvtSDb07J5XACouhBkKH6Gp91TrcnjQkxDrGOT3ut
YIzL0YgFIzPkSHHDUiF72JDluxAtyPLuGlmKgr4jEyGXtkuwQuBOZmbjNk4W
WauMmnxSUqfug2ADI0LZqB/2jZDNrBg2/qyZIrTTJlMSWklG36wGwQe+calh
pq2iGnyAXGY1Couz6julIqSpW4/pHiM14LAYuYwbC7+BjInAPGAmfNoThAp9
HZywOoZrv6acZT4N+jrG0x6xFKJshDUnq0EcxqRfV1l4syyfpWhZXsB+AOxH
4NOaca1gPjFfV8ecTT3X5IRZ76qTvpm7n9zyc0bhGDc0zRg7a/JvRG3WrOy9
/KxpTAjmAzNSO1zdHrP1m2rE9hryXmAknyfJB8EvyNsYuV5x+QbaZj6Cj0LY
bsGnqwGJsbMcLF64WfE3n2abk5mVBGxmJSGu+8MJFbqzUZ9MeDawpPlITrAP
DVm9T8pwRrlg6f8PPiQmgLr2Ssp45ahPh8UnT+E+LXlTF5yUExbcH9+Hhw7B
6ODe4wLk7+HF9MRtgGA6rsvprNKxnZQVjOb/eUTt2SQlq2bsUmkjw5a8zc36
2gZ+nEa63zXs/zd2aNyRp5iOdVGWVpynM4/OlQgOvT4SwZ9WVLhv52tRcQ27
lajgH7oUFT05nQkvl3MF32GQEbRTUUE76rhfCJ6PT/uUfhtK28mWbW2xu53o
bpY21mljwW0tvowZYIsRthrx6QNGtr5zNA5EcaupIjpeOyGd3KAt6yJuaVVr
yMtzgiMMg192ZhkH+6v++K3es0advmDCdS2+GSUxcr80jYG9UjwGXgIj93/T
GGktjkHIWsxaaepwOurPahMY820dfG/jm/UkJnD4lhhp4TRGWjiNkRbmmLzR
wmnq0sINmN0xCx9NYqQPpzHyPCmNkcmBYxBiesoThTR1ORZpjDxJS2MgQ9Bx
bw2zwyfMZrKWSYn47NQJs2Ejz6RqbLZ0irwaC2GF+DZOkYexqG+nw7KnyMjO
nyIfbzUeS5wiG3XkDtEx7mhbPkU25CHisZqkTl7z/WEsXtIYedLHMQgxPbHC
xqJT1I1rBatCPhwNGHk8n8bIHJnGBLukLTEyR3JMwYJKnnGmqUuXSmOkn6Qx
0k/SGOknaYz0mAbMSsxjTtQtbHrKnHgiSV36SRojqw3SGOlbaYz0rRTGJ7mN
iI2kR6XlgHUDrB+WwUgvTGOkF6Yxct/cYJYvNi/DYvMFbtfarCjXdobPFgrR
tc//lViA1NhsqSi9T2/lWnNDEt9GofogFoYKm20Urw9ikVtjs3MF7YNY3G9w
X9uJIvdBLFvweNYwPvJP1iO/4b3OXa7mU9y1vJLGyC+ANEbmlTRG5pU0RuYV
jslZRpXzYJq6DPMdxkQjvmH0t4GRsSi8sFVPnbr8dk1jZASlMUEtTyuMj6pb
ktTlfkVaIhlVHJO76E711KnLWPpkMFANSDXhNYwt/EnN0fDMj/nlVqjGVoaw
YbvEBKHUimlpuy3HFjNfcMCOs7d5K/cxFOINH+VBnRK03dVKNu0rFeF3Lm1M
paSFU4rMoqVoxnmaq4D3if982Ld64LZ6rbCOnQR0lH60k7QanE7yfQFfxLBw
fdYVOmtsKBwduO4KZZwxek0y8n4k45CPPBtSMPg4XkwXkrJiBgViTMzamSyd
UHQ8J75vtiekAj9UZIIC2QOGesBXgnf4/4qoleDZBZUrKWWVZ7UqPxDKHm9R
H5FWtP9qqq1FC+MFoUIhOf9MEnbaVNaUgUM4lorFDRXno0zZXBl/x4nZLihX
m8z6arKrDWLPc+KVL6YttynQPM+nE5/Fff9h1KRS6IBEvRZzMutZofWSnlwx
zyJpyLCyqasb0pddOwj9LRTtPCXuJDXb7mZasAwbVBgtfJ+KG5B3KrJ+AyZC
eLg4ZJG/kIoZmva+Vqjdsj4pkEg3eiBTx0c0t+ByDpw0PCfl7jVRu3ZY+WD4
0jdu55WoIw+k8ESG29adLberdSnDg2ErXio53CBLYLSS31guZlhQM0jGbhz4
pMcOhLXyu5K1VSJMSFTNuuTFa7XVTIMKjJ4VW9t0IbOsNJ76sxySNHBf5v7w
pKDnhPDdwpmoHpLj0kZGWKbeMybkKJsh3TEFU6tyLFvRWdvRsiQKlsSYyLlj
ZNOvF73g6gSVFGmbGq4t1hBWvbpDsdRoZyzuf4zJioN4P+m6EYtnPrcQMEL4
rLOqCOEyTEDBCDSbuGm/qaaDR7a+0NLWrEOlzVa58IxCOvfCtWaYsrOeotma
QzPv9rxSS9ivK16P783HyimWIlwEwNVsZnxN9fVN/9VyMuxnl7bMi4N+eG8+
AbJd/wErNdve\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p1d\[Pi]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CalcP", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "1"}], "}"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"4", "+", 
           RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
        RowBox[{"Reverse", "[", "ZRrange", "]"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"4", "+", "#"}], ")"}], "/", "4"}]}], "}"}], "&"}], "/@", 
       "ZRrange"}]}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<p(1d(\[PlusMinus]\[Pi]\!\(\*SubscriptBox[\()\), \(g\)]\))\>\""}], 
      "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Orange", ",", 
       RowBox[{"{", 
        RowBox[{"Gray", ",", "Dashed"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindRoot", "::", "lstol"}], "MessageName"], ":", 
  " ", "\<\"The line search decreased the step size to within tolerance \
specified by AccuracyGoal and PrecisionGoal but was unable to find a \
sufficient decrease in the merit function. You may need more than \
\[NoBreak]\\!\\(MachinePrecision\\)\[NoBreak] digits of working precision to \
meet these tolerances. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/FindRoot/lstol\\\", ButtonNote -> \
\\\"FindRoot::lstol\\\"]\\)\"\>"}]], "Message", "MSG"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0.5, 0], LineBox[CompressedData["
1:eJwtxQswGwYYwPGgHvUWTKTifdLOmeeM1Pp9HofFxtgcmc7r6tF2pq41EqVU
6aotRSl1PdWgR7zdNs8qmVBDECao1zKP2anUMzWPrXf73f3vbxQe6xchTSAQ
XP7r/bXlNkef6JzD4AjMnf3bEH2zLZ0yaGfRneGuFLqtj8y7fFUrtgM6Cmop
Yn899C5q6tyn22OgzUhv2I4u4tDVRJG5HT5oDqYZDurgDN+Px0Ib9FIbtVQY
18a2bvXiiXQrJIq+1o2X18IbUSaRUiILXG8JGPIPI2Ka9FbqmqI5Zhzv8pxm
1ZF3QFamJJ7G0kVNm1dvVLGcKvxAytQMJSH0Oh+GMsZzgn1LFUyRbK3utLB9
Ep3YNdxcQ2O81LLd69wpj+tqLyU7kYYo/EzoKFMvi6l+qTsv6yg430DM8uuT
wf5fiQT2DBlJLOHcpIw0mjhbB/p/QUJH/3O6BeEELFw989DrUBu3fKo4edxD
GIuOGSta0sT8Ex4ZDcf7cId06u4CgYgbHXMal3+QAOfbCIEnXR3lwhtFVaa7
YFnvMD/DUkH/XII2ym9De6Ty6boaRWTaSuJE5E047omOFRorYKz5b5sfnReD
Z3/Gi6nfZTGMxo85n7MOBMfxHH6PDFbes+S9bl6DIaZWe+SiFG5cdZswNFiF
EpOukSELArY19S83DSzB9L2CdF+PQ9DLbHmY0iAC3nxQtFLKPkB/XMzCwCKY
Uo6GKyR7MMwJOKrRWoDIg2IDTsMO5P+hqhZOnAUNXrq+69MtCBEnCBme02Bd
1Lpp0vMWvqvoSnvMnQRHqlnxLQ0xlI/bT7kmT0C0/Z6rkdY6wEEU90ysAGJG
mNZtPmvg33ZSvyd/FGx+JO50DK9AWbJ9PnWQD5JCkXNX1hIk+vYwvLmDcLhM
1dpKFkGJAyVPfGIANsrGR3XYi6BdQKgcv9MHp6ZJnKm1eZijaV5kevWCLV1w
k774GvIqytnSbly40T+13Wo0DQ3BjBnq992wSa8OpVRMgk+GFZWe1QV9erUN
2hETMEBrFMtGVMDlQDP5+SABUK9/tXbTtgyM9iclzrdGQZgQMLmXXgZJDEmw
cjMfwij0t5hQCPYTTezBukG4olaqT14phGsPVk0Vt18Bweood0f1EQRbcHJ5
SX3w+MsQlyPWIzDQV5HUQi+Y2jM6A3SyoTrhSbYcjQuG1vUlcc3Z0E6cVXgW
0Q3kK27XvP/Khnf3LZ49TeqCWnJv9eesHEiIs1J6fr0DxuS+sSO9yITn8Yof
V/NaAf+Rnf9wOROC3kwrtPj9AlqX7FbKfW+Dztif5bfJP0GyTniJWJgKK8fh
LhdJzSBwnqto2U0Flieb/YlHI1S6h9wPdU+DFBZ1oMCtHpJVWlNkdxOhPWpX
f4peA7y0xAtozISS4veqoPHsO55PERMI/6N+mnah0vfnrn8BHOzvow==
     "]]}, 
   {GrayLevel[0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVzn0w2wccx/HQ1jQehgW5eCoyD7McSlXNfL9UW9K1u7it2nOMdAmG0ydr
xUrqoSixWXGsOpZwbT0W3YOqeugW1iPxrNgaTmlO1/aXSCqc6Npd/tn77nOv
fz+O7NQIjj6JRAp5s7f+PwKuVb3tFvj8FwFd8a/sZ5hNIP3n4/ZyfwIyea4P
y0NbQX20zKMwiABemEi091AbOAlKHtseIODpa3ZIIrUDSMU76+M+IcB67Eld
Pu1nCLt61f6rzwiIejFr+FvEr9CZ5DzPjCbgRhp5T4O4E6bdJ27S4gk4f9rL
6MY390Dc92G18jQB6wKGsDajB/x/Kch+cfHNH4u/DYWcPqiQHzRjFBHQcP56
iUHAA+h+ds53pIoAB3sTTTP8AYqE3lTtLQJiGI2l4owBSDoh8H3cRcC57+R0
supPyA11ZdVKCfCbbBcNtQxBQ4Ud5+slAjJOaGKMO6Qw1L/GrtQS4LgxrQnO
HQVhlsAhlKqApOMu78iixiGfc4bo3qOAAdvm25acSRgaJUexjilAyWyItauf
htY68hSLp4CswRlVp+MsFFQfqbERKsCHOZ7NXPgLRL6MmxSJAmxmqY0zKzIQ
Ctp+aN5SwMufJkatRQsQVBawwfZVgnbZlbJ6cRHmN3PZ91OVoKlYDO65sgSy
M4HyyDYl7C6wUN+TPAUDlvDH6XUlpIyke9/9dAVMAzwProWvQoLf2n5HynMY
Xs50yxWuwj5Xl6pccwIkheEucdtV4F3ZqXTuV4Axt2Wz4JQKzMU59vtrVyFX
UTtgJlcBd7PKofG2GmhZywMfJKuBbrclqdesQXh+z1n3LTWIZVEJRpkboFyz
ms2ueQWzxeU5rENa8Du5FDvBWoNrzj0jwwwSSkq/kC9baWA4ndLFXdDD5cAr
0R2EBkj7Jr6V9m9Dvu3KQPzCOoQN5t2fmdqB9CchsuRnG/C6PyH1kZMh8uPu
7E0234QurrFbSxMZY3wMKJHHtODZ6i+b45lgZWT1y5TuLWiM5oyHMc1wqqU9
kf4+CQupNkXzJAsMLRYcOEXSw7GElLHKpfcw8Y5f4pBSDyvk7mWHtZZ4WEV5
WL+lj87B3sc/P0LF72upTQ0u23HwdwuSaI6GX7J38kdTdiA/gq/ubbFDdO/l
xU4b4PN3ezVq7i6dhhgoanpQustJJxnTGmNYNYZ0ncZY5/rISo/uotMUxZs0
Y7sLbngy0+SyaaAZXtJf5a+QPRAvpWNanjlmxTtz9RYZ2Nth3sFXWODdPrOq
yRwvnRSck0aIebhbpxXi8NkLix6+Oql4tLK9e4Ppp5OG6UVSUy+Rv05bZJV4
BuYFfKTTAS0NlKPXrYOQvG1dLjFyxH8BYhL3sg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"p(1d(\[PlusMinus]\[Pi]\\!\\(\\*SubscriptBox[\\()\\), \\(g\\)]\\))\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.08718337968570165, 
   8.523062973401029}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",ImageCache->GraphicsData["CompressedBitmap", \
"\<\
eJztXA2QlVUZ/tj73Z8FRPwpsGzcEAUzjXRUTE1SVEazTLMwmwZ0vC75R6aG
04+s/cAoDhiUG3EFEgIVZU3cJWdja9C2BLtTMG7K0FpU10LnVlvdqa35us95
z/udc7573vst5DRNOeN+3HvueZ/znvf/nO8cL517W/t1N829bd61c9suunXu
/PZ513667cJbbq03ZUYFwaj2IAh2twX4HNU/6kdU/y+ahwdaDuzzBeqfMCiX
ikGxSH8d3ZWpqjlTf1aC7o5SUK5/a2no2hF0V6LjRtRVoR6ru9rNLeqZw8/q
1wS6TJJxSJJt+Jvk4aJYKgvzOJ0EMlP9kwuicskBq3R3BKVyNEV9Ge3MVnWp
dy92dAcV9/NkRvN0r6O36NlpcPXt7Y48i6o9YzHlGWVSColnHkQy1vuz+u4f
6TQS0iwe0KI+XpBMjKi+l4NSUf022WM2WQ/ssRpWaatUbmTUD2t398GS1RZi
GAHutEajKBbduTUxClut1m+Tm9lQIzqx2ko/6ykJyIGvrwAbTLYlSw7aDNsR
RZaE1FEXmnEsbQJjiaq7PFJTIFscI5L5hppi6Q/MCtDEUd6ak8R1q00mwQWO
ENh4VfgITuBZKHEXHZEL3qSNu+CnMdjHWc5q+wA0p2bVLCy0ymQW9/4hzMSb
x4OjSB4R5sCjnKANxYm+FGq19jLOCKnpJdnVD+0YU4f1OzPfmGOMGprTcI5h
MinH1GXbPMf4xKWep1qRis3zMA1lmFNQLQcAxZZ8uMdsG3FmRXt6DM4xDk0x
FgFyti0f9VfpDjpK5YwVg3loGmaim2/Q3VJfqWQ7KUPbKimpPiT7ZB9BKn3R
mhlmNm22gLWZ5/hJ3JvZUJ/Q8iI7RJrwYISZsaFi7mC46vdMIMr/SPwTgeFJ
eOR1TwzkprEkn7EYQu7kyeg+y20Rpl0upfFqSbctqg7OjnZtCFo2Rxsvy3qM
Mfc6t+XfGOP/boxDgsaAErJ9WkEkNnPLnFs87uuavOC+B+ESOZvr8VGtWo0W
jy9Ew7Xwf0QRb4zx3zUGO4a98At59GQ6azD0xlxhr6QbnejgHSPv1idRND/q
X4rMPDXaP8DVoNPnxP9A27iY7ThDa8mMRHoHU1olBJqZHu3rL0ed09qjHQ9Q
gfJWCzu5RVJ0+Inrp4yosH+LRZpliPD1QLSlfUO0aTZCmvrxnUkuD6pO1eUC
6oeBaMVUCIOEcIFMo71gYjRU6Y9WTV8QbV9ENDNlmgK1LYp6F4AGtERznkzT
ahQE3i6LBjYTzfssGkUymuYN2aAGgqwgM9X5XHmAsdQGzcMClCOoX94r02h3
R1/QzInKq4nmHJlmnFHj6qhrDv5iNZ4lk42nNgwBmU2LKmUa6j0yzWGGPdAY
oz5Tpjm8iZWdIZMdaUwHkjCm02SF9SZqQ8mK0IMQRDSNi9jxtVpNfXuzYW9p
tHU+FByzd6pFFoJqAgHAVlymTrEHyKq6uVqtbt64cWNlyZIls3ft2hVMcJkz
dv3uBlqe0PR9+/Yp2omGSdg46GHjqtO7Ut1v4tDQUFKuM6LBPkwB/xIbJ6fi
DC5btgxTwtRY1mAD7CyM+u4inJPScMLC8PDwwr6+vurixYsX9fb2kgoygOCZ
EdSJMpTOvVDjjMHBQUuVamrwaFrlou0dqU4KDLBlWyzMoCdaNwsSj/19qgw1
xsxuw6ZNmyCtOeVyWQsc+o7zoSKYkhoGwFX/qlWrIHRWHGwOvmdCw/HJeHWo
R+1HmDk1BInJMiNElpnf39+vtG4FAQ4cxgmOTcMJF2zfvh1aX7p161awZ8UT
1ycmpQYGkAOmb82aNXaMgbagtdg/2mQoXTLAUOALxmCOkWneQm0YWrkmvpHA
QwyJoRFHYoN5WxpUOGvPnj3lzs5O/OGzDsyIXm7eOFqGOlrrpG5v4Ex9G2+E
CxwjXKpA+HfPi5esUzLW/9RYpzQR8lEupF2t+qpa/QYEumNT4FoNSnDzMQW/
uLix9/1VJaxC5jFaBdoqEHURYsYZs0dkd8yewgWbuLNhlPHwrN9TwQ3gDpbi
lSuAZxNMKTqyrTob7i0e7Kkejx1jjAq+4UShI2xx56TtX98s9Eg969atQ2RR
sfMQE6HcrHZ4Yhj/5qlvGNoazsBDEAcRD/UwIRcPzoTGy6ZNwTuDsBpH+nES
x4fKOJQnVUyNk/9o4yLMEuGMS8MJYV2wMoQ08DbGsAQo47VjZahpxqQQ4gdW
rFjBCYnXDcZrx8g4pxicpPmwtzJP6sdWC0ohUU2VuWxgYCCWcavESEFmhHBC
4EA2mNS0SqXS2sgLYBVNTkY7Q5PVpQspAxGa0+U4J0LHjkIZ7SLJZjIyzTma
pj46fF5VCIUmZjwqDSqEOCAWrg5aXa5MBPGjnKuVUi8M4VOKoVbDEAIFx7h/
yiiXumFL5b1/yN31uzCUanH5lzfRCYkAwRWf/56GkrWLP0Rq5Yu6mkPMB0Oq
tvlb0kgvpE4gYKdjZXBZw1Zek9m4hNqcUJs1FgUlsEr/kooCkcBrYfA60Skr
t9X5Zxnl/UQBl0PyR0AGXzm/Qv8kA32A2lA9xG15o+TBaFmbkukfZYjLdSjc
v39/HEdCV7pcvlbTUEJYtq1gLWCuzFnAr8lAV+ih68Scz8FazrgLJqUs91UZ
5UpPYMy5lstlzO9llKuoDWpSijaiUdUKGFHR8XdJi71K21XdW6FbTrihGw65
cqjIHFxNbUinkISaT9a1EqyrMY/fyCjXaRS9G6N4/rXcfY4xKti5ctSMsQib
9V+loWRh1w9s2bIFVhF7b8Y/hZdltGuMQld3dXUpL856pjUoQ9zgn8JemeJ6
7Ul1o0bFCnUmWef4R+7n1JRcSvvKpHbjLpwvMTUNjnAI48LCGMby4oGB0/kv
VTgheSlZWaYHVC60f07IXL6rd5LOiiBMrgjUdshN+NSCAfTbcGxuQBQcKV6w
cfWJEuu4ATB9L05uJjRYHsTCqbfFjSJYZkGLu2mQeHeS38zSAD78W6irnYuh
VC1ELLyAr3a3aIFndlb1dqjE+adMqIgzTMYEHGyAcfXzU1eb9gtnnzZvV88C
UJUB6naugth3yrIZ367FV+fNNjYtVbiPbWzPy0B3mNjMVTBAW1zbAhhAd8pA
C6gNQPHmiyUtzIm3Jp+TUT5nJBMXaVoyyMGQOdB+lIYQQhpYGMEeEOj1hGAH
HFgwuR9aQArnC0bpSOPwZj7rYkcZONqzMhNfbnQhTHy7TPFFmjjMGMGQsxxv
7fHEf5CGMDpZk7Hp8szZJvrSuM9wmFd50pKBbRDbZJQljcqHGntlintIBqgN
WG0+t3haRrhXPVvtIowdLOkTwVYZ5j5ixFlC1f9sb4A4e5LG81WKjRAcR4h4
IfCUPNz9RvfQGrQHN4LFcD5CAH5SRqCBW+3EzBtaXIdzhA2ekGFWUBuMD0pQ
37TiEUi5OIIcNsso3yApQPBJlwkel8k6jetD+8jOkAj7ENvPJhlhJSFwBkZp
YtsPUID2iIzwTWqDD8UhXwuA5YjpYFobZZTV6pnjte6E2tAfuMiFGDekURag
fdYjwuCE4aFXoT8W4/qk4a01noOgBwtCC6zGjj8PySMTUyHHG/a1tTLFt9Uz
z1vk0BX7GMtIz6fJgHlWFiCmVF99BYLCNNX7ngdlchJ/gaMdzxg825JaJSOQ
KYZJGa2UKR4jlqEdLBShGZYXllTqXUdn2oAFu1JBhOFFHSILhPZ1QuASyK7f
hBKoi/iy1zR2Uahqn68RqrTLqDc1fcUKBa7w5KFX9iKgsWSXu4DuMeS4JFSA
alP3O8ZceBfx/OovdrLo1RbO/S6m7xB5UyZjc+AtY6jHdv2l9gBZAiyZV/cY
zCfgHuOWdj7gmp5D633NZdxkJ7fXhMxkoNU5zWsP8XlHH1oOkQB2evXAz3bC
I3nn4B7ZRL9HSuK3GDBTWDWsO36pslgmp5oib+/HwKWwLGf3Cr4ik1N5lIVf
za7u6uE4BMUFX0ojy6PY4beQ19R+st5JenfL5M+Qcjl3Iu9A7kk9LEzG3B+T
QjjFsXTvkkeiujeL+u7ywReed6T6+TQypRSoEwx+tLL7+45UPyuTU82eb9+x
Y4fauo9MVRlHrTtlclrahBylOLR/Jo0iBz7v7X1668JaX5z6IMjb0yjzdhlz
Z//2bRzQ1dHV22RyWt/lEWA598N2YENxGXarTE4L5/Cc2i+fs8uu+WkUytEw
2zv2PaOsjov1m5Mm86JRBec8BGc7+gc3ysO9ZEIohyE7zquUeYNMTnErPL+y
d/fy4e75GBURbF4aRQ4eBX7v7t/2FJdiEOb1MuXLRhX8NgQR3par3sLyktMe
VN7e6+P6i4UbXCuT/5YcDR6zcH/fcke+c9PIcrzh+a2uxx9bMvTdWLZzZEpa
6ud5FY3YmaxEgk/I5LTr6ZQikNbHk/ZDe6xZGPeK/qcesjNb8DEZ/jWjDF4S
LxroXcOpS0lztkxeNfEH5GoPSm+rxIupj8jkQyZO2ounK2UK2mXPwuw2dj26
Ye3Q5k/GUrwijSxvL4BX9j758Jba+iviCuNDMvlfTfBBKlFeligfgg/K5MM6
Tg6VH7UFS69nrF0z97WrOQLqQ8vxO4nSwBP32PK+xEbNSfeffJUGvRrKcYbf
sWplJ2yctXJxI3BcwqjziwZYVXUWHD7xqpfVRTcPzXYeH0C070C4/Kmn3jdC
fdgztO7DrL0LE7K0r23oWisFMvbt9b2PPbijtvJs1uxMd97C/SmfQGkH1dgO
sjtGKFZ3Pux42HmuLBJ3jUTGcwaaf2jwvhmyWaqnfss6c9/egTWDm2Nlnzsi
shxyDYxw27q1pUcrj9zINUuTY4zqOdaIHNnj4upLz9o1S5PjjOpJunBWpNDU
mSlkWr6wyK7eDctfqi0/CeKfnoyldmfkGSRj6A2znZ4yht7nRUCN9zqbHH9U
z0tfn9/V54O8PT6Szyc0mKdadqouZ1MXfdIqsA9iq9/PsiH4DYEb6+x+fB3E
Padjxxk+QOG00XGOgnO9xF596nY+U213Ux1Obzp6uWTuXI31tNHoOP5ibr06
a1/nLlnk9HOGL+jhS0ZGipX4hlh8KLzhpn6rEzw6Ohrv2IGjUPUomCunDbdV
i/EK3bqaK9xF9t19V099HJcP4VuDqPXu44SWiQXquUTtuduj2+lIQC5x8yGe
J/OevGtNOaak7g7Hh9rdU2E+3hO3CTtKy9Wg8T0j/31xc3nUsB7L1XdcLBe4
1yET03HtMu9pG6HcDe9pcrf8eCTM21Dx54Ni/hC/EyQvfCVumTd6gXXT1KJt
8IJYQMafk3diLLnkPW0291m2PkebkalySCdZHQ7LnruwLNOG3TPyz6w+wenZ
BONrEqJD6rrBmazRtv1/cMj6BBL4HH60JyTlPW12oMsdUFh343Xe02Zj24kr
GPUvk46FJA==\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Prepend", "[", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"Range", "[", 
      RowBox[{
       RowBox[{"Log", "[", "0.05", "]"}], ",", 
       RowBox[{"Log", "[", "32", "]"}], ",", "0.05"}], "]"}], "]"}], ",", 
    "0"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"E1d\[Pi]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcE", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"2", ",", "1"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"4", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "%", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(1d(\[PlusMinus]\[Pi]\!\(\*SubscriptBox[\()\), \
\(g\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}]}]}], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0.5, 0], LineBox[CompressedData["
1:eJwV1Hs01NsXAHCjh9fQDXmU98iIlCSPuM6RLi5XSfSjVNJvULgqecZgQi6T
i2qiSOVRXiG3nzyPNGYw51seEaNCyqtQQir0+9691l5nfdZe+4+z9l5b0zvI
hSEqIiLCIvPf1z+fNci5C2BPpbZATJyLNqyd7cxRtIIns+LUblpyUcXNoU3j
uZZwG7PNCQdz0YHU7ZYJuy3gaxgq8U8ZF92eYwWkjZpDvbTcBN9JLopIeS5j
mGcG7X29nixsaUH+QqrWtSBTuEsn5dbpgBa0L/Nhw3cHE8idWJlqrmxBf0WV
Xikw3gUZqwU5c99aECSCw0f0jaHD0E/T8b089HGC8lnScCfUenpIGJ7BQwPP
XXiR0AgGHhc2Bb/lIQsdo1tZnjtguWmZf6YxH9U++SWr56IhLGzaeigriY9W
0u0m7Py3Q4O3fLrqGz6K8aX5UEYMYOgVNdBk3IrOpo2zXwVuhWvsC0MV2K0o
TvRL7KSkPvzIbV9TNtKK+rsHpexrtkCbeks/qkUb4i1tpKqG68KxF42Wtelt
aEk8YfKmLR0edX4gZzHWhvLpfQoUbR0YVtOlJ2/Rjiie4ckZ6zZDA3BMkWC3
o5CSYwdyxbWhhFia1+eBdlQo060UI0ODjt0B0rK6AmSZV/o0XUML9pmP6vDP
CFCOdvcqYKUJjd5MG1Q+EqCpdU2L8z4a0ItTzYpcEKB3cqwCD2N1+Oulj9V9
RhjFusTONz1QhZmrme2XT2O0270qStdSBVbaxBufysGolSsrkjewEfYed+6w
F2CUy4jo3cdWhrv3fIpRnsOIZr3D3c1JCUZlR1x+qUigaL0Ut0lVRZjzglmT
akIgzviWq47LG2BTjsmMhzOBIvaWuTRNysM0FbUsbwaBuvwCuzLfy8FMUZVr
gyEEkn79fdRgShb+VmeA5VgE+ktpU8qQiCy8b7Q+7I9kAuGty5HKGuvhfWqV
2mAqgUqOMrrtHX6B0z9e+9PTCHTmEM1fsCwDg2YMX8eT9e3lZoMDkdJQbMw+
yp3sbyuwdxFIUiEtRKxENJ5AdT5U3QelkvB64JD68AUC0effW+cfl4AvVx3U
djpHoJ/NfkF9WuIQmqTTbvgS6G7s8PuY+bVQinEuXd6TQPatCY39vWtggki7
PoX8X3nKYuQ23mpY0/YoI9uGQCLmL/5+3rwKtp/5sH2TKYEeMmbmFLAoLOvl
nyjSIxARIV/nM0yBTOmlV/5qBDroMl6oK0qB7Hxl01hZAt2koQ7CQASuZNax
l9cSKFxxb0Y2fwXknjhoOv8DIyH72sUDdsuA/jAwKfgzRkR2XQi3/weQ+NWB
FTuGEW/wiJ8U8ztgfiy5pPEGI0tBGddu5zdw3ap4xbUHI23VlWcFi19BcP3M
iAqBUajNZnVPYgHsOaPrFNKCkc9SlnpJxTw42Rgg9GjE6Mw9IuPVnTmwdNJE
saUao/W8i2o2t7+AXPFPgopKjFJX+l+Zl8wCeRBjrVCK0Y7Mmlla82dwh+Yc
Pl2IUeebP/UD3n0CQmawq9FdjMzpOlnx6z8BL+jWJCT3LeKO1nmcPg3irobz
h7Iw8jP5aqMpPwXuHUws/pWDEVjRdZYr+gBmj/ROTWZgFNgRsaN2/yQYdQw7
+fZvjIwu/d5rJjYBGtyu7lC7TDpJdr7+2RiY+/NrT2YyRiwtIoFZMAou9tnR
nZIwWuSMWKPk98BKOdnVJBEj4+7/6rVHvwMuUvtH9sdjtDxKl/8SPQKee30o
vcbCKEOCY85Jfgvmhn8KV8VhNHPnRadi3jCw1WKPcGIw+o8JtWyENwR2MWri
HZkYbRIqlfRPDoIbjLgmtWiMTrVr+B/2fANqE//ok47CaKdDN8th+BWQdcq2
V7iAkZL7I8fq8AHglNzJ3RWJUUxr/1yNphDUMZR3no7AqC5SYyZ0oA/sHE+6
XxmO0axDsZdqwUtAXRPAkCSd00rPHY3uBYfm2jvPhWHEVymr2MDoAbbK9MiJ
UIzkH9d0LXi8ADGeQdRA0v7uOmKDR7rB8Q36bksh5Lwbygv1T3eBZl6/JYe0
5veXi9bxnUA5P6HFnDTRMNCRWtQBeEcTxUfPY3TBY/EYteo5mL9x1vgG6aX5
J12/0Z8BC0+TFDfSJj0P8/ADDGySvbwUScuapXSX2wuA2Yc4xcFgjM6njWtL
zrUBRneDVinpRPFLSZSKVhAjEkJhkj5mUJLOu8AH+zevA66kD3sf/nzlEA90
tA6e3UZaXU16sQy0AFNX7d1U0nqKyareJlywTV/ZeuocRsVhOalrdz8FT2do
Zp2kLT55N337vRnYaq7vqyZdJ/ta/C7jCejzPTl0m7Tu0+uWgewmME6tUmCT
/nbZ4O7tCwjMb1WxjSDtu6lILHW2AZh71Fr5kQ47ayh1L6oeHAg17HEnfflE
/8ElpTpgVW/x1oH0vRDJXcW8GvCsz3mPFemBNQ0qffGPwQbbPT1GpI9MC8Uf
u1SDDxIz0bqkv+scX5W4/X9A9ceipjppxa53+Zc2PgIUCqtIgfTWUNccKbl/
AE6bWZEhPfbTe88ppSogO1klI0668V0WTUTvIRBTUuFTSEfa5+WZ2lUCIZum
tHSWvN++mRxmUAXY997hywJpZiS9/drecpBDD3acJX3rGcfXqLEMrDtRLz9N
us53Qa3foRTE+vjunSRdvbbTPHuiGJQ71XaMkr6Z9W8UAXbkWMUI6f8Dj0Ey
LA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(1d(\[PlusMinus]\[Pi]\\!\\(\\*SubscriptBox[\\()\\), \
\\(g\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 31.63511464061268}, {-0.23096173064183695`, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",ImageCache->GraphicsData["CompressedBitmap", \
"\<\
eJztW32IXcUVn33fm+xqrFSjoHnZJLqotf7TEixqqqIWakkVNFAKieJlo9Sm
MVBLoeZBSyoIighpoQ9FSiMopMWyEdEG/CCCwoOKpCgSUcorFUlpK6FUOn2/
OXNmztw78+597q4G2T/e3fvmnnN+52vOnJn79uZd+xbu+sGufbvv3NW9ce+u
PQu777yve8MP946G6lNKTS0opY51Fe716NZe5pTWWtV1lmXmznxwvd7cqpV4
fj6NzesPj2/TJ47epN85olr79dEHVGOPPvYwxvBZp0+dNAwXCFFG0pfNQAeM
YDuif3vTMf2brVrvV8f1Y/NH9RPbMEYy1zysn9uDIXxO6l+uAxnID+lndtyv
Xz4QYJ2bVvssj3pAv3A/IwIJQBjfqj84dqYhm8btDv3mIZAy8kD/6oqD+o8L
2/Xxw0AkT52dhpw113ZXnzyxoF8/CKhT+ucd/IXmwFDnEc0VejgAzWH91HZg
QT14E14mnHVpnGkyraP/ewpmwGNw5An9SBf6YgzPuoasBVgmwQcmAt7Imk2j
NAllvf7XED6H0+AZtoi1vZhQcAsj4TQoAkSMGVlrJMoMUDhr8IEklg7WoX5o
Pe4xhueXEwLcClK2A/dQziC0JUIHCJxD+EAZlgYxXyMDoR8eARDphQQg5zfT
brmKeEELHvDCoxBLvLV8/l9D+kNXeAgmItw79eBxhOl/aaxrCQsRfFz/fiew
8Nck0idpNprMLeQsQAAGhzHgf9KcN3rHMCAyymTlqTTbtzwgkhpg0sJ/pzm/
XbTQAf4zzfYdYpOAyEkTwH/k/f9dIsa0KETsozTGrcWwMQaM+nua87YioDPq
b2m2HUUv4oN7jP01zfk9HzYAcZ6YUv0Bsa21lWPQzxRYs6ynFod2BdAD1e8t
quHoHs8bhqKleotD8zzH04ho8H3SHY5B1OEoOAyTDn5+j5SgOtBSetBXmQUU
93USPLoO1WIvU/0BfStnCXTZ6esF8KEHigD0gh/fJV0YbLjYs8ZlqmauHQOM
p3jGTjBOyvpqwNVhDfmlP3DACXKD1ICKd1CcUIY4213deSd0EWSxGuQPI6vF
CwBcYKETpCrmm7t8nLiCYfmBNtDqL0UlIgZRse044HF25/AXwtKEuPD0wJr0
1gR5MhM4gfPUOKJ6rtzjJznmmVy9oM+f5eRpxCfCWpevnEYOuzh3VGzy3OsT
FouaVAKFcZCe+D8KOVF02Z2Y/G+kOfeZa5sNx4RFInA6IkHUa/lK+mNiQvQ4
e9AOoImBEFNRX01j/pS0RT8FDWEjChzb+VKa82cEjALHdrK2SCMD/Kc0e48S
lvVGtktwKASDn09L+EWoACwutHZH0uwPErtsRqE/xLiu79k0+0Nef+jK3RzX
D4hAth7Ox+sR4kOQYTf4kFyAlpo/nUZ+jOoNkPOdNOYuvkMjIKjfpcX8mhRB
iQEo7IbyCAIbgGdPpiX0SRFEmk2BAlAEJiGkLMXSRsUQwhp4C4kzTgwy4mBa
0qG4JGQFzIKJvM+A0o+mJT1DZQRU8CXvkSAF0riBlXrZjBCh/gMJwUPuqfMq
cU8N/xk/HUjrRLk8A524+Ueg2Ffcoku9kAP70xJfNNdZ3k5IBSGNM4r9Bp/y
Vk/9JC32FRILUnYegpjfPfK2D2UKtGbG7U2Lfd1cz8Ds4H0rShbEYuZBLLsU
cFJjWHh3WjItKWeyZ8EllWZf8M44L92UujvS4t+mPODdel48lJYBRFBVDRQ1
kxJ1M5NZ2O1pnPdpjMNpWhiSA7GqznYgCMqOoVpwAiqLZ7KZhd6cz+oPacVA
EvBuEfWD09HKRYLnsRAtkJlDBYtFm2uLdV3ato/NtSFRkTfCvAYnAYcqZyGU
jKJuTaOa6xQZzOGTBkO2hWF0A1AmsuLRD/U4nbINAu1uuUenRpPGZHuUoR+M
tToSsaTLa/JjgaQtyUg6KyK731oJ4pJ7/tBuN0YaeRVMs2/EXReammjVeUMR
MzXL/HfLHmtkY44d25fbtnVxUEQ10R6xcjs7arGXGMuGTS4yKAuMIniTbK1K
OVrow1suNs5GmwrNICc5pcv8tyynqHWXAyt4NvuZP1+16ovz/LSzelmXoORR
1cRLUKIuVztgWNblp6hJ6ZHTMqxCCfJlWYVmVGoVmuBQaeKFaG18IYqzlC4X
E69KE6fpF3O6r1q1atVpoFXpzJ4tfWmC73maldkUUS3qJGvV57M54pc0icfW
5qXvk3jNSL3xWNn9UuKxWoH9EkFOp8Ps90zqU26amvHh1X3TqlWnl1VbColq
CulmIlUVdgFzlUiN1A2WVA7Xxr8O7yZZ6gFLfgyfCyNajMpHwo4xR5abRT2R
ALYCbjJfKm9kNrK06kdvFwQ+rvTufkMJS8QO8tdM9LH5Hke6Nu24eVZCSJxL
eCuxAGyMpFfsaHCDFVvxZwMsVpLHxBJdx4lJiBvjA5k8keUzlTyJVXjjuFwr
Sifyar9omIvQJsSqrvQ2Te5xsqV7jHc2O4cXV/c5TsPJ9q6UAJMdvG4S0R3z
WwsiawvrUlpPS7ZkT1OaLZzu1BlsYcsm2FZ3rWUlZ8IbxZSf4MceG2KpItmE
9nEI0eBNXFW22OSJdVGbnP9KzwXmkqRx0RfKBKv4gxQXhvE8vHrJLVBs9Rr5
dvLVq1KLcKmofZzSZ1kor7yBmppAFGf/lyJpXSbn3IAncy5CtyD9Zz7DRdXr
D3iXBecEeyG1PlzVQC7C2+/LiS13AZmbPaCh2ORpKnllvXSwnQYtvpL2noFo
GmKWyQLrS4p3Zl2Kctohsc3z8Md/gf9Nb6Gh8Hm4dCyl2agGC2NeT+eGBhNF
+oZYZtcSZg/6ZbrGvNuMjMV2bat0q3QrQTdt01XWHHcmI+qMmwki42ssIV+b
HE1ihi951pwRGTsnMjYfGbt4menOD1SnDoI82C6WxoJHinVH7geL3l4uD95S
cSzmhRsclKvQ1poqFldeWo2AqwRPftOdBThuXawnnTcZ9PY8dGlTYdh2L/3+
EouSO4AwJN8gkssiMTDPr6TnvBCST6g9nImMzdoslPOfZLKfm2JLpD0dvn09
xBr0/So5ExkjLG4n/SaD5VvZsXe4hoD+NUflKhOFu2G1r/AmOPxHh16v2BhB
qYY83s7tIzn6TtlwD+b85bsZnrz0uPB2oBE5/zHXS0KTLZc8NOcsrzm3R7bW
kYJsxztcVYIqlPNix0uJ767zZMPFvn8Z4hU3A18tNSnsfYtHTdbHfi/hLRqx
yncV4fuNlgq736KVoni5Vx0j4H5PnH83PNkI0OkRmmNgL4/ma83mayZ2kE7t
sviJyV7FWinK3Qf6WsntvGlA8juSgmlfGRPETrEJCA80itNQ7E9yIQimoZsw
vqbYe1nfs8CmphgbadAP3tsXDbtsvGG5F3u584mmK6bFmhJWALFoUS1pclaE
x1wdK1Fy8eRqFGJmakk9VUs2jy2fvgiHDhXHC0XzfCxi577TTobPw7bzZDHN
xTrQkFr55co8nw9XnWorXNjhtu01XPXCgLUjHjBU1BKpbfK5TKGL6Pk3RUq6
gONKB0Dq6mhoe351vSik41U5OA8TdLKBUFP/B/5XwyQ=\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Prepend", "[", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"Range", "[", 
      RowBox[{
       RowBox[{"Log", "[", "0.05", "]"}], ",", 
       RowBox[{"Log", "[", "32", "]"}], ",", "0.05"}], "]"}], "]"}], ",", 
    "0"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"E1d\[Pi]Repul", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcErepul", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"2", ",", "1"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"4", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "%", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(1d(\[PlusMinus]\[Pi]\!\(\*SubscriptBox[\()\), \
\(g\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)+1/(Z R)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Orange"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.2"}], ",", "0.3"}], "}"}]}]}], "]"}]}]}], "Input"],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[1, 0.5, 0], LineBox[CompressedData["
1:eJwVhwk0FXgfQEnx8MhWCFmeENl3+fr9ShOjmkpU0kKNJRSNyJakULZCKYNk
LWtaZH9/pZ49PJItS5YQWXr0Muibuefcc8+VP+Nh5biGg4Mj5F//q1tmyEBC
OmBqWa2tJ5uQDdzzbSniO/BZPa+C/Q9CipIGpcZTTXHfpFi45CIhh2I0TUNN
tqNGR65HGIuQR6wQ9ztjxpj9KkU2bJ4Qv8gWQa0MIxw5eS1hYoYQtx6qwj0P
Q2TphUR5TBHyx4PnVUuWBhgn9MWm+gshtwLz47P09NHkijeP6xAh2OzlO6ym
hzF2h40/dREyNcE5x6eliyzZ+FLXZkJ6W6wY/qiDdVz37XbRCdmupPMw8YQ2
fnpkx+uVS0j5a6HED9e18KLs8sDXO4SsxppPmLtpYumeGcsgT0KuOtOcOIfV
UT+VXT9oTsjFO+NRfee3ocN+EeXnGwi5tuZ78CSfGv7tzTsU2EUn3e0D/BZl
WxEbfqSUx9AJY3kTVcZXBfvuctz8aEAny5TQyaQ9ytiQHH1Dv6WKZCp3beRU
VELR2CHUPFJFOE/4RsSt34LjxTEbpBoqiXfeqUOpFEX8x8H93f6tlSRbsF3i
qiAN9S2eSMv8VUFMM/JrYuUU0MzV+q/P6eUkRbGdC3bIo87oJv6VsjIyvb6a
veAkh+vdDI92FJeSEdGQLFs9WUznpHD23C0hwVbBC9WFMthv/7Uy0uYVMTn2
IlDFVBovtCvWXlp8SereinBk9G7CVtmrPzV8XpBUR7/OP6IkMSatzv5s+zNC
26l9zGa/BLJUj5s0UIvIFdVIm0kZcfSVHQ633pVPEsa33t27sgEPivc9KNz8
hPjtLrCqnhRDl7Bx1un8DMJ0Oc98MCqK1TGdkm7MFCLwaWlMfVoEq60P0ynZ
8eSWhFTkIMe/33V6+trDa6Rp24q/pJwwVsdet2Y+d4S8k47tFpZCeNA+JZnR
Hw2eR2hujSuCqBL3rqhkMAk0nxoN9PoLYObdAwO1tZlQn2Vh1chHReqjqJwG
jnyocKKqFObz4aaUNvsdLc9AeWF0Z+ZpXty1qi+nwCyGX29cPLoUKJjstY75
ja8c0oOHRq8ucONmYa6SZwF0sKgLpXd3rsNe8VtyNvGv4Wkk21+DsRaHNAJt
lHjeAodxx+2WN1z4cl/N2vS/GfDccYa1sWkNeuhNLRofqIdmP7EKpyFOvFsu
2ROo1ASHrcazVdZw4vFltfcbFVogiUZam9U5sIOncW5cvg18xXfHJdeuwp70
hn2NDCb0RN27fsh8BdxrTuq+Cu6A5uQK77fd/8BDT3vVqoOdwBiwc+EPWoJf
Fha9XEZdYNpY8NZc9yd0UD8G0Q17QFFm9X0W+wd03d5uq3OoD3zMtsieaF6E
PBO6xavQfnBaTpTNK1qAW6uNL2zdBsHzcXNcXxoLjOySB5npQyDMuL7Z7NF3
mPlxPVpw8jPErHb3GefNA9n723j/zhHQflA2T3szB/1HnYbk8kahrf+CmvvI
LEQ99S2oVPoCxspKiTeEZ6GaOn0gu3gc/NIULjXFfoOuKG/N/mOT4GLww0xe
bBrsc7hfXhSeAlhVOSia8xU0aPe+BQxOw/lWP+3yA5MwXlxlqVQ7Azrhv3ca
8UyA3YpFlvXwLOjcFFmofP8FxERds5Vm5yBEoTk0KGsM5iKXC4v5vgM7YXgn
iRiFyjJVvhJdFui1/6nacGUEbJK+b59wW4CVMWWx71eGQfSddIDYy0WI400w
Toj4DKf0fLT5Bdgwk9bRJp4xBC555SG5l3/CUQNqwTBjECRGTvT0sJZAqkci
r3tyAGjx94PvhC7DuQY5t+Mn+kHmk5Rhk+oq6Fq2h1gO9UFhPPmUNPoLJI4V
7y3x7QUOrfrb0b0ceLWum1Um3wNc3mfFTFo5scJfbsantwti4+d0PNvW4Lxl
rr1M1keYTjuW3THAhSl1yqljVzqhMbb0vtjyWqyVLija4PgBwpNdBMaUuFGs
tIy5aNsBZ80fnqY48KDbMSWeAbt2OJfE+2J3HgWdqp5mq7kyQYFa7HeBmw/l
lz6yd95oA7O4gKWzXvzYXNXbGpPTCjLVbgOC36kYYMs+RX3RAl95vBr/DBPE
5YXXzN+U34NsdNc/uuJCaPDheUZTYRPgBvcp0UUhFDGKbH9q0QgOlJAx+0Fh
vHRnXJGPVQ+tH7ZPFHWKYBgl/CZnUR2INvZkpHWL4in1vFhGQC0sppX0dE2I
4fEzx+fijzBAetaxbS1lI8puFmAXwDuYv2Re3qcnjqriETJnDN6CA71TTf6i
BOZeTonhNqmB82aspOQqSdw+e6b65+9vgDJ9Y4gmJYUVIp8o6Y6vgbG+uDIh
QhpVau6bno+qBoaEodMgdTP+jFZPfxRAYMeT7i3sdFl0lsrhiZmvAukaV/Zs
thxevqjF/ziwEo47S988Gi6P0Q7dh5clKiBobsoZvBTwsTeffi6jDEaE5ZPA
jYa966qku26UQtQmruFFD0W0+9ZDKbUqgfn664rUkC24pHSaK0zzFei1CrVr
pCuhOHMkM3xTMdz0GrUXb1PGbT7WKfyiL0HAVKY4fP1W/PLrzK5zEi8g+H8d
j/eeUkX6SCKNQ/U5TPlk3jCmq6G/RUaGofkzaGlqj9fRUsdU5wcJQR5FwPaJ
yKUVa2CQv3LDvd1PIXyj4dAaZS18+D7BWYdeAJax1/bNrGhhhfPi5m7LfDBw
T84bHNDGEu424+SJXIjmqn3k3KyDSYn/kQN82g+NpGt18f8oq/0V
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(1d(\[PlusMinus]\[Pi]\\!\\(\\*SubscriptBox[\\()\\), \
\\(g\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)+1/(Z R)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{-0.2, 0.3},
  PlotRangeClipping->True]], "Output",ImageCache->GraphicsData[\
"CompressedBitmap", "\<\
eJztW02onUcZnpyfe879aW6saXNrbm5OkhpjrRr/alpR0oI1C4W6y0ZIKB4S
UBJiF9mZA0K7EOpCrEIPdSHUhVAXcupCCOoiCxcH6iKgSKw/HEQhYIspFjue
Z953Zt75Zuab79x7FykUcr6cM9887/+87/zdr5x/5sLXv3n+mYtPnx986cr5
yxcuPv2twZOXrsyb2nuU2nNBKfWbgcJ3Pf/KDz3/py/igZbFvh8z/y2r6Xio
hkN8RmoyMz3mn6kajyZqNv+O9x3To61Gkxm/10TrEaJ11Py3pPR0rIaME9/b
5jWeMzUZDdV4yvDPEfwgv59NRizKULXMs09952/xzrOfizccq6nWXYYaLcZT
86uDZ0fP8Qb6iVBGELJESSBDaMnKCLGZEMsNSqHan4xJJmTrCbUsx1ZDkrWW
XAqk1OykOYuSwMfYPhWfdyxV9o/1Qei+LNVPN3nfdv5YBHW3v393avWukPoK
tfX123dO61vX8VFtep7Rf3z1mr7+bXzUsnm2X9U/OXNd//g0PmqvebZv6BdP
aX1N4aPOmWf7ef3Ly47HI3n252mo7NN3blv2T+mbr7SJ2yv6p085bi3idkd/
p++4tYgb2ly/Nj0haVV6aOS03EtantJ/veHE+VHVfWdNQ++E/udNdL+qf/ss
SL2kf34ObKA6C9G5rZ/bZ4WA4KwD1HE8W8QT1nY8f523zlfNc6+1zgX9uxee
1b+6Cg439fdPgC/+x2+0g+E5PX0JfaHWa3nKXzbP1YG+feus/v3LQILKTH93
w+rxgv7FBegLatBf/SFP7gy1beg3ZhAA5lGtW/p7A9V5Wf/sLMiDDN7/mahQ
juyX6iInciVKCBWeigBfJD/BwQg9WAW6QBAIBD3V34lzIfd3G3J8gshALVgK
3BByl/WN52GtfxCzXai5kSBdyPF5Yg/FYF3YGk5DiMDK/wp1zVTjproSsy50
hY5gBqbGqrdjTgllqLh1idNkWuRIU5YOBs9U//AkVINv/93IhUSwQ03G6IZR
is+jIR+M25N6Nn1TBmlUyN0kxuuXVOKzBAdBmxTw/T/5cfQZnw4RxhAJRn8r
j+A2DHcEPcJP/beaxT5FnZAjkLEQIOrtPE2ayrUhBeRGElD/y3c/SW1QzQqs
3sl3/zi1wZ2gboJI57t/jNqQpWBACEXd9+QxH6U2jHykH0q3aGtVLfOw72mS
lqFg3uapfySH6eQxD1GbHUFeom4e82FqQzaB17zmS3nMCe86+MIbt1fEwLoY
B14fiTGQD1FPBJkv8Hj289SP+wCFu73my3nMMc4WftwN1ejaY6YKDRI5q5Ue
p4cbdR0iX21yV9lMeXrJpbMK9UNZSDuAVNvwOZiQYr7QyOjxRN5SMhMyA4xy
NfvBN5DwyVgrgQV0mCzl9y1LLdF9Tt0WY1lNPhDYmBadwfIp5rJZgEhDMSuy
11rytfmd5vR43nAPkqlt0rKUcwbLlLWtRIS5oipk3WSycv3cgKzsniJL/fqO
TIZcjRmCSoreL54yE2K2e505EvOJrbpwG0Zw6r4cLLMzlNXhRN8MWXVIWpvG
dx3tonm6ZMyrl9TIj1WWaE2lpjQ1vqVQWM3CaPI7ClgNhJ+hQIY0desJPWNS
zo5i7pIhp6RhjF2O2hh84zU1ufQ1NfnTjE20Wp1s1aUZdlA/jTH2MHlvS4z6
xDZMfX5ZzsM8B5Vm4U2weGLhEWXq4/Q5kd4pl/vy5ZkUy1e1a1gZ7dLpoIys
eH/J2UBinCfqMbaGyVVaqobNzbt4DTtCbZiVYmVhZghvimxnQ/d9TNnLaijX
zAOZMtZnWBiZX5KyDfp7gzROKtaQHSQEfj0gMXT2wgRCGtN8ZhM1Gk/tfi0s
ZSUh622EhQ7dha/HYzm8LWnpv7HpQ46q9inZjJVD/JrFBH79RXqDR8mSfZIy
Xjnq0xGDUOZfn2e8qduSlBMWQW/eh/vagXfM0kND/iU8+tzTrLaDulmV01ml
YzslZhapqG9l1J6OS7KmjN3dcVvHtlmHpRaiO2ezvba7SZb3dEu3LXPEyizU
sVEsMo8bDCLoW4lBHg6MzCC/WwYOUjd27rBevpscejfJ8p5u9QNHLmNJt15c
FKOBEFccuVcQD7LdGji8tMR0CNOirEc+mGh7cJf7+b0DV+vZOk0suKMpHJsB
S39sAZhffxNkq3tAw0AUNydrZ/21I+l4awm7heYwC7/eqkq3rRkxU7bnItSO
570CYyC8S4MMiRMhv2/3/jz1zURwNcRgh9MfxRUwfKqC3U1zyOQw+4sYbGab
HbIFMEGURBgD4VDGDiW24X3P+/LUDaaFgxTz+/5Cz5SNaqg/kLNRDR/GxPu7
ZQzi1Oz8N8Fs5GLrQNWu3BP70tif9tQPFKkHK5iGGPjO7DI3wRzIWXijiInP
DsqYeMxKjIFwT0hDO/8NqN+f0+KBIiYe52VMrEUZE+vDmF0+RL4vZwoaf7t1
csxscKKF06ksm0XPhc2Mdn8u+BPEd3AizDrEGamZDoseBzM73PPwdyeae2aB
A2G2nz8XsJwOypDb9pHw/tz4P5gfBVmXSkxbOD/2Spl6bNoaDJXmRLXbLGLi
qC9jUK/NIfQCGJyy4og5jTEQ7on1nzkRb0KdJ3JYL6JyecyhIgbSQKpFMHEl
LmOC3c6GmDhiyhjoT2fSKYyB0PzUbJTCyr7nVp46Y4K5b0NMXI/KmHhUlTFx
bJUx8cxCYqS1zG0yiy5R35cbiYeLmDgey5jYwmVMbGHGLH41uhtejdZm59fG
Y3x/gfls49r0Ul6d2JEVNtu6Qr1Ob+MsnCC+g2vV67kBOWikQ9Or1swGGcXc
kMyx2b3r18wxri4DGWu7cSWbOcXryEF+JDAmnvtKTFvEQbyaKlOPA7OMieOt
BrOX2uLad6SIiadTZUycn8qYeF4lMQZievpV99EizdhrZTniClHGxP4rY+Ia
XIO5J+c/aQMD4Z5xVamx1j05r5UxsddKGO+/Y0Xq8XyoLBFyCHLJIph4zObs
Gq9ny9RjT9dg1qgNIxsj3GNqrMWYePHLGPpvpVit8VveGIh3RlNs41LBbBco
FYmLYakEvpYL1ArHBjUwOLU317JXchGdIF6z/A5uLqHt0UaypVahBn5qYWMm
LsNISpl62o2aTcWWKpjvC/wB3UMJkiMOPP7DtocDtTks0fYYvbfXAmjTnsyy
lmijodYNjkKJpj0I6AqnadfvSILWuvCkoxWKMx37EbSWaCNx7N0cf1XLisCk
U7tbgwS59UQ/lqhy1EunGh2Wu3YbzZ4AyzgYjeK7J5C7I//uoXJ1z07AnD7h
ZTdndX9DxB6L0eso/6T+ljI1faWYXw2tUkln/jcJ2WlyrycMI8cyNDgTcOft
YuC1XFwk7lImzte5vZ9MiBUf9j2V9HXKarfZZOyTvRd8LWvQWO6ARJXreNqz
cqevE7USFnqnaMvwVtVSQqZReGXNm9IXj8RqZ6kSIrF5hRbuT3/mjMfkLMvQ
dZszdHKE6iwLIcJDybUgF6XCxL2Pr283vB0VSJQ2eyBTxw9qacNSFIu03cT0
kpT7nhK1V7UzOPmLd9LOK9lQXo6FJzLStu5Mutk1mm54oGzFqwnofnyxJtw3
jzOxuAVYCccgE7uc6UsFf08Nup4NG9c2l2BMkqbsusy1J5zwJDXw7UzPip3a
oSGrrNTeExCBVjBtNeGH5wRdl9DjwhaWoep4HHbtsAivt/eZokTZBOkOK4Rm
c6fay6SVHTBLom1Roegtx2gcie7NWr1+UTYrc62fP/iJShhOYnYam9ZHYurP
TcJLN0Sj57yYT4FuRsBS+ZnaakIql2oCCi5DufpfdymkW6nSwYRrsRlpmFV6
/AxnqaFrewml1l3+FMHuedVMWE9LahaJtuP0/nGRJ9wYwJMu/agvJKN95Fc3
x8N+ds4t4jjoZ77z8kDt+T99hGue\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p1f\[Sigma]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CalcP", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"3", ",", "0"}], "}"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"4", "+", 
           RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
        RowBox[{"Reverse", "[", "ZRrange", "]"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"4", "+", "#"}], ")"}], "/", "4"}]}], "}"}], "&"}], "/@", 
       "ZRrange"}]}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<p(1\!\(\*SubscriptBox[\(f\[Sigma]\), \(u\)]\))\>\""}], "}"}]}], 
    ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Magenta", ",", 
       RowBox[{"{", 
        RowBox[{"Gray", ",", "Dashed"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 1], LineBox[CompressedData["
1:eJwtkHswFHgcwFdOnPfbHq0lO7bOyaPyyvj+lPHYm6uYO8eJw2U5d4aGiiV0
VoQUod0JYW0mliU18ij7yNJ6rMcK6zqxxKAtj83mwtXMfWY+8/n/YxkZHxC1
D4PBnPzslxrtXx+pMPFAW2WRPJm5JfIvtHPPdjuBWr5KmPCLxKOUfJG2PcMF
lUmJ3473HUCnaQ+fbpOcUKZGDs07xhShwcRkqc0x9C6BI5pyxqJpUYCAghxR
tLisu87OGHVwdenjWfYIRxs+vOZriDKirchKUltU1Vwc6pmuj67u28hcVrdB
se4eoan9ukjwyVQTl3wI+YSS5GMh2qiWOGmsRLBGQj+uRq+vBrrYEOZ/T42A
Jiuu4ZV/VUPuDBa/yOIgmo9rKa9kqKC3OhyFnGyBFJ25Mge8MsoMyJRzmnAI
f4zGp01jUN9zfQxj2hR5UCqXl57tgJWnQ9BPP2CRjDnpbPnjNpQtHS75fscI
BZujyfDoLRiNiRulLRigxXNXAn+WbsJ1rFn+a4w+ehFrsG39aB0aQqPGfEm6
iEDQomoL34Md22VmmqKF9Lg712IdZdBJ1jzUxFL/vMlfEuGwAnu8mPjJg2qo
6J+zfO+sJfDty3429VIFkfRK3Y/j3gDGVXxTxFNG4ojK3NMfpDCYYthJnlVC
E8TEBDvVObhr1T08aItB9Vdj2SV+r0FSUJrl77MD3FhcjkvCKxDMhMRopG/D
iRw/W8dyCRBwu0NMxRYIJ+iOC9qTQP5Exzc0y+HI3iUOljsOeoIs81NVG3DE
oKSYzBoDB1r7uhVvDfKlQThc/wi4Eq3pVL33sNLHSyBihyHGaeuUpeFboPIy
hOu4QYgbTnHoOLMM55fa8LuBQnDM1Zd3DS2C5JJeHk7cC4oyqWd33gJ4nWV5
dxT2wM4bouHGFSk4J2pSFzL58K5aPGLCmIXypsJ4byYXzCTYhqnlGdBJid4x
lHXDUdLYX6TZvwG7muXIlnZBRt/UZrulBBoDCU8yrDpgnVQfjmNOgJQhT4q7
3wa9BxqbjaLGYblXp1Kb/Bj+CLJWnQkZA2PruZg751rBcntC4Ukdgdu//FYg
pLZAarAiTLNVBH9arD962coGp/GHjIGmARANhWdHslmQdGuJoL75AlaCV21S
Nh9AmG1DkSC1F6bNeoexaXWAN9dSNEIPuEUHLSwDE+ovVxTud+MD7+u15qNu
DOjUf6VWE8WF3VrPZH5UNXy8YVtTldoNnJznNqOp9+DyBXuNurQu4DR1P+1P
K4e6i+rH6wXtkMIsPd8joEOITKL2JKANVCh53w0E3AGT0fnaHNPHoCb2vlVm
WgqLe5Enf8e2QoSr+EwS9jZQfBkMZ58WmL/QPgY+RZBOIQpLvdiwKu9Zqfa6
CZ3RH8ynSCxgx903myMVwF36Fx5A8cd/Pavo1wHzP6xvalTcK1U5/wEDjPrA

     "]]}, 
   {GrayLevel[0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVzn0w2wccx/HQ1jQehgW5eCoyD7McSlXNfL9UW9K1u7it2nOMdAmG0ydr
xUrqoSixWXGsOpZwbT0W3YOqeugW1iPxrNgaTmlO1/aXSCqc6Npd/tn77nOv
fz+O7NQIjj6JRAp5s7f+PwKuVb3tFvj8FwFd8a/sZ5hNIP3n4/ZyfwIyea4P
y0NbQX20zKMwiABemEi091AbOAlKHtseIODpa3ZIIrUDSMU76+M+IcB67Eld
Pu1nCLt61f6rzwiIejFr+FvEr9CZ5DzPjCbgRhp5T4O4E6bdJ27S4gk4f9rL
6MY390Dc92G18jQB6wKGsDajB/x/Kch+cfHNH4u/DYWcPqiQHzRjFBHQcP56
iUHAA+h+ds53pIoAB3sTTTP8AYqE3lTtLQJiGI2l4owBSDoh8H3cRcC57+R0
supPyA11ZdVKCfCbbBcNtQxBQ4Ud5+slAjJOaGKMO6Qw1L/GrtQS4LgxrQnO
HQVhlsAhlKqApOMu78iixiGfc4bo3qOAAdvm25acSRgaJUexjilAyWyItauf
htY68hSLp4CswRlVp+MsFFQfqbERKsCHOZ7NXPgLRL6MmxSJAmxmqY0zKzIQ
Ctp+aN5SwMufJkatRQsQVBawwfZVgnbZlbJ6cRHmN3PZ91OVoKlYDO65sgSy
M4HyyDYl7C6wUN+TPAUDlvDH6XUlpIyke9/9dAVMAzwProWvQoLf2n5HynMY
Xs50yxWuwj5Xl6pccwIkheEucdtV4F3ZqXTuV4Axt2Wz4JQKzMU59vtrVyFX
UTtgJlcBd7PKofG2GmhZywMfJKuBbrclqdesQXh+z1n3LTWIZVEJRpkboFyz
ms2ueQWzxeU5rENa8Du5FDvBWoNrzj0jwwwSSkq/kC9baWA4ndLFXdDD5cAr
0R2EBkj7Jr6V9m9Dvu3KQPzCOoQN5t2fmdqB9CchsuRnG/C6PyH1kZMh8uPu
7E0234QurrFbSxMZY3wMKJHHtODZ6i+b45lgZWT1y5TuLWiM5oyHMc1wqqU9
kf4+CQupNkXzJAsMLRYcOEXSw7GElLHKpfcw8Y5f4pBSDyvk7mWHtZZ4WEV5
WL+lj87B3sc/P0LF72upTQ0u23HwdwuSaI6GX7J38kdTdiA/gq/ubbFDdO/l
xU4b4PN3ezVq7i6dhhgoanpQustJJxnTGmNYNYZ0ncZY5/rISo/uotMUxZs0
Y7sLbngy0+SyaaAZXtJf5a+QPRAvpWNanjlmxTtz9RYZ2Nth3sFXWODdPrOq
yRwvnRSck0aIebhbpxXi8NkLix6+Oql4tLK9e4Ppp5OG6UVSUy+Rv05bZJV4
BuYFfKTTAS0NlKPXrYOQvG1dLjFyxH8BYhL3sg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"p(1\\!\\(\\*SubscriptBox[\\(f\[Sigma]\\), \\(u\\)]\\))\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-2.952262920388611, 
   8.560415339026333}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E1f\[Sigma]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcE", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "0"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"4", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(1\!\(\*SubscriptBox[\(f\[Sigma]\), \
\(u\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Magenta"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 1], LineBox[CompressedData["
1:eJwVzn1Q02UAB/ABKbsxAsc7yObG4jXiJUQm2PMM5OQm1m1epqBkGGNFRJ4v
vJkOgYIsixJiBx6DTUnek0qRl+dhwDY8YLzDxntLRFRMXmQQYD++d9/73ue/
LzM2SRBnTCKRuES312bnYt9Nu/fgVgu1IuVeO+Jf9wnJ3h8MR0beSfiZ24FS
r2ne9JUFwTPy2Lml4Q70fuHd5nVeIFz7q+iLi+eUCHafS9F7BcD4gADNEUsV
GtMIlGnQH8qf0oPZchV60GopGcr0hXq+6yfJLmp0Jd5FaKT3hgsnfylyz1Cj
DOMl8TzFC+ZNm6OPa9VIueFIdU5xh6lHbWJMS9VI7jZqa8R2hUHSqqaASDW6
UBnDLyGzYfioeF1WrUIhsqq2vD0s+ISh4w91KdFzC2xYEe6B9Mlvxl+0dCCx
QLyCa5xh3aZZ9m/ydqRup5FkY47Q2jggxUPahly4fsc/PGIPQxdKVotVClQw
53Hj8KYNPOZQmjvBUKB+UWJ/4SMryJqLLAgta0W59k7Xpkk0aMQq3q092Ioq
T8UNRPAs4adt9aLhLYx8aoOmxtLMYVbhl0uVnRg1CqnuNVUUeOyJkNQixei1
QpQ0yiLDMebA9KgYowh1dot2eAf0SvdPaI7HiMQZ/FGjMIH5Bcu5vUcx6k61
bhTOGMEbGbmC2TCMilxQb7c3CXLPyEoY+zDSfZ+fyT+0CU7R+FcH3sZIORUt
Mru8DkSrzb5iNkZs562eW4ZVMJEiasTOGAk3JIzKuhUg4Tbrwu0x2qXMpIdJ
l8DEWX5nrxVGfoUNiy6Kl+BZVE6GjyVGHDdXSdauf8Gk4vZLjjlGosDVMKb1
czCe+eukhoJRYm+q34MP5kFIp0P4CBkj/xzaSlPPY/BqkGEfbIqRoUDPRd89
Ag5Sk/D5HRhtzrpZL32tB6Y9fc+G38DoRelgn51sBjyNTFKumGDkpLOv1M5P
gUZGlvQA4Xd5A1d5M+PAb0qwcdsYoytq7XIDUwcwJ6zJi/Air+K0860RQBmy
/VtphJFqd3WdTdwQ6FfJTpwnnHDc1XQqegD8xyvu9iXMXB8xcLP6gHF4UtYa
CaP0E4YYar0G7E2uD+siHDh0V9ZV0wXceyeDygmf/2mOTVnuBFwWbzaHcIx3
ZZ4yXQXuu9VbfUWYQTc3VIMOQD9Z0BpNuCL55vWd+9tA1R0t/TDhRtoEuSyu
FTArosQHCK/94F0mTUfA87RplD/h5LO+ZuWXmsBDaw7Hg3D5BcreCmUDcIi2
xUzC0Qs68n3BPfAWq6vUibBd/z/ybx3/BPr8iyW2hB+/jg39zL4e/NEmyaYR
TouQyfYd+h3oBy08LQhfTnN7mH+wFgSnffQ5dftP/Cu6llcFEs38PCmEiyTb
uQM2qZcEZML/A1j7Cv4=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(1\\!\\(\\*SubscriptBox[\\(f\[Sigma]\\), \
\\(u\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.1928519900209307, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E1f\[Sigma]Repul", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcErepul", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "0"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"4", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(1\!\(\*SubscriptBox[\(f\[Sigma]\), \
\(u\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)+1/(Z R)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Magenta"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.2"}], ",", "0.3"}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[1, 0, 1], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkB0CpCcjXbAv1GOLzyF
OjtAEQGOmSGOwL95i88OMKM4QA3sQvLxpMC/TpiyvfpKNkB+VZCpk7XAv0DN
c3jjKzRA5AHeM9S3wL/bz1LGekAyQBsOEKjRoMC/usEQmdWDMED2oPf6U2PA
v39nI2YB4y1AJTLigrHgv7+BAvOA6gorQOSsj1Pib76/xvwaDB14KEAAkq3K
cVW8v6Qn2BYBJCZAlV6VZHB4ub91q15RnwgkQHMETvmyzLW/PKOsw5EgIkBl
NjzI/lqxv+0PwPj1ZiBAFvWrFX6NqL+AUoD1wK4dQDhMHcgEJ5u/yMQSAKPb
GkDARGaUBP9xvyNBMVhVTRhAAMZkxatOkj+W6CmUS/0VQFj6ef1Co6Q/0mht
0pjlE0A8kSg3nzKwP4kYG4vgABJANiY+dxZXtj+rXWXTSEoQQB4d6Nl63rw/
L68439t6DUCsM66AnvLBP7tmDCiurApAzlLiT8LCxT//wmhv2CIIQDPOwKs4
7Mk/SMiFvtnWBUA1nSDhmHvOPwA51I/PwgNAdBNdVfa+0T/NeRS7ZuEBQD8j
RjKBgNQ/myO/0M0tAECyIlfo14nXP9qMlYNRR/0/UhNsNgbj2j/G31toC376
P4pDvwbUlN4/JB3+zqX49z/SmL82cFThP2b8mR+rsPU/vN23s96U4z8RxoMe
Q6DzP6CdK46GEeY/MZi58iPC8T8LShif0NDoPzknJpmEEfA/IKyYg87Z6z9o
NvdDIRTtP1NdAidNNO8/bdB5MbpP6j9KiyqJdHTxPzKIEvW8zuc/UwYlXpKA
8z/4luNBv4rlP+GIG4zAw/U//eYnFPN94z9s9x9TzEP4P++h1NEXo+E/FEZe
ph4H+z8b2hir2erfP987l6TMFP4/M0rTgkrh3D+1YKTjVLoAQH/I2fS5Ido/
w9fQ+62XAkDySqpgHaXXP+30jd44pwRAxxytsBVl1T+e0XBfPe4GQGtYJgff
W9M/D4iCa5FyCUAh+tf4QYTRPzX4jP6nOgxAe1n4Xgyzzz8n6n6qoU0PQDbV
sqPMrsw/ESOoba9ZEUB0kOgkCvTJP1lzHwNKOhNAXi2rkcZ7xz/igRL8b00V
QB8eDfitP8U/s+QLPnKYF0Cqd52OBjrDP56VvswwIRpAuxLdCKJlwT+0VbXX
Ke4cQPmNLaKge78/UiedLkUDIEB3cTALp3y8P+BEjEYguSFAp3UKNarGuT/b
+ykNCJ0jQFvu2gi4Urc/kVX0V9SzJUAX0uSkhxq1PzShDWHfAihA5/9iQmkY
sz8Zpvh9E5AqQHpIo6M3R7E/rhuMR/phLUB+eifKlUSvP+JN+azmPzBAu2f2
HtlKrD/s2NBrxPgxQJuZmZmZmak/5Qdb7//fM0CDUPdO
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(1\\!\\(\\*SubscriptBox[\\(f\[Sigma]\\), \
\\(u\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)+1/(Z R)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{-0.2, 0.3},
  PlotRangeClipping->True]], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"p", "/", 
        RowBox[{"(", 
         RowBox[{"Z", " ", "R"}], ")"}]}], ")"}], "2"]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "1"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", " ", 
       SuperscriptBox["3", "2"]}], ")"}]}]}], TraditionalForm]]],
 " for R\[Rule]\[Infinity]"
}], "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p2p\[Pi]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CalcP", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"7", "+", 
           RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "6"}], ",", 
        RowBox[{"Reverse", "[", "ZRrange", "]"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"7", "+", "#"}], ")"}], "/", "6"}]}], "}"}], "&"}], "/@", 
       "ZRrange"}]}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<p(2p(\[PlusMinus]\[Pi]\!\(\*SubscriptBox[\()\), \(u\)]\))\>\""}], 
      "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Darker", "[", "Yellow", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"Gray", ",", "Dashed"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[
     NCache[
      Rational[2, 3], 0.6666666666666666], 
     NCache[
      Rational[2, 3], 0.6666666666666666], 0], LineBox[CompressedData["
1:eJwtjnk0FHgcwIfdlTvHjBmsW6N21mMSSV7fn6OHWZuj19taOZZGvM2jFrmP
lMiVHjJJZFjHuO9rjWMb9DDOZQYhOZ6jFSbjmLH13n7e+7zPvx8tT39nqigG
g7H84tfixLZHcvGXUElmdQGziYCcUg3MH5ldREbkrQJ+kxIKTWLLGtJNkY1o
nLbxChZdya7964BignTp9ppEC0WEBv8IWSSdQ3VmtUv3uuTRNNuZFYbOIuFN
CfcGLznU2iVHm4gzRJAaiqHayKLo2zreIov6iM6TYVsfSqFY0Z2YNUkSmtxQ
8qmdkUCsIxVptZDT6KPDyF7K8glUqDelJKJLRJ6ywgAmVgwFMdyc8sR1kdP6
9K0Dr2+ROb28J11TG52aFQ4ljIiizZOdfJ63JiJBh762iwiKcY7hdVaqoYjk
XNmXgmPo+1sBQ59WQRbRjx+8ChKAjgX5+rWfCWjYxCaFpHoIWatnMn4S4NCd
0hqc7zofRn38RrOXFFGj8qpcw+JnSCSoJs1jFBBFyT4jR4QHDFfqmC1FDpXJ
WjawLXfAoMp0bjpMBj2SFd4gFn2CNm/p05XlkoisCdRnxC047vbxn9IWRysB
euVWTzbBtu9RB+ef75DEjMGZPcEaYC6Mp7G7v0HkYFZgW+EqDIZi27wXRBB3
YsPHNHwZcnSYw4P6GJRgoHsFoj4ANzkzzslGAPSSbLH+svfAmnPxkYo6gAhC
ffyuYB501YRDRfw96Lzkj5daewfeRzQNRjUP0ts2JHpVZkCeFadulb8Dw/Pe
9uREDpCzW7Z1uj/BqVrjcwWGk3BBj0h7KL8F/a3vs+qlJ8DHZM9KC7sJHSpS
wdbKY+A3HEpudViDw18cq/2cR+BsggKvfWgFYtPcbHC+bOBnLVownywBFy90
p4YMgGBZD7sTuQhXUTLh7kA//Pt6fARPXwAxIn7Q0b0XVLkEBmdtDoLzr2Yl
kd6AEWXsAWVhBqo7ExgKP/ZAdB9nt0WLC2xu7i3zm12wTSnzUCuahDu5y+8i
/ZnQ+31FNY46Aflc7qtrQe3w+3XiiTmXMVCMnY16290CWgeTfIuHI8APK1K9
7NQE4Tf4btJ1bFBm/3myS6UBTCZq6QOVAxC87iHTrVwHgU9XdSV3+4GYNv6r
nV0NuOkz0lnhvSDRb5X43K4KNNRl+BXwBtb9TciOjuVQdj83VcysB+R/cPYy
zyuFNoVZ8QJqF3js1xulGBTDfop+QX44E3wvz8XjDgvh/l1DqeKIdjhPw1Zc
PCqA4iBJ4zJWC7iSGtU29F+Dy0eueLNzE4RMCZNU8HmAH/1Q+PjL51OH4eZV
rZewcuxp6UuoA87+b06NgTQIs6XTz9vUwAusjkeF+HOICtN7m2ldBW4Ba765
kxnQdvuzOodSDlIauN316WeQQ/tKKfDTMffi5dIB8z9qJa6lWpHNzP8A0gLx
0A==
     "]]}, 
   {GrayLevel[0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJw1znkwnAcYBvCPuOKoczHOOOqoiisEyeR9XZPNdqQlNZUQTXXWUZRSdTWi
QRLRSjMNJZGGrCOsiCBx15WIGuLcurs2iCOO5Pt2WeIonelv5pln5vnr0fMP
92SKEgThvJf9/h+7dB8Jd3L2lUD3f0hoCFzTGWWUwXW6affXfSQkxht3Zbo+
gtNc/0ifIRLi6SzW0ZOPQdWveqFphIS5XX/nYPUq8Dov8W3WJAlqAzMFVzWe
QGpNTfC7VyT4rIxJ1XrWQAIZmjkxT0JxtLRtaUcdzGjaawaukhDznaVM8Y+N
MGoW1ZS/RsLGL+b38xKaIT6uQuTezt4fpUmp+8xWqHOzuBAlSUFpzN0MCcd2
SCTdY20VKdDVkRM+hOew5pbE2NGkwM+cfbMj4QXkHvOLXTCm4Ptf5w2l+X+B
aHJ4Os2WAjtOJau7vBu05INdClwoSDgr9JOt6oVrHxcu1Z+hQG9zWOiU0g+h
pVXNl5kUhHgbSXJ9BuHcyhrDNI6CF1oPK2hMDkym+85NZVBAMkovaBcOQ1eY
rwOviIJLnaP8Or0xEFdOaw5spcCGMXiZwZsANQOdiNp/KNAcU2ePLnJB9aBe
oM4uBav5Q/1qLB6Y1vYXLenzYfu1sQp1cRoyH3gvJTL4IMyadmq+PguwPnDb
8Qc+WF9TEjS+nIPyKdXmG0V8COuLs6r/dBGqjboOb47zIchu3UVPZRlsVkue
i6oJwMHYKCdF8S2kSVg9Q28BWGXXkQZt76ByReeMT54AFDuSdVzyKBDNb7GQ
eSuAgK0cXXaFABo/d03Voq+BofbOy0LhOoyJcdYjStagg+sTJJO4Cfmbda9F
aHv7z5nJHie3Ie53lzev0tfhjkFzX485gUe+WrztKi+EnjiVhgCeCK5cfPxb
TJ4QCIehG71tB5BQzh1bxQ2gd6b+Ofq3OLY5D9+ikxuw2xYUPqIvhaVv9D+k
P92EhgBZk/IyaTyhL1Y7k/EeLB7Zc8fj5ZDpGMQ4lbgF7PPMQTpDAbUXso+O
X9mGNHXN9ClCCcUbGn2RvQMDQWED2bPKyHP7g8dc2YWsedNbn2zT0FooN9Fe
QqCBk5W3l7s6PqU1RGqFi2DnMyWCNa6By1k+XnanRDHJM0nQUq6NnAiOBzoe
wGX5FqEg4BDSn3z0nuUqhsdZZe03D+njQGjnsEyIOEaz/TzuSRmiUAvsvqmQ
wALjEVURQyNsC5+tI9SlsGNLQ1Y71gRTHjRWBhUexJ9EqaRFaTMkvlj3yvWV
wUuBBgEi0+ZIuLWtEM5yWN+qkMNJtkRhWYhe5Dl5HO/17IhHa5zj8g4XcxQQ
e6Jip82OYJKN+2fO2kp4OruyaZNhh2nM7kGPq8oYl977gSXLHoskbb+MVqOh
R4bF8VTHY2hbrWtS3q+KNAmy/67aCfQ/m28XXK+O/wJi6/8O
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"p(2p(\[PlusMinus]\[Pi]\\!\\(\\*SubscriptBox[\\()\\), \\(u\\)]\\))\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.09565935501964913, 
   6.182041982267352}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E2p\[Pi]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcE", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"7", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "6"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(2p(\[PlusMinus]\[Pi]\!\(\*SubscriptBox[\()\), \
\(u\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"Darker", "[", "Yellow", "]"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[
     NCache[
      Rational[2, 3], 0.6666666666666666], 
     NCache[
      Rational[2, 3], 0.6666666666666666], 0], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkBUvKFHH5e1v1GOLzyF
OjtAhH+iOAJHtr95i88OMKM4QImalFjgCLe/TpiyvfpKNkBHF3kjIN+3v0DN
c3jjKzRAmnt+kU/LuL/bz1LGekAyQDX1SiCAzbm/usEQmdWDMEAQhkwhNOS6
v39nI2YB4y1A93vKu9cMvL+BAvOA6gorQOmUd8VeRL2/xvwaDB14KEB134OH
tYe+v6Qn2BYBJCZAidd5e/XTv791q15RnwgkQNUwDyA5k8C/PKOsw5EgIkD4
9BNcWj7Bv+0PwPj1ZiBAMe4wtjjqwb+AUoD1wK4dQIGFFPe/lcK/yMQSAKPb
GkA3lQSC6j/DvyNBMVhVTRhAMSmo3r/nw7+W6CmUS/0VQChbpnxUjMS/0mht
0pjlE0CsMGRpyizFv4kYG4vgABJAJwxptVLIxb+rXWXTSEoQQPmTBVAvXsa/
L68439t6DUCA+4Ante3Gv7tmDCiurApAyh8jYU52x7//wmhv2CIIQN1QUX98
98e/SMiFvtnWBUAXdY9N2nDIvwA51I/PwgNA7butax3iyL/NeRS7ZuEBQIFQ
31MXS8m/myO/0M0tAEDLeO67tavJv9qMlYNRR/0/9hsAOQIEyr/G31toC376
P1T4qhchVMq/JB3+zqX49z8tnEJnT5zKv2b8mR+rsPU/9jwhRuDcyr8RxoMe
Q6DzP2Si3os5Fsu/MZi58iPC8T+AUsb7z0jLvzknJpmEEfA/CZSPMyN1y79o
NvdDIRTtPzh71o65m8u/bdB5MbpP6j+uZ282HL3LvzKIEvW8zuc/UNq3i9PZ
y7/4luNBv4rlP6thvRRk8su//eYnFPN94z/5gVIATAfMv++h1NEXo+E/SYL+
SgEZzL8b2hir2erfP8Qr8oDwJ8y/M0rTgkrh3D/qlBkPfDTMv3/I2fS5Ido/
EB6iDvw+zL/ySqpgHaXXP4x23XK+R8y/xxytsBVl1T9coduAB0/Mv2tYJgff
W9M/T0CweRJVzL8h+tf4QYTRP68xVWMSWsy/e1n4Xgyzzz/YMsjfMl7MvzbV
sqPMrsw/oVXMBZlhzL90kOgkCvTJP1PyQDJkZMy/Xi2rkcZ7xz99bQzMrmbM
vx8eDfitP8U/cskS945ozL+qd52OBjrDP6lZlTQXasy/uxLdCKJlwT8Hgrjw
VmvMv/mNLaKge78/3uHa/VpszL93cTALp3y8P/kx/v4tbcy/p3UKNarGuT/n
BtPC2G3Mv1vu2gi4Urc/ghcZkWJuzL8X0uSkhxq1PwrqBGzRbsy/5/9iQmkY
sz9b/EVHKm/Mv3pIo6M3R7E/XI8oNnFvzL9+eifKlUSvP31jI5Kpb8y/u2f2
HtlKrD/ruv0a1m/Mv5uZmZmZmak/C1ePEflvzL+VnBZa
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(2p(\[PlusMinus]\[Pi]\\!\\(\\*SubscriptBox[\\()\\), \
\\(u\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.222167142461949, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E2p\[Pi]Repul", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcErepul", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"7", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "6"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(2p(\[PlusMinus]\[Pi]\!\(\*SubscriptBox[\()\), \
\(u\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)+1/(Z R)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"Darker", "[", "Yellow", "]"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.2"}], ",", "0.2"}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[
    NCache[
     Rational[2, 3], 0.6666666666666666], 
    NCache[
     Rational[2, 3], 0.6666666666666666], 0], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkB+plBZkiqqv1GOLzyF
OjtA76PBKkHAqb95i88OMKM4QLtTqti4Sam/TpiyvfpKNkCjqMQ6tcaov0DN
c3jjKzRAKS2ktbg0qL/bz1LGekAyQEV0WvS1jae/usEQmdWDMEBqSN6p2sem
v39nI2YB4y1AgOgLD3DWpb+BAvOA6gorQFYB1zUDq6S/xvwaDB14KEAGlQ0s
MTajv6Qn2BYBJCZAXOtrzfhnob91q15RnwgkQEzWqhF1X56/PKOsw5EgIkAM
gr9yI/iYv+0PwPj1ZiBAxGqo+EJ1kr+AUoD1wK4dQIAVw7CAX4W/yMQSAKPb
GkCApOI5l9xXvyNBMVhVTRhAEN1FGimbgj+W6CmUS/0VQCDmyWLO4pU/0mht
0pjlE0BQAPQhHzuiP4kYG4vgABJA1KNIi0agqj+rXWXTSEoQQPR7RAvJH7I/
L68439t6DUBgoTeZKp23P7tmDCiurApAtDhM3mPavT//wmhv2CIIQDGfQg2V
dcI/SMiFvtnWBUBJo8P+e3LGPwA51I/PwgNAkQEByZ/vyj/NeRS7ZuEBQJF3
NmPR+c8/myO/0M0tAEDulzHajM/SP9qMlYNRR/0/hY4U22731T/G31toC376
PxTDSJMDfdk/JB3+zqX49z/8H5IXmWndP2b8mR+rsPU/5N7eGLjj4D8RxoMe
Q6DzP35RiF3sUOM/MZi58iPC8T8mzIiAqALmPzknJpmEEfA/1nceM9T/6D9o
NvdDIRTtP3yf8roSUOw/bdB5MbpP6j/2rv/V1/vvPzKIEvW8zuc/qAWyTz8G
8j/4luNBv4rlP69QJFIxRvQ//eYnFPN94z/u4K+wfcP2P++h1NEXo+E/aF/M
NX2E+T8b2hir2erfP156iUg2kPw/M0rTgkrh3D+z6u8kb+7/P3/I2fS5Ido/
fumq9uDTAUDySqpgHaXXP9WKgWXZ4gNAxxytsBVl1T8FVP0sZCkGQGtYJgff
W9M/ukjBUFOtCEAh+tf4QYTRP2qZnnAWdQtAe1n4Xgyzzz9snr1Ay4cOQDbV
sqPMrsw/5bZA36f2EEB0kOgkCvTJP9i8vygr1xJAXi2rkcZ7xz+0t08GPuoU
QB8eDfitP8U/SAFgpDA1F0Cqd52OBjrDPx64EGzivRlAuxLdCKJlwT/1ZjIM
0YocQPmNLaKge78/l7IbGCmjH0B3cTALp3y8P2swdTNshyFAp3UKNarGuT8r
CR8xUWsjQFvu2gi4Urc/vCE3PBuCJUAX0uSkhxq1P+Rn23Uk0SdA5/9iQmkY
sz839fEeV14qQHpIo6M3R7E/xbhbvzwwLUB+eifKlUSvPw+2qXIHJzBAu2f2
HtlKrD+NP+/T5N8xQJuZmZmZmak/UeHcDSDHM0CnEve6
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(2p(\[PlusMinus]\[Pi]\\!\\(\\*SubscriptBox[\\()\\), \
\\(u\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)+1/(Z R)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{-0.2, 0.2},
  PlotRangeClipping->True]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p3s\[Sigma]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CalcP", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"6", "+", 
           RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "6"}], ",", 
        RowBox[{"Reverse", "[", "ZRrange", "]"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"6", "+", "#"}], ")"}], "/", "6"}]}], "}"}], "&"}], "/@", 
       "ZRrange"}]}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<p(3\!\(\*SubscriptBox[\(s\[Sigma]\), \(g\)]\))\>\""}], "}"}]}], 
    ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Gray", ",", 
       RowBox[{"{", 
        RowBox[{"Gray", ",", "Dashed"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0.5], LineBox[CompressedData["
1:eJwtjnk0G3YcwKM6vDSouO+mMqFmoVqr1vb9uVpLax1vXvUZWq2wKX3N6p6j
6OuqSqmaVFtHmFXcR11ZI6JBW0JciVvNMR5FhFCZte/t897nff79EPyvewTs
w2Awjh/9VE2F9b6n2t8gU9tsnJmzDnJPI9vfPnkKbTG7n3TZa6Goe3wVK8YJ
9C7cMsPxigb6Lqfmrx2KLfr2qrOqby0eoe5fImcsjqHggkqdC+ZqaJTvwYtG
R5G74lhUapIqauYcpA8mWaEflDIF+mIcig80ocrNWCKS+Yu4jFwsurVPnLCI
tUBO5/2iYiOUEG9XD2cYaYaCCQm0zlsKqIgk1JIjmqLk0TAWp34/CmP6uucp
EdGPzLMyK1V5ZM8o42YcOozkZOQ3filyaFm1VSqhHkKNuFKOFhGDEjwSJK0V
hmhu8PHPhFoZdLbjMYxRPZRWq0UXfP8BTBysvTzddNC4emCjluE2ZC+YZ52V
aSKuz+UBR40tEASFCHJm1VELLwzwNhK4q6N/bwqDRz66QHgYLgamT0C/K+Ug
ip+jtGuPrQG58sTkaLQyopFZ2RaXV6GFijOrKMMi7hG/CU3FFdhrC7ouPKyE
GInHK+wSl8C18/ZL0dBn6I+q0Kwx8j+AsRtI57fJI3Xiazkf3Dx0R2m0UKfl
UMwX4rULGrOQa8Lu7bbEoOLhNlyR8wyMpD5Kcj8jA8kc/67b42ngTXoHHYjb
AR57KS8TPwVEw397iqVbcHqDVN/qOQ7UXboxs0oCFmTj8DzOCKjxkoyc8sVQ
w6KZnr4qBOucpnWTtjVgL5Xo37EbAjuSKT1ZbRXi3VobY78egCDbLSeCxjJw
TdKxKdcEENIbZd18fhG4nvDsHLcXjv6Gl7B65kEBXAxcYntAmj3jwE6Zhd20
7WSnhjcgmyNpiGNnoGmvvesIuQveFwz0aTOmQTfAFSuZ5IH+iA5TtDgJbptx
49vt7WBD6U+kTI+BzwML7wVRG8R3ijaaCCPwPjs1gaPHgXVK6SXD4mG4T7wh
LFZkQ4dBeZVmwCDIhmjCKyYsCPYyVZz07ocJz+bqkMQmIOwMSx2S+8CcX35t
zagBYi5KfXG1fPBKj/gyU1wHtoM1jLcVb4F26tzNSx9q4OaDBSJ2owuEBg+b
BdbV4GvJzODFdECv74By7OeVYGykLC2HV7CxaZPLOFYGpRFP0xROckGt0f+i
bspzaMGPKxUGcCB0VWUt3LgEtu9bFubHsCG/wcvy3UoRRNywOlDyKwsK8HSK
vLgQSsKwx0t5TaD1jDq6Y1oA3isjSo0eDYBXbU6qwuWBtuDvojt69aD9Mi+c
oPcE5vf8HX/SqYU/RZnS5VA6RLsyGF+dqQZPIaWOuv93iIsmvX7kXAmRLSxZ
5EAWtARuGokoHz87WC4FokzIpX/iOUzx+OkTKhmA+Z9XxbS6Xf8X7P8AQ7j2
mg==
     "]]}, 
   {GrayLevel[0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVzn8w23ccx/EvLY0f8SOClKJ+zI92fk5TNef9SbE42hrWo7TW9Qjr4jpV
86uUYlNa9A5LzmVM6rSJ39bO759tWOf3j9XvH4e1zdr6JhFCg7X7b4+7573+
fZleuRYQoYhh2OkPfdz/w6GE/dEjMPsPDq2Rm8bTPlWwyEk1bf4Eh9Qkq+dF
nrXAdW7qq7PBIcmbyz1Jrwdmowro2OHwcv/K6W8pjcBrCO39xwkH/bHVBz8Z
PIYZdWLnFy44hL6bITQF/A4j9B6hozsOlXGqJ3iCZnCNufd9mycO8TEOapU3
28AuvZ+05YvD9j3b8rLkThgZUgraCPzwhzRPKI/oBo2SzMf9F3HgxXPylF17
YZzOHcxh4GBiTJRVwzPwLZksDYzBIcyWf1+Q3AfigsZB9xQcbhS8slDd+AOC
p54uXc3BgTrZwB2oGYCY8A7WNguH5AuyMPXGYZhP36FpPcLBdOeFjJY5Ct37
BN2pFhy+C7Y8tBg6DrUeZ8pSh3DoO1JdpxsxCU7L9W7UVRzEPrzLRhUvwKS3
Po8qx+FW//RGs+kMhEQtkNv1RPCZz/htn+U5YCbEPiM6i8BwhsKfFi4CM+yH
ttivRLD+68SoPncZUolWclqCCHb/tiJLUlZAuFtNmygVgax4hdaZswaFZ6zx
/D9F4JRNkrYNvYSDVCZ57b0IokcSHVv8hKBy0yTTz1EMUdQtD1PyW8j23DcI
ZorhlJUlO1Mbh4XQHw8XV4vBkdUsNu8RAcHzxsM6qRi0BRnGHmUSCN7Uzbrs
JQGGnG3Cr5OCNo89E8ORgIXR3lCFbAscQo6dFexJQLAYGqWWugObfppuQVc3
YOZuUYY/fReG3rCQy/IGlJh3jgzaYujOE8DZ4VIYTCS3MpYVkOe48usBqRSw
UxP5wz0H0Pkokb1X8SZ492d1TP+lhCisT4Uc+hbs90RdmzIjIIyWkMRRk0Er
Q926pkoVFcZfILquysC+1mVxNomIWvLbS38Z3wb+pYhxbx8tdN393V2HuR24
QzHMXcJIKESL1FCEyWEsKnqMtaaDqCUSaqvHLhS/sin03dVFzV4xxPmHe2BO
cww+f5aCvumKMOo7jKH+pySMO2uAWDRlbFmCobSANGlXjRFKM0yTC1cV0FvN
LpmUcRRJvp6sOLeuiNy4Vb33j5qhFP3Y2090D6I4fph/KcEClfe9XiKHKqEH
VlN6ChaWKNqgIJzfo4wEcgN1owRrZBcYeUnnSwJKV5SkCVWPI55COUY/pIpu
RZozFFZsEW+dyea/UUMt3VrsyQwHVB6kN3BESQPNDgcIkpATcjtxMlN+TAuh
wdiElePOaDK7vOLn69roHKuhfceHihZaTG0q50goMXdYw4Hrgt5fzPntOZOM
/PPs3bJcP0c5KnEpB6z0kK6yeJSj746aajZzOzQp6F8GcPb/
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"p(3\\!\\(\\*SubscriptBox[\\(s\[Sigma]\\), \\(g\\)]\\))\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.08744792371239558, 
   6.06655902544802}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E3s\[Sigma]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcE", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"6", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "6"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(3\!\(\*SubscriptBox[\(s\[Sigma]\), \
\(g\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Gray"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0.5], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkAv6WWACM+0v1GOLzyF
OjtADaE5HvxXtb95i88OMKM4QO9KsCio6bW/TpiyvfpKNkCOOEFEn4S2v0DN
c3jjKzRA0pvpVZspt7/bz1LGekAyQBURWIN12be/usEQmdWDMEAt8arZCZW4
v39nI2YB4y1A9nJ2tQZdub+BAvOA6gorQBvz8iO1Mbq/xvwaDB14KEDHD8t1
0RK7v6Qn2BYBJCZAvn0SX4b/u791q15RnwgkQGSK1DiK9ry/PKOsw5EgIkC3
U+JUTfa9v+0PwPj1ZiBA88xtIib9vr+AUoD1wK4dQHYA+Ee4BMC/yMQSAKPb
GkBO7Eu3z4zAvyNBMVhVTRhAVJdzriEWwb+W6CmUS/0VQI0s6LwFoMG/0mht
0pjlE0AmBxWN4SnCv4kYG4vgABJArEctOyezwr+rXWXTSEoQQLLygapTO8O/
L68439t6DUCEtQwT7cHDv7tmDCiurApA5F2S2oFGxL//wmhv2CIIQAP+y7qn
yMS/SMiFvtnWBUChdcIu+0fFvwA51I/PwgNANiNPHx/Exb/NeRS7ZuEBQDY5
ica8PMa/myO/0M0tAECr+lTCg7HGv9qMlYNRR/0/ffqrTioix7/G31toC376
P8VxTqBtjse/JB3+zqX49z9ELVNYEvbHv2b8mR+rsPU/zhKLCOVYyL8RxoMe
Q6DzP6gyAcC6tsi/MZi58iPC8T9a+iqWcQ/JvzknJpmEEfA/ohzFKvFiyb9o
NvdDIRTtP/29CxArscm/bdB5MbpP6j9AciEVG/rJvzKIEvW8zuc/HPQ0Z8c9
yr/4luNBv4rlP83vYYFAfMq//eYnFPN94z9vxmzloLXKv++h1NEXo+E/cG9E
mgzqyr8b2hir2erfPymlgHCwGcu/M0rTgkrh3D+vkp4QwUTLv3/I2fS5Ido/
4Yc72nlry7/ySqpgHaXXP3TgpJ4bjsu/xxytsBVl1T9taXRD66zLv2tYJgff
W9M/eulYWzDIy78h+tf4QYTRP6rRdsMz4Mu/e1n4Xgyzzz8nW/tSPvXLvzbV
sqPMrsw/wnGsqJcHzL90kOgkCvTJPw44rh+FF8y/Xi2rkcZ7xz9BQrLxSCXM
vx8eDfitP8U/ofmgiSExzL+qd52OBjrDP7Vj2AZJO8y/uxLdCKJlwT8o8JHu
9EPMv/mNLaKge78/FF8KB1ZLzL93cTALp3y8PxTKs1aYUcy/p3UKNarGuT+M
fgZB41bMv1vu2gi4Urc/YXleullbzL8X0uSkhxq1Pz9hnIwaX8y/5/9iQmkY
sz/ToNmmQGLMv3pIo6M3R7E/d4dIc+NkzL9+eifKlUSvP1wGOC8XZ8y/u2f2
HtlKrD+lbhFC7WjMv5uZmZmZmak/7mX2kHRqzL+wAhcD
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(3\\!\\(\\*SubscriptBox[\\(s\[Sigma]\\), \
\\(g\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.2219987590622589, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E3s\[Sigma]Repul", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcErepul", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"6", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "6"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(3\!\(\*SubscriptBox[\(s\[Sigma]\), \
\(g\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)+1/(Z R)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Gray"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.2"}], ",", "0.2"}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[
  {GrayLevel[0.5], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkA0ANnKZJqov1GOLzyF
OjtAAefv9TTip795i88OMKM4QIe04XhIC6e/TpiyvfpKNkAx61R8sxGmv0DN
c3jjKzRAmW16PlDxpL/bz1LGekAyQAWsdLqgpaO/usEQmdWDMECkHpsahimi
v39nI2YB4y1AftZjAs52oL+BAvOA6gorQHR7m+VfC52/xvwaDB14KEBU6zcR
0piYv6Qn2BYBJCZAjG86KTV+k791q15RnwgkQGjyBumpP4u/PKOsw5EgIkCg
pKSWF3p7v+0PwPj1ZiBAAF/65EX9TD+AUoD1wK4dQDA7BUH6sIM/yMQSAKPb
GkAAHSfiDBuUPyNBMVhVTRhAcH3HDobanz+W6CmUS/0VQHytXTCioqY/0mht
0pjlE0BopjCTwkauP4kYG4vgABJA4NobOnp6sz+rXWXTSEoQQIK+S1aAZbg/
L68439t6DUBYLSDCuvS9P7tmDCiurApAQN62df4cwj//wmhv2CIIQAvyx9Fp
pMU/SMiFvtnWBUC/opAdW5vJPwA51I/PwgNASJpfFZ4Nzj/NeRS7ZuEBQG5H
RvgVhNE/myO/0M0tAED+Vv7WpUzUP9qMlYNRR/0/Qp8+0Fpo1z/G31toC376
P1wG907d39o/JB3+zqX49z9w1wmft7zeP2b8mR+rsPU/bmlE6LaE4T8RxoMe
Q6DzP22tfxDM6OM/MZi58iPC8T8wou8ZAJHmPzknJpmEEfA/sBVRtWCE6T9o
NvdDIRTtP8tOpVq2yuw/bdB5MbpP6j8plikPTDbwPzKIEvW8zuc/bmJC1MA5
8j/4luNBv4rlP+q+j8T1dPQ//eYnFPN94z9fmAwUs+32P++h1NEXo+E/w6Hj
y1uq+T8b2hir2erfPzGrl0r+sfw/M0rTgkrh3D99pV9CMwYAQH/I2fS5Ido/
4VLxGRnhAUDySqpgHaXXPzcUxZJz7gNAxxytsBVl1T+Ex9PwhTMGQGtYJgff
W9M/J76mciG2CEAh+tf4QYTRP2p/nFq0fAtAe1n4Xgyzzz/oa4qJWo4OQDbV
sqPMrsw/BLYp6nf5EEB0kOgkCvTJP6tSVCGS2RJAXi2rkcZ7xz8OiSI1SewU
QB8eDfitP8U/x4/LD+w2F0Cqd52OBjrDP82fft1YvxlAuxLdCKJlwT+Em0Mc
DIwcQPmNLaKge78/rTbSPzGkH0B3cTALp3y8PwtaForahyFAp3UKNarGuT9N
OyYHrWsjQFvu2gi4Urc/NAySX2eCJUAX0uSkhxq1PwcKWVFj0SdA5/9iQmkY
sz+lpnPFil4qQHpIo6M3R7E/5Dhn9mYwLUB+eifKlUSvP8mMb5cYJzBAu2f2
HtlKrD8mGKGl8t8xQJuZmZmZmak/MxPeFivHM0Cy1+30
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(3\\!\\(\\*SubscriptBox[\\(s\[Sigma]\\), \
\\(g\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)+1/(Z R)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{-0.2, 0.2},
  PlotRangeClipping->True]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p3p\[Sigma]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CalcP", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"6", "+", 
           RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "6"}], ",", 
        RowBox[{"Reverse", "[", "ZRrange", "]"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"6", "+", "#"}], ")"}], "/", "6"}]}], "}"}], "&"}], "/@", 
       "ZRrange"}]}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<p(3\!\(\*SubscriptBox[\(p\[Sigma]\), \(u\)]\))\>\""}], "}"}]}], 
    ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Cyan", ",", 
       RowBox[{"{", 
        RowBox[{"Gray", ",", "Dashed"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0, 1, 1], LineBox[CompressedData["
1:eJwtxQk0G3YcwPEENXPLELeSuF6bEUVbzO/vqCNafWzebCZtzRHF2q01Qld3
1RSzibIejjALcQ91zZFRzZM4495SpZiNulJp5tj63j7vfd/XKPiaX6gUBoNx
+a+315DdHn2Ed0L9dEvvcVct5Jtj6Zhu74AkKvO/KDpqInrWsLIV8wziSzju
fVfUkU9hY5eEYodaGOHLOfU4hHg34hZP2KCA6biEOKIamhv2G4hH1ugyv1Rq
9IYKau9VLRKkWiEv7jHb83OKKDGcEIZdJCETl+TtEro8SpbaSVqTP4F4VRXU
Bi85NLCvo6gfZ44ebrqoiNxlUbnZtCaWaIomEg5JEdEyKKaa6lssR0RX2C3S
SW1SyJHJ5uQdN0YtXiVYNXMsWlfpEYvCjiOTKKx9ftQRJPkliXpq9VHzhszf
5zj7MPgbDsOc00GBVG0h86IECM7kAP8LWijE7cjrjpIYClYt8r0PNBCRroo3
fiOCMVr0WOHL9xBjwl7qQHkXMrV0s55jcMh/YRW/5L0N1UGh454UVVQhkZgv
sTfBsu6McC5eCX1I12nNoG5AR5iieS1bHnXtuZsdlvwFR320a9PGcmjLg/PP
Hb0/wXMw/deZyWPo61sC7fmhZcCcncgd7pNGWGF3CK52CXh09Y6wBSzy5JzC
3u98AQ8I3SM8Egbx0supJ0XPYfYeI9XX4wAer5DEXNYfMCAMpCncloBHBovg
0DgHRP1DfoV4D2z4kV8JDqchbL/IsLpeBCSBYw0+axLUBlINXEt2YEnB6QuW
3wSQC9u2CX1bgBI/03PwHYOzZqZFaWqbMFt4ujQmZQRodnuuRurrYK5mhT/g
8CB6hE5uv7gGwSeDhfgpLljfxYk6+Sug8L1h677tIIgLFp27v30Javz3i19N
98PBspn6zjeLsOUTlCx4woFXpROjeOYCVPVbc9FwL+jOalXPrAmh5zqZcF2z
B05RxlMoC/OQFpvAvIvrgsTBmd02o1nI/KnX8XP3dtimVF3Wr5iCSN67P1/q
aYWnejX1GqECiCx7fN6f3gyRAabvCAPHocqYyV2+2gRGkimxc9ooRPXqVdJy
GyDhEzFVsWkYrkpI2QWcOrATNDKHaoegQ9tzRaWDDTe/WyXK7z4DaXIyweiA
BVRSdd5AwlPIwY5Zp6ZUgqGBkrgG+gEhZRm2WwVUxT7KkbXngFPdWn7bB0zo
wP0uVxbaC+sWr9sv0UrhTTaprCShG6QubETVJxZD7JdWCpW3OoFWuhvBSnwI
lTHytlUDbfCxS+HO0mARBG7Myj3xa4UQi3Eh9aP7gB9bKs/QaQbPT71WenQZ
sHIU7BKh1QSa/hn+vto/QLwnk3naowFCWbS8RY88uB1vxmW41cG6T25G/rlc
6Ah/bTBDYUOe/7NJhvc9eFD0Fgv6bUg0kx8zAfM/1s3sUXLQi+5/AU1p9bo=

     "]]}, 
   {GrayLevel[0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVzn8w23ccx/EvLY0f8SOClKJ+zI92fk5TNef9SbE42hrWo7TW9Qjr4jpV
86uUYlNa9A5LzmVM6rSJ39bO759tWOf3j9XvH4e1zdr6JhFCg7X7b4+7573+
fZleuRYQoYhh2OkPfdz/w6GE/dEjMPsPDq2Rm8bTPlWwyEk1bf4Eh9Qkq+dF
nrXAdW7qq7PBIcmbyz1Jrwdmowro2OHwcv/K6W8pjcBrCO39xwkH/bHVBz8Z
PIYZdWLnFy44hL6bITQF/A4j9B6hozsOlXGqJ3iCZnCNufd9mycO8TEOapU3
28AuvZ+05YvD9j3b8rLkThgZUgraCPzwhzRPKI/oBo2SzMf9F3HgxXPylF17
YZzOHcxh4GBiTJRVwzPwLZksDYzBIcyWf1+Q3AfigsZB9xQcbhS8slDd+AOC
p54uXc3BgTrZwB2oGYCY8A7WNguH5AuyMPXGYZhP36FpPcLBdOeFjJY5Ct37
BN2pFhy+C7Y8tBg6DrUeZ8pSh3DoO1JdpxsxCU7L9W7UVRzEPrzLRhUvwKS3
Po8qx+FW//RGs+kMhEQtkNv1RPCZz/htn+U5YCbEPiM6i8BwhsKfFi4CM+yH
ttivRLD+68SoPncZUolWclqCCHb/tiJLUlZAuFtNmygVgax4hdaZswaFZ6zx
/D9F4JRNkrYNvYSDVCZ57b0IokcSHVv8hKBy0yTTz1EMUdQtD1PyW8j23DcI
ZorhlJUlO1Mbh4XQHw8XV4vBkdUsNu8RAcHzxsM6qRi0BRnGHmUSCN7Uzbrs
JQGGnG3Cr5OCNo89E8ORgIXR3lCFbAscQo6dFexJQLAYGqWWugObfppuQVc3
YOZuUYY/fReG3rCQy/IGlJh3jgzaYujOE8DZ4VIYTCS3MpYVkOe48usBqRSw
UxP5wz0H0Pkokb1X8SZ492d1TP+lhCisT4Uc+hbs90RdmzIjIIyWkMRRk0Er
Q926pkoVFcZfILquysC+1mVxNomIWvLbS38Z3wb+pYhxbx8tdN393V2HuR24
QzHMXcJIKESL1FCEyWEsKnqMtaaDqCUSaqvHLhS/sin03dVFzV4xxPmHe2BO
cww+f5aCvumKMOo7jKH+pySMO2uAWDRlbFmCobSANGlXjRFKM0yTC1cV0FvN
LpmUcRRJvp6sOLeuiNy4Vb33j5qhFP3Y2090D6I4fph/KcEClfe9XiKHKqEH
VlN6ChaWKNqgIJzfo4wEcgN1owRrZBcYeUnnSwJKV5SkCVWPI55COUY/pIpu
RZozFFZsEW+dyea/UUMt3VrsyQwHVB6kN3BESQPNDgcIkpATcjtxMlN+TAuh
wdiElePOaDK7vOLn69roHKuhfceHihZaTG0q50goMXdYw4Hrgt5fzPntOZOM
/PPs3bJcP0c5KnEpB6z0kK6yeJSj746aajZzOzQp6F8GcPb/
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"p(3\\!\\(\\*SubscriptBox[\\(p\[Sigma]\\), \\(u\\)]\\))\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.5738762944053138, 
   6.066235708973584}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E3p\[Sigma]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcE", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"6", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "6"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(3\!\(\*SubscriptBox[\(p\[Sigma]\), \
\(u\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Cyan"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0, 1, 1], LineBox[CompressedData["
1:eJwV0Xkw3GcYB/Alru6SOkPFtVbQZgSJJTS8r8iMIyMpjaOjkZLZJWmQTKkz
jq4jjaOhVqmapjYkXWfEsSye94cuTd1HxVXVFTEmSVNHsoSkm2fmme98/ny+
DzM8xp+jSKPR3OX7LvVU1scq9N1wzj3+ofjhZvArsD2R5fIxFsU08goDWyAx
d2S/neA47g5UZEevtMCZ0qauHR9HXFTkOjN3vRXw0FcJ0sMOeKPuEivBqA3m
RvwlSfgodriwlFtDtUEHpVk2xbPDB85J44VXRJAWweIqSG2wtItkJhu1Q4bi
Rvoa/TA+8tCXrTDaDpJdQ3XjBGt8teNlo1J2B9yxenRAwcIS777mlCJXMcTV
hPr9rGaBrdOq4OKmGE4IansLzczxdk/fZTNhJzx7n8i2uGZY56Kf06HzXZDu
n75F6o1xryyFyVLvhoE+bZpgzhAHpBZZDLZ0A8vdPjjA1wAr6ys+HwsGKFn9
sPj0nh4+3QAayxsA45FR46WPdXDjB38oT58k8K3Bwdy/adqY8RPj6eVsAjXn
ORNePprYbbm5fK+XgG3D8cW5JA2sFy3NnN8hIOaqW9fX0rFqq2Th3EcUvO2J
jHlkroYTaEWfivwo8BrI6p75UxlX57kGc65SQHOe/G6kZx9WK+B5T2ZRMJSo
K+YuKWBPOBIkLKSgnAWjQzY0vFhsOD/2PQWzeXyen+ceynGd5fDzKJAshkQy
UnfQMZ0glbYUCiyM3wxXyV4hX3YwK4lDAXe3zLSmcQsJz+qK+V4UaEl4Jh63
N9D8hM0LujUF9qXt66ye/9Bu/+ibFWUKnK0syzK1XiCZzo8eissEIh1feTB1
nyHtv8pXR+T3Ro0m2necXUPx0+xg72oCR29ob3UOP0H3+qSmm7kEZCVSd7j5
GLHzw7JlsQT2Vqx0N65LkapORLNrGIF/f5kc0xcsof7PG4p5nxA4OGtQM7O2
iErY1RNfy/s+5jPxjc/SPBK10TO6HQmkDcxstjNnkX6s6QUlGwLrPsIvjKum
0Z7sZuC2BYF+o7pGPc4Ucq73Dg8yIfBlsKXqYsgEKt4t2lwyIMDcmZa5Z46h
BfoOj6NLIPkzWaj6gxFUDbKGVk0CjlNNgsH6QXSG74DuaxCIvbVqQd/8Hf2T
csvIiUEg1KamUJLcj7S0GFzb9wiYmmjI6tBvKKpSxM9SJSCMryhQcelF0nDz
fmsV+f+1F9QqORSqXTU3YCgT2M63qbydDOhp3pg5U4lA/DU7xt2UTvSam5gf
to/A3Tg6WyhpR0NqOXV9igRCns+qifzb0GrLDZdTcuuPL9/JMWxB6RnC/XMK
BJ68DT95yeABMjGJXs+UO8lLIHDyvI+qUpuuucmdmmT1kH+qAVX/cEWkJLc4
4qXJjE8t0qtojZuiESgveze/ooBmvb56uf8HJ0sSqQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(3\\!\\(\\*SubscriptBox[\\(p\[Sigma]\\), \
\\(u\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.13732360121972584`, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E3p\[Sigma]Repul", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcErepul", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"6", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "6"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(3\!\(\*SubscriptBox[\(p\[Sigma]\), \
\(u\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)+1/(Z R)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Cyan"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.2"}], ",", "0.2"}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[0, 1, 1], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkDkfjgVQpmov1GOLzyF
OjtAV4TdwF/fp795i88OMKM4QCXMhZHUBKe/TpiyvfpKNkA5n02mLASmv0DN
c3jjKzRA25F62QnXpL/bz1LGekAyQENIh8sMdqO/usEQmdWDMEB25AtXx9ih
v39nI2YB4y1AsNjwQW/rn7+BAvOA6gorQMDXBiuQhJu/xvwaDB14KED4leb9
nmWWv6Qn2BYBJCZAhGiIDhp1kL91q15RnwgkQIiYjh92LoO/PKOsw5EgIkAA
Yy7TI91av+0PwPj1ZiBA4OllbreffT+AUoD1wK4dQDy+TtqyzZE/yMQSAKPb
GkAchjwKWqqdPyNBMVhVTRhA/u0t5SWUpT+W6CmUS/0VQBoBfwjxOq0/0mht
0pjlE0AgLixYdvGyP4kYG4vgABJAIjJf2PLTtz+rXWXTSEoQQGrb5XMsVL0/
L68439t6DUAbXjnvbcHBP7tmDCiurApAHYaCcis5xT//wmhv2CIIQJbvATlZ
G8k/SMiFvtnWBUC6ixX08HLNPwA51I/PwgNAu5eVdfQl0T/NeRS7ZuEBQGaE
8y+f2dM/myO/0M0tAEDkiRvKftvWP9qMlYNRR/0/vH2nRCUz2j/G31toC376
P6S18pu46N0/JB3+zqX49z+2qcPcgQLhP2b8mR+rsPU/OBqiu8pI4z8RxoMe
Q6DzPyCFdAR4zOU/MZi58iPC8T/HLsa/YpPoPzknJpmEEfA/2tcbbxyk6z9o
NvdDIRTtP8ZGgSQNBu8/bdB5MbpP6j+CCcdGxmDxPzKIEvW8zuc/XYgsPftv
8z/4luNBv4rlPz3L78PetfU//eYnFPN94z/MTi16Pzj4P++h1NEXo+E/GESW
7Iz9+j8b2hir2erfPyP5Mn7lDP4/M0rTgkrh3D8s41hrE7cAQH/I2fS5Ido/
HhSjcQCVAkDySqpgHaXXP66yRrcFpQRAxxytsBVl1T83c+Yub+wGQGtYJgff
W9M/9hwTWRZxCUAh+tf4QYTRP9dLlD5xOQxAe1n4Xgyzzz+glboDo0wPQDbV
sqPMrsw/6HR1HUdZEUB0kOgkCvTJP4RAbZH0ORNAXi2rkcZ7xz+Xwn8BKk0V
QB8eDfitP8U/gdJq7ziYF0Cqd52OBjrDP9RPfN8BIRpAuxLdCKJlwT/AE/dq
A+4cQPmNLaKge78/n/55czUDIEB3cTALp3y8P5dDO2UTuSFAp3UKNarGuT8k
OXSB/ZwjQFvu2gi4Urc/QmORtcuzJUAX0uSkhxq1P4bRUE/YAihA5/9iQmkY
sz+wVEW0DZAqQHpIo6M3R7E/B5FtivVhLUB+eifKlUSvP6cjXbzkPzBAu2f2
HtlKrD/JzTnVwvgxQJuZmZmZmak/ltR3ov7fM0AZE/FE
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(3\\!\\(\\*SubscriptBox[\\(p\[Sigma]\\), \
\\(u\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)+1/(Z R)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{-0.2, 0.2},
  PlotRangeClipping->True]], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"p", "/", 
        RowBox[{"(", 
         RowBox[{"Z", " ", "R"}], ")"}]}], ")"}], "2"]}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "1"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", " ", 
       SuperscriptBox["4", "2"]}], ")"}]}]}], TraditionalForm]]],
 " for R\[Rule]\[Infinity]"
}], "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Prepend", "[", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"Range", "[", 
      RowBox[{
       RowBox[{"Log", "[", "0.05", "]"}], ",", 
       RowBox[{"Log", "[", "64", "]"}], ",", "0.1"}], "]"}], "]"}], ",", 
    "0"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"p3p\[Pi]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CalcP", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"12", "+", 
           RowBox[{"Max", "[", "%", "]"}]}], ")"}], "/", "8"}], ",", 
        RowBox[{"Reverse", "[", "%", "]"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"12", "+", "#"}], ")"}], "/", "8"}]}], "}"}], "&"}], "/@",
        "%"}]}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<p(3p(\[PlusMinus]\[Pi]\!\(\*SubscriptBox[\()\), \(u\)]\))\>\""}], 
      "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Pink", ",", 
       RowBox[{"{", 
        RowBox[{"Gray", ",", "Dashed"}], "}"}]}], "}"}]}]}], 
   "]"}]}]}], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0.5, 0.5], LineBox[CompressedData["
1:eJwtj380EwgcwKc6nKzYEZX5uYfIoRCl+35Nx6zOr4tXidfpaNXr9fTjDTtx
qCZLKWK58mO5YphINpRQI/m1ZmlULELKhTWWS67eu897n/f5+2MReTQ4agmB
QPD76rfi3r7+Kzv80SSfk7643hJpn+kPjx/ajkRCCJtTYo5IGxrJ6KKhX6fS
nJxpiteXlRM8jvngmUvUMi7RBJv2ut2JCtiG1wb2kJ43r0aRlrcqbx8VC1k+
Wk/4RigLdSGOFyBqHyLHTLUYoqHmjOSa0U/4zOFumqWWAQZlOHqe3rwFK88E
7IiMIWFcevcKJ547Xlribib8oof+uVX35ulueOfv7PyzoSsRO4/HDtu7YHty
iPTVqC4OdAeL43EDSovrRe63dLCuSY8rS3HCojlj0/3Z2ph4wCpaY9gBk/tF
duRSTfxziTJpQsce896vYI29Xobiz2t0ybG2qCnISOj1XIo3bJ6v0qBY4/pj
cvPIGg08yY8Iytem4KSXqC2cTkBPXllLprklKrjCoELlAkyufKBWRZujbbOM
OZLyLyQFJ6keVJBRn8J8u5X6Cdoekgi8gTWYWV6Zy7OfAysv510hvxijYHEo
Draq4Mr4uqztC4Y47Hdf7+AJJTxlHHma++YHdI262lDQNQ1pxmvThwgk/Bg4
u4HjNwX88Cgpja6HF/0dz489mgRHgfvgQDwRI1xYMUnO76A+Wte2okwHU4fT
uqYl47DYzDj63FIb9d8bHkvljQKt7fR9+bPvcO2Prw8Ii0aA4NF7obt5Kdpt
mg6ndryGzjiD+miFBtq2jDp+T1ZAnlVjT6cDAXvsAs18KYPQz8lOCfJdADvn
kxx+0AsQD4Yxlp+ah2Si4yqze3KgkL90FavnoPyJ1oj0tz6I/sw141eq4MzO
o0P0LTLQF6eYehco4XfT2ZmAn6XgnCuasWqeBs+XeGiWJQEPG2tuqv4UsKsq
rO1ru4HhNudtYTAJrez9ynNNHXCkJ865LmAC2OhyuVavHTawSaqGrjGoXa6+
KrneCuorw16N597AuszTC4zoR7AwamOgTBiG+TixLzOyBT4U9kqMeApwHZdN
7s5ogrX9xnz5xCDYG4fQuE8aYSNdmkxXvIB2q8Ps1scNkNgm/yiy6AfFK3Yi
Ua8OZuil+8jFfRBr0BMsy6mFVpPySsMoGeygvqteHVYDh3dZaw2GSaHIRMIM
21kNFvN9aq9UCZhnBZ7LOXUbWLvVEbrV3eBS9vZqfKkA3GRVvI6KDnBbNqSg
3yqDExfHKTofH0ORkzyL9KEEIhz4mWJWKyTszmGomDfBzJSoLodH4PL2yITQ
sxhKmdcyNDe3AFHF2Hd3Ew/qSS+1i6Kavv6F1HTuL4RP5x2KCliNIOrU76mK
zQdmjNPym380gNCX/sYn/i+4eVLHtVQsAja/1+PuQy6E/dOvLQyuha2id6FG
QTlg9HTkxtk1NdBAaa6zWZ0NY4uR1IPG1WCTZvarp9FliKfxeJt8b0PoROKe
jT6ZcCrepj17mwAstThzXdQLUH9g1lROL4O5qdveND8O5HG/UQKJ7jPVrrlp
QPgfgSC8xCJB2Pgfbjspbw==
     "]]}, 
   {GrayLevel[0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVznlM03ccxvEfh9CVu5TDylkQuhFmOUTKmJ8PyLQWJqMRxaGESChMRmAc
kUMKDticKJtzEpDgkOJ0lkNl4BAcl1bcuAqiFucKQ4VgnMoh35YCk6X/7J08
ef37OB9MEcbrUhS18+3W/H8EKivW+hnOrrGeQFvCGweFoA4S17AjIM5x//1M
SCP8hyOBHL5EsmXHVTi1fUdKKZvA1OrB4M9sm4CSFQ1z3QjYDD+p/ZrVDLV3
d5ptfo9A9D9jtF+F1+Fxs0XqhfcJXMykb74sa4XnzEO7T/oQOPwF1+jikXaY
jLXepfInoDrpWVOd2wF20SFBi1vf/mE8ptXEd0Fohsuxso8IXD5cVWoQ0APK
zADWdBgBRwcTUg+3Ict3/PrKbgIxntJTstw70Fy3nfXyAIGM76Zd6fN3Ibjm
NGcogYDf6DVJX0MfRP5R6t2WRiB3H4kxbhoE0USuV5+YgLP6AQkqkoO8Q2bG
PkEgKcrNUBk9Aj3ePPLXWQJ37OqvWMWPwrPE4nqOlMCs4HKs/YUHECVc95xz
k0B+r2K+1XkMQgZ+GjSRE/ARjHwpmPgThGetd9OnCGwYs5UqZpQgl0X171kl
8PL8PbmNZAIcBfZ5XiwVLD9zZ87lTUKqONhLuUUFpGwyqOP4U0jlOcxLo1Tg
fYyx0D4wBYWciMHnR1SQPJTtdSN8BgyrbCRLtSpI9Fvc5sx8AaJ0YAbLVcBz
d6sosngFU7dcT3N11eBV3jrr0v0aDHz2ikP81WAhK3TYVj0H3VlDcbQMNYg0
FY7SKwtwEubirFrU4Gq/MnCBLEJtj7KVuaoGmTI60UisBlWuUXJX+BKMnThT
GLFjGSqvpnFnLi1BpUvHUL8nhVO9mzLSjTTQn81sE03oYLrD7YZ9WRqgePe+
HezWQzRdmGx6pQF+b/FvivvrkJF2PqUlcxlWuxNTHrJp2Mkd29BCW4E2kTGn
oY6Ojev1jntIV2BTo7/yUY4J9nkMLLbErIL0QPwIX2COSXsVvt8zKPzGdkPJ
OMVAtkzG9i+gcDgxebj8qSX6flrpK1JRWDb97g+hy1bolkN/KszXQZcgr6jI
j21x5yfGeyItdbH3FoOSPGKh91X9zukWXSwQFix0NthjNTP2wytJevjCrJMs
iJzwjWGsJsdHHwMldT2nnNh4LuL+BN98HWZKYyJ+pLnijcjGS+H6Bljr/tBa
x9UNhy0/L6EYhijTsIztszgYJzb5yjSQhkd15wpm6B6IR7Mxs/gdzE9wEelM
emJnk0VTwWs63ugyrxgt5Go1xkeDQlkOems1RexPz5r08MXqZ7z211bmuKv8
2k21wA/dwxQxeRstMLtk0JQr8cf22wmG5REMjCjdFFgc8AFy7ticC66yRCuD
WXmVzVak66mmB4yscHSPr8l0NWq1xlbDbQuVscFabbFrv98v8eEhWll4Tr+e
4qVt12qHyB9/UjrA1+qAfI3gVvqhUHQVb/yb1+yEuP/BWFnYLnRqSEoOdWPj
v2U1GNU=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"p(3p(\[PlusMinus]\[Pi]\\!\\(\\*SubscriptBox[\\()\\), \\(u\\)]\\))\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 60.59835372462885}, {-0.09565935501967603, 
   9.08788715449878}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",ImageCache->GraphicsData["CompressedBitmap", \
"\<\
eJztXH1wXFUVf82+3Xw0hdCClA+hla8iOuLIpwoUhMIIOAwyCn6MVCBTUGwF
BBxRSelHrKENNZZAu9NUq81AoRFr6DjB0Cma1lJ2sEocWibFMMahdVIMkGHC
+Hy/e+65H2/f2ZdQZvjHme5m9+47v3vuOb97zrn3vdur594175bb5951601z
Z1x+x9wF82696c4Zc+bfETflJgXBpHlBELw4I8DnKP6o36L4X3Qr3tCS/fkS
9ScXvw8F3U3FoBR/q1JtYVAqNgaNjXg1Bd1D0Un6UtvcGF+K90LQ1D2kfk2I
nFyGFL+KJaGDU1RzTRCVigZwnKDx5QIoXz3U3TSOq89zrVLnWUVpE2vW2NQd
DPmfP+IZsTEoluhbFFumokh92VihpvqeLkajqfXF0i8NKnUBDcehWeyr8Yqd
W9lyZlzqeykoNqrfTtaXKzckOku5/FTNEP5ZuGym9ofrc2JqdSWxgOHZYsJ1
bCFjEYcdFcTGYSGLZn47xfE4W0i4NPCsSTyvdP1M9rRjApcsgphHkMbyAWSI
pbm6gpi22myja/xLd2m8/HIJw52kXGaM7FhCIgmNY3IQDXUHTeB+wmKyjLZ0
U3yNjYWV5DyiFYtuCK0kpk12MStaYsnMQBZIkx9Om3DM8FmVInYSTwWtYUZE
88OsitcTCbMTGI83VXPeUComx8kmBRhXMXh5HgvSElmsVEZ29J0uZMc6P+Xq
DiskUzdUyhlap8djyC4RfjHBD+9XZ/x+FhuUKRm75AjdlbWc6mrSBKDYHFNT
CFKO0xCNjlqcGZ4MjTanqxrXeeqFKV8s5bQIjMNdk8Gm+8kWlzsuKBY5wiEK
MLTLl6K6hlyVvEawypnR0JAdzUzXwJrvBX4n7e1o6JqQY58Yx1JmG8c+M8/V
77lAtP80/Img8El4qwmcDK11yqfqacwQ8kUp5UyVcZslepUw7FIxS1fHuk9H
69ffGJVK2og+D8fbVn0Isu932wely/9tkN7WEJTHkpCp6cQPw3CHyVUpM9dn
uzBz38NsCNWsjcbGNkWdnVdEe/bkxznAtAB+KAY7/ANy6Ps9jg/KVkw4d60a
shWTGaKMQOXhF8SVyfneCZdnrZl0KgyfnjKij6a0nXEIbWl4Rxh1TbLTFhmP
1SZYpRTcrt3hq4YTHMjkNkyjp4apQHKifyaoWbVfhyWco1rOTKr3nko8rR3g
N0QbN1r4K2QZHTbXRl1ddH2ki6I5skzeytwf9fZamcscGSWi5xeuejjavNle
eamMruPSvGjnTvSA0ZDM52QZXRlhBDAsFatou0SWqaU2hOXeqKPDylwsy9RR
G8rHUtTeTmUk2mbLMpOpbUY0PIx+0B/JXCTL1FMbdEIxBVuQzIWyzGHUBjuv
iLZssbb+rCyjY92CqK8P/VgbfEaWabB264vWrMG4SObTSe/r+T8r2r8f1pod
DQzQlefL6FOlkVdYRU2zvMfoiWloO1eWOcqyzPf+2bLMh6gN4+iP2trOiwYH
3WVVqszR1DY9GhlBP3Y8n5JlptPM5PFgLuOz+vGTstix1HZ9tHs3zA2zu9El
VeY46yI4E7Ik84mkM48npWAoKATFjFIfdztQOWj2wMBAb0dHx0Bra+us/bEi
x1t7+8p9rEyWlQNGzVg8+z/s88jGtTPkgem4Nn1kZOSa/v5+9e0Ya1dEFgwD
w1ECp2dBhWcOxZO+vb0dw4JqjrlhOsuGWTKUjofQqL+tre2KPXEsONZ3wb3R
tm2Ec5qMQ9sauaVRTw9kwC6SoR+8AtlPd3mvDolfCncKXY8hburs7MRfzcIc
xgW2W6uf7Pfh1kRp9RTFsvDGUqkENjD+0ZZPZc6gDSiTWd3NT+UMVVdrnYGr
7GhnjvIJdLaxlpb4HCm8lX5Ojihgj2k7kvqHrRGZEGPNBDiR4I/UgO6ubJUY
5MKG0dHRoZaWlrVdXV0zhoeHdXxBNAbPLaNOcC1ekPbl5IGEmEYL+vr60Nu8
nTt3Uk8hcw48MmM5PtFZ+t5cWmc6pqIzYzkd/8BqxD8774/LDGT3btu2zeBM
s2yEbewsOVbG0TEF+tzf29uLwa/YsmWLwmTDxKPmWQTdlOD0zHgJzwFqw8aN
G3nY5aodLeOcVaH7o2QxvVP19Pr16zEiqMFk4u5RaxlfTnOgFNJMTeLYBGDd
cHNzM8w81aoDeWafwpgqq6NvboK71+9G5rCMS6VWgww1y0YgFfPxrcFyx68f
Ds/CCZf29PTA3yA98BqsVqAhIo6JNlNkNMoKIQYIcyF+AU0XNgiJfmisl6HO
SAkpR9iQAo0QVvBZ/VgnQ6ncXIXA59RiA1Frq6VebYZ0zJfBwUHO0IA63Gek
R4FqGY3qkRwSIliphqeNjeoYFECkNMbOJxl5jg0aBnSKDYSw7zUREjjaQlmR
c2zQQJZWSf8wa18sC2BflKtKoEqGorIxBASg8EINo9FgbGjlTbR0IKpzVbo3
4zvMn2qcpv4ro1xgmQMzq286qWI0GBVGh1G+m4Wi3A6Xw/X4rE0NExsGjcko
F2nm62SurDzFZw6P6B0Z5WLR52qGuiMalVEutSGDMyjbxR0O9HoryTqSzbt5
0WBMLp8JGM+bsiZz7HiApsqRxHiYe/+RUa5KiRC16Zw7KKNcqTkfoyC686jq
fNrBODDScJY6qkhBruFUMdmfU5zU/y0DfYHaAKSWAg5/eSnFIWK/jPJFyzxj
oVobJzAgtbh6PQsiROLGaLgW0DZG/1jVcOT7FwG5JSOXzmnFz3XWewBGmctM
4kCIGhd2++fEkG8mFBS1GCVz4DVC4TK8/LGNMFnqq7L5Broe89+UEDXl5EBv
g24PCNzlTzyEKfp+RccmnTRhavRUa4kDQ8AgMMyr1InZ7fIfEEjD/xq1AR+z
TX3T9OYiCH5ERxQs7Radc8s8DXmuRTaxiXJfCG6BqRxRXvF96N77S/OhRnbL
ErY6eMdxE1Nyr0zgb2o+6WUalpDQUwMhvPCUhGVfloFulkMNpqRrwr/LKPPw
ruqQGt9ITNGXMmTjwBaHSuRXrkKqrU1cJv7NAVI4txEk8k/fmngBjIHUlBMM
fNgtK3GPZY07P1+UJeZTG9ZQpsqoTp+fJRllAUlwFgUSfFoon4aw6Asy0B0p
QbHamoHDGXz6vIxyN7WBSmrlz9Ndhy7wCbwCv/6chRKiRAHFeZ2vBwVmu5F+
e6ZX3NwMOzvW4YCPv30y0PcVP50Zgo6hAJcof0zS6od2XphyQFuCEznPrm1y
v4SSdzNnEi05y7bKaD+mNkaDr92g5FKuV0ZZbH1s2qrK+YalzB9klEXWNe5q
OrSUwzqGKdeTpU7I2RImgq9TWAe7/14GWmo9ZrgrUG6LjNJCbVjEqoSovhEK
c40Df3cWSugmPaDlLPncOP+7JPkeJEjOm8jQTBcO7RzTfisr8bAf03ji/kaW
+Bm1Pbx582ZeLvPgkybclIVichPoAarqO6DJWavu6jwho/2c2oCGopOwyycx
Yu5GGeVR9V6jJh63xS/YgzMEePpYFoKyDacotg0s7IbGThlltQ2NyFa8jeAY
GXZhI/+agLgiSjyDnVa3FKkN6znTFqbTdz2BS1uJeucyrYRZR8bEIMyOevxi
WnOq/qXfgfC4r+pA1aMdpCcKAc6FgK+yIQWu4pCyzkcXHotNU5/0MitXtRLJ
+eEG4R3hZq3bST71QdI0LzyuR6LXahzai5UtXmHzlhiVw6REMFDxTdslGflX
y5wxT6ulgde5WRbzludKsgh5VGY3TR+z+lWFSM66D3bghNsuo1BoqQYK65BM
ucGqLPFaTAEv38atnGu5vAvaZJguHWOc1I2koK3OJR74Dt6vdIAUzlP4VGWD
vop7mHpe3GuV+6fsUs15EX+T8S5YkSVe66ZVhuGgZ3ZSH5RhKFOatSyqXSZe
cq78VEbpTZ8PP5ElnqEQw+UFJ1CX7CrcyAhUu9S4a0+V05zdNrhhiYzwrEUw
t5XiFzSHF3jjZJGMQFVlHlHstLEDB9y8HSxMMuY5O2ROm1D4wrF9+9z0fb/c
3Z8IgRMvdmHR4mYVKP8jGWG71cHG6Sji1MFmv09GoMVFHmS5pbRrl2vq4AdZ
YtXuzeL5pe3bXTtTEZ8u/oIVR4LGN7dQUiy/RxanhWF45cjLL7vF5veyJAq4
64M8tbSfqjlm9p2y5F9JVb7xC+nbx3bscINJ8F1ZnBbS1UzI1KgyP0ktWv+H
lw6+8srjA489xvHjO3I3JFFAxAMR+zrWrHlmYN06DhnfliX32Oht1mz7+/s5
UqjofZssvs+GCo7U8OQ8WeJVO8me7Vq7du/wQw8x04PGLLFqju8H4/iwo2v1
6j0jK1dyKtWbI6niVF4VWPzUkQMH3CR5E0naDTP/1ql9atBH1Q+wQvdHx556
6h8jy5eD+nNdtIJ0biWtcKCtyzwmxhvNS5fu3bJy5fMjjzyiJsQ3ylFNOaIe
fLOoqj4jrALngpHmJUt2969axV79OsGZ7Tt+gM19/NxXbr8FhB3Z51g4wudf
TdjQfWhel05pqFTgh7eM7dr1+rZly1aNbt6MSXWDP1rh5EqaDYetq3/R9eST
bzcvWjTcGy/qRoklX/bHnTjykabhGzQiJJZfdT3xRE/funVm0/pLMuXetOTg
SgrkuE6WeJskzh597bW3Whcv3te3YsWcsb17r5UlaMGbRwrZ2rl27TstDzzw
l9KqVWrWXiOLvWPF7tuzdas7c/WmvxON6NaUKaE6B6kYu0qGp1tiYf/6trax
1oULu0obNsCln5cl6D0/Z2Dv3oGO1ta3OhcvNuGxwjOQ6l3XNyeOHjzI+Qeb
IZdniCW2Pg70LFuGtHBZhpjeovhW/44dB9ubm99sX7z4vv6tWys84qje9T7W
3f3PPTfU1dLCk7DCE4vqva48vKIyuShDrN66bKRryZLBjuXLrx146aULMsTo
zpe6t7apr7Pz3ZaFC+ENBMvAfa5QiSoJuvecbxgbHYWXvbR2fkZvega6VTI+
Zx260hv39lhTxPd9ZZmsg1rj/F19nsBp8/F8pgcV8t6xRXMqCr9pw/MBCfdp
KnNogm7t5N22CteRmyd7hzBsjkJ+ajQrf3MNvp1XUZVS0Z5GqqSKex2pos+5
NjmnJ1OPfJprlLB2Op9Njdf5RWedTxe5p8rch/fr/dSZIRtrEaofa+wpSvd0
qa4WzDn7art5kpIE+VF0b4MF7+f4A3J68M5vsoL6Rh7B1VlTVZalQFRIHGww
Y63S3LA9ObcOvWNwjjauN2pSD97xGf/4r94Y9fW1RzATV+dSjGXOWnjuTQzB
514hpc2zeU1FuxlF6ssOm49LTNLfPdRtPh+K/mlEJpHQzLeEQ2URMwM98ptx
uods1Wf3jEVjUnGXuY7i9Hut70vhWLXBcq5lW5btVtKczOv76Yn/SqA6Ywrq
uzSJQTbywR+3o4J+dy91eqozOltfF1La3DnE2rnUqhfjuH+YrpDS5mK7qSeY
9D+qq/or\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E3p\[Pi]", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcE", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"12", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "8"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(3p(\[PlusMinus]\[Pi]\!\(\*SubscriptBox[\()\), \
\(u\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Pink"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0.5, 0.5], LineBox[CompressedData["
1:eJwVxwk4G3YcxvEwOtOYo0hG436EmQetObv+/2otTzzaSa2Pup4+NhHDPKqZ
u6xqSjtlq2utTqVl7jMjEn6OCmtdcRbt1NHy6KjGFSG69H2e7/M+H8OgSHqw
PIFAcJH14bUOiYRFpJM4nXTpu6CLVeCVZXUizckZF43kRzT7V0PczaFPrdkO
OMpIXk0SXQNnCxraJDQ7zF/siTG4Xwt4IDp2wcIWi2JVRRHhdTAzRBfE42N4
zDHtZL5aPbR2qhWOp1rjH/+jDu1x6yE5xJght2CJI0N/szMKaYCf5TdSVpQt
ME83d5Wj3QiCfR0iJdYMN+9LjdN7G+Eh9Zm2nIkpzho9wkqLbQJWZaDXn0om
OCNjT6HVjAMn2FXdOQZGmEhTrD41yYFV1Q7xFsMAq6znZZ5N/RtS6ClbHTUU
3BXq8UT3i2boe6xBYM/o4JZW/fDt4WYwdrHx+daTjOPG5bvso1ogb9n8jodU
C4dpLP90hsiFEWbESMGrIzg7kC3Oe8CFDLLuzZcEDWzzZoJaZd0KlQHBo+40
NbzPXLAjc1vBqtZhdiZeBYsnStlJTjzgMYhmNVXK+FZggUN2Ew/edzEjnxkp
4fP3bOW0qXxw70trn5pQxFOWl48u5/CB4Dh2e6jrIywunrmwscmHgThNHmNO
Dh84cFgO37TBXWMYHrAkYO+KXUo/uw2mb+WmerlJkb8k8/TE2zYQzPoxD1+V
oNsdB0Y5tu1gQjkYfCTeQWWs4QK3y+3A2C/Ur6zbQmOzC0bny9tBXZCq51q8
gUh0BZ/PptvBpoArMu56hyqKFHQ/UQRwpJoWXldfR37+g/fzPwdg2u24Gmqu
osHJwe+/8gCIGI6zaT23gpijmgHRIQDHbmhs8QeXEEjMPOqSAcR5Cy6Q+Qrt
eogzGXcApK+pmhtJC6jzDx83+VKAtw/GhCT2HBLPu5svNwHoTpMrp1ZmkSAp
LulKJ8Bx2ug12txzlMhY75E8BUjum9rkGk4jqQX9r54xABGt4hLl0STyKM0y
JT0H6D1aXacVPI5cciiq5vMAYT6mH8/6jaKX6uTfLZcADCWTYpfrQlQ3zBWd
ewOQcFEcSGwcQkJGyXHOGoDdeAO7v6Yf4aeUycR3AFeyl02UN/9BF7xjMzo3
AAItK3MECb2IpN3dU7gFoK+nIq5GPaj4hW8YeQegIqYo65BTNzojlLp6igF4
Gi+USoI70byfZ/zpXYDdXy1LihMA+UbQ5YgSgJgo68NliXzEFxLXymUuYyl/
WSHgIqsg78emewB+a9NKLfRmFL72Q8sNmUkjiw/TdTjI/t97r8dkXnofdCqU
3Ij44c7XVPcB4t3ZbHu3euSkR5U6y3w1nvok9+taFDmwbRYgMy9kW2+KVoUW
Jzl0lsx3Cz+sHIW5HPL9Reb/AejtJgs=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(3p(\[PlusMinus]\[Pi]\\!\\(\\*SubscriptBox[\\()\\), \
\\(u\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 30.092251893604118`}, {-0.12494697282659721`, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",ImageCache->GraphicsData["CompressedBitmap", \
"\<\
eJztW32oXEcVn+y9+/E+kte0tU1rtS95SV6eSZqg/YjU2Fi1LUixSCkK/cNH
65qIxdAUkYKQhaoVIlapWKGrxRYNWGmR8AxYzB9RAgZcpULQIlECrhIkapEg
Qcb9zbnnzpl759zdfS8taTDk3d2dO+frd75mZu/eu/jY3k89svjYvocWZ+9+
dHH/3n0PHZi963OPDoaSVcas2muM+eWswXs7eJtd7OC/3YeLMevdS2Lb7bZ7
5/5w/fBFvE+3k/32xIl19vXX/aQ7JZMmZs3ac+fusa+99nV79GjfHjr0Pfvy
yxij+R/QhdZo7JO21ztln34asohmj06TuGvashcuQN5L9vDhK+z58+7m+3Wy
Oo3dZ0+dgqhd9swZErWbaCbdS8v0um0Duna7Y5b6GTa2Z7qdJdO3tpYz65ul
Ttf0MvYgSx1h3XSW+h7WwT+Mtkg8kDxmn3turz15ksS/j8RPuJeGsb2uaZMo
+Z60b5bE0ue26fYcccnqJo0BrG/bI0cAGIm9ncRmDjD9pU5mdXswRgqDJ+7i
njdpgETbya/n3vAqJdmYA7HbI0/hWodWmTLw8g/tiy9CKVLmvSEGEMjCBfeY
wJTHAFUmMIngQN5NPm5ffRXwI2BI9K6y6IitifT6Ui9QoS4gZK1rERWmaAyB
BxV8ftw2UgSk7E8MOU+JKMisZ28C/ipVpmlsp+33Q1VulbmQFnOhwRp6YGQQ
UtwkXnlF+moag9SefeYZn4m36Nm7hsbgN2gMPxLNzTrNjI99hJsvLu8pVrm1
eFdDcrj779Z5XqmF8E6d5iot9nboNFf7YDlhn33We+gmneZtNLbFnj0b4rpd
p7lGw3VbEaNrQzQP2mPHaOZWnft1NIa5XKaJZkGnuZ7GUKfD2Nyi07zdxzMs
32NPnyaaeZ3mhtByHx2bdZp30phsO0SzUae50dsTemWuiPCsz4tQow06dxrL
m+FP7QsvoMW4m7M6GclO0LOhFF5J1I06DdmYgj3EfMW+8grEupvv0MkIzuQL
9vjx0P4bZK0Zse+GxZ/GSmUqjWhBgZAiN5BPgfIUcaN14ElT6sDx6bEmtKBB
QXmy8mZc1q6qn6VQbqECmGtDYCrbclx0ZHoMmG0aMNeUNVC787SJdedhIBQ0
2V6GI19cXj1SnFD0Tel9ukwSXbHs8Jhgveor81Uyb5QenUg7x8mTnT7JUeVR
h4CFu7lWT3LqmCkKL5QNYJsp1rmbQ8v8UniNLuAWrxfWsVzl3c1pnYyWVikv
dFC0UV7dzUmdjNajKWr2afvUU5CYV9WWTkZr6hQGgSxAoaGT0Q6gjrQDJiDF
q19bpDotbXjqEANxoEXf8LS1Ivq0s6rDHnQMpvC9LC7ozjIZ2roj+69O9iGv
H6YzmdtQXtDJ7iqTwQluMfAfnewejyQ7AS539eS8TvYR724kPf7w/t9F6O4l
9mAHtuwoZ8y/dPYfJTIoDx9hg4zccquUf+hkHyMyXjZyqjjE/66T3U9kyFpA
xttxh8FZnewBqmqADrtxYACJbN9fZdG5Ylizdp/jc4Kdgm8P8Z3CJ7wtjByW
Hq4W/sWMUo3z1qBU3jFaw4OkDNZKcN85++STABjKmTOkzAoaOCuq3CaW2QbX
9pdMR5C5zTWp10B4IEzgPHYgIu9PIVyVzXlKu02fubFlEMbayCKJYcchU1Cy
oRii6Y9lZVRIplRIHAzSpwN4Yso8TGLQBDgjkFAIc6D1h4sSSGMsAz9NkpD/
yEwEEsoJohr6nJKpVmra9fjwGC3+MyQeFY7jGEkF3yBQfqfXiEeIEhkAINmr
qNAA97c65X7vAswGFdd0wPDrYqU94Aaa0Ad6wV3QE/rCba7i/koX93kiB5pA
FSjD6xCLcHSV94RO/jiRQ1ukD6Sft088AScxSua4Tv5Fd22hlAJkhgrZiNYJ
+HDvmM6hQxyQPujNcA8U4BUpc/iZzuFLZAKqPkxgDjAFDnAIHC2i/lUiwk1M
wmRrDx4MiI7oMr9GWmvk0BoeeUnn8I2QA7SG24EcfAjw4ZQf6Ry+5a4TQA6B
wmtFaTvrYX6gs/kOsQHIVcq4pvp9nc13y9rAh0AFr/gM/zpguzqb5911EtIg
FUHE4MI4ZAWcDDbuoLfo18NED+iQDgghjmleIrF/kVnf1DX5MZUZZABCm91c
Q3aZOt6COZRkZcwhndtPqKZCJqbDBkDCunGhLrL8ss7x6PI4HtQ5/nx0juwD
uPtxWcRXL2u9xCVdLiYGbTBW0n9BYqSS7GSEKwIFrzFFzYEx2l+ruuV1e3IB
VHUAfZIUhgJjK/xZUnjFa61W5VprwCI/chrYxtPcmFtv/cZ9XjOKCUhYpApS
BnNRfR4OYa9cj7XU9Vj2PcuosP/eXWdYZ9QePpvlFstFJaa3a7sPlhVfLsTd
bv6VAa9sFcX/TIqjgsUURxZKwJGhuI9qlyt+/xsR6MO+afmbu04x4ig6UIzP
VoqKo8mYmjtbTxh1GJ1tUZe5KJQpMtA9VkH+SWOspzsQzvRgkBEVpgZtTYLu
hTHYQfNqrokldFyfMb1DL6u093ffb4DQ7eiID9iaBH0JolBjDY3V2avcMl17
2VVsdo4/AdLi/i2h5+4J0bt0Bd31Yn6d/qZ8XX/JafWWs2olHVt+Gc1FL7YB
lPJGKkdDbo8nccWNs1lZ1ekhiLT4EEQ9d+QHQ8OXfRIhDgIy62OFLYb1cs8b
8MdnDmOKXJ575QokW/4NlThei+CQlTYPC6C3ZmJfnuXq8tSaYnhm2cfMwx7G
cu/uHiNDJ/T14JAHsC5q5VVLl1yOlp+7GrvsDrk9/HGrsauuelsWqKqF9thF
96It8Ucuvs2qr0TMqE9PXf7Z/+ZpvaXkLtdjN+dxPfRZk40jTXVcN8gcDbK/
kQd+gft6lSQJSIpj+Fsf0SKP6pIdt+ogzYtskgKyjNzkPoz8XMwcc4tMH3CP
nWTMBhhTMg5ZOA0jidhBpk9Hb7vPcUkVzyxuZSUEx40KWkr1m4uEVz3CdkPG
Vtb/CrZBKGbTY2xJW3+Ko7CrwEAGj3wSZkjwKO1nrirWytxJ/YmgW2n7ibnI
XIWtYTU4hxgShfdQeOoEZmcArk/UDPyxn2oiMVMqWUzUZuFnGKCwJo2aws4y
q02MY2FbGNtQSWAcLvNBuFOPnGd7xnieakNmT5TG884Rlj7PSqqzr6q4TOhk
Qvu4iHDrOl5V2ZKFTFDXs/XEphy/oQ9/bVSnxlkHYdUR9yuW4uvZDdU0+cpH
rIpi3Ss/kh+ne420RNgmah8H8tpMlFfeiVo1BiuO+SsjYT2Mz7qApp1DhNWC
xM/94VCi25M/vgi+rzDrwq7mHh/xAHa7Mp3DbQ1nD+aQb4pzRkLlOglwlgYN
vpL2noDmpCLLZIH1hcSDmUhWuXYIbHc/MSr+7iFktym8HpfsVzrB0zb1qJ45
DClPiqwbYpFdU8zudYfpGkM3tuX8/1h8rH4J6XKpj2W/0QlqSX68LeqH/gXe
RLnm5HOUzF1xNrwrMrYuMjYzIu1CZGzULIzxWx2YQ6uF/HddxTJYQqlcY+Te
r+yBNxLV2NgDI867PRefV2iTjIzCyK3VMdgtaIqb7nYgJ++Lif6d9Fii7yuK
HrqocGT7lveeO5d4NtRv6QSoaWQeheVUkOxy6eybv/Vz8Om2UHZPzKuSLeeR
7GyX0ynuFxAg7dieyg1ky75CSeJVUs4httqcDh+m7XadIHYT8fekA4VSeU5b
2BeyN/PzC7FFKmw9oRRnJ80pKZhGDnPcdWtobvD4bb20cfWSJj2gwunsTKFl
i8tGUGYKP8FqekmR529pTiv/3F/q+pNOP98N7KywJ0y1NLsGdvizrHwqvXKd
KB8ZNwoBUTBttYhW5THjPGB6ThrY57VBzsPYjmh41rLvR9vhl5f8fHHxTKHK
ZUNtlTv//H2gb7AWT0P7/Y6iZNpN1a4TnJM8ywuIxlJO0Pmvklsi/21QO7L3
wbekgUEyKwb2d4NfW5Wt2l5h1UQYOsp2vpHb7OeG6S7aDVWNOsdDeEDVzAyQ
VJxMnA4Sr0FcJFrh2FRZJ5l7iGz0Nxq8ZZNThc6TufU+8BpcECJHdl5ym58a
cEM+5N39hbDLyIyYVrtZuHRtZKUr6HCFIt+UvuNIxVj2w+M7Ir5197MfGe8R
YZiDhiudrpndUY92fDedD+dx9wsOsMQ82f3Nqv8BjHp5tw==\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E3p\[Pi]Repul", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"CalcErepul", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"12", "+", 
         RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "8"}], ",", 
      RowBox[{"Reverse", "[", 
       RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Z R [a.u.]\>\"", ",", 
       "\"\<E(3p(\[PlusMinus]\[Pi]\!\(\*SubscriptBox[\()\), \
\(u\)]\))/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)+1/(Z R)\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Pink"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.2"}], ",", "0.2"}], "}"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[1, 0.5, 0.5], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkC6itpabKuWv1GOLzyF
OjtACO8oTugdlb95i88OMKM4QDSCBm/kV5O/TpiyvfpKNkCivTDXKk2Rv0DN
c3jjKzRAZJ8Y29Xbjb/bz1LGekAyQAz2O8OQT4i/usEQmdWDMECYVFQWqM2B
v39nI2YB4y1AgBveJChYdL+BAvOA6gorQIC+g4Rh7EO/xvwaDB14KECwg/HX
XFFyP6Qn2BYBJCZAaHKA/Zw7hT91q15RnwgkQDiK4Nprl5E/PKOsw5EgIkCE
/cq5pJ2ZP+0PwPj1ZiBASKNBR6RnoT+AUoD1wK4dQCB9ihvopqY/yMQSAKPb
GkBIygN22J6sPyNBMVhVTRhAiziWHq2xsT+W6CmUS/0VQG0dFxsWhbU/0mht
0pjlE0DwAh9rjdW5P4kYG4vgABJAB3+fiBywvj+rXWXTSEoQQHUdNrqHEcI/
L68439t6DUC0YEmiCx/FP7tmDCiurApA3gz9MziJyD//wmhv2CIIQOSh+YuG
Wcw/SMiFvtnWBUC6AA0fMU3QPwA51I/PwgNAgXagxKGr0j/NeRS7ZuEBQMqV
HT5mTtU/myO/0M0tAEC+aaqwdDzYP9qMlYNRR/0/6d0xZnp92z/G31toC376
PxqPXtbvGd8/JB3+zqX49z9UqH9yl43hP2b8mR+rsPU/KLIKxsXF4z8RxoMe
Q6DzP9Rvf5U3O+Y/MZi58iPC8T8RzRlcO/ToPzknJpmEEfA/TZEoDMr36z9o
NvdDIRTtP1BjDnKZTe8/bdB5MbpP6j86d/w7GH/xPzKIEvW8zuc/RnF2vH6J
8z/4luNBv4rlPyR4DGw3y/U//eYnFPN94z+Bp0QMB0r4P++h1NEXo+E/gqGX
3E4M+z8b2hir2erfP/on0BAdGf4/M0rTgkrh3D90Czp9H7wAQH/I2fS5Ido/
/3lSiiqZAkDySqpgHaXXPwztepN0qARAxxytsBVl1T+RIZJcQ+8GQGtYJgff
W9M/MIzDC2tzCUAh+tf4QYTRPwAePhddOwxAe1n4Xgyzzz9jDh3FOE4PQDbV
sqPMrsw/ZaIStO5ZEUB0kOgkCvTJPxrjK0R/OhNAXi2rkcZ7xz/IDpkVnU0V
QB8eDfitP8U/HixrupiYF0Cqd52OBjrDP6ZrpfBRIRpAuxLdCKJlwT+V9c6t
Ru4cQPmNLaKge78/+J8C4FEDIEB3cTALp3y8P5APlZcruSFAp3UKNarGuT+D
rKFGEp0jQFvu2gi4Urc/PbAKtd2zJUAX0uSkhxq1P9BBvhHoAihA5/9iQmkY
sz9PlgqpG5AqQHpIo6M3R7E/xgw6DAJiLUB+eifKlUSvPwkGpWjqPzBAu2f2
HtlKrD8rhdIKyPgxQJuZmZmZmak/vvmleQPgM0BqW+Ff
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E(3p(\[PlusMinus]\[Pi]\\!\\(\\*SubscriptBox[\\()\\), \
\\(u\\)]\\))/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)+1/(Z R)\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{-0.2, 0.2},
  PlotRangeClipping->True]], "Output",ImageCache->GraphicsData[\
"CompressedBitmap", "\<\
eJztW12IHVcdP3vnfuzH3SatH4k2bnY326ZKtR+22mqpFdGKKCr40EdDcUge
1KXWViQPWdlghFIbCKYPHQyhwT4U7EO4bSG4D33IQwv3oQ9BKkQscpEgQaNE
jXqc3/mfj/+ZOWfO3Q9qqgt7Z+fO/L+/58y5Xznw+MFvffvA44cePTD/8GMH
lg8eevR781/47mPlpWxCiImDQoi1eYFzWZ7qgyz/5CEccGV954vq35QYFrnI
c3xWxGCkIMrPUBQrAzEqz3G/rSAysTIY6fuSaH2SaC2of10hh4XINR47z9Rt
HEdisJKLYqjRHyD0D+r7o8GKFiUXLXWcJNjyLu459qV4eSGGUnY0qtKiGKpv
6lpblvgK9S5fRhAyREkgRahrZITYmlCbroGSr/bddZIB2XpMLcMxG5NkoyW7
npRSO6lkkRJ4UatV8XnbUNX+MT7QTFNU73kn7resPz/+DnL9b9/PrNbXk1Tb
Wm9rbavJZKqDtIiMYMVWdBKkE2WwswGSW9BkauzW22Q2IneiyVBH6BDJwXAr
rUx1v02XlMW4EuttMrbBOtmTAm7n3bbW/39aL9USKEfmL9kEchneCufawlig
iuqcBuWXqSx2bbmpUN8bRck8lOo1fOYCUpSDbESPe+NG2qeOVLs4A1156fa0
ZwHplzd+Pm+oBcBL6qaF8bK+x7MxPdR443mdy1wCJaAHofSDt9X3MKd74obb
b4RgFBcj1or0nPlAeHUCZOc0Wf5wNgbZ2rNchew0XZuXly8/JC9exEd01TF7
RL755hG5toaP6Klj/5fyhRfW5KlT5iNGq8tiZfUk/f/Z2aoY3HbKdDzUdA8c
J9QiM8B8U2TWqRP4lPfEF6EsdpNhJuW1a9YwmTr2vyjfessaRp4+KvKjp915
viqGzDjF06cy9SUbymeflfLIEXxERx2zi/KZZ6wtuwT3C/nii1W7f01euKCY
D4/ranPmDfV9dOawKM5fqYrfELP7bCxgqiyDx1UOHbt9ERqAGoKNYnMmihZn
NWnt3ziSZTvl1avWDS1yxjflcGjt1FLHjMenaJE9z8vnnrN2z+h4Va6uWjjy
z8zL8vnnDT1FbXTiCVGcLt26dloUTz7pxD/+qmiTDHfKkasjN5vwYlNZRC2R
dJCpCPQYcIuxsD8+NpVhsVdbOIjjaBPYLGny6nFoB92UBYZHc7JA8SORL6+K
UWkn+fQP6dxZ87I8dqxq9Z/Ll16qesdEMffiffLtt63qU4EENR2QktSZZIFV
cwfrLLz+ar6kM8Prp/o5zDnFcUgODFXQMOkdRIaX4GV5/ryyGYVmD2XChDA+
KCVCnjopBstmNOiJ/IkTYrS2BlxbJvL8sBi8cdHFQnhVyhjZTBn86TM0ZZS+
WP+UcRRH7XUI6aJDKdnm9REK60D6qXzlFQtKFVi1K0v3MGtrprrcqKVz+irp
WnHpiEoPaQAepriclGfPQg4UEdGCaCGxWoFqcCzQbW8KpHaDTN9XxxtAHKkD
VmgOEAAFzEQCvpt0Oyhffx3wSKsjHrfc+hbjKHe8+owGYqUYmtVleNUITQLu
9scmgLM4LgrTRd1itx9rhYKhoKrCpHzzHVeiTGkyfhnJp56CHXCO4o97GFwA
h94tfsKjQ5eJrjmS0s4IBNNmVcgo7Ndx572Mk7JKIfHVfX+13nP4HfgnoWdP
HTSkWlLxBraqnNZ6bQMUmGdDmdyKqD0sUrKGnBJab+iOCffuwO2ba2YI/IF8
7TUkmq1U5X0Eokm6cVm+O9S/PnD7ol6R2iZSWRWyAc8CuxVIZD/4I4m8nRwN
uGSKGYzk6Eq4h4QwI/WP5blz6J6mGSrcyetI/v8VXJMZfAWEMqNX72y1SK+3
Db7MVM+ircqM/YFrtwauUcRM7pZXrqCfY9xClOFRA30eAyQibNcmWITgZq02
todrg41j1E1Ne48QGzQSNJUL8sQJTDeY+Iy24gxjU11hzD3R7IyWRV26KWm/
QdKiNcI/aIvmMRDt8DZ56ZI4V5V2Q5P514kTIgF1Bd4HJ9gF31GHxK/j6F+l
8IWQeMKHSSEsSheE/w3DVIhfpvTAIwZKmXEBFn3Eb+NsvkRohg0eYDAuQGrx
uzjaw4QGSeBkj9vv42if99HADRmiuI3iaJ9rQPtDHO2zDWiX4mgPkauhC1LX
oPwxjvEgYcCl8BEMiUC6zDDU3gWCU+sJSBOEgfhTnOyniSyYgyQiCOd/jmN8
iq4hF8FAueMvcfD76RqMgwRQIfnXODjt9FFri3A2DCOuxsE/QdcQkXgMRYiJ
v8XB73Wyw+yqbvw9Dq6vQUUYR8n+j6rBGRCsp56srsVp3h0A/2cc/K4A+L/i
4HcGwP8dB7/D2QMKKnAZB/+YszbMp+yh7kzEcT7qHAoP0eijjJfEQQAoj6rr
CZzb6RoKC2qTw8mqDrvd96qDbMepfySmeSeJAx4qSSyfBpwP0zVoDe0dTjeO
cxtdQ9pCNlV61J1eEgeVRFUIy0fjbPGei/0uztQSkWVHo8xW7cO41cUaLKEa
rboz5bPZ0P4LWmfOEFwIMqdDgPgm9mTc4ryJZuJScnosHda7T0OzQ51Vq6NW
qwq7ze/dWIopNsNDbsP7OZZiiszEs2BfTKR+EqfOpwFnMcZnluEolMUY9dk4
9QUX9Rj+HPUbkjjgoVqs5ZPGQdOnzBoDR79rrdfaHUkc9C9MMWPh7HUWxpzo
cHYmceoJzXEUypyzMPznKuyNcepzMc3TOPWq3IDzIScbNHed6aYkTl22NE5d
tgacPTHZ3pPEqcvGcRTKnphEDdRvjkn03iROvXmlceqxlcaxg+k4OHq3IfRA
7juc9yVxYDPYbj04dVtzHIWiIZEn7lVUgvoH6Bq0ptd3Buf9SZx6BUvj1Cey
Bhy22cGvrruSOPWI0Tib/U1EK86zbg/NcwO/nejF2dSLc4XNhn5HsSsWOwHi
Y/62QgHdP5Zsod9RqON967BgN/aCnguysd9HcArqPPHLG6MPLXZVtk+x9bp2
AI7GjRnv1QKf8dwLS2lhFgN0djB/Wzo4TvgyDhm9Jhk5HMnY5xHAXAu35qEo
WQiQMmJ6u3OYmJUXKrRu2Ck5/Yq9ruXLxH0XAkqLQkljFvqqeV5K3eZbxCtb
tEw82B2CPRejle1a0N0sShPMsCphqKBMBkJfv8vwbSJ9cu47Sdge5xV6x4sG
yzJgbk2Fr8pb8+nlWVJ22jmeBR/LPoM7yZLUKwH8ebbnOPFX1/pay1hMfx8N
Cle8Hfxs1KT9ikmlT6KiZHneM0KH38nzFWuv7EUM6a9tmyc4z4Bup6wFpf9Z
QCv7EsQLjopNZ5n0bCOStzVAOpiSG8hb1RjcNBPBX+fvs3SXNSMbmix6+H7b
MTcWeBKFjZ1X3rpCV21FEwCm8Pt7RsJRm7Q6V9Oeh+TsGp9yT7iNLdzIM9Ho
naoblsh4aRnaLBN/Nd3xX9AY8VIVwdcus02hEl+h4svwoKJXfa0PeItjb2JC
G2Z4cSqtUwTE9MJ3R2WG0b4LbhB19IzYoWGtrQth05s4VjSSxp3y8zmyk9Bb
ndGwfv+pJmTeUbZuV3cZ97QdOZapi3aVielWRlYWH40DqVJbpGpZjqb6Oh0y
rpf3rjNtYc16jPkBAg4rk5QpG9xyXX3ksIzTtBXWhQ6hTIqmKmiHgTZdckWo
76nP92l2KxS0QMPCtv6mV6080cOTVmho7QeumfbKCwzp3POHTb98O/pMs50W
mwW845WaYR8M5IC6T4vs4jOsanjPFbQqLh4IRr7uxoyOgTOzLQtlD06d62cA
MfEfFfaomw==\
\>"]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Assemble plots", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"legendplot", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1\!\(\*SubscriptBox[\(s\[Sigma]\), \(g\)]\)\>\"", ",", "Blue"}],
          "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.7", ",", 
          RowBox[{"-", "1.5"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1\!\(\*SubscriptBox[\(p\[Sigma]\), \(u\)]\)\>\"", ",", 
          "Purple"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.8", ",", 
          RowBox[{"-", "0.74"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1p(\[PlusMinus]\[Pi]\!\(\*SubscriptBox[\()\), \(u\)]\)\>\"", 
          ",", "Brown"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", 
          RowBox[{"-", "0.45"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<2\!\(\*SubscriptBox[\(s\[Sigma]\), \(g\)]\)\>\"", ",", 
          "Green"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.8", ",", 
          RowBox[{"-", "0.34"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<2\!\(\*SubscriptBox[\(p\[Sigma]\), \(u\)]\)\>\"", ",", "Red"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", 
          RowBox[{"-", "0.18"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1\!\(\*SubscriptBox[\(d\[Sigma]\), \(g\)]\)\>\"", ",", 
          "Black"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"10", ",", 
          RowBox[{"-", "0.35"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1d(\[PlusMinus]\[Pi]\!\(\*SubscriptBox[\()\), \(g\)]\)\>\"", 
          ",", "Orange"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", 
          RowBox[{"-", "0.17"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1\!\(\*SubscriptBox[\(f\[Sigma]\), \(u\)]\)\>\"", ",", 
          "Magenta"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"7", ",", 
          RowBox[{"-", "0.08"}]}], "}"}]}], "]"}]}], 
     RowBox[{"(*", 
      RowBox[{",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<3\!\(\*SubscriptBox[\(s\[Sigma]\), \(g\)]\)\>\"", ",", 
           "Gray"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"12", ",", 
           RowBox[{"-", "0.05"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<3\!\(\*SubscriptBox[\(p\[Sigma]\), \(u\)]\)\>\"", ",", 
           "Cyan"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"9", ",", 
           RowBox[{"-", "0.06"}]}], "}"}]}], "]"}]}], "*)"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"E1s\[Sigma]", 
   RowBox[{"(*", "Blue", "*)"}], ",", "E1p\[Sigma]", 
   RowBox[{"(*", "Purple", "*)"}], ",", "E2s\[Sigma]", 
   RowBox[{"(*", "Green", "*)"}], ",", "E2p\[Sigma]", 
   RowBox[{"(*", "Red", "*)"}], ",", "E1d\[Sigma]", 
   RowBox[{"(*", "Black", "*)"}], ",", "E1p\[Pi]", 
   RowBox[{"(*", "Brown", "*)"}], ",", "E1d\[Pi]", 
   RowBox[{"(*", "Orange", "*)"}], ",", "E1f\[Sigma]", 
   RowBox[{"(*", "Magenta", "*)"}], 
   RowBox[{"(*", 
    RowBox[{",", "E3s\[Sigma]", 
     RowBox[{"(*", "Gray", "*)"}], ",", "E3p\[Sigma]"}], 
    RowBox[{"(*", "Cyan", "*)"}], "*)"}], ",", "legendplot", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "16"}], "}"}], ",", "All"}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Z R [a.u.]\>\"", ",", 
      "\"\<E/\!\(\*SuperscriptBox[\(Z\), \(2\)]\) [a.u.]\>\""}], "}"}]}]}], 
  "]"}]}], "Input"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkDCOk6LQBDhv1GOLzyF
OjtA3aDI1uQs4b95i88OMKM4QEukCmSNTOG/TpiyvfpKNkCVp0z6i2/hv0DN
c3jjKzRAHm+lSTuW4b/bz1LGekAyQGFTLiAAweG/usEQmdWDMEDDGyI2S/Dh
v39nI2YB4y1ADANJdpwk4r+BAvOA6gorQOSgL7OJXuK/xvwaDB14KEDxNL4P
zJ7iv6Qn2BYBJCZAwN1FCVjm4r91q15RnwgkQEyGUiqCNuO/PKOsw5EgIkC/
mU7qK5Hjv+0PwPj1ZiBAHJtxwej447+AUoD1wK4dQDgasmD/cOS/yMQSAKPb
GkDw7F3NKf3kvyNBMVhVTRhAIOxocg6h5b+W6CmUS/0VQDgV3eeYX+a/0mht
0pjlE0BiMvDkeDrnv4kYG4vgABJAi+b8svsx6L+rXWXTSEoQQOGYHMs8Rem/
L68439t6DUDnfHuzgHLqv7tmDCiurApAK+lomIy367//wmhv2CIIQLn+sSrk
Ee2/SMiFvtnWBUAe1lUn7H7uvwA51I/PwgNAmgUDRPn777/NeRS7ZuEBQMdo
tRoqw/C/myO/0M0tAEDUyWGjnI3xv9qMlYNRR/0/vV9Puutb8r/G31toC376
Pxd23JCoLPO/JB3+zqX49z8rJBGpX/7zv2b8mR+rsPU/QBnN1JvP9L8RxoMe
Q6DzP2YoIYHqnvW/MZi58iPC8T/Pz9cX4Wr2vzknJpmEEfA/UjsGKyMy979o
NvdDIRTtPzaC5Q5p8/e/bdB5MbpP6j8b7Tt8hq34vzKIEvW8zuc/4W/C0XBf
+b/4luNBv4rlP02MFo5ECPq//eYnFPN94z+N2YqmSaf6v++h1NEXo+E/S45v
cfY7+78b2hir2erfPxJfLPPwxfu/M0rTgkrh3D9forl6DkX8v3/I2fS5Ido/
odLmmFG5/L/ySqpgHaXXP1a5O5vmIv2/xxytsBVl1T+OpA3MHoL9v2tYJgff
W9M/qAMiy2rX/b8h+tf4QYTRPwi8b1tUI/6/e1n4Xgyzzz9zNvQCeGb+vzbV
sqPMrsw/ofv70X6h/r90kOgkCvTJP509dpkY1f6/Xi2rkcZ7xz+WrT3G9gH/
vx8eDfitP8U/ZL4bBMgo/7+qd52OBjrDP4V82Lg0Sv+/uxLdCKJlwT8OWo9X
3Gb/v/mNLaKge78/XMPFf1N//793cTALp3y8P2RWydIilP+/p3UKNarGuT/8
t4tkxqX/v1vu2gi4Urc/0rcPq620/78X0uSkhxq1Pw6v2s87wf+/5/9iQmkY
sz9oNANJyMv/v3pIo6M3R7E/PrG0op/U/79+eifKlUSvP10yw2UE3P+/u2f2
HtlKrD/KxMMLMOL/v5uZmZmZmak/jEG+9FPn/79/tStd
      "]]}}, {{}, {}, 
    {RGBColor[0.5, 0, 0.5], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkAUtE2LQBDhv1GOLzyF
OjtALEfA1uQs4b95i88OMKM4QIe3pWONTOG/TpiyvfpKNkC3cJP2i2/hv0DN
c3jjKzRAv1KDLTuW4b/bz1LGekAyQN5nfnL/wOG/usEQmdWDMED3GwK5R/Dh
v39nI2YB4y1ACI9TQo0k4r+BAvOA6gorQMKYR6xQXuK/xvwaDB14KEB9b1BR
EZ7iv6Qn2BYBJCZAh6vEXTvk4r91q15RnwgkQG1dgFIKMeO/PKOsw5EgIkBV
l6iyYYTjv+0PwPj1ZiBAcUeH+6Ld47+AUoD1wK4dQBoAHHiLO+S/yMQSAKPb
GkAjAZRPI5zkvyNBMVhVTRhAaBQQ68H85L+W6CmUS/0VQPFqh/4lWuW/0mht
0pjlE0CUyN5lnLDlv4kYG4vgABJAH4A3RjH85b+rXWXTSEoQQPd3Nu3oOOa/
L68439t6DUDTUyrI/2Lmv7tmDCiurApAccZwTjF35r//wmhv2CIIQPIyDnkE
c+a/SMiFvtnWBUB2zM9xGVXmvwA51I/PwgNAW+Sr6W8d5r/NeRS7ZuEBQH1a
Tt6YzeW/myO/0M0tAECKJHk4w2jlv9qMlYNRR/0/ZiOfUJPz5L/G31toC376
P3SMOQ69c+S/JB3+zqX49z9TjRoWaO/jv2b8mR+rsPU//5cMc3ls478RxoMe
Q6DzP5ri4aPs7+K/MZi58iPC8T/X/yiAZH3ivzknJpmEEfA/x8BEvwgX4r9o
NvdDIRTtP1+25W2pveG/bdB5MbpP6j9/a9anDXHhvzKIEvW8zuc/PRGStE4w
4b/4luNBv4rlPxVCiPYo+uC//eYnFPN94z+48oJROM3gv++h1NEXo+E/zD2Y
Mh+o4L8b2hir2erfP9OgPUKcieC/M0rTgkrh3D8RUNADlHDgv3/I2fS5Ido/
Vf/B/BJc4L/ySqpgHaXXP7sN271LS+C/xxytsBVl1T/1M7D7kj3gv2tYJgff
W9M/hESSAFsy4L8h+tf4QYTRPzCJESsvKeC/e1n4Xgyzzz87rGvPryHgvzbV
sqPMrsw/x2UKnY4b4L90kOgkCvTJP8nhxIyLFuC/Xi2rkcZ7xz/UFrdOchLg
vx8eDfitP8U/ewXPKBgP4L+qd52OBjrDP+b+0DVaDOC/uxLdCKJlwT9ZcVX1
Gwrgv/mNLaKge78/XibtHkYI4L93cTALp3y8P1VniKzFBuC/p3UKNarGuT+S
LCESiwXgv1vu2gi4Urc/I7FcmokE4L8X0uSkhxq1P6upUeG2A+C/5/9iQmkY
sz/d5t1nCgPgv3pIo6M3R7E/tp79On0C4L9+eifKlUSvP6gYb6sJAuC/u2f2
HtlKrD/EX54SqwHgv5uZmZmZmak/D6lkol0B4L+EORiA
      "]]}}, {{}, {}, 
    {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkAfUgfAb93Dv1GOLzyF
OjtAEfSjkDw7xL95i88OMKM4QDALJWD8oMS/TpiyvfpKNkDZdye+Qg/Fv0DN
c3jjKzRANeO4Y7yGxb/bz1LGekAyQGi6PA4/CMa/usEQmdWDMEC4qNzs25TG
v39nI2YB4y1AXgGolu0tx7+BAvOA6gorQByChsYV1ce/xvwaDB14KECYxqvq
HYzIv6Qn2BYBJCZALceDTbVUyb91q15RnwgkQETIj+wZMMq/PKOsw5EgIkCk
zy79yx7Lv+0PwPj1ZiBAX+EYH20gzL+AUoD1wK4dQCvo21XVM82/yMQSAKPb
GkABnIffS1fOvyNBMVhVTRhAqy7zXceIz7+W6CmUS/0VQHHXLJoQY9C/0mht
0pjlE0AhNKrxmgbRv4kYG4vgABJAVO22nPqt0b+rXWXTSEoQQAz8jfwzWNK/
L68439t6DUBoCfTxVwTTv7tmDCiurApAu5VKuoKx07//wmhv2CIIQLMkxpHa
XtS/SMiFvtnWBUAua4SPjgvVvwA51I/PwgNAUT5k69W21b/NeRS7ZuEBQI1c
FLrvX9a/myO/0M0tAEAkfAgbIwbXv9qMlYNRR/0/ArSTzL+o17/G31toC376
P2A+GRcfR9i/JB3+zqX49z8GGHb+pODYv2b8mR+rsPU/sHpJp8F02b8RxoMe
Q6DzP6McNNzyAtq/MZi58iPC8T8xoY2dxYravzknJpmEEfA/Y9WqpNcL279o
NvdDIRTtP1oD9sLYhdu/bdB5MbpP6j9sYysFjPjbvzKIEvW8zuc/jlhchMhj
3L/4luNBv4rlP7g5K9F5x9y//eYnFPN94z9IGRjqnyPdv++h1NEXo+E/2Wud
s0543b8b2hir2erfP3FZ8u+sxd2/M0rTgkrh3D+a4wq88gvev3/I2fS5Ido/
5wMtn2dL3r/ySqpgHaXXP6l2akFghN6/xxytsBVl1T+OlcbiO7fev2tYJgff
W9M/XbAysGHk3r8h+tf4QYTRP2HYhRQ+DN+/e1n4Xgyzzz8qHSEiQC/fvzbV
sqPMrsw/j4JWLtdN3790kOgkCvTJP+NDbrJwaN+/Xi2rkcZ7xz8sMPh/dn/f
vx8eDfitP8U/WberT02T37+qd52OBjrDPxXqE6xTpN+/uxLdCKJlwT8sNCI0
4bLfv/mNLaKge78/8KnPLUa/3793cTALp3y8PzR2TV7Lyd+/p3UKNarGuT83
HtwbstLfv1vu2gi4Urc/Mh4MjTTa378X0uSkhxq1P7xYrQmG4N+/5/9iQmkY
sz+FQ82S0+Xfv3pIo6M3R7E/VLqYWETq379+eifKlUSvP3r6kUb67d+/u2f2
HtlKrD/NYiaQEvHfv5uZmZmZmak/ZR8tOabz37/OtR0N
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkBqK2lUbN3Dv1GOLzyF
OjtAwzjdRy87xL95i88OMKM4QLKX9k3PoMS/TpiyvfpKNkAsqExwuw7Fv0DN
c3jjKzRALnbP1VCFxb/bz1LGekAyQIGcZrPLBMa/usEQmdWDMEB0I3wtNY3G
v39nI2YB4y1A7v21t1Eex7+BAvOA6gorQEFthW+Ut8e/xvwaDB14KEBtQvDg
GljIv6Qn2BYBJCZAWjnv+7H+yL91q15RnwgkQPUzZS/iqcm/PKOsw5EgIkCZ
y1cI/1fKv+0PwPj1ZiBAC0LnvTYHy7+AUoD1wK4dQB+TRDCftcu/yMQSAKPb
GkAI7W5BP2HMvyNBMVhVTRhArAvChxQIzb+W6CmUS/0VQDd6PwcWqM2/0mht
0pjlE0BpLSf5ND/Ov4kYG4vgABJAiWIN31zLzr+rXWXTSEoQQNwal1Z0Ss+/
L68439t6DUAcOTR3YLrPv7tmDCiurApAhgJ8foYM0L//wmhv2CIIQEmYRgo+
MtC/SMiFvtnWBUDO7YiFcE3QvwA51I/PwgNAASvdd2Rd0L/NeRS7ZuEBQAa8
VzypYdC/myO/0M0tAEAzhL4IOVrQv9qMlYNRR/0/Mwt0lptH0L/G31toC376
P9BakhL/KtC/JB3+zqX49z8GLmOxOQbQv2b8mR+rsPU/gPKCklG3z78RxoMe
Q6DzP809UZTaW8+/MZi58iPC8T8AK44+Kv/OvzknJpmEEfA/zsULCJelzr9o
NvdDIRTtP7tMa3JOUs6/bdB5MbpP6j8kP+m3PQfOvzKIEvW8zuc/fhdtGDjF
zb/4luNBv4rlP29I5fI8jM2//eYnFPN94z/aWaxRwlvNv++h1NEXo+E/+IMI
oPMyzb8b2hir2erfP6ojIPzeEM2/M0rTgkrh3D+KFak1kvTMv3/I2fS5Ido/
6YIrMyvdzL/ySqpgHaXXP0cpmbzfycy/xxytsBVl1T/JeJfs/7nMv2tYJgff
W9M/LJHkl/WszL8h+tf4QYTRP+M0tipCosy/e1n4Xgyzzz9Un5Dke5nMvzbV
sqPMrsw/lWpf9kqSzL90kOgkCvTJP3CWrsdmjMy/Xi2rkcZ7xz9lUH6Ck4fM
vx8eDfitP8U/sxQF8J+DzL+qd52OBjrDP6GSbqVjgMy/uxLdCKJlwT+GCS16
vX3Mv/mNLaKge78/lKxBP5J7zL93cTALp3y8P6kuda7Lecy/p3UKNarGuT8X
OvOIV3jMv1vu2gi4Urc/PhGb3SZ3zL8X0uSkhxq1P1FhV3Atdsy/5/9iQmkY
sz+SUcs8YXXMv3pIo6M3R7E/uPWJD7p0zL9+eifKlUSvP7rZ2DExdMy/u2f2
HtlKrD/LRq0kwXPMv5uZmZmZmak/B88naGVzzL9VEBMc
      "]]}}, {{}, {}, 
    {GrayLevel[0], LineBox[CompressedData["
1:eJwV0HkwnHccBvClE8y6QgmVuMJYqiaOElfy+4mz29BZkYzQkkqWNSmiCNYZ
x6QiFp0QRrfVLNFYQRlJHM03NrKud9ndNxJHt6hIxCSROGKrVN88M8888/n3
sYxJCmWr0mg0H6of1lBtVcY3OopPJKV3Rt8fABbvkHexpxfetFPObZ18BJml
4zqOAnd87mxA7jxdDCE1HX9sMd1w6IV4zeDnYsCSlIwF+89xm8JVU7IyCDPj
oWIudsYvDW+VdtkNQ0//3tqJQkd8wT+Nf7FiBPLirGJVFhxw5FVFQu0BAi6p
ruUv0+3xxk6fvXBAAuJtEy3TDFvsukyfI3PGoYExuU/F2ga30b3LuvlSSBNG
sX7RsMZ+9StnnNJl4C1oeVhpcRCHmBjrOhyTw2vdB8qNWAus5zKVuromh/zQ
/I0Hrab4X9KssTefhKEBfZpgxgS3urCbtBUkWPk4hZ8MNsaJ+ZZFc7skVC/Z
XftyxxC/ua42+tkiCXJOgrxm8WMcznFMUqsgocR4f+kcTR8LSl1uhmiSIPyG
TQYx9+IediLfnyOHQ23uszNcbZxYU3J4oUcGvbFatq0tdOzaMu2tYiiDXREn
afKgBsbu1WvFBVIIGiq+P/VkD5Y6fdfC1pACzeNx+bjoI7zFO/GMd3wcJJkG
vbHzKrgs4q/1TzrGoM4KpBIHGq7LqbKv8RiD6atVhazAHaQT4zfZNUP9NxvJ
0czdQpkIIqJ/lIC16X9jjcpNlHPliEAWLoHY7VpzYfsG8g0Mqoi3l4CeuNDM
t34NiXinzsWqS8CppnvVSvQOTf2dJ+9YJsCDYVNbpPcWlXn5J3eTBHDcNn0t
DV6jjj3lb337CUiQZjr1fLWMFJXlazEdBDj/oL/RN/YCcRcm4r6+SYCyesEH
riwiR37l9Z9/ImDnOcNgLWcBLYnuNdy5RsDKr49lRoJ5tG1ilPEFj4D908bC
qeVZVPVkOE2nhAAXJlnAnP8TuZkXZI0WEZA3NLXebTmN+EdkUtYlAlaZzWdM
G58iie3iSFYuAYMHbrcbsidQxW77+0+zCTgfbqM+G0ki02L5bwFcAiy3nip9
imRoRuE505NBQNZpZZRW5zgSJZIB6ekEuE10CIhWAuW8GhUmXiQgtWLJmr4+
jO7kcY9WpxEQ5SCsFGcNope5+5wWUwkwN9NW3kaPEMv4dFgY5eZ0Pk/N8yEK
Pv/tiCKFgF59hcYNdj/iST2Gsin/U+Zwoz4LkMLG4qwD5fRkR82m7D6Eo5lx
r74noCmN7tos7kaZ+afc7lKOfDOtcS/0LgpLficspWwkf9Zw2aQLeaWWqHMo
v9iNORZv3Im6ik2mmZS5QQLB4cDfkSiFtelMOZfLGKnya0MMTly8OeXeuPdm
U8wWFJHoGqdLua72Q24hRoHRcVXK/wPQvyAX
      "]]}}, {{}, {}, 
    {RGBColor[0.6, 0.4, 0.2], LineBox[CompressedData["
1:eJwVxwkwHGYYxvHFEONIUPcZR5Gm6kijkqrvQ5voGjW0iJiYVLK7pBIVN20I
0SSlaWQwNirUMsatwriiL4t1W3aJXYvPUUfVFYIljsoz859nfoYBIZ40SQqF
4njc+1eT2RjK0XDA9xutZ9bt28HjiaV98sXP8Vx1bJ6ooh1iUrgnrVh2ONbG
zOGORQd8k1XdvEe1xTUOCni9sQNwf1j07NlPsY92PTv1KgdEXE9OLLbBvYT5
2FupExpblZgjSVZY/tLqze6pTohnGNMlZi2we+LzojpuF9yX3ExYkjuLlSzY
PnqkGzj72gp60eZ4MHyEkX2yFwrMBOoSJqYYOB8HiPz6IKLU3yNX1gQHa6Xo
0tr6wZ5V1pZ22gj3Shtp+jhyYeVUi3iLfhq/+P7qR/OBg5DgmbDVUqGHn90Q
yCbYDUFXuwqFJdLGt5xru4sUeWDsaH3Fy00T20C2d9Y8DzIXz6S7Hqhhp4YI
lN7KB17gbV7W3AfYxEU5cPaPYXisqZMyRVHBloMaj/iRI1B6jcZ3oSphhm45
tcntNVhW2hFRrCJOXPNLPzIYhSa6gnlFmRzOtJzz1V4ehSN2YIjASBafSLOk
5VcJwKUr+W/ha2lcwIjy/zZYCJQLw79z2VLYKaD4jpr+GPTHqDbRpyWwU730
qFTHGGQbw2C/BQX7HNxYDr0ugrHUjCSPywdI1ltSanVNBBziFyh/bw/1FC9K
OIWNg4ne4UCheAfRKYyHoUvjQN9nGpRWbaHpfUFzrdcEKHOS9J3zNhEKO2MT
VTsB1lkNG8bsN4gprWN6SW4SLpiZMh8oryOJNYmNoe8mIdB2x9lQdQUFn69S
nsqYhNuDMdaN7kuoi2iHOA9Mgs0jla1XAwvIcauGNnw4CeLMWUf4dQ6xK58J
gswJHMybqW7+PIt+Mex5ynclsPbn8JAGaxr95xSzPRJEQGdMs1S4RNDBcw8t
syQC56j8ROr0OOra6FwIziIQ3yV822A4hkyiXtDtSwhsUEuu6xWOIhn1mhqt
BgKduuVVarQRlDvtWhTdQeCHK6YniB8f5djHc5u5BAz3RsWOD4ZQYmF8CxIQ
iPMV+yu85CKpGbtIF0LAdqSa1VfRh6hBdW3qcwTCny6ayL3tRpH2HXXkXwL+
FqVpnLhO5JxsuMxdIWCgryguRx3oi/TQeoU3BEqicp7IXGxD++9yvqrdJNCk
MiGbT2tFnzAmEma3COz+ZpGfFwfoLv/WWtkOgahQK/min16hCaH4pvEugaII
ufMlnAbEm0vN9doj4Lc6JlvvWYe258t63d8R0OD9U/BQuxadOjewqbNPYOEo
wClI8yXKcuNdYx871oXF+uzyX4ib8qHw6wMC92LNejK+rEQz4YNHdcduYmzr
C6llyOVucrDyIYFs5vsVI+bujwu+x/4fx/4uug==
      "]]}}, {{}, {}, 
    {RGBColor[1, 0.5, 0], LineBox[CompressedData["
1:eJwV1Hs01NsXAHCjh9fQDXmU98iIlCSPuM6RLi5XSfSjVNJvULgqecZgQi6T
i2qiSOVRXiG3nzyPNGYw51seEaNCyqtQQir0+9691l5nfdZe+4+z9l5b0zvI
hSEqIiLCIvPf1z+fNci5C2BPpbZATJyLNqyd7cxRtIIns+LUblpyUcXNoU3j
uZZwG7PNCQdz0YHU7ZYJuy3gaxgq8U8ZF92eYwWkjZpDvbTcBN9JLopIeS5j
mGcG7X29nixsaUH+QqrWtSBTuEsn5dbpgBa0L/Nhw3cHE8idWJlqrmxBf0WV
Xikw3gUZqwU5c99aECSCw0f0jaHD0E/T8b089HGC8lnScCfUenpIGJ7BQwPP
XXiR0AgGHhc2Bb/lIQsdo1tZnjtguWmZf6YxH9U++SWr56IhLGzaeigriY9W
0u0m7Py3Q4O3fLrqGz6K8aX5UEYMYOgVNdBk3IrOpo2zXwVuhWvsC0MV2K0o
TvRL7KSkPvzIbV9TNtKK+rsHpexrtkCbeks/qkUb4i1tpKqG68KxF42Wtelt
aEk8YfKmLR0edX4gZzHWhvLpfQoUbR0YVtOlJ2/Rjiie4ckZ6zZDA3BMkWC3
o5CSYwdyxbWhhFia1+eBdlQo060UI0ODjt0B0rK6AmSZV/o0XUML9pmP6vDP
CFCOdvcqYKUJjd5MG1Q+EqCpdU2L8z4a0ItTzYpcEKB3cqwCD2N1+Oulj9V9
RhjFusTONz1QhZmrme2XT2O0270qStdSBVbaxBufysGolSsrkjewEfYed+6w
F2CUy4jo3cdWhrv3fIpRnsOIZr3D3c1JCUZlR1x+qUigaL0Ut0lVRZjzglmT
akIgzviWq47LG2BTjsmMhzOBIvaWuTRNysM0FbUsbwaBuvwCuzLfy8FMUZVr
gyEEkn79fdRgShb+VmeA5VgE+ktpU8qQiCy8b7Q+7I9kAuGty5HKGuvhfWqV
2mAqgUqOMrrtHX6B0z9e+9PTCHTmEM1fsCwDg2YMX8eT9e3lZoMDkdJQbMw+
yp3sbyuwdxFIUiEtRKxENJ5AdT5U3QelkvB64JD68AUC0effW+cfl4AvVx3U
djpHoJ/NfkF9WuIQmqTTbvgS6G7s8PuY+bVQinEuXd6TQPatCY39vWtggki7
PoX8X3nKYuQ23mpY0/YoI9uGQCLmL/5+3rwKtp/5sH2TKYEeMmbmFLAoLOvl
nyjSIxARIV/nM0yBTOmlV/5qBDroMl6oK0qB7Hxl01hZAt2koQ7CQASuZNax
l9cSKFxxb0Y2fwXknjhoOv8DIyH72sUDdsuA/jAwKfgzRkR2XQi3/weQ+NWB
FTuGEW/wiJ8U8ztgfiy5pPEGI0tBGddu5zdw3ap4xbUHI23VlWcFi19BcP3M
iAqBUajNZnVPYgHsOaPrFNKCkc9SlnpJxTw42Rgg9GjE6Mw9IuPVnTmwdNJE
saUao/W8i2o2t7+AXPFPgopKjFJX+l+Zl8wCeRBjrVCK0Y7Mmlla82dwh+Yc
Pl2IUeebP/UD3n0CQmawq9FdjMzpOlnx6z8BL+jWJCT3LeKO1nmcPg3irobz
h7Iw8jP5aqMpPwXuHUws/pWDEVjRdZYr+gBmj/ROTWZgFNgRsaN2/yQYdQw7
+fZvjIwu/d5rJjYBGtyu7lC7TDpJdr7+2RiY+/NrT2YyRiwtIoFZMAou9tnR
nZIwWuSMWKPk98BKOdnVJBEj4+7/6rVHvwMuUvtH9sdjtDxKl/8SPQKee30o
vcbCKEOCY85Jfgvmhn8KV8VhNHPnRadi3jCw1WKPcGIw+o8JtWyENwR2MWri
HZkYbRIqlfRPDoIbjLgmtWiMTrVr+B/2fANqE//ok47CaKdDN8th+BWQdcq2
V7iAkZL7I8fq8AHglNzJ3RWJUUxr/1yNphDUMZR3no7AqC5SYyZ0oA/sHE+6
XxmO0axDsZdqwUtAXRPAkCSd00rPHY3uBYfm2jvPhWHEVymr2MDoAbbK9MiJ
UIzkH9d0LXi8ADGeQdRA0v7uOmKDR7rB8Q36bksh5Lwbygv1T3eBZl6/JYe0
5veXi9bxnUA5P6HFnDTRMNCRWtQBeEcTxUfPY3TBY/EYteo5mL9x1vgG6aX5
J12/0Z8BC0+TFDfSJj0P8/ADDGySvbwUScuapXSX2wuA2Yc4xcFgjM6njWtL
zrUBRneDVinpRPFLSZSKVhAjEkJhkj5mUJLOu8AH+zevA66kD3sf/nzlEA90
tA6e3UZaXU16sQy0AFNX7d1U0nqKyareJlywTV/ZeuocRsVhOalrdz8FT2do
Zp2kLT55N337vRnYaq7vqyZdJ/ta/C7jCejzPTl0m7Tu0+uWgewmME6tUmCT
/nbZ4O7tCwjMb1WxjSDtu6lILHW2AZh71Fr5kQ47ayh1L6oeHAg17HEnfflE
/8ElpTpgVW/x1oH0vRDJXcW8GvCsz3mPFemBNQ0qffGPwQbbPT1GpI9MC8Uf
u1SDDxIz0bqkv+scX5W4/X9A9ceipjppxa53+Zc2PgIUCqtIgfTWUNccKbl/
AE6bWZEhPfbTe88ppSogO1klI0668V0WTUTvIRBTUuFTSEfa5+WZ2lUCIZum
tHSWvN++mRxmUAXY997hywJpZiS9/drecpBDD3acJX3rGcfXqLEMrDtRLz9N
us53Qa3foRTE+vjunSRdvbbTPHuiGJQ71XaMkr6Z9W8UAXbkWMUI6f8Dj0Ey
LA==
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 1], LineBox[CompressedData["
1:eJwVzn1Q02UAB/ABKbsxAsc7yObG4jXiJUQm2PMM5OQm1m1epqBkGGNFRJ4v
vJkOgYIsixJiBx6DTUnek0qRl+dhwDY8YLzDxntLRFRMXmQQYD++d9/73ue/
LzM2SRBnTCKRuES312bnYt9Nu/fgVgu1IuVeO+Jf9wnJ3h8MR0beSfiZ24FS
r2ne9JUFwTPy2Lml4Q70fuHd5nVeIFz7q+iLi+eUCHafS9F7BcD4gADNEUsV
GtMIlGnQH8qf0oPZchV60GopGcr0hXq+6yfJLmp0Jd5FaKT3hgsnfylyz1Cj
DOMl8TzFC+ZNm6OPa9VIueFIdU5xh6lHbWJMS9VI7jZqa8R2hUHSqqaASDW6
UBnDLyGzYfioeF1WrUIhsqq2vD0s+ISh4w91KdFzC2xYEe6B9Mlvxl+0dCCx
QLyCa5xh3aZZ9m/ydqRup5FkY47Q2jggxUPahly4fsc/PGIPQxdKVotVClQw
53Hj8KYNPOZQmjvBUKB+UWJ/4SMryJqLLAgta0W59k7Xpkk0aMQq3q092Ioq
T8UNRPAs4adt9aLhLYx8aoOmxtLMYVbhl0uVnRg1CqnuNVUUeOyJkNQixei1
QpQ0yiLDMebA9KgYowh1dot2eAf0SvdPaI7HiMQZ/FGjMIH5Bcu5vUcx6k61
bhTOGMEbGbmC2TCMilxQb7c3CXLPyEoY+zDSfZ+fyT+0CU7R+FcH3sZIORUt
Mru8DkSrzb5iNkZs562eW4ZVMJEiasTOGAk3JIzKuhUg4Tbrwu0x2qXMpIdJ
l8DEWX5nrxVGfoUNiy6Kl+BZVE6GjyVGHDdXSdauf8Gk4vZLjjlGosDVMKb1
czCe+eukhoJRYm+q34MP5kFIp0P4CBkj/xzaSlPPY/BqkGEfbIqRoUDPRd89
Ag5Sk/D5HRhtzrpZL32tB6Y9fc+G38DoRelgn51sBjyNTFKumGDkpLOv1M5P
gUZGlvQA4Xd5A1d5M+PAb0qwcdsYoytq7XIDUwcwJ6zJi/Air+K0860RQBmy
/VtphJFqd3WdTdwQ6FfJTpwnnHDc1XQqegD8xyvu9iXMXB8xcLP6gHF4UtYa
CaP0E4YYar0G7E2uD+siHDh0V9ZV0wXceyeDygmf/2mOTVnuBFwWbzaHcIx3
ZZ4yXQXuu9VbfUWYQTc3VIMOQD9Z0BpNuCL55vWd+9tA1R0t/TDhRtoEuSyu
FTArosQHCK/94F0mTUfA87RplD/h5LO+ZuWXmsBDaw7Hg3D5BcreCmUDcIi2
xUzC0Qs68n3BPfAWq6vUibBd/z/ybx3/BPr8iyW2hB+/jg39zL4e/NEmyaYR
TouQyfYd+h3oBy08LQhfTnN7mH+wFgSnffQ5dftP/Cu6llcFEs38PCmEiyTb
uQM2qZcEZML/A1j7Cv4=
      "]]}}, {InsetBox[
     StyleBox["\<\"1\\!\\(\\*SubscriptBox[\\(s\[Sigma]\\), \\(g\\)]\\)\"\>",
      StripOnInput->False,
      LineColor->RGBColor[0, 0, 1],
      FrontFaceColor->RGBColor[0, 0, 1],
      BackFaceColor->RGBColor[0, 0, 1],
      GraphicsColor->RGBColor[0, 0, 1],
      FontColor->RGBColor[0, 0, 1]], {1.7, -1.5}], InsetBox[
     StyleBox["\<\"1\\!\\(\\*SubscriptBox[\\(p\[Sigma]\\), \\(u\\)]\\)\"\>",
      StripOnInput->False,
      LineColor->RGBColor[0.5, 0, 0.5],
      FrontFaceColor->RGBColor[0.5, 0, 0.5],
      BackFaceColor->RGBColor[0.5, 0, 0.5],
      GraphicsColor->RGBColor[0.5, 0, 0.5],
      FontColor->RGBColor[0.5, 0, 0.5]], {1.8, -0.74}], InsetBox[
     StyleBox["\<\"1p(\[PlusMinus]\[Pi]\\!\\(\\*SubscriptBox[\\()\\), \
\\(u\\)]\\)\"\>",
      StripOnInput->False,
      LineColor->RGBColor[0.6, 0.4, 0.2],
      FrontFaceColor->RGBColor[0.6, 0.4, 0.2],
      BackFaceColor->RGBColor[0.6, 0.4, 0.2],
      GraphicsColor->RGBColor[0.6, 0.4, 0.2],
      FontColor->RGBColor[0.6, 0.4, 0.2]], {4, -0.45}], InsetBox[
     StyleBox["\<\"2\\!\\(\\*SubscriptBox[\\(s\[Sigma]\\), \\(g\\)]\\)\"\>",
      StripOnInput->False,
      LineColor->RGBColor[0, 1, 0],
      FrontFaceColor->RGBColor[0, 1, 0],
      BackFaceColor->RGBColor[0, 1, 0],
      GraphicsColor->RGBColor[0, 1, 0],
      FontColor->RGBColor[0, 1, 0]], {0.8, -0.34}], InsetBox[
     StyleBox["\<\"2\\!\\(\\*SubscriptBox[\\(p\[Sigma]\\), \\(u\\)]\\)\"\>",
      StripOnInput->False,
      LineColor->RGBColor[1, 0, 0],
      FrontFaceColor->RGBColor[1, 0, 0],
      BackFaceColor->RGBColor[1, 0, 0],
      GraphicsColor->RGBColor[1, 0, 0],
      FontColor->RGBColor[1, 0, 0]], {4, -0.18}], InsetBox[
     StyleBox["\<\"1\\!\\(\\*SubscriptBox[\\(d\[Sigma]\\), \\(g\\)]\\)\"\>",
      StripOnInput->False,
      LineColor->GrayLevel[0],
      FrontFaceColor->GrayLevel[0],
      BackFaceColor->GrayLevel[0],
      GraphicsColor->GrayLevel[0],
      FontColor->GrayLevel[0]], {10, -0.35}], InsetBox[
     StyleBox["\<\"1d(\[PlusMinus]\[Pi]\\!\\(\\*SubscriptBox[\\()\\), \
\\(g\\)]\\)\"\>",
      StripOnInput->False,
      LineColor->RGBColor[1, 0.5, 0],
      FrontFaceColor->RGBColor[1, 0.5, 0],
      BackFaceColor->RGBColor[1, 0.5, 0],
      GraphicsColor->RGBColor[1, 0.5, 0],
      FontColor->RGBColor[1, 0.5, 0]], {2, -0.17}], InsetBox[
     StyleBox["\<\"1\\!\\(\\*SubscriptBox[\\(f\[Sigma]\\), \\(u\\)]\\)\"\>",
      StripOnInput->False,
      LineColor->RGBColor[1, 0, 1],
      FrontFaceColor->RGBColor[1, 0, 1],
      BackFaceColor->RGBColor[1, 0, 1],
      GraphicsColor->RGBColor[1, 0, 1],
      FontColor->RGBColor[1, 0, 1]], {7, -0.08}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\) [a.u.]\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0, 16}, All},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"legendplotRepul", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1\!\(\*SubscriptBox[\(s\[Sigma]\), \(g\)]\)\>\"", ",", "Blue"}],
          "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"2.4", ",", 
          RowBox[{"-", "0.54"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1\!\(\*SubscriptBox[\(p\[Sigma]\), \(u\)]\)\>\"", ",", 
          "Purple"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", 
          RowBox[{"-", "0.35"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1p(\[PlusMinus]\[Pi]\!\(\*SubscriptBox[\()\), \(u\)]\)\>\"", 
          ",", "Brown"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"3.8", ",", 
          RowBox[{"-", "0.15"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<2\!\(\*SubscriptBox[\(s\[Sigma]\), \(g\)]\)\>\"", ",", 
          "Green"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"4.5", ",", "0.22"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<2\!\(\*SubscriptBox[\(p\[Sigma]\), \(u\)]\)\>\"", ",", "Red"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"13", ",", 
          RowBox[{"-", "0.07"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1\!\(\*SubscriptBox[\(d\[Sigma]\), \(g\)]\)\>\"", ",", 
          "Black"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"10", ",", 
          RowBox[{"-", "0.23"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1d(\[PlusMinus]\[Pi]\!\(\*SubscriptBox[\()\), \(g\)]\)\>\"", 
          ",", "Orange"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "0.07"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<1\!\(\*SubscriptBox[\(f\[Sigma]\), \(u\)]\)\>\"", ",", 
          "Magenta"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "0.08"}], "}"}]}], "]"}]}], 
     RowBox[{"(*", 
      RowBox[{",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<3\!\(\*SubscriptBox[\(s\[Sigma]\), \(g\)]\)\>\"", ",", 
           "Gray"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"12", ",", 
           RowBox[{"-", "0.05"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<3\!\(\*SubscriptBox[\(p\[Sigma]\), \(u\)]\)\>\"", ",", 
           "Cyan"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"9", ",", 
           RowBox[{"-", "0.06"}]}], "}"}]}], "]"}]}], "*)"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"E1s\[Sigma]Repul", 
   RowBox[{"(*", "Blue", "*)"}], ",", "E1p\[Sigma]Repul", 
   RowBox[{"(*", "Purple", "*)"}], ",", "E2s\[Sigma]Repul", 
   RowBox[{"(*", "Green", "*)"}], ",", "E2p\[Sigma]Repul", 
   RowBox[{"(*", "Red", "*)"}], ",", "E1d\[Sigma]Repul", 
   RowBox[{"(*", "Black", "*)"}], ",", "E1p\[Pi]Repul", 
   RowBox[{"(*", "Brown", "*)"}], ",", "E1d\[Pi]Repul", 
   RowBox[{"(*", "Orange", "*)"}], ",", "E1f\[Sigma]Repul", 
   RowBox[{"(*", "Magenta", "*)"}], 
   RowBox[{"(*", 
    RowBox[{",", "RepulE3s\[Sigma]Repul", 
     RowBox[{"(*", "Gray", "*)"}], ",", "E3p\[Sigma]"}], 
    RowBox[{"(*", "Cyan", "*)"}], "*)"}], ",", "legendplotRepul", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "16"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.7"}], ",", "0.3"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Z R [a.u.]\>\"", ",", 
      "\"\<E/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)+1/(Z R) [a.u.]\>\""}], 
     "}"}]}]}], "]"}]}], "Input"],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkCfDe/HBQDgv1GOLzyF
OjtAK2tgoggA4L95i88OMKM4QDa2guYMAOC/TpiyvfpKNkA2z4lJEwDgv0DN
c3jjKzRAfeLP4hwA4L/bz1LGekAyQP+bansrAOC/usEQmdWDMECIb5ZcQgDg
v39nI2YB4y1AFXLAf2gA4L+BAvOA6gorQFwe3g2uAOC/xvwaDB14KEBTko5x
OAHgv6Qn2BYBJCZAhWGt5lgC4L91q15RnwgkQMkQ3IqvBOC/PKOsw5EgIkCR
mN9uVgngv+0PwPj1ZiBA5qKqqwQS4L+AUoD1wK4dQC4FsGUNIeC/yMQSAKPb
GkD0uHl4HTngvyNBMVhVTRhAYMpV1rFc4L+W6CmUS/0VQD0vnVVtjeC/0mht
0pjlE0Ay5ndYlMvgv4kYG4vgABJARBnunOIV4b+rXWXTSEoQQGSkstW3aeG/
L68439t6DUDbSXQWbsPhv7tmDCiurApAIppWhKwe4r//wmhv2CIIQLYCjcef
duK/SMiFvtnWBUAGEEGUFsbivwA51I/PwgNAOlbX9okH47/NeRS7ZuEBQIpf
pQcaNeO/myO/0M0tAEB+Ka9qhUjjv9qMlYNRR/0/OnHUeB8747/G31toC376
P4/MKRLHBeO/JB3+zqX49z9NkYjs3qDiv2b8mR+rsPU/XgQzf0cE4r8RxoMe
Q6DzP7VWwkFaJ+G/MZi58iPC8T/YPjWw5QDgvzknJpmEEfA/mDMUrFIO3b9o
NvdDIRTtP0SMRf6hX9m/bdB5MbpP6j+oorgp3N/UvzKIEvW8zuc/eHfLhLjv
zr/4luNBv4rlP0h71Mo1HsK//eYnFPN94z8AGCp0nbiYv++h1NEXo+E/YBbK
2266vD8b2hir2erfPxCD7ZUNPdE/M0rTgkrh3D/E62WwwL/cP3/I2fS5Ido/
OoiGrJ/s5D/ySqpgHaXXP0wWRvyHV+w/xxytsBVl1T+odwh+ilryP2tYJgff
W9M/1pWWJd4N9z8h+tf4QYTRPwIdONIaUvw/e1n4Xgyzzz9gBkBtchoBQDbV
sqPMrsw/VDXg5aliBEB0kOgkCvTJPwhq6EcQCghAXi2rkcZ7xz91X0GW6xkM
QB8eDfitP8U/+6cRG0NOEECqd52OBjrDP8pDf/elzhJAuxLdCKJlwT+CVNSt
dJQVQPmNLaKge78/zxgZELemGEB3cTALp3y8P838LyI5DRxAp3UKNarGuT+P
vDGPn9AfQFvu2gi4Urc/II8ZET/9IUAX0uSkhxq1P6olkEG4SiRA5/9iQmkY
sz+bpu6+mtYmQHpIo6M3R7E/2sTdj2anKUB+eifKlUSvP2CT4/5MxCxAu2f2
HtlKrD+2/mh/oRowQJuZmZmZmak/5hu0wIoBMkD/HPqk
     "]]}, 
   {RGBColor[0.5, 0, 0.5], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkDxhu7HBQDgv1GOLzyF
OjtAehFYoggA4L95i88OMKM4QHLJHeYMAOC/TpiyvfpKNkBYmNBFEwDgv0DN
c3jjKzRAHsatxhwA4L/bz1LGekAyQHywus0qAOC/usEQmdWDMEC8b3bfPgDg
v39nI2YB4y1AEf7KS1kA4L+BAvOA6gorQDoW9gZ1AOC/xvwaDB14KEDfzCCz
fQDgv6Qn2BYBJCZATC8sOzwA4L91q15RnwgkQNTPE2Zv/t+/PKOsw5EgIkBP
LHNuGPnfv+0PwPj1ZiBAdp6Ay33t37+AUoD1wK4dQCDWM/oy19+/yMQSAKPb
GkBPml/1LbDfvyNBMVhVTRhAT+X5ncpw37+W6CmUS/0VQOwJj9j0D9+/0mht
0pjlE0DI+Myyb4Pev4kYG4vgABJAsGVRYDDA3b+rXWXTSEoQQPQGme/Huty/
L68439t6DUCOQUZW2mfbv7tmDCiurApA0O68dKK82b//wmhv2CIIQN1t0iuA
r9e/SMiFvtnWBUC8DHa9hzjVvwA51I/PwgNA92kAOQFS0r/NeRS7ZuEBQOKh
I8J68c2/myO/0M0tAECC6ZJxPVjGv9qMlYNRR/0/MKmmptq2u7/G31toC376
P1DNpuovA6K/JB3+zqX49z9gm/L3hMemP2b8mR+rsPU/jFhq3dq5wD8RxoMe
Q6DzP/RdeHI4msw/MZi58iPC8T/ewaL+767UPzknJpmEEfA/Ijh7gSiM2z9o
NvdDIRTtP+uHwrBXeeE/bdB5MbpP6j9jHcU7EXrlPzKIEvW8zuc/p/C/zaTS
6T/4luNBv4rlP7O377LSju4//eYnFPN94z/Rt/gHy93xP++h1NEXo+E/yxDg
xY2z9D8b2hir2erfP2zviDdm0Pc/M0rTgkrh3D9I9eqktDz7P3/I2fS5Ido/
FBfJ8JcB/z/ySqpgHaXXP8+eOF2ClAFAxxytsBVl1T8eAR/m794DQGtYJgff
W9M/nrs3uA1mBkAh+tf4QYTRPzmKD8xrMAlAe1n4Xgyzzz+LNt96QkUMQDbV
sqPMrsw/spmbp4WsD0B0kOgkCvTJPzIoudh8txFAXi2rkcZ7xz9GONkyJcsT
QB8eDfitP8U/5bb+FpIWFkCqd52OBjrDPw5D+96nnxhAuxLdCKJlwT/afA1F
6GwbQPmNLaKge78/2uQsLIOFHkB3cTALp3y8P76iqJC0+CBAp3UKNarGuT9+
Qgjjr9wiQFvu2gi4Urc/CLvVLIzzJEAX0uSkhxq1P/Fgdk2kQidA5/9iQmkY
sz+6LpEh488pQHpIo6M3R7E/F4GEsNKhLEB+eifKlUSvPyII5fCsvy9Au2f2
HtlKrD8FSJAnt5gxQJuZmZmZmak/t9rsEvV/M0AJrAwU
     "]]}, 
   {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkApOxVlCTm/v1GOLzyF
OjtAljoGfpcPv795i88OMKM4QLSlCtT03b6/TpiyvfpKNkC8LDj2v6K+v0DN
c3jjKzRAZGHFkIVcvr/bz1LGekAyQL65W/bYCb6/usEQmdWDMECV71sNcam9
v39nI2YB4y1ABXsLeTs6vb+BAvOA6gorQPrvgGJOu7y/xvwaDB14KEA+eNrj
niu8v6Qn2BYBJCZAf6xDhnGJu791q15RnwgkQHHka92e0bq/PKOsw5EgIkDb
leUe7P65v+0PwPj1ZiBADQH6j7kJub+AUoD1wK4dQAQop9Ma6Le/yMQSAKPb
GkAmmO0XNY62vyNBMVhVTRhAUk9N26nutL+W6CmUS/0VQOwttNbl+rK/0mht
0pjlE0AEb+ZiR6Owv4kYG4vgABJAMJbKhEOuq7+rXWXTSEoQQJSY0I1QCaW/
L68439t6DUAANVp+K2Oav7tmDCiurApAQOp9iaTwf7//wmhv2CIIQIBqepDG
9Yo/SMiFvtnWBUAQCCm15DCjPwA51I/PwgNAuIHMuyLIsD/NeRS7ZuEBQPAd
2oUSCrk/myO/0M0tAEBesEA6iT7BP9qMlYNRR/0//NABVmChxj/G31toC376
P7wBChDqv8w/JB3+zqX49z8MVr3MG9fRP2b8mR+rsPU/lOGErR7B1T8RxoMe
Q6DzP4vXy6QCKto/MZi58iPC8T9bIGdh8x7fPzknJpmEEfA/JvKsLTFX4j9o
NvdDIRTtP508Lb0UdOU/bdB5MbpP6j8s1wXh2O7oPzKIEvW8zuc/ndUjQA/R
7D/4luNBv4rlP3YucWCfkvA//eYnFPN94z/bKjQ2f/vyP++h1NEXo+E/u9RE
somp9T8b2hir2erfP3opqxzJo/g/M0rTgkrh3D9qZND3AfL7P3/I2fS5Ido/
xNVeh8ec/z/ySqpgHaXXP2kTgkTJ1gFAxxytsBVl1T9pO7IobRcEQGtYJgff
W9M/s/ZVQhiWBkAh+tf4QYTRP3kxQ9QvWQlAe1n4Xgyzzz/1/XVqxmcMQDbV
sqPMrsw/0mITaa7JD0B0kOgkCvTJPy3gKj/HwxFAXi2rkcZ7xz8dmLAUfNUT
QB8eDfitP8U/HtwdR0AfFkCqd52OBjrDP0ok9OrtphhAuxLdCKJlwT/CB3aw
/XIbQPmNLaKge78/B48tjZeKHkB3cTALp3y8P4G9fpDS+iBAp3UKNarGuT9V
dEsDc94iQFvu2gi4Urc/KCUTIgP1JEAX0uSkhxq1P8YQPovbQydA5/9iQmkY
sz8Mo3gr5dApQHpIo6M3R7E/L5VvYaiiLEB+eifKlUSvP9hpZ7ldwC9Au2f2
HtlKrD94oeQ1AJkxQJuZmZmZmak/gUsbZzGAM0CMJPdw
     "]]}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkC/7diNAjm/v1GOLzyF
OjtA+sN47HwPv795i88OMKM4QLi+ra+a3b6/TpiyvfpKNkBijYJasaG+v0DN
c3jjKzRAVofydK5Zvr/bz1LGekAyQPB9r0DyAr6/usEQmdWDMEAN5ZqOI5q9
v39nI2YB4y1AJXQnuwMbvb+BAvOA6gorQETGfrRLgLy/xvwaDB14KEDob2PQ
mMO7v6Qn2BYBJCZA2ZAa42rdur91q15RnwgkQNO7FmMvxbm/PKOsw5EgIkDF
jTc1UnG4v+0PwPj1ZiBAZcKWzUzXtr+AUoD1wK4dQOx9eIiu67S/yMQSAKPb
GkA0OrzbG6KyvyNBMVhVTRhAqBLWXYjar7+W6CmUS/0VQCyJ//iefam/0mht
0pjlE0Ck8hcdiw6iv4kYG4vgABJAaGuRNsTXkr+rXWXTSEoQQICLW4i/z1E/
L68439t6DUCgmETnTw+YP7tmDCiurApAYNxETc0pqT//wmhv2CIIQPh+DfAq
EbQ/SMiFvtnWBUCIeYKC6pC8PwA51I/PwgNAfGf0RPQWwz/NeRS7ZuEBQAZQ
Zj6Wgcg/myO/0M0tAEBAoNReXZbOP9qMlYNRR/0/TZEgYdSx0j/G31toC376
P27kiwwVfNY/JB3+zqX49z8MQNAZh7HaP2b8mR+rsPU/BOOMizda3z8RxoMe
Q6DzP6SqaxuEP+I/MZi58iPC8T8G1tbvERXlPzknJpmEEfA/ZGv/Pbcz6D9o
NvdDIRTtPxtrDYJtous/bdB5MbpP6j8ZOaF1T2nvPzKIEvW8zuc/Al4bvtLI
8T/4luNBv4rlP9ZTXzb2EvQ//eYnFPN94z/ypYTm7pj2P++h1NEXo+E/Mh8r
6z5h+T8b2hir2erfP2G7I3kYc/w/M0rTgkrh3D+f+h1gbNb/P3/I2fS5Ido/
MFNiBP7JAUDySqpgHaXXP6rP5VC32gNAxxytsBVl1T+OlkGmtCIGQGtYJgff
W9M/rAPeHtWnCEAh+tf4QYTRPzeJKHSTcAtAe1n4Xgyzzz+lF3GwFoQOQDbV
sqPMrsw/PR68TyL1EEB0kOgkCvTJP7hPFBTr1RJAXi2rkcZ7xz+dKJzgNukU
QB8eDfitP8U/7m6YHFg0F0Cqd52OBjrDP1buiQgwvRlAuxLdCKJlwT+5wubX
PYocQPmNLaKge78/QXwQXq+iH0B3cTALp3y8P3hUt7w5hyFAp3UKNarGuT9f
iAY2J2sjQFvu2gi4Urc/1RkFK/iBJUAX0uSkhxq1PwceygUH0SdA5/9iQmkY
sz/i3xtDPl4qQHpIo6M3R7E/KzP2mycwLUB+eifKlUSvPyNLamP+JjBAu2f2
HtlKrD914Nv93N8xQJuZmZmZmak/YbAvNRnHM0ADZfVA
     "]]}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkDIuvqldH3Av1GOLzyF
OjtAMVNXD4qiwL95i88OMKM4QA6rJojf2MC/TpiyvfpKNkDXDl5IaijBv0DN
c3jjKzRALKvfb1OXwb/bz1LGekAyQGA4mvhiJsK/usEQmdWDMECClEY3U9DC
v39nI2YB4y1AgEi7k8mLw7+BAvOA6gorQNbzdpY8TcS/xvwaDB14KEC8X0xn
hQfFv6Qn2BYBJCZAcCQWkHarxb91q15RnwgkQHxqBUQYJ8a/PKOsw5EgIkDm
L3QwBGXGv+0PwPj1ZiBASoWWklRMxr+AUoD1wK4dQM1TNV6vwcW/yMQSAKPb
GkBulzn76anEvyNBMVhVTRhA2nn2l07uwr+W6CmUS/0VQPCXDU2rgcC/0mht
0pjlE0DgP/9Y9ci6v4kYG4vgABJAVMRX6HFMs7+rXWXTSEoQQATm05TdiaW/
L68439t6DUCAlcxefy93v7tmDCiurApA6I5PWvfloD//wmhv2CIIQBz/zkoL
0LI/SMiFvtnWBUCAafXmFaW9PwA51I/PwgNAhC5bUC6FxD/NeRS7ZuEBQIVt
N8LOkso/myO/0M0tAECGFV6im4jQP9qMlYNRR/0/eWtyC5UL1D/G31toC376
P4KfvnHk3dc/JB3+zqX49z/UqJT5VwvcP2b8mR+rsPU/URxVxhVQ4D8RxoMe
Q6DzP2ZWaieh1OI/MZi58iPC8T8QaNrKL5rlPzknJpmEEfA/9Q2xoy6o6D9o
NvdDIRTtP958hCKwBuw/bdB5MbpP6j9rpLcmhr7vPzKIEvW8zuc/g0QuNK7s
8T/4luNBv4rlPz7JyQHqMPQ//eYnFPN94z/QGCNc0LH2P++h1NEXo+E/Ukwp
MNR1+T8b2hir2erfPwOF7okShPw/M0rTgkrh3D9p2WI3ZeT/P3/I2fS5Ido/
hfeHmrvPAUDySqpgHaXXP7EPAZBt3wNAxxytsBVl1T8i/p/1kSYGQGtYJgff
W9M/bSTPDQCrCEAh+tf4QYTRP6c+IOkrcwtAe1n4Xgyzzz+u6kz6NoYOQDbV
sqPMrsw/LroQMgH2EEB0kOgkCvTJP23wXZih1hJAXi2rkcZ7xz8pZydTzOkU
QB8eDfitP8U/0c51edI0F0Cqd52OBjrDP5FXYjeUvRlAuxLdCKJlwT+BXHbd
j4ocQPmNLaKge78/b4jxhPKiH0B3cTALp3y8P7b/0zlVhyFAp3UKNarGuT9F
+1C3PWsjQFvu2gi4Urc/VcDLlwqCJUAX0uSkhxq1P7tVbRsW0SdA5/9iQmkY
sz8Ro6acSl4qQHpIo6M3R7E/MxVXuDEwLUB+eifKlUSvPwYu+4YCJzBAu2f2
HtlKrD8m0FZh4N8xQJuZmZmZmak/+9Bn+xvHM0CMK/nT
     "]]}, 
   {RGBColor[0.6, 0.4, 0.2], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkDtC2qpC/i/v1GOLzyF
OjtAPrizndX2v795i88OMKM4QEj0DpDY9r+/TpiyvfpKNkByugH6Gvq/v0DN
c3jjKzRA1OdhJxMCwL/bz1LGekAyQEICi/YDDcC/usEQmdWDMEAelb/+pSDA
v39nI2YB4y1AdD54zec+wL+BAvOA6gorQPEifMKuZ8C/xvwaDB14KEBX6hbv
TJjAv6Qn2BYBJCZA0tXK197LwL91q15RnwgkQGBDsZ4a/MC/PKOsw5EgIkAU
AWYqASLBv+0PwPj1ZiBAZOKY/Ts2wb+AUoD1wK4dQPtyqCU4McG/yMQSAKPb
GkDmttk/HgvBvyNBMVhVTRhAYvfqPL67wL+W6CmUS/0VQJja6zV6OsC/0mht
0pjlE0AQv4I8afy+v4kYG4vgABJAhNbob4X6vL+rXWXTSEoQQLbNZH/FWrq/
L68439t6DUCoJTZpaQe3v7tmDCiurApAEEYCx2jpsr//wmhv2CIIQADILPfM
0Ku/SMiFvtnWBUBAt92Eg6qfvwA51I/PwgNAgMEBKWqbar/NeRS7ZuEBQHC8
UkgI150/myO/0M0tAEDwWxMv1xOxP9qMlYNRR/0/4BlJ0gcmvD/G31toC376
P+gqazqkZ8Q/JB3+zqX49z9Y25iHnprLP2b8mR+rsPU/Y1/1lirg0T8RxoMe
Q6DzP++A1k5+d9Y/MZi58iPC8T/zu9nYcp/bPzknJpmEEfA/WGUBB7Sy4D9o
NvdDIRTtP5Qj0BUR7OM/bdB5MbpP6j/+GA4s/YPnPzKIEvW8zuc/RId3T4mD
6z/4luNBv4rlP+ehLr3G9O8//eYnFPN94z/MqIdMcnHyP++h1NEXo+E/9t6N
4Sct9T8b2hir2erfPxdZU5JqNPg/M0rTgkrh3D+eIOFs4477P3/I2fS5Ido/
9XiCVRJF/z/ySqpgHaXXP33fGBYysAFAxxytsBVl1T/nkSGQpfUDQGtYJgff
W9M/K2Vsvqx4BkAh+tf4QYTRP9X3w56vPwlAe1n4Xgyzzz9aBfNfxVEMQDbV
sqPMrsw/+0Vndsa2D0B0kOgkCvTJP6Rw1U6wuxFAXi2rkcZ7xz/MAu59ls4T
QB8eDfitP8U/UH6RUGQZFkCqd52OBjrDPyuDW9H3oRhAuxLdCKJlwT+SVKqL
zW4bQPmNLaKge78/b9wTIRGHHkB3cTALp3y8P2RiSdBX+SBAp3UKNarGuT8Y
7i3nNd0iQFvu2gi4Urc/4h4eSPrzJEAX0uSkhxq1P/QJ7dv+QidA5/9iQmkY
sz+7eiC1LdApQHpIo6M3R7E/pC5rNRCiLEB+eifKlUSvPwV2ncvfvy9Au2f2
HtlKrD86JXM6zJgxQJuZmZmZmak/GTximAaAM0BuIwE0
     "]]}, 
   {RGBColor[1, 0.5, 0], LineBox[CompressedData["
1:eJwVhwk0FXgfQEnx8MhWCFmeENl3+fr9ShOjmkpU0kKNJRSNyJakULZCKYNk
LWtaZH9/pZ49PJItS5YQWXr0Muibuefcc8+VP+Nh5biGg4Mj5F//q1tmyEBC
OmBqWa2tJ5uQDdzzbSniO/BZPa+C/Q9CipIGpcZTTXHfpFi45CIhh2I0TUNN
tqNGR65HGIuQR6wQ9ztjxpj9KkU2bJ4Qv8gWQa0MIxw5eS1hYoYQtx6qwj0P
Q2TphUR5TBHyx4PnVUuWBhgn9MWm+gshtwLz47P09NHkijeP6xAh2OzlO6ym
hzF2h40/dREyNcE5x6eliyzZ+FLXZkJ6W6wY/qiDdVz37XbRCdmupPMw8YQ2
fnpkx+uVS0j5a6HED9e18KLs8sDXO4SsxppPmLtpYumeGcsgT0KuOtOcOIfV
UT+VXT9oTsjFO+NRfee3ocN+EeXnGwi5tuZ78CSfGv7tzTsU2EUn3e0D/BZl
WxEbfqSUx9AJY3kTVcZXBfvuctz8aEAny5TQyaQ9ytiQHH1Dv6WKZCp3beRU
VELR2CHUPFJFOE/4RsSt34LjxTEbpBoqiXfeqUOpFEX8x8H93f6tlSRbsF3i
qiAN9S2eSMv8VUFMM/JrYuUU0MzV+q/P6eUkRbGdC3bIo87oJv6VsjIyvb6a
veAkh+vdDI92FJeSEdGQLFs9WUznpHD23C0hwVbBC9WFMthv/7Uy0uYVMTn2
IlDFVBovtCvWXlp8SereinBk9G7CVtmrPzV8XpBUR7/OP6IkMSatzv5s+zNC
26l9zGa/BLJUj5s0UIvIFdVIm0kZcfSVHQ633pVPEsa33t27sgEPivc9KNz8
hPjtLrCqnhRDl7Bx1un8DMJ0Oc98MCqK1TGdkm7MFCLwaWlMfVoEq60P0ynZ
8eSWhFTkIMe/33V6+trDa6Rp24q/pJwwVsdet2Y+d4S8k47tFpZCeNA+JZnR
Hw2eR2hujSuCqBL3rqhkMAk0nxoN9PoLYObdAwO1tZlQn2Vh1chHReqjqJwG
jnyocKKqFObz4aaUNvsdLc9AeWF0Z+ZpXty1qi+nwCyGX29cPLoUKJjstY75
ja8c0oOHRq8ucONmYa6SZwF0sKgLpXd3rsNe8VtyNvGv4Wkk21+DsRaHNAJt
lHjeAodxx+2WN1z4cl/N2vS/GfDccYa1sWkNeuhNLRofqIdmP7EKpyFOvFsu
2ROo1ASHrcazVdZw4vFltfcbFVogiUZam9U5sIOncW5cvg18xXfHJdeuwp70
hn2NDCb0RN27fsh8BdxrTuq+Cu6A5uQK77fd/8BDT3vVqoOdwBiwc+EPWoJf
Fha9XEZdYNpY8NZc9yd0UD8G0Q17QFFm9X0W+wd03d5uq3OoD3zMtsieaF6E
PBO6xavQfnBaTpTNK1qAW6uNL2zdBsHzcXNcXxoLjOySB5npQyDMuL7Z7NF3
mPlxPVpw8jPErHb3GefNA9n723j/zhHQflA2T3szB/1HnYbk8kahrf+CmvvI
LEQ99S2oVPoCxspKiTeEZ6GaOn0gu3gc/NIULjXFfoOuKG/N/mOT4GLww0xe
bBrsc7hfXhSeAlhVOSia8xU0aPe+BQxOw/lWP+3yA5MwXlxlqVQ7Azrhv3ca
8UyA3YpFlvXwLOjcFFmofP8FxERds5Vm5yBEoTk0KGsM5iKXC4v5vgM7YXgn
iRiFyjJVvhJdFui1/6nacGUEbJK+b59wW4CVMWWx71eGQfSddIDYy0WI400w
Toj4DKf0fLT5Bdgwk9bRJp4xBC555SG5l3/CUQNqwTBjECRGTvT0sJZAqkci
r3tyAGjx94PvhC7DuQY5t+Mn+kHmk5Rhk+oq6Fq2h1gO9UFhPPmUNPoLJI4V
7y3x7QUOrfrb0b0ceLWum1Um3wNc3mfFTFo5scJfbsantwti4+d0PNvW4Lxl
rr1M1keYTjuW3THAhSl1yqljVzqhMbb0vtjyWqyVLija4PgBwpNdBMaUuFGs
tIy5aNsBZ80fnqY48KDbMSWeAbt2OJfE+2J3HgWdqp5mq7kyQYFa7HeBmw/l
lz6yd95oA7O4gKWzXvzYXNXbGpPTCjLVbgOC36kYYMs+RX3RAl95vBr/DBPE
5YXXzN+U34NsdNc/uuJCaPDheUZTYRPgBvcp0UUhFDGKbH9q0QgOlJAx+0Fh
vHRnXJGPVQ+tH7ZPFHWKYBgl/CZnUR2INvZkpHWL4in1vFhGQC0sppX0dE2I
4fEzx+fijzBAetaxbS1lI8puFmAXwDuYv2Re3qcnjqriETJnDN6CA71TTf6i
BOZeTonhNqmB82aspOQqSdw+e6b65+9vgDJ9Y4gmJYUVIp8o6Y6vgbG+uDIh
QhpVau6bno+qBoaEodMgdTP+jFZPfxRAYMeT7i3sdFl0lsrhiZmvAukaV/Zs
thxevqjF/ziwEo47S988Gi6P0Q7dh5clKiBobsoZvBTwsTeffi6jDEaE5ZPA
jYa966qku26UQtQmruFFD0W0+9ZDKbUqgfn664rUkC24pHSaK0zzFei1CrVr
pCuhOHMkM3xTMdz0GrUXb1PGbT7WKfyiL0HAVKY4fP1W/PLrzK5zEi8g+H8d
j/eeUkX6SCKNQ/U5TPlk3jCmq6G/RUaGofkzaGlqj9fRUsdU5wcJQR5FwPaJ
yKUVa2CQv3LDvd1PIXyj4dAaZS18+D7BWYdeAJax1/bNrGhhhfPi5m7LfDBw
T84bHNDGEu424+SJXIjmqn3k3KyDSYn/kQN82g+NpGt18f8oq/0V
     "]]}, 
   {RGBColor[1, 0, 1], LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAFQby0Z0XPkB0CpCcjXbAv1GOLzyF
OjtAEQGOmSGOwL95i88OMKM4QA3sQvLxpMC/TpiyvfpKNkB+VZCpk7XAv0DN
c3jjKzRA5AHeM9S3wL/bz1LGekAyQBsOEKjRoMC/usEQmdWDMED2oPf6U2PA
v39nI2YB4y1AJTLigrHgv7+BAvOA6gorQOSsj1Pib76/xvwaDB14KEAAkq3K
cVW8v6Qn2BYBJCZAlV6VZHB4ub91q15RnwgkQHMETvmyzLW/PKOsw5EgIkBl
NjzI/lqxv+0PwPj1ZiBAFvWrFX6NqL+AUoD1wK4dQDhMHcgEJ5u/yMQSAKPb
GkDARGaUBP9xvyNBMVhVTRhAAMZkxatOkj+W6CmUS/0VQFj6ef1Co6Q/0mht
0pjlE0A8kSg3nzKwP4kYG4vgABJANiY+dxZXtj+rXWXTSEoQQB4d6Nl63rw/
L68439t6DUCsM66AnvLBP7tmDCiurApAzlLiT8LCxT//wmhv2CIIQDPOwKs4
7Mk/SMiFvtnWBUA1nSDhmHvOPwA51I/PwgNAdBNdVfa+0T/NeRS7ZuEBQD8j
RjKBgNQ/myO/0M0tAECyIlfo14nXP9qMlYNRR/0/UhNsNgbj2j/G31toC376
P4pDvwbUlN4/JB3+zqX49z/SmL82cFThP2b8mR+rsPU/vN23s96U4z8RxoMe
Q6DzP6CdK46GEeY/MZi58iPC8T8LShif0NDoPzknJpmEEfA/IKyYg87Z6z9o
NvdDIRTtP1NdAidNNO8/bdB5MbpP6j9KiyqJdHTxPzKIEvW8zuc/UwYlXpKA
8z/4luNBv4rlP+GIG4zAw/U//eYnFPN94z9s9x9TzEP4P++h1NEXo+E/FEZe
ph4H+z8b2hir2erfP987l6TMFP4/M0rTgkrh3D+1YKTjVLoAQH/I2fS5Ido/
w9fQ+62XAkDySqpgHaXXP+30jd44pwRAxxytsBVl1T+e0XBfPe4GQGtYJgff
W9M/D4iCa5FyCUAh+tf4QYTRPzX4jP6nOgxAe1n4Xgyzzz8n6n6qoU0PQDbV
sqPMrsw/ESOoba9ZEUB0kOgkCvTJP1lzHwNKOhNAXi2rkcZ7xz/igRL8b00V
QB8eDfitP8U/s+QLPnKYF0Cqd52OBjrDP56VvswwIRpAuxLdCKJlwT+0VbXX
Ke4cQPmNLaKge78/UiedLkUDIEB3cTALp3y8P+BEjEYguSFAp3UKNarGuT/b
+ykNCJ0jQFvu2gi4Urc/kVX0V9SzJUAX0uSkhxq1PzShDWHfAihA5/9iQmkY
sz8Zpvh9E5AqQHpIo6M3R7E/rhuMR/phLUB+eifKlUSvP+JN+azmPzBAu2f2
HtlKrD/s2NBrxPgxQJuZmZmZmak/5Qdb7//fM0CDUPdO
     "]]}, {InsetBox[
     StyleBox["\<\"1\\!\\(\\*SubscriptBox[\\(s\[Sigma]\\), \\(g\\)]\\)\"\>",
      StripOnInput->False,
      LineColor->RGBColor[0, 0, 1],
      FrontFaceColor->RGBColor[0, 0, 1],
      BackFaceColor->RGBColor[0, 0, 1],
      GraphicsColor->RGBColor[0, 0, 1],
      FontColor->RGBColor[0, 0, 1]], {2.4, -0.54}], InsetBox[
     StyleBox["\<\"1\\!\\(\\*SubscriptBox[\\(p\[Sigma]\\), \\(u\\)]\\)\"\>",
      StripOnInput->False,
      LineColor->RGBColor[0.5, 0, 0.5],
      FrontFaceColor->RGBColor[0.5, 0, 0.5],
      BackFaceColor->RGBColor[0.5, 0, 0.5],
      GraphicsColor->RGBColor[0.5, 0, 0.5],
      FontColor->RGBColor[0.5, 0, 0.5]], {4, -0.35}], InsetBox[
     StyleBox["\<\"1p(\[PlusMinus]\[Pi]\\!\\(\\*SubscriptBox[\\()\\), \
\\(u\\)]\\)\"\>",
      StripOnInput->False,
      LineColor->RGBColor[0.6, 0.4, 0.2],
      FrontFaceColor->RGBColor[0.6, 0.4, 0.2],
      BackFaceColor->RGBColor[0.6, 0.4, 0.2],
      GraphicsColor->RGBColor[0.6, 0.4, 0.2],
      FontColor->RGBColor[0.6, 0.4, 0.2]], {3.8, -0.15}], InsetBox[
     StyleBox["\<\"2\\!\\(\\*SubscriptBox[\\(s\[Sigma]\\), \\(g\\)]\\)\"\>",
      StripOnInput->False,
      LineColor->RGBColor[0, 1, 0],
      FrontFaceColor->RGBColor[0, 1, 0],
      BackFaceColor->RGBColor[0, 1, 0],
      GraphicsColor->RGBColor[0, 1, 0],
      FontColor->RGBColor[0, 1, 0]], {4.5, 0.22}], InsetBox[
     StyleBox["\<\"2\\!\\(\\*SubscriptBox[\\(p\[Sigma]\\), \\(u\\)]\\)\"\>",
      StripOnInput->False,
      LineColor->RGBColor[1, 0, 0],
      FrontFaceColor->RGBColor[1, 0, 0],
      BackFaceColor->RGBColor[1, 0, 0],
      GraphicsColor->RGBColor[1, 0, 0],
      FontColor->RGBColor[1, 0, 0]], {13, -0.07}], InsetBox[
     StyleBox["\<\"1\\!\\(\\*SubscriptBox[\\(d\[Sigma]\\), \\(g\\)]\\)\"\>",
      StripOnInput->False,
      LineColor->GrayLevel[0],
      FrontFaceColor->GrayLevel[0],
      BackFaceColor->GrayLevel[0],
      GraphicsColor->GrayLevel[0],
      FontColor->GrayLevel[0]], {10, -0.23}], InsetBox[
     StyleBox["\<\"1d(\[PlusMinus]\[Pi]\\!\\(\\*SubscriptBox[\\()\\), \
\\(g\\)]\\)\"\>",
      StripOnInput->False,
      LineColor->RGBColor[1, 0.5, 0],
      FrontFaceColor->RGBColor[1, 0.5, 0],
      BackFaceColor->RGBColor[1, 0.5, 0],
      GraphicsColor->RGBColor[1, 0.5, 0],
      FontColor->RGBColor[1, 0.5, 0]], {4, 0.07}], InsetBox[
     StyleBox["\<\"1\\!\\(\\*SubscriptBox[\\(f\[Sigma]\\), \\(u\\)]\\)\"\>",
      StripOnInput->False,
      LineColor->RGBColor[1, 0, 1],
      FrontFaceColor->RGBColor[1, 0, 1],
      BackFaceColor->RGBColor[1, 0, 1],
      GraphicsColor->RGBColor[1, 0, 1],
      FontColor->RGBColor[1, 0, 1]], {6, 0.08}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"E/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)+1/(Z R) [a.u.]\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0, 16}, {-0.7, 0.3}},
  PlotRangeClipping->True]], "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Convergence to hydrogen energy levels for R\[Rule]\[Infinity]", \
"Section"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CalcEDiff", "[", 
   RowBox[{"lm_", ",", "n_", ",", "pstart_", ",", "ZR_List"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"First", "[", "#", "]"}], ",", 
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Last", "[", "#", "]"}], "/", 
            RowBox[{"First", "[", "#", "]"}]}], ")"}], "2"]}], "+", 
        FractionBox["1", 
         RowBox[{"First", "[", "#", "]"}]], "+", 
        FractionBox["1", 
         RowBox[{"2", 
          SuperscriptBox["n", "2"]}]]}], "]"}]}], "}"}], "&"}], "/@", 
   RowBox[{"CalcP", "[", 
    RowBox[{"lm", ",", "pstart", ",", "ZR"}], "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ZRrange", "=", 
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"Range", "[", 
       RowBox[{
        RowBox[{"Log", "[", "12", "]"}], ",", 
        RowBox[{"Log", "[", "200", "]"}], ",", "0.1"}], "]"}], "]"}], ",", 
     "0"}], "]"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"E1s\[Sigma]Diff", "=", 
   RowBox[{"CalcEDiff", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", "1", ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "2"}], ",", 
     RowBox[{"Reverse", "[", 
      RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListLogPlot", "[", 
  RowBox[{"E1s\[Sigma]Diff", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"E1s\[Sigma]Diff", "\[LeftDoubleBracket]", 
         RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"E1s\[Sigma]Diff", "\[LeftDoubleBracket]", 
         RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{"E1s\[Sigma]Diff", "\[LeftDoubleBracket]", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "2"}], "\[RightDoubleBracket]"}]}], 
       "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Z R [a.u.]\>\"", ",", 
      "\"\<\[VerticalSeparator]\!\(\*SubscriptBox[\(E\), \(1  s\[Sigma]\)]\)/\
\!\(\*SuperscriptBox[\(Z\), \(2\)]\)+1/(Z R)+1/2\[VerticalSeparator]\>\""}], 
     "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"First", "[", "E1s\[Sigma]Diff", "]"}]}], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAAZjNijr6qaEAu/VuhH1Q0wLFfwSXR
UWZAVcLR7LftM8CIXcVNEzJkQMb3qedPhzPAimjl4hNGYkBpT2KF5yAzwM5X
t1TmiGBAB7I4rn66MsB4TGcQLOxdQKcvqkYVVDLAkxWm2jUTW0BMXf4sq+0x
wPYrjFWef1hABplZNkCHMcBApp+KyypWQIMSGy7UIDHA+UqiVcQOVECUIY7S
ZrowwOXysxYhJlJAs1/i0PdTMMCAekrZ/WtQQCywdIMN2y/A49MImdu3TUCW
yRdGJg4vwOKnd9nf40pAHUvLoThBLsBqB5qCyVRIQHUrDvhCdC3AiXqQKAoE
RkCCsec6Q6cswD1MjBiz60NAXVS9zDbaK8AuoLMlZgZCQLeQTlUaDSvAj0FP
6EdPQEDZS42G6T8qwBm1Cpjmgz1Asl68tp5yKcBfan2a3LQ6QFk1CJ8xpSjA
TM65kT8qOEDB5UtwkdcnwHQ/TYiM3TVA/iq70IoJJ8D1hJYq38gzQBVHMYZt
OibA6M88ruLmMUAKw07pH2glwPITaSnEMjBA1cbW8GuNJMDVAoVtTFAtQOzh
GjFqoCPAPgEHjSuGKkAiAxDtPpQiwAAAAAAAAChAs4NGHiNhIcBpZtGj
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"\[VerticalSeparator]\\!\\(\\*SubscriptBox[\\(E\\), \\(1  s\[Sigma]\\)]\
\\)/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)+1/(Z R)+1/2\
\[VerticalSeparator]\"", TraditionalForm]},
  AxesOrigin->{0, -20.3286076402266},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-20.72326583694641, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-18.420680743952367`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-16.11809565095832, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-13.815510557964274`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-11.512925464970229`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-9.210340371976182, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-20.030118656386467`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.624653548278303`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.33697147582652, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.11382792451231, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.931506367718356`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.7773556878911, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.643824295266576`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.526041259610192`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.72753356339242, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.322068455284256`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.034386382832476`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.811242831518264`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.62892127472431, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.474770594897052`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.34123920227253, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.223456166616145`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-15.424948470398375`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-15.01948336229021, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.73180128983843, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.508657738524219`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.326336181730264`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.172185501903007`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.038654109278484`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-13.9208710736221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-13.122363377404328`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.716898269296165`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.429216196844383`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.206072645530174`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.02375108873622, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.86960040890896, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.736069016284437`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.618285980628055`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.819778284410283`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.414313176302118`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.126631103850338`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.903487552536127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.721165995742174, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.567015315914915, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.433483923290392, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.315700887634009, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-20.72326583694641, 
       FormBox["\"\"", TraditionalForm]}, {-18.420680743952367`, 
       FormBox["\"\"", TraditionalForm]}, {-16.11809565095832, 
       FormBox["\"\"", TraditionalForm]}, {-13.815510557964274`, 
       FormBox["\"\"", TraditionalForm]}, {-11.512925464970229`, 
       FormBox["\"\"", TraditionalForm]}, {-9.210340371976182, 
       FormBox["\"\"", TraditionalForm]}, {-20.030118656386467`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.624653548278303`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.33697147582652, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.11382792451231, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.931506367718356`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.7773556878911, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.643824295266576`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.526041259610192`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.72753356339242, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.322068455284256`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.034386382832476`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.811242831518264`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.62892127472431, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.474770594897052`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.34123920227253, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.223456166616145`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-15.424948470398375`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-15.01948336229021, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.73180128983843, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.508657738524219`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.326336181730264`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.172185501903007`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.038654109278484`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-13.9208710736221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-13.122363377404328`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.716898269296165`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.429216196844383`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.206072645530174`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.02375108873622, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.86960040890896, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.736069016284437`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.618285980628055`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.819778284410283`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.414313176302118`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.126631103850338`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.903487552536127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.721165995742174, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.567015315914915, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.433483923290392, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.315700887634009, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {Automatic, Automatic}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{
    0, 197.33576125316466`}, {-20.3286076402266, -8.689721056087228}},
  PlotRangeClipping->True,
  PlotRangePadding->{{None, None}, {None, None}},
  Ticks->{Automatic, {{-20.72326583694641, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-18.420680743952367`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-16.11809565095832, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-13.815510557964274`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-11.512925464970229`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-9.210340371976182, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-20.030118656386467`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-19.624653548278303`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-19.33697147582652, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-19.11382792451231, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-18.931506367718356`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-18.7773556878911, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-18.643824295266576`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-18.526041259610192`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-17.72753356339242, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-17.322068455284256`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-17.034386382832476`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.811242831518264`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.62892127472431, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.474770594897052`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.34123920227253, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.223456166616145`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-15.424948470398375`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-15.01948336229021, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.73180128983843, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.508657738524219`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.326336181730264`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.172185501903007`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.038654109278484`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-13.9208710736221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-13.122363377404328`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.716898269296165`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.429216196844383`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.206072645530174`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.02375108873622, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.86960040890896, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.736069016284437`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.618285980628055`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.819778284410283`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.414313176302118`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.126631103850338`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.903487552536127, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.721165995742174, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.567015315914915, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.433483923290392, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.315700887634009, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"197.33576125316466`", ",", "1.4838769102354377`*^-9"}], 
  "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"E1d\[Pi]Diff", "=", 
   RowBox[{"CalcEDiff", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "1"}], "}"}], ",", "2", ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"4", "+", 
        RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "4"}], ",", 
     RowBox[{"Reverse", "[", 
      RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListLogPlot", "[", 
  RowBox[{"E1d\[Pi]Diff", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Orange"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"E1d\[Pi]Diff", "\[LeftDoubleBracket]", 
         RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"E1d\[Pi]Diff", "\[LeftDoubleBracket]", 
         RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{"E1d\[Pi]Diff", "\[LeftDoubleBracket]", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "2"}], "\[RightDoubleBracket]"}]}], 
       "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Z R [a.u.]\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(E\), \(1  \
d\[Pi]\)]\)/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)+1/(Z R)+1/8\>\""}], 
     "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"First", "[", "E1d\[Pi]Diff", "]"}]}], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0.5, 0], LineBox[CompressedData["
1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAAZjNijr6qaEDwlKTaGUMswLFfwSXR
UWZA1etLr02tK8CIXcVNEzJkQALNI9fvFyvAimjl4hNGYkCZUs/JDYMqwM5X
t1TmiGBAav2B3rbuKcB4TGcQLOxdQJxGXp38WinAkxWm2jUTW0Co+qci88co
wPYrjFWef1hAhcbrmLE1KMBApp+KyypWQM+hQtFSpCfA+UqiVcQOVEDjZrID
9hMnwOXysxYhJlJA7vUZxr+EJsCAekrZ/WtQQEB+Y07b9iXA49MImdu3TUBF
20IZfGolwOKnd9nf40pAYxWC69/fJMBqB5qCyVRIQECTrQdQVyTAiXqQKAoE
RkAj3yF0G9EjwD1MjBiz60NArRh09XRNI8AuoLMlZgZCQEyVjrQAzCLAj0FP
6EdPQEBb+ZvOv0oiwBm1Cpjmgz1AF/0x3znEIcBfan2a3LQ6QNA9yR7tLSHA
TM65kT8qOEDk2mGiRXogwHQ/TYiM3TVACME1wo9BH8D1hJYq38gzQLi+Kai0
TB3A6M88ruLmMUAEOj4e2TUbwPITaSnEMjBANOWnevEeGcDVAoVtTFAtQHx0
nn8iHxfAPgEHjSuGKkCPrj9MzEEVwAAAAAAAAChAW9wsL2CKE8AhZNgT
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(E\\), \\(1  \
d\[Pi]\\)]\\)/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)+1/(Z R)+1/8\"", 
     TraditionalForm]},
  AxesOrigin->{0, -14.131056625929403`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-13.815510557964274`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-11.512925464970229`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-9.210340371976182, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-6.907755278982137, 
       FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, 
       FormBox["0.01`", TraditionalForm]}, {-13.122363377404328`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.716898269296165`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.429216196844383`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.206072645530174`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.02375108873622, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.86960040890896, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.736069016284437`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.618285980628055`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.819778284410283`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.414313176302118`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.126631103850338`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.903487552536127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.721165995742174, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.567015315914915, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.433483923290392, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.315700887634009, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.111728083308073, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.824046010856292, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.418580902748127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.264430222920869, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.1308988302963465`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.013115794639964, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-13.815510557964274`, 
       FormBox["\"\"", TraditionalForm]}, {-11.512925464970229`, 
       FormBox["\"\"", TraditionalForm]}, {-9.210340371976182, 
       FormBox["\"\"", TraditionalForm]}, {-6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, 
       FormBox["\"\"", TraditionalForm]}, {-13.122363377404328`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.716898269296165`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.429216196844383`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.206072645530174`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.02375108873622, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.86960040890896, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.736069016284437`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.618285980628055`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.819778284410283`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.414313176302118`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.126631103850338`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.903487552536127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.721165995742174, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.567015315914915, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.433483923290392, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.315700887634009, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.111728083308073, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.824046010856292, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.418580902748127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.264430222920869, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.1308988302963465`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.013115794639964, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {Automatic, Automatic}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{
    0, 197.33576125316466`}, {-14.131056625929403`, -4.885132538903316}},
  PlotRangeClipping->True,
  PlotRangePadding->{{None, None}, {None, None}},
  Ticks->{Automatic, {{-13.815510557964274`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-11.512925464970229`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-9.210340371976182, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-6.907755278982137, 
      FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, 
      FormBox["0.01`", TraditionalForm]}, {-13.122363377404328`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.716898269296165`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.429216196844383`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.206072645530174`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.02375108873622, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.86960040890896, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.736069016284437`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.618285980628055`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.819778284410283`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.414313176302118`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.126631103850338`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.903487552536127, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.721165995742174, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.567015315914915, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.433483923290392, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.315700887634009, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-8.517193191416238, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-8.111728083308073, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.824046010856292, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.600902459542082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.418580902748127, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.264430222920869, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.1308988302963465`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.013115794639964, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-6.214608098422191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.809142990314028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.521460917862246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.298317366548036, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.115995809754082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.961845129926823, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.8283137373023015`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.710530701645918, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"197.33576125316466`", ",", "7.29390468731661`*^-7"}], 
  "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"E3s\[Sigma]Diff", "=", 
   RowBox[{"CalcEDiff", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", "3", ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"6", "+", 
        RowBox[{"Max", "[", "ZRrange", "]"}]}], ")"}], "/", "6"}], ",", 
     RowBox[{"Reverse", "[", 
      RowBox[{"Rest", "[", "ZRrange", "]"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListLogPlot", "[", 
  RowBox[{"E3s\[Sigma]Diff", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Gray"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Z R [a.u.]\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(E\), \(3  \
s\[Sigma]\)]\)/\!\(\*SuperscriptBox[\(Z\), \(2\)]\)+1/(Z R)+1/18\>\""}], 
     "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"First", "[", "E3s\[Sigma]Diff", "]"}]}], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0.5], LineBox[CompressedData["
1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAAZjNijr6qaEC3Rf2OPNQgwLFfwSXR
UWZAkicRPShwIMCIXcVNEzJkQJ8Eg89UDCDAimjl4hNGYkCZb/KWklEfwM5X
t1TmiGBA4QSCzBqLHsB4TGcQLOxdQDUWpB5TxR3AkxWm2jUTW0CDyiHxTQAd
wPYrjFWef1hAFowaOB88HMBApp+KyypWQDerv3zceBvA+UqiVcQOVED19XnZ
nLYawOXysxYhJlJAuBy163j1GcCAekrZ/WtQQFpkKLqKNRnA49MImdu3TUDH
UM2Q7XYYwOKnd9nf40pADuHG2r25F8BqB5qCyVRIQOeW6hIZ/hbAiXqQKAoE
RkAnOC3/HUQWwD1MjBiz60NAe42Lhu2LFcAuoLMlZgZCQMQL7Wus1RTAj0FP
6EdPQEAPyH3phSEUwBm1Cpjmgz1AAn5BgK5vE8Bfan2a3LQ6QL51vnxlwBLA
TM65kT8qOEABiCgX8xMSwHQ/TYiM3TVA2/i/IKFqEcD1hJYq38gzQAWHMDyt
xBDA6M88ruLmMUAHsOr9NSIQwPITaSnEMjBAHGH8ElAGD8DVAoVtTFAtQAQS
uc9nzg3APgEHjSuGKkB7/btbqpsMwAAAAAAAAChAGTqXudhsC8CA/tID
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Z R [a.u.]\"", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(E\\), \\(3  \
s\[Sigma]\\)]\\)/\\!\\(\\*SuperscriptBox[\\(Z\\), \\(2\\)]\\)+1/(Z R)+1/18\"",
      TraditionalForm]},
  AxesOrigin->{0., -8.414524525086433},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-9.210340371976182, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-6.907755278982137, 
       FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, 
       FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["0.1`", TraditionalForm]}, {0., 
       FormBox["1", TraditionalForm]}, {-8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.111728083308073, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.824046010856292, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.418580902748127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.264430222920869, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.1308988302963465`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.013115794639964, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.407945608651872, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659905, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782616`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-9.210340371976182, 
       FormBox["\"\"", TraditionalForm]}, {-6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, 
       FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {-8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.111728083308073, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.824046010856292, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.418580902748127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.264430222920869, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.1308988302963465`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.013115794639964, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.407945608651872, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659905, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782616`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {Automatic, Automatic}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{0., 197.33576125316466`}, {-8.414524525086433, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, {{-9.210340371976182, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-6.907755278982137, 
      FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, 
      FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
      FormBox["0.1`", TraditionalForm]}, {0., 
      FormBox["1", TraditionalForm]}, {-8.517193191416238, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-8.111728083308073, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.824046010856292, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.600902459542082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.418580902748127, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.264430222920869, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.1308988302963465`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.013115794639964, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-6.214608098422191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.809142990314028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.521460917862246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.298317366548036, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.115995809754082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.961845129926823, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.8283137373023015`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.710530701645918, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.506557897319982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.995732273553991, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.659260036932778, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.407945608651872, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.6094379124341003`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.203972804325936, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659905, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.35667494393873245`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.2231435513142097, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.10536051565782616`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"197.33576125316466`", ",", "0.00022162483787770831`"}], 
  "}"}]], "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1343, 938},
WindowMargins->{{301, Automatic}, {Automatic, 85}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 167, 6, 93, "Title"],
Cell[737, 30, 206, 6, 52, "Input"],
Cell[CellGroupData[{
Cell[968, 40, 463, 18, 71, "Section"],
Cell[1434, 60, 1035, 31, 31, "Input"],
Cell[2472, 93, 547, 17, 33, "Input"],
Cell[3022, 112, 650, 20, 48, "Input"],
Cell[3675, 134, 764, 24, 33, "Input"],
Cell[4442, 160, 324, 10, 31, "Input"],
Cell[CellGroupData[{
Cell[4791, 174, 451, 17, 48, "Subsection"],
Cell[CellGroupData[{
Cell[5267, 195, 1104, 34, 52, "Input"],
Cell[6374, 231, 3387, 66, 230, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9798, 302, 870, 24, 55, "Input"],
Cell[10671, 328, 2026, 41, 222, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12734, 374, 1015, 28, 55, "Input"],
Cell[13752, 404, 1917, 38, 213, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15706, 447, 1106, 34, 52, "Input"],
Cell[16815, 483, 9150, 162, 224, 3390, 66, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26002, 650, 872, 24, 55, "Input"],
Cell[26877, 676, 2029, 41, 218, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28943, 722, 1019, 28, 55, "Input"],
Cell[29965, 752, 1923, 38, 210, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[31937, 796, 451, 17, 48, "Subsection"],
Cell[CellGroupData[{
Cell[32413, 817, 1105, 34, 52, "Input"],
Cell[33521, 853, 3459, 67, 231, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37017, 925, 871, 24, 55, "Input"],
Cell[37891, 951, 2025, 41, 222, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39953, 997, 1018, 28, 55, "Input"],
Cell[40974, 1027, 1919, 38, 213, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42930, 1070, 1103, 34, 52, "Input"],
Cell[44036, 1106, 9263, 164, 219, 3462, 67, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53336, 1275, 869, 24, 55, "Input"],
Cell[54208, 1301, 6059, 109, 213, 2027, 41, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60304, 1415, 1016, 28, 55, "Input"],
Cell[61323, 1445, 1919, 38, 210, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63279, 1488, 1156, 35, 52, "Input"],
Cell[64438, 1525, 3410, 64, 221, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67885, 1594, 871, 24, 55, "Input"],
Cell[68759, 1620, 2011, 41, 216, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70807, 1666, 1018, 28, 55, "Input"],
Cell[71828, 1696, 1914, 38, 213, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73779, 1739, 1166, 35, 52, "Input"],
Cell[74948, 1776, 3424, 64, 222, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78409, 1845, 879, 24, 55, "Input"],
Cell[79291, 1871, 6367, 114, 214, 2038, 41, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[85695, 1990, 1026, 28, 55, "Input"],
Cell[86724, 2020, 5911, 105, 206, 1936, 38, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[92672, 2130, 1116, 34, 52, "Input"],
Cell[93791, 2166, 633, 11, 39, "Message"],
Cell[94427, 2179, 9052, 159, 227, 3491, 66, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[103516, 2343, 1165, 33, 76, "Input"],
Cell[104684, 2378, 7042, 125, 214, 3340, 63, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111763, 2508, 1312, 37, 76, "Input"],
Cell[113078, 2547, 7334, 128, 209, 3282, 60, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[120449, 2680, 1107, 34, 52, "Input"],
Cell[121559, 2716, 3481, 67, 219, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[125077, 2788, 873, 24, 55, "Input"],
Cell[125953, 2814, 2001, 41, 213, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[127991, 2860, 1020, 28, 55, "Input"],
Cell[129014, 2890, 1919, 38, 211, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[130982, 2934, 451, 17, 48, "Subsection"],
Cell[CellGroupData[{
Cell[131458, 2955, 1154, 35, 52, "Input"],
Cell[132615, 2992, 3675, 72, 223, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136327, 3069, 916, 25, 55, "Input"],
Cell[137246, 3096, 2143, 45, 212, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[139426, 3146, 1063, 29, 55, "Input"],
Cell[140492, 3177, 2034, 42, 206, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[142563, 3224, 1104, 34, 52, "Input"],
Cell[143670, 3260, 3552, 68, 231, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[147259, 3333, 870, 24, 55, "Input"],
Cell[148132, 3359, 2022, 41, 216, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[150191, 3405, 1017, 28, 55, "Input"],
Cell[151211, 3435, 1916, 38, 213, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153164, 3478, 1104, 34, 52, "Input"],
Cell[154271, 3514, 3551, 68, 218, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[157859, 3587, 870, 24, 55, "Input"],
Cell[158732, 3613, 2027, 41, 219, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[160796, 3659, 1017, 28, 55, "Input"],
Cell[161816, 3689, 1919, 38, 210, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[163784, 3733, 451, 17, 48, "Subsection"],
Cell[CellGroupData[{
Cell[164260, 3754, 1392, 44, 72, "Input"],
Cell[165655, 3800, 9410, 166, 224, 3792, 72, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[175102, 3971, 879, 24, 55, "Input"],
Cell[175984, 3997, 6346, 113, 212, 2030, 41, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182367, 4115, 1026, 28, 55, "Input"],
Cell[183396, 4145, 5848, 104, 206, 1934, 38, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[189293, 4255, 36, 0, 43, "Subsection"],
Cell[CellGroupData[{
Cell[189354, 4259, 4285, 123, 136, "Input"],
Cell[193642, 4384, 16506, 302, 220, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[210185, 4691, 4361, 123, 157, "Input"],
Cell[214549, 4816, 16449, 299, 202, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[231059, 5122, 82, 1, 63, "Section"],
Cell[231144, 5125, 798, 24, 48, "Input"],
Cell[231945, 5151, 323, 10, 31, "Input"],
Cell[CellGroupData[{
Cell[232293, 5165, 1558, 40, 97, "Input"],
Cell[233854, 5207, 17063, 332, 213, "Output"],
Cell[250920, 5541, 116, 3, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[251073, 5549, 1499, 40, 97, "Input"],
Cell[252575, 5591, 13560, 263, 215, "Output"],
Cell[266138, 5856, 114, 3, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[266289, 5864, 925, 25, 75, "Input"],
Cell[267217, 5891, 13083, 253, 213, "Output"],
Cell[280303, 6146, 116, 3, 31, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)