wall_repulsion.nb

(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    240161,       4845]
NotebookOptionsPosition[    233881,       4737]
NotebookOutlinePosition[    234274,       4753]
CellTagsIndexPosition[    234231,       4750]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"lj93", "[", 
      RowBox[{"r_", ",", "\[Xi]_", ",", "\[Sigma]_"}], "]"}], "=", 
     RowBox[{
      RowBox[{"-", "\[Xi]"}], "*", "1.5", "*", 
      SuperscriptBox["3", 
       RowBox[{"1", "/", "2"}]], 
      RowBox[{"(", 
       FractionBox["1", 
        SuperscriptBox["r", "5"]], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "9"}], " ", 
         FractionBox[
          SuperscriptBox["\[Sigma]", "9"], 
          SuperscriptBox["r", "6"]]}], "+", 
        SuperscriptBox["\[Sigma]", "3"]}], ")"}], "r"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"lj93c", "[", 
      RowBox[{"r_", ",", "\[Xi]_", ",", "\[Sigma]_"}], "]"}], "=", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["3", "2"]}], " ", 
      SqrtBox["3"], " ", "\[Xi]", " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"3", " ", 
          SuperscriptBox["\[Sigma]", "3"]}], 
         SuperscriptBox["r", "4"]], "-", 
        FractionBox[
         RowBox[{"9", " ", 
          SuperscriptBox["\[Sigma]", "9"]}], 
         SuperscriptBox["r", "10"]]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"lj", "[", 
      RowBox[{"r_", ",", "\[Xi]_", ",", "\[Sigma]_", ",", "rc_"}], "]"}], ":=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"r", "<", 
        RowBox[{"rc", " ", "\[Sigma]"}]}], ",", 
       RowBox[{
        RowBox[{"-", "4"}], " ", "\[Xi]", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"6", " ", 
            SuperscriptBox["\[Sigma]", "6"]}], 
           SuperscriptBox["r", "7"]], "-", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["\[Sigma]", "12"]}], 
           SuperscriptBox["r", "13"]]}], ")"}]}], ",", "0"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"coulomb", "[", 
      RowBox[{"r_", ",", "ep_", ",", "q_"}], "]"}], "=", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"4", " ", "\[Pi]", " ", "ep"}]], 
      FractionBox[
       SuperscriptBox["q", "2"], 
       SuperscriptBox["r", "2"]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"imagePot", "[", 
      RowBox[{"r_", ",", "ep_", ",", "q_"}], "]"}], "=", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"4", " ", "\[Pi]", " ", "ep"}]], 
      FractionBox["q", "r"]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L", "=", 
     RowBox[{"6", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Epsilon]", "=", 
     RowBox[{"586.66", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "21"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q1", "=", 
     RowBox[{"1.6", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "19"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"grad", "=", 
    RowBox[{"(", 
     RowBox[{"ep", " ", 
      RowBox[{"q1", "/", 
       RowBox[{"(", 
        RowBox[{"2", 
         SuperscriptBox[
          RowBox[{"(", "L", ")"}], "2"], "\[Epsilon]"}], ")"}]}]}], ")"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"eqLow", "=", 
      RowBox[{
       RowBox[{"\[Epsilon]", " ", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[Phi]", "[", "y", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}], "==", 
       RowBox[{
        RowBox[{"-", "2"}], 
        RowBox[{"q1", " ", "/", 
         RowBox[{"(", 
          SuperscriptBox["L", "3"], ")"}]}]}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"gradLow", "=", 
      RowBox[{"(", 
       RowBox[{"2", " ", 
        RowBox[{"q1", "/", 
         RowBox[{"(", 
          RowBox[{"2", 
           SuperscriptBox[
            RowBox[{"(", "L", ")"}], "2"], "\[Epsilon]"}], ")"}]}]}], ")"}]}],
      ";", "\[IndentingNewLine]", 
     RowBox[{"eqHigh", "=", 
      RowBox[{
       RowBox[{"\[Epsilon]", " ", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[Phi]", "[", "y", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}], "==", 
       RowBox[{
        RowBox[{"-", "40"}], 
        RowBox[{"q1", " ", "/", 
         RowBox[{"(", 
          SuperscriptBox["L", "3"], ")"}]}]}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"gradHigh", "=", 
      RowBox[{"(", 
       RowBox[{"40", " ", 
        RowBox[{"q1", "/", 
         RowBox[{"(", 
          RowBox[{"2", 
           SuperscriptBox[
            RowBox[{"(", "L", ")"}], "2"], "\[Epsilon]"}], ")"}]}]}], ")"}]}],
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"esPotentialLow", "[", "y_", "]"}], "=", 
      RowBox[{
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"eqLow", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Phi]", "'"}], "[", "0", "]"}], "==", "gradLow"}], " ",
            ",", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Phi]", "'"}], "[", "L", "]"}], "==", 
            RowBox[{"-", "gradLow"}]}]}], "}"}], ",", 
         RowBox[{"\[Phi]", "[", "y", "]"}], ",", "y"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"esPotentialHigh", "[", "y_", "]"}], "=", 
      RowBox[{
       RowBox[{"DSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"eqHigh", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Phi]", "'"}], "[", "0", "]"}], "==", "gradHigh"}], 
           " ", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Phi]", "'"}], "[", "L", "]"}], "==", 
            RowBox[{"-", "gradHigh"}]}]}], "}"}], ",", 
         RowBox[{"\[Phi]", "[", "y", "]"}], ",", "y"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"esPotentialLow", "[", "y", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "0", ",", "L"}], "}"}]}], "]"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"esPotentialHigh", "[", "y", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "0", ",", "L"}], "}"}]}], "]"}]}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"eq", "=", 
      RowBox[{
       RowBox[{"\[Epsilon]", " ", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[Phi]", "[", "y", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}], "==", 
       RowBox[{
        RowBox[{"-", "ep"}], " ", 
        RowBox[{"q", " ", "/", 
         RowBox[{"(", 
          SuperscriptBox["L", "3"], ")"}]}]}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"grad", "=", 
      RowBox[{"(", 
       RowBox[{"ep", " ", 
        RowBox[{"q", "/", 
         RowBox[{"(", 
          RowBox[{"2", 
           SuperscriptBox[
            RowBox[{"(", "L", ")"}], "2"], "\[Epsilon]"}], ")"}]}]}], ")"}]}],
      ";"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"esPot", "[", 
      RowBox[{"y_", ",", "ep_"}], "]"}], "=", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"ep", " ", "q1"}], 
        RowBox[{"2", " ", 
         SuperscriptBox["L", "3"], " ", "\[Epsilon]"}]]}], " ", 
      RowBox[{"(", 
       RowBox[{"y", "-", "L"}], ")"}], "y"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"esPot", "[", 
      RowBox[{"y", ",", "2"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"y", ",", "0", ",", "L"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.843057838237948*^9, 3.843058014005555*^9}, {
   3.843058095601053*^9, 3.8430581428859377`*^9}, {3.843058234984953*^9, 
   3.843058249353704*^9}, 3.843058280930025*^9, {3.843058361484331*^9, 
   3.843058385524032*^9}, {3.843058475492975*^9, 3.843058477513072*^9}, 
   3.843058520423625*^9, {3.843058568269621*^9, 3.843058594828327*^9}, {
   3.843058634898065*^9, 3.84305864101009*^9}, 3.8430588236759644`*^9, 
   3.843062383745019*^9, {3.843063443948743*^9, 3.843063480573707*^9}, {
   3.843063527211669*^9, 3.843063536050973*^9}, {3.843071998541925*^9, 
   3.843072001061002*^9}, {3.843096375974*^9, 3.8430963883186893`*^9}, {
   3.844167484467269*^9, 3.8441675523833027`*^9}, {3.844172398180399*^9, 
   3.84417240877203*^9}, {3.844172704601274*^9, 3.844172705440403*^9}, {
   3.844172814198748*^9, 3.8441728305732727`*^9}, {3.855086153933646*^9, 
   3.8550861664015007`*^9}, {3.855086236585745*^9, 3.855086243864745*^9}, {
   3.8550863972256308`*^9, 3.855086509052388*^9}, 3.855087676330961*^9, {
   3.855087996755485*^9, 3.855088063304661*^9}, {3.8551563151969833`*^9, 
   3.855156372865418*^9}, {3.855156438878585*^9, 3.8551564651993093`*^9}, {
   3.85515664526904*^9, 3.855156706866259*^9}, {3.8551570074934807`*^9, 
   3.855157023078457*^9}, {3.855157181818557*^9, 3.855157214499111*^9}, {
   3.8551590861774817`*^9, 3.8551591552772493`*^9}, {3.855159290935256*^9, 
   3.855159325356653*^9}, {3.8551593613601093`*^9, 3.855159429105866*^9}, {
   3.8551594662704372`*^9, 3.8551594671506557`*^9}, {3.855159554315344*^9, 
   3.8551597165315742`*^9}, {3.8551598087511377`*^9, 3.855159813238451*^9}, {
   3.855159900557872*^9, 3.8551600662732897`*^9}, {3.8551603004337683`*^9, 
   3.855160335861005*^9}},
 CellLabel->
  "In[1764]:=",ExpressionUUID->"242be4a3-80bb-42d2-b5ef-23ee55edb1ff"],

Cell[BoxData[
 RowBox[{"3.7879218324450665`*^11", " ", "ep"}]], "Output",
 CellChangeTimes->{{3.85515702067809*^9, 3.855157023732835*^9}, {
   3.855157201866497*^9, 3.855157215343514*^9}, 3.85515911750062*^9, 
   3.8551591582727327`*^9, 3.855159327578169*^9, {3.85515937122189*^9, 
   3.855159429757739*^9}, 3.85515972133422*^9, 3.855159813605558*^9, 
   3.85516001617673*^9, 3.855160067050138*^9, 3.855160338281481*^9},
 CellLabel->
  "Out[1772]=",ExpressionUUID->"9ed3837b-30a0-4169-914d-16b304b73254"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV2Hk8VN8bB/CR7BXfpCRZQiklaVHo6VBStmRXCKWkEGVNZSuyzsy9MyN7
hqiQLRSRNmmxl8qSrRChbJnb8ju/v+b1ft0zyz33OZ/neY2iq7eF2wIajbaU
j0b7/2u69t0/pUyx3YyX89Hkv/A9sr8e5/IZj+wmNmnmC591QS9+24W/Mprf
rX5FyCPSwwet+pc9UWgkAhaPvAfLToUhA5rx2ptGK0FCKMNO05WBPtHS9ZKN
1oMhX0Goju1NpBJm2MQ22gVStzMnrfSKkZGe7HKW0UFwbD3vHCtVh8bLlNv7
jhyBzURqc4JHC/onkEibIo5D7dFNDv02H1H5zIvf5p9Ow8qN5UWqrr0oZW7t
gIfVOaB3Ps4r2TmIFqkMhEaHnQc+xnTkYMYQcunYf/XBT3+Y1V14RkFuFDWq
RYd8sAyGza48nUT7cfRd40l+a/AlYNIGHZWTJlFQd4vipG8o0BYMpyeK/ERt
vJrrJ8TCgcFLWGRjPIV2jciMNqVEgG32imRFn2n0X/Krf/vMrkJVmkZVLmcG
6XNni3IHrgHd6+jNcmIWffHyl1qWEg2Sq2ME5ePmECnmdj7AKAbcNAusek/+
Qqm0Zs+XXbHwa/exJYGy82h5ZcIqJUY8gK5Y2uzLeWSdXaEbyokH/4XbThu9
nkckvdexOy0eCkziWlPfziPJ05qZnDvxIOP4OmR36zySkHmvvOhZPExcitjs
1TmPxEJWq8/MxkNwbefi+O/ziIbyUb1DAqzW31j4WIKHRuob3M6oJkKigeml
fxY8pMn/uMB8cyKYhJ3+qmzNQyFQPrN9RyI8vDxWeMCWh5bcz7pK25cIOTVr
nWKP4vVZF3NYx/B1i7Pb/xznoeCQTV9q2YnQ/1qnnnmBh64lHdCMWUAHjQVj
AVdJHtpQvvf9bwE6jJ3vfevP5qGmNgj2FqGDfa5OxMkkHpIW3/7ESoIO+pZr
F+ml8tCdq4oW8nJ0sKp9w+7n8lCjL8+nbBcd/IcdEztKeGiFaX5xzzk6VFxm
LL7exENOB5L36l2gg0x+yU5o4aHsvdHvuAF0mOvQb/3Rin+v9ol598t0kFcr
Mrd6z0Mm62T1pmLpoFJbEyzYzUPhfHHNQrl0EEu/GyH/jYfG7p+Z0Oimg67W
M3dlfgppFtuHEb106Nz63CV3IYWC8g0lZwfoMK2+vUFVkEKCXCWtqm90IBRc
B9aKUEiR3nnZ4Bcdon5M7JMQp5CNh/GSI5IMMDbqrObIUOixnNqmiIMM0OqY
vBKkQaGKpRbJd00YoBN572HpFgoVCgYJtR9igOi1H5wxTQqljb/oU7ZhgFj0
v11HtlMouMaV/cKVAayre2VVtCm03Sn5n0gIA5pOnrEP2kuhO2kirfRCBrTW
aZevsqZQFkNjz4NiBuwTPqG3wYZCN67a5veVMSCUK+GtZUuhaM+ca5pVDHD4
MFVsak8ht916Ou31DEjV6X932pFCCt2B2Sv6GKA/7MR2dqMQS3bYP12SCbKf
OuYNL1BoaaXfnOgKJii+7fu8249CCZb8gQEyTGislVbT9KfQtRi5IHNFJshn
L/4hFUgh/19WFxdsZkKuu6TOq4sUsmuvu3LSiAl7+hLqv4RTqN37EK3NlAn1
je60JxEUMhfrDt1zmAlzVd7pqZEUOqj/K0zajgnmrIWiptcopF2kHvnKjQmD
e40ykq9TSDYuJVo9jAlsusGT4UQKJa1bL5ISyYSbgROmd+kUWva0/LpQNBOs
nV/AWQaFFvNaYnoTmFCqTh0aYVLo7ynheGYqvl4fqtHMolDvXj/GbAUTFIap
EfMUCnEps+SacSb0DBWDXA6FmhOlZid/MMGim+8PF/u3UtdhpRkmnDDYYq16
Cz9/k9Mi0RQTXD3V2zbmUkg0LSLwsDABz2WzBFRuU8gXKm0GFQlQnvfa15pP
oYzWyyXLVQgIkC7P1Cug0JuTBksOqhJw6k4X+x722sTW5wXqBKxZ+9I8qpBC
Hz+PbQvQIeB3iDSlUkQhFKYoKWpNgEle+nqFUgp5Sg176doRcOlHl1IQdvLt
wldeRwkwLuBVNGNPt+iEt7kQUBfSXnCxjEJ5a2x+pHoRsOwiX/Pj+xR6Vy5r
2uRDwFZ7nRtLyim0wHggj8+PgB+3rX4fwXY4f8755EUCDLgq9Als8WcxTZuj
CbCeQeNClRTStTus5hpLwHF3/2tG2O5jK6LIBALEzWIrY7GfLMuBeZIAfR/L
byIPcH241RY8uUnAkhWOkTPY3PmrIjPZBIjJJ4xufIj3O97EbV0eAbk30sdc
sTeUf5SNKySg4qtj9SvsHsHpWOsqAvb0WjOvV1GoILDgXUANAcsPlHwvww75
dlI+uY6AiOjOyR5smcaPJT31eD8Jcly9mkIje4jftNcEWDoqj1hhVxab7Fdq
JGAVLSw2CNuGVfvxVDsB3k2Z9TXYKkJBSjEdBFDUcZfP2NOBmp75nwiQ45vO
+ovNdMih/eglQJUVvHrXIwq5NDoZSQ7i+1P2sbHC1kDS5PYhAmJjt2l5YTcq
xa4L/k6A0aDiZBp2GmufT+okAXHvjF+WYp8V+vuwZoqAExn6B15i6wRVLOyb
JaBNT/BcJ7bo6Dkzfh4BHdXsPd+xPzpsSFL5Q8B5ienyP9h5jQN9hjQSbunK
vV9UQ6EAlKbmwU/COT2pNBns/SU2fnGCJDTLfRRbhy2lLFFbKELCi/bTazSx
B1kNwi2LSLA8Xt+rg10qFGExJU5C4Ksf+/dhhwfppkpJkqApOmJljH14dOaL
1nISItcUiB7GVnC8t/nIShLOSIK7NfZEo3tQiCwJo10pnnbYNWjN03R5Ev5d
fiFzBDu+pHNR3RoS7s4/8v6/HZRZNgMqJEyYhJ+1x1Zjm2UKrCfhZaDkf7bY
PCHhb+s2kqB1ycfRErshqG6r0WYS4EjqYTPspNHgS2c1SegUJ78bYp9y3Faf
sJ0E8XS7LQh7R9N3ieKdJHxa+E1WC1tAL/dImw4JOvsOFG3Ebi9xzp4BErY6
nB9VwOYqy4yv0CfhicmZRklsX3ablrYBCUNSGvYC2HrC8WEOB0jgVtTFzuD9
lwje//qyMQkzWxRODmIXOj5wenqYhGNFe5fWYF9q8s37YkWCX5nwYB62id7G
n0J2JCgxkh2Z2N+UM66aOJGg3658wAX7AduuycuFhFLt1Q/2Y0cLL13JOEFC
VVB/ywbstWOR+e88SEgIa+ON43qccYTZOU8Sjhr9E23CftY0t0fGh4Sa0bkn
BdiupR5tTgEkGFYe2nAKOyPYnDcUQcLpwBvvG/B5+UmcszWLIsFe+KdfCvb+
AnpZWQy+38itoWewxz83e4UxSBjY6/NOEBsMDg/IZOD1HzvCN+DzyXTyQWFZ
JBg0BgRN4PP9NYCRNpRDQus9WmcJdsKdFtuyfBIadr7t2YbdI27xxvQhrifX
wyMqOC801/uuL3tEgmz1Tq2eCtxf9JnXZOpIyFkgMkliq/u1oqF6EjjWJ7L+
4Dy69Mnifug7EmaXCopW4zyTzbFML50kIWt0ZnCshELnas5TK6dJuCZ+ti8W
+1kHYRc6R4KIwusD67HPirYvNf1LwqTgPrtjxRSq8raK+irGgp1jCsGV9yh0
RNv63Mp1LKhYFtUgh/O70NLv7ZUNLGAviLuQfRfnpSdrw9dNLJDsDopRxb6T
8W6wZBsLxm0l5tTu4HpdaGNvos8CBTfVNvk83J+bbPSvOLLAt3shp4pLofS+
e8F3nVnAX2H6aQt21pRwacdxFmjvbK6+lUWh/BVVShoeLGBtCT8WdxOfn2Py
An3+eD0teZVhBoX6J4bq9eksqBO74RWcjPebT4/mTbAg41hIzqcbFBqVTN6Z
wsbff/TGxV3Y01omt6dSWfDfwVCBKQ6FhEKLYrJvsyCftoBujfvhRokgU8Gn
LHja037lA+6vGmtar2q+YMFYvsWdNdjbt6nVODWwoHKN6IUzCfj523WrVzSx
AAms/fIrDudBpp6EexcLhG79B/wxOO81RNsaZlgQaFP56h3u97XmKXbxqmzo
8d17yBfPDwdEj2b/UWPDq0bkcgnPF61PZSY9N7MhvP5T+zU8fwzuSI4y28EG
h8TBXtIX59/qG+Xi+9hQEHgoLs0L5/UIexnzGH5/cbiGy0lcn2HMZjabDUOP
nAqLrSgUqGMhK5TMhqDSialoSwrxzfznHpDGhg8Gq1OcLPC84M74Z5vNhr/I
bImAOZ43zOjqK0vYMEIXigZjXH8yCXEpb9mwk9Px8rgeheRKrx/IXMiB6t3f
rwRspJCRkW44TZgDyDjdXlGNQn5941XOYhw42jfCbViP+7u41WbFpRywyDWP
kVqH57uzcsuz5DlgluyQnqxIoQ6V0gGuNgd8Zb0G7JdTiJ7UdTn3HAcCGQF9
+X95iP/y5vuFXRzwAeWC7Fc81Lt41av2zxx4LpXnL9zAQ9Vpgp95/Rx4Enh/
0KOehy486hY2HOHA476zhWrPeOjr71iHzzMceLDH7FfqIx56eXGYX0I8CYrV
Ot2giIfigm5a+OglQf7T1XkheJ6X8pOc3HorCdqnDBq+2vGQf76bdPrtJAjQ
2X2lwYaHPgxUIOGCJJD2JFLvWPFQsoUDo6s0CY4mOCx2N+chOY0czat1SfDx
pUt9kyEPqY7u8HvflQQPVu9Ms9jBQ9ouR3iBkjdgseGyZpWlPORsenNhTegN
4E+KsVjwfB51HPYcqjFJhlSxN/1DSvOovWZyf9WyFAj/VpNx7NwvJLpYLrT6
ewpE2zVbObHmkGfU9ahtlalw7/FiHcuSWSQykO5eTKTBrPHwDm/uDGrx+Lki
xzkdolfopu1KnEbyR//sJddnwAPfwccZHlPIcvlH5Wd8meBiq2DUvuwn2sRq
TQg6lQnkuqCAkZpJxF140634XSbcjv6h3nxyHDmovuZ91bsJJxo3RN1WG0Vq
rsvmOm7dhBc1fBXDvCHEidN0Nl6WBSn8K6fErAbRyrfeGsHBWeC5TTiF71Ev
6qkTrr3VkwWHho2F7Fd+QijX/6G1MRdMlP5wlCpaUGUW/+rHRVyQHxfuuLH0
KYrS2jcdWcIFp8RvOv/qnyCbN5GvD5ZxoY9WPWpz6QmanhEIbqvgQr6V+sbu
oTqkcVC442sNF5xrzTUMqh+jvIlFjMVvueChvzJW8Hk1StJdLnB0hAvbN9UZ
eh8sRadabLrkR7lwMDTw7ZuiErTjJKd0cIwL/efFR5ZIl6D2RGlXr0kuZOp2
9aGvRUhiQKY2bI4Ld/P6SysWFKDo6/JBeQLZoL1L8mXnCS6ylXM29xTKhtkJ
v8T1GllobWnmOk2RbHg4xAlHVCZ61qX4vmpRNtRs2/qBUExDNA3lrU2S2aAh
rZrE8iVQ07MToqQU/jx2X/9TAQZKt8/ps1uRDfc2bhUV2RKPdCPW0vtlsoG5
SzQzKCgCiUmfOpUrmw1+cf39LTsvoU/5uXBWLhskCu8MzIecR3l6w1JbFLJh
/OHHyPeXj6OA96rfZxSzQcmjLer//4f8D8xrebo=
       "]]},
     Annotation[#, "Charting`Private`Tag$24200#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->NCache[{{0, 
      Rational[3, 5000000]}, {0., 113637.6522807839}}, {{0, 6.*^-7}, {0., 
     113637.6522807839}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.85515702067809*^9, 3.855157023732835*^9}, {
   3.855157201866497*^9, 3.855157215343514*^9}, 3.85515911750062*^9, 
   3.8551591582727327`*^9, 3.855159327578169*^9, {3.85515937122189*^9, 
   3.855159429757739*^9}, 3.85515972133422*^9, 3.855159813605558*^9, 
   3.85516001617673*^9, 3.855160067050138*^9, 3.855160338355626*^9},
 CellLabel->
  "Out[1774]=",ExpressionUUID->"144c2010-3d2b-42b2-94f2-4b40b8ed23e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{"q1", ",", "\[Epsilon]", ",", "q", ",", "L"}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "A"}], " ", "L"}], "==", 
      RowBox[{"(", 
       RowBox[{"ep", " ", 
        RowBox[{"q1", "/", 
         RowBox[{"(", 
          RowBox[{"2", 
           SuperscriptBox[
            RowBox[{"(", "L", ")"}], "2"], "\[Epsilon]"}], ")"}]}]}], ")"}]}],
      ",", "A"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.855160112224786*^9, 3.855160139406823*^9}, {
  3.855160170692637*^9, 3.8551602238508463`*^9}, {3.855160281122079*^9, 
  3.85516028933533*^9}},
 CellLabel->
  "In[1762]:=",ExpressionUUID->"8350fae6-841a-4504-9079-9306b634c47e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"A", "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"ep", " ", "q1"}], 
      RowBox[{"2", " ", 
       SuperscriptBox["L", "3"], " ", "\[Epsilon]"}]]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.855160224361574*^9, 3.855160290049645*^9},
 CellLabel->
  "Out[1763]=",ExpressionUUID->"becea20e-9195-407d-bcb8-5799e6541b16"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"A", " ", 
     RowBox[{"(", 
      RowBox[{"y", "-", "L"}], ")"}], "y"}], ",", "y"}], "]"}], "/.", 
  RowBox[{"y", "->", "0"}]}]], "Input",
 CellChangeTimes->{{3.855160259520638*^9, 3.855160261560676*^9}},
 CellLabel->
  "In[1761]:=",ExpressionUUID->"09211e93-5041-4f10-a7a1-408f90e1237e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "A"}], " ", "L"}]], "Output",
 CellChangeTimes->{{3.855160216934461*^9, 3.8551602291376247`*^9}, 
   3.85516026278296*^9},
 CellLabel->
  "Out[1761]=",ExpressionUUID->"49e724fe-5078-4b54-8b2b-cc22951e14d5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Sigma]cs", "=", 
   RowBox[{"2.96", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "8"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Xi]cs", "=", 
   RowBox[{"6.46", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "15"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rccs", "=", "3.72"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]as", "=", 
   RowBox[{"3.99", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "8"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Xi]as", "=", 
   RowBox[{"2.12", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "14"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rcas", "=", "2.84"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"lj", "[", 
      RowBox[{"r", ",", "\[Xi]cs", ",", "\[Sigma]cs", ",", "rccs"}], "]"}], 
     ",", 
     RowBox[{"lj", "[", 
      RowBox[{"r", ",", "\[Xi]as", ",", "\[Sigma]as", ",", "rcas"}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", 
     RowBox[{"0.6", "\[Sigma]cs"}], ",", 
     RowBox[{"rccs", " ", "\[Sigma]cs"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.84417287645754*^9, 3.84417291559243*^9}, 
   3.844182576482697*^9, {3.855086529344222*^9, 3.855086629332246*^9}, {
   3.855086692585722*^9, 3.85508672219801*^9}, {3.855088052649208*^9, 
   3.855088085240243*^9}, {3.8550904876418743`*^9, 3.855090557342506*^9}},
 CellLabel->
  "In[1409]:=",ExpressionUUID->"24eae598-da4c-4b10-87c2-6c7c6b95436c"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVl3k0FN4bxpEWSUkkWqTsSWUvvCRKlK2orLPZBmMMRpbJWmTfZcuMhCQp
S6JeW6EsSVHZUtlKaSEp3/Tz++uezzn3fZ/nfe4995wrSfKydOLh4uJq5ubi
+v8quBR9dyfFDh5SWtJlHnHrTjhyjWi72EGlyqsDz4q4dQXqv6hwnbeDV0Ao
r1jHrWvj3f72UpYdEH5LFfQ9+wdfdjTETHHs4GnL8U2cI/8gtLNazbjUDtw9
xnSf3V+CYtlrsQL1dkAt51mSu/UX5oZZGmlDdqBSMWl1p3wREoxVEjkS9uBp
eox4Q3gBnGcl+Hxl7eFEML13/Z1fALnrIo7us4dFZZn+lWa/YObLOHMa7OHK
A93rCYnzYJZ8xUHNwR7if/2esN31E+QOXXy92tkeaASfwrync8D1wdtywNMe
ui/nvtb1nYMKVZOjISx7mD6oyZvYMQuCr//ufZJrDxnfbhxruPwDpkI/FecU
2sMDFaMpqvYPaJR/JUkrs4cq6fjdJ759B3pQhcimB/Zw/lFgcY7td3i+g/zX
btAe/HwZUh91v0GKU3vnNzEHeJiow+AwPwN1ffXRFkkHsEloOWe/NA369ziN
6fIO0MkKEF+ImoYfa4KqDh1c5jO1MzfZn+BU2d7cyLMOcPCA+iG9ySlQtBLf
fIbgAK2+v22kWVPAu7QqSd7VAeRKG1ZVCE9BldloRLe/A4SoREbnGE2C8GyK
+5ZMB7gby5kTbRmHzzkh45+uOkCXpi/Zz2kcHhl4OD4scgCN7DyFo3zj4Jth
eIpU4wCDmceSFKzGoO/gwqGyPgeoy7HPIP59Dxmh9mv1hB3hdZpE6ceYUXDX
F9tTt80RHg2+rxzXGgU93j4TVWlH6Lh5/JHr0FuYjjoRL6fuCB6rdf9zujUC
eolaghvPOsKvRKcuDc8h2Gzxa38swRGWhA7tkPkwCNNClRYr3Ryh1NRonmw7
CBkZCqm/Axxhw9oVz4osB2A6T2zz+xxHUEjSSQPb19Do2KduV+gI6VMOlnnv
X0GGZPKZ/jJHIA10r+L2eAV619dkPX3oCD/VOlZWR/ZDRtmvrZVvHaGXZe86
2fkS2MOfBJs3EmDbwcDLN+48h1g0kvwnQgAud7+4XKvnwMwvOqAtToD0nevF
ty72gAmRZFmziwB6IfldbOMemB97k1qqQoB/K2IWtee7YPSxRuGkBgF01r8a
CbDqgo6i9CopbQIo5VKN3O91AtvVou+qAQFCSkyOQkQHmHxu35xqRQD3+oAy
74NPQL1LRrbnHAHurW/YtuNWO+wsj9QQcCDAo2cqIvK722HeS+9slDMBwibr
FpU3twF79l5WkD8BiE2zdmtFH8P8n6JtlCwCBN8vezkZ1AS7+KTI8XkEeEOq
PSG2qQlMRTk3ajgEgAs64/xljVCkkqPOV0qA52yJvH2tDWDlkWheXkeAt/O7
7gg+fQChgesyXyEBCnQ/FfwTegBl0ZeHuVoIYBaWu4nXsR54r0dQT3UQoDIz
RXErVx1UDftHLgwSQMsmNX+v0z0YnZ57KjlKgFd7EumMxzWw7o/3RpMxAril
fjrrKVcD5M0eV/M+E+BBq6blufkqEDIj1Or/Xc7rAP+PkYq74N1o9DluBxH6
2o7nlu67Bbndj5VrdhHhQuI84ZROGbQP6Qe8lSHCL52j9XvNbsLO39qrlPcR
4a3T9+0qITeg58CBna90iTDr3CBbub4I/tMtd+YyIMI1mqCimPZ1kDPdc0ve
iAj3125n7fMshBCq9KFgcyI4yr1VPDBQAErXxE5LEokQeHxk/UR9Ptjcycg2
diKC2yDOR5lehUsNm975uBFBvNBTvHgyF0YGBWit3kTIGVPrmlXMhnhhnmj3
cCKcVYjj/cuVDp8vfqqvvkaEYe+9Lck+UVCX/N4ts5gIEfe/Tr/yuwjReQOi
ATeJkFQT/nYoNAKkq5/6aFcSIVP88m9tYgg4jJXuaWkmwndWY+/PCToofit4
U9hKhJa8pc+1o1T4s5gddekpEerl587GC1Egc1Psh+O9RKBbPmztMTSBHn33
nJ53RAjVyyEZm5Pwqin5+N1xIkwlSjS8tHBFDxvbX6kfiRD9Y0p6UIOGfAyT
U2e+E6Hxjn14yBtf1Ofs4R/hIoGYnAKNWBuC1f+mA6clSBD3dEorP/MyRvKP
yXXtJkHy7hPhzOoYtBQd6i+XJUFJP/PQRFcszih1KjP2kYD7dEzHu5l4lHMo
+7QAJKiujpLH30k471Z4ZUCfBDvWXt8q45uMj/xyjz44SgKJV9eOyH9ORmJ8
XEGIKQm27UhcLdOXgtkPPGxWOZDAX2h/7WxsGrq2U9ZMEUlwg//Ojf1zaaj+
0q7miRMJpFdyhM1s0vHF9AmheE8S5FqIiFnszMB1W/c+3cQiAfPw2SyjtEwc
kJE+/zOUBCsDPs3QP2diifJ2mVeRJFBt2Kd/X/8KGhoLhGfHkeDpCtM1bR+v
4IWALwclc0kwavDGKG9XNnZsPFlvzSZBQwexspqRjVtKy7TjCklAt1Z6PNiY
jXcH3HV/lZEgXiNp1PtMDo5rfTLoekiCtcH6w9dpuaj88ngrTzMJXgbZnl1X
kYsXPG4c02wlQX9Ap1bD11zckudqfK2bBC4FiadkqXl4YmnCLOAtCSbH/+1s
NbmKWRlHn5d/IEFSAayzDr2KE0pFlmOTJDjlo1PhVnkVQx2drMy+Lee5qbRN
TSQfu3496o+cI8HS+5KuP0fyUTxJ6mzdAgkoC9Z37bzzsbLxg400NxkODzbv
2dCej1znjgzZrCRD6mHnBPfv+Xjie4F9Eh8Z7FR2qeM6Nk5IkgiLG8mgkxwl
/lGZjeIRo07Pd5EhUnrNzVl/Nrps1ZtcJUuGJwut7Y1RbKyqzHfV3kOGvGdf
OX8z2Gg65uBerEIGtxpzVk8lG3OC8fOQBhmUlDeQ3JvYOCW8gyakTQaV+tS2
kG42hhkO01kGZAg3fea1Y5KN3cPaP+4akSEgJdPo1o9lfWauz9QJMixlpXTj
32W9IlvmKSsyDA5cLmUIcZBbt/5X9DkybKlsNRXbxkHTV+IBaE+GIOW/2ibS
HJxaPRAk70wGabk96ufUOajGPvjXgUqGXfZfTA4CB8M1sy6k0ciwjT+0qcyQ
g896Fv49YZAhzkkruvoEB7e5nQ37x1z2a3vzstUpDrpx1/KoBZEhIqC8OOEc
B2uyRCOpIWRYsEx7QHLkoPnT/kt9UWQIua604YMbB/NI6mv448hQfax5KIXG
wU9/0i/rJZGh+/z+pjEGBzVSf65lppHh+plqxgCTg5F7rOJuXiHD35xStl8g
B5+3VAm8yyVDU3vB7D0WB3fYCSdu5izn/S1C4FooB6lzPoInri/3W19wWTOC
g/fiXiSH3SDDxM/X/wVc5GDRrvJAr1tkEKgVzzKO4mBGbTTZ/s6y3qp/KS+j
OXjRlHzCpHq5f+9WabEYDvqO6agdvE+GC+7OF8ViOUgJ3LJD9uGy3iWD8f5l
PiU4u0qkiQy2fHnelnEc1C/q+srzmAxHUqYs45dZWbvk9bd2Mmx/fPhW9DJL
9oY3jXSSof+cH9twmQVd7Us7e8jg/HWj0ePlflxLGql1L8ngfc2/fs0yf00V
Ci55TYZKr0mBjct+RuS/UDKGyDB9MsX07bLf7oa2k5GjZLDZXRLtuzzPQ6sC
dcYYGcJ8nVueL89bNh0sQZgig+h7GZ6F5Txyw86sMf1MhhdengZTYRyMFVX+
rvWNDKoZ8xevhXAw8Na6Afk5MtRLPEaF5XypRyabRRfIkNW778OF5fzPvWm6
ufI/MnhNznxg+3PQyCs3bfYfGSRN5cuTfTkom2Ph/Gw1BfaW7Nb/4MnBzQcU
zR7yUyC049lLQyoHV7Wt0ry5gQKnXk01BzpzcOxHPV+UKAXU2I47HB04WGAs
cwtkKSA6U7FFfvm+JY9yZSjuocBcTP6Y2jEOhjIHL4jvo4DUDf/UrfocdCxI
Mp9Xp0C8GOear8by/fzzZ/bWUQrkbVx1gLGTg+uS+oZyjCmwKsa100acg4vS
FY8vm1KgSL5YeJcwBwcsnDKdrCnQ3bZkZ7aag5k3nh3a7kwBvB2+WeMzGy/p
lu7mp1LgDGPMV3acjcy+yHW/PSkwKC3FWRxm42nuQyMv/Sigsa/kscUzNgqd
KwyLu0iBsNEWr8cVbIxbE9C+WEiBKD+BYgMvNj7oYEz2lVDA8N2s3KgzG78k
eKyqKKOARO1wu6vD8nshQjCgVC3XC3RIHTnJRsFdxxo7WyhAEmDpyCmwMU1L
pDbvPQWMZgzI25rzMZd2p1h3pxP8av6UkRN7FctefrwUkeMENXwqf8/M56BP
o44EV7EzeF3SSeYjZ+AjAfGAiVJnsL82csvCLAM32873dpY7Qyhv/lChVgbW
/Sy/lFXjDMJ/Bx95CGcg156dM8qtzhAWNfg9sjUd49J5HjqNO4PaNs2yCcV0
LKS22XTsdgHBUP2wVzxp2C9skZHBdoG2wpeTvn3JWDST1tJT6ALWT99HhLYk
I7P99be1N1ygYuRfQ86dZNwcTDAJueMCUV4motwJyXjmgxeXa7MLXBMzUow6
loyv7yRQD465gC2NGhDyMAkHTTthSNYVPjyA6k3URCyTE/TYrOgKBVULLnzG
iRjMczrLfL8rtJjqBmxXSMRtNYOzjzRdwcFVJZL9KQHttk+X3DruCkprjFoF
PRNwZJpvU4i7KwhIbQ2P94/H0ehjk5K3XaFQV2siuiAWvyeWGhtVuoIR2j6+
cykWeTIFymn3XEG9w+z3T2osSl9/4Vvf4Ao7q4y39KjEIrXJkceqxxWkX2Rr
PmmNwZ+//bdHf3eFfwPdb/H7ZVzrXnJqRsUNOqVuOyvbRuNWBv89YU03KNZq
SePoR6NiAE1cS9sNamReVMorRKNZlOq7KAM3SBvg+Eb+jsK0a400SSs3qIpz
6SJmRaHE0OvLp5luwLpmolA6fAlVT/I11tW6AfNN15EP/hdxymIyJuuBG5wT
azN6SL6IudaPrc43ukHde5OOUrOLuIIQNq3W7gYPfm1e3Sh7EXsZvzffeeUG
xET5+OevI5F+5aNn8bwbyF/bGhgOkVj24cnWNFUqBMKLnzdEI5AwVTzB0KTC
O5sNAi9XRqDwl4t3LLSpYPhYIGfDXDgGzR8+tsGACuyXXEN1PeFozFfHiDlF
hSELac3RmHCcUip9EsqgQnF6/vWzPOEoHRjj71lBhbkoJKf9DcWz/D0i7Coq
dDnrUgI/h2JMrkhVby0VosffljEGQ3EG2d80mqiQtEapI+t+KNauuOfG00uF
3k1l+xqZoWgS/8E2c5YKfhGjLXVTIejN1tZrUneHL86KktULLCw8ED4ye8gd
OvqTNToHWNjf3BYso+sOXuL19isesvDQuOX92GPuEKeH5s/DWMir4KZsfdYd
qlxubp1ax8LMynSp6QB3CBZSmv8gF4wPW2fWiDx0h2m64vH9/oGYYnV7PVeT
OxyJvhDe6hCIzmNewtOP3MEorETK72ggCvJ8l2jqdIclXhO9rZsDkaIzq+45
5A4Jaut3R9cE4NqqX5THi+6wNui5+bPF83iGw9Xkd8gDhoVfXPHM9EfF/U2t
BPCAgj0bgt6H+SNXQ1inib4HWB2Z6fPw8MfSIZ7XksYe8H5CMa/psD8uia78
2nXOA3I2uPK7fWFiYQLfdpkAD8hbkA3INWLi9yChgP57HiClzqTwrPdDg8xD
liIPPOBelMeC829fvHKXtOd0owfosIdvvxvzRfh4d/h5uwdUCt6WFnvgi3HW
p/S73njAfBUpMN7dF+UOpPE/WvQArw23LjO7fdBhQuTqHV1PyGjTLrh+jYF3
ucH/2xFPOFo8RmInM3DldmfzfUae0GWWbVcewsCyUzU8t8w9YcrOr3CFHQP/
NFq7lBA9IXt2m2KyCAPTczL350d4wsWphWzpOG/sNBdriWvzhJvcng8KL9GR
kEXovdfhCZO8L+tk/en4813xu/fPPEH7ya5ndS503OGjznXwtSesiT3wQ/A4
Henpp3TGpzyh2StcJWgdHUUG4u/prKWB0efMYbqiFzqQecpmTtBA8v1u+UY3
T/xx83i9mAUNOn6fol829cSouaSnBlY0EN0tWEtT8cSKixIfs+1poKRL7or7
64ErSrRljtFoIO+WVbUp1QNLPjPZ+YnL+z0rNii3uON3v+k0814a1OXq3B1T
p6Lcg1v8qv00eMHD4k7cSUUCDz1cdIAG61KUYk3XUrE7Yc5r5B0Ntjy9N79u
xA1Li/8ae3ynwW2UfB55yQ1JbzZwRwt6gWKJ49zJQVfs1Vb1bDD1gsbr0UnV
qS7IFzH/ocDSC4hKFnkjIS6o96TW5pK1FxyzYluJe7hguZWO0UkHL7h3NSH4
iYELxtCO7h709IJa1pEU3l/OqM8++2Y+zguy6qtThx2csXIFy1Cpwwsqflwv
ztVyQtf+okSnZ14gbxYkECznhDtu9LzJfeEFvI8fNtNEnDDGVIrGP7TsRzSr
Nf4rZfm8OjKmPnvBn+c+E7cLKXhJVMDXYjUd3EUSPBhCFFS5ZfuYX54OmRtL
0ymLJIx/veAS6kGHBffgixNLBKzT69A7T6ND82vBmL/fCDhRkidGp9Nhwxuy
veQHAkKAfoejLx2OPIvVTmwj4IxYnJJuMB3GMwb8eJIJaGor8fNvLB1uRKg9
0ZIh4PoRw/Cgm3TYJj5VZlTpgIkfUnKZn+gQcIWPltpii3bvfZMon+nQEBbf
NHTLFuXeWUdaztAhOl1e5+AVW2weEfdQ+kEHtN1P2uNpi3NvCrQmftPhNoni
8EPUFs/13B2w4vMGFdP7aot0G9z9sHeLmpw3XOdOmgzefw7vZQilzzp5wx23
7w+uvrPGZtsSBr+rN3gKp8VXdFtj904w3031hhqbNKGX9dY4UerGf4rmDSuO
+X8zy7DGzQ2NYXeZy/V9zf+2nLBG5iSN5h3lDWeOM7pH66xQVbPj2NcSb9hh
66zXXXga776J+PNp2hsEWbu704ssMXH7K/63X7yhcU2WQPIVS/QgKmx/8dUb
9r7k1r4SY4kyH3t062eX/V7J13xKs8Sche0XYxe9gT9D5Xy9hiVGitZuUORn
wPAeO68nHRZobfVZylOBAaYxmwOM/jPHxZ7TZl9dGeD+rA/htyluGbQ1FnBn
gCb3uoSCUVNUHScZ7vFkwI5s2Zht7abo8Zuu5eLNgJ3JhyssM01xRDJe9m0A
A3iEb5s8VjfFZsbjf90xDFAM1+yoCDiJMcLqFeVlDDBjxgus33ACt5wV3Uj7
xgC6oEd+is9x7FvYKxv+gwFv+VQWtAnHMSXLQCdjjgGSe04s/TpxHNcNervh
AgPKr7r05sscRy6Hzqb13D5wjJ06XDVghFPkMMbtjT6QyH2tZ8LQCO97Tb/4
puwD3AmH//2TPYY2UQ0ZPn4+UKDebjQlaohTRamjZH8fCLDTIljzGSKz1UXh
dIAPvHk5OvnsjwGmrhREVZYPnLxQIzE+bICdEYTxn5E+cO2Z+dbMQgOEUG7V
82k+oB7Mui2oaoC7Ao48D670gedh89mitkfwE7WN/9J3H3BR2NkX1HYYa83N
dNmzPsC+oDgWUHcYL6q/YtT99IH3xK2t4bcO406eyTczv33AWc99oCr1MFpn
rSo5w+MLOTuy92YRDmNLm6GB/CZf4DqfOn7uPz3MlXoU3KnqCxy9sMHzWnpo
OtL4Rei8L5D/S5qjlungF/1VVnyBvpDY5G1edEUH44pNHvwL8oWmf843vkXq
4BN6f8znEF8oH2iRuGuvgwYrPsu2RvlCvZD5w4kNOnhITpQUkOkLwSonB/j9
tVGW4dn/tmaZJVZMfjPTQq5V4g1lP33huTOvQaH8QdTj9jqc9WuZHe+4pIkd
xJD/Wlou/vYFPxUdzSS+g7j0w7Pd4a8vNJxbvF/6URMX3zY9F1zpB/r1yprU
Uk2cv+825ivsB1we2/9bq6SJnz3v8+mo+IHXmTjVNB0NfNV39nQX3Q+23M+4
/iFIDa0ziY0fGH5wdGtyiJWnGr48S1X84+sHvzku6b0Oatg7GMQrG+AHaw8M
npw5rIad765WhYb5AemB7ljpGjVs/jImrJriByGnl87sv6KKZSu9+7Ir/UCK
1ly9p0EFw9UuW7vO+4FbNs/gHwVl7PUzm7dZ8IMaOWZRs4Qy7qoRyTj5xw/+
SjidSRFWxmb1gj7lJT9ocXpufnzpAHJr1p/+u5IJbZ/654R7D2DooS+WKSJM
UKqsL90edAAv6FqYPVBlwuUfJ+U7evdj0HExI0EfJmz5pHSuUmkfrjVPfa7o
xwSJ/sbthuL7MNtawPa4PxMOh36Rmli5D2vJ3LTwICbQqle2Ww0r4RzrY+pc
BBPs9p1Y+hinhLS799++TmOC/Hm1Q4Mze5G41cafU8ME78qR+tiHinjsS3aR
8h8maEendVyNUMASRi95z39MeLgjeF+LjwKuWeCTlFpiwlKtKuUHWQHbeQJy
RHj8gVi9WsLbQAGNt5xJWuDzh2e1+nMzKxXQ9MimQBTzhxPHdvCOx8jj6azY
k8YH/UFil9jpiFw5JBoGzxHP+8OjYdV774dkkGN4ZNWWOX/QP/fOIfDlbqzq
W4w0CjwPgSKLw+LrJFFEXHj24q/zcDNNk0vqznY0ntnerRMSALet28K3XBNb
/u8IeAbzBsKU4AWbFP3NeCLHbrEtNBD4Nv4rzk3chO22efPxq4OgWzzkq8q6
jZjSo/OOcDEInlLXafNsWI9hX1oS67iC4eTKjnve+WvRIFvrZsKlYFidu7mX
SlmNVotCNV4rWJC9Rkj2VisvlrsetsxbyQK9NknHtnpeXNXvNfN0NQuKJ0/u
mKrgxZqKThmZdSxYOkbdqZPDi1ucL2UOCbPg4w2f+6p0Xhzo+X3+uMxyvbu7
v/VWXnQoGtXafZwFbdktCUeZK7Bm04bX5iYsGBWtpsh7rMD1YTq+F06yIN3Q
WEuItAIbbLPL3liwQC3YYeDnyRW4c+Pp7Uk2LJCz7KDzyqzAD0FtS/+5s+BS
ika81ise1P74M1uBxgKLbovU4C4eTLOW0jhLZ0HOJXvblhYeNDgQ5lXpy4Kb
Vty7SBU8WDRxaNSNxQI3EQmJscs8uHTKLTgzhAWSvNZPLUN50Lopc8vjMBaU
rtAQa2Py4OrcOfOdl1hQrbEmtZHMgwS+3V9ORrOA+CSqxtCGB2uZFpeDYljw
QrKH1mPOg4JjIdI34liQ2bSvlnCMB10typv6E1hw4+2vhHkdHvwf2V2pLw==

       "]]},
     Annotation[#, "Charting`Private`Tag$19124#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVV3k41F0bRiq0iYhKVCi0SJKoR5asJYQWr6hm/U0YY8Y+RSGJpNeSLKWy
hKwzRHlkKQktokIviVBC1rKkb76/znVfz3mW+77uc851NpzxsCOLCAkJHRIW
Evr/Wg+b5esNSVBBqolTrRU2WDczM/7QlAQqp+qP0bjCBgkPXuspUEhQFhMR
ZZ/zF8IMsjctIUhwr+yYSrvpX/BuDVk67UaC9t/OUhE982AvrNfZwiHBwZ+R
vSeV5kHqxP3gyFASXAjdc9M1cw4ixfxezN4nQZpVvozSwDQ8aWD1t2aRoOXG
xRTn+GkYunZuUUEuCehFfhfDD06DtYyrCYlHghdupy8nZfwGyY1mTxtrSLBK
8oXhOa9fEKsv8yjlCwn8LjQGB+2ehNr55R98+kiQ/fNu6KnRCZisEpuy/U6C
Lb0+wiJ5E+BoPrdr0RgJltda0a6rTYCcQ0++uzAZ9IsMU6LUxiHZvTDTQIkM
t48kbtW2GoXGnTnP5ZXJ4FiTL05IjcKfiftfxzeTIYqZfNak/SecCri5KWsH
GWKzT27oYvwEpfALtyUNyGDwzx3hia0jcD/tcEK3MxnUmvJ2BK/4AS0ks5LH
p8lwnPlkb2vBICzcYtgaRyaD+YLqFP2jg0DJ05a2dCPD6OMR5V1J32HL47XR
RYFkePqifYHfnm+Q2/It7FISGSK9laAjtQ+clK38Cm+TQWzZ0iQriz6QYOcy
uu6RYXbC9UT9xFegSXvY6OcK4hPvx7qsv4KK3YT8+BMybOWqZCit6IXU1/O5
ZzrJcLDv4zfzim44rOh6+/oXgR4DZ7Yp+HTDnHtVDPaRQcZfcvPrnd1wcnmI
95oRMihMeN2oevAZVh8WP9D8lwy61ce/bzfrgusvpd8ZbqCAevpHwxK/DjBY
w3nmoUKB6gPK2qWLOmCY/r40RY0CbsGXfVXi2uGQeGLy9E4KjF964adb0gbi
5usphUYU6E/K738q9hEuPtsyrUSiQE7DvqSXgy2wUyZi0JpGgTXKDcb5US3w
mTT4X+A5CgiJPdhcpdkCIJpX/ZFNgdTQe8an/N/BjNGuyOuhFNgn9PrB2rXN
4PV0v6JQJgUUV4StJhRfQ+2yNX592RSIfDqW2RP9CmSdppob8yjAEcs5vVzk
FZRP5oUlllAg+VWHLGmwEYQ0lIa1nlOgKVd0IvLtS4iME6kgf6UAQ9bneE//
c+j80il76BsFyhY+OG3p+Rx2aD5mag1RIChwy721c8+g+aWX8t8JCuRPNNX8
kHkGckJfr94UpcL6hvacjhM1cJ+oO9mwiQrORaK5aYpPYar0Hq9wMxV0lQqr
awIqwWxh0PKbGlTQ4Kaq3S1H+H5bt5q0iwpf0p8rnDKoAM3WB2rzRlR4Mvx6
/VpSOVQYRP7WPEOF6Rcb3dVk+LA8ima3mkKF6hjyjatsHri2m+T+oVNhS4Z3
4UBrMYhy/ri89KTCXtprNje1CCyz3evOBlOh1fporI9pAbxfZRsff4cKJa87
XLe0Z0LGcGzNm/tUCNz24NWpigzwfvHxp8QDKsAB6UV+99NBNtDV6kIhFWLH
1Farnb8Hx3o8hGjVVNj8n4ri2Sep8LHwGrG3lwpOl/pFYtZFQ9bV5gSvASpk
L327VSnqKviSZZ89/EGF/iuJJ4IlwkFePlVx46Qg3/ilwjqNYDgZ9LBFYhEN
qkSZBSOzLtBh3QifNtPgSbjJIUONEMzdInlOdisN9otENK39G4aBIvaJNpo0
kKiKJFFfXMF1JR3jtbo0WNnNk27Rj8Z/FAazHlrQoLbv3Q9sicWtv7a/7z9M
gyPNS+R2yMbj3BvWgo12NNBcoqDeapeAKSEzzvEnaVCXu1N/viIROwfFpS8w
aHB6sOj7cedUzHt2+ECZBw2MhKOoy/1v4/nbMW7jXjSQHxr+utviDq4/Kv+C
GkiDJOciaXWnNHQp38K1iaLBl+HQIhXKPfwcbta/IZ8GE7qPKYMKmTganW1p
XkyD1fGzey9FZKJIwrI891IanKXU+J+ZzESV9Hfsx5U0iOSynZc+z0KiykXE
4Q0Nsg8mjKcczcbAF9XkgBYaPB9fMCJcnI1Rr1Xq0z4K6oP3n1bJHCz4bzB6
+DMNlk1JXOuuy8HJaR+F8FEaZLlqLpJQfoiLhDuC8iZp8Ka8+DLL5yHKiUFv
yzQNdP6cUGPWP0Q9WdGcDSJ0CN8Xa7+PnodBWtd1H0vR4fOyqF3Xb+ajBCPr
6PAuOjxo+e7T+akA17KWlK7SpUNmh0/j7rkC3OrnvkZ/Hx2y11+b+bWmEI9c
1u6+bEKHtvSgrbWOhRh776n7Bgc6dOWn4MO6QszI3tRsdoIOnIm5T1FfCrG0
MGy3uzMdSrdt6uqbK8T2ykNz5WQ6lKwM3CWhWYSKnz5esfemw59XBdeMrxeh
Zo/+kL8/HaS+3XSVyyxCo++pNmnn6TCik9/DqihC0m/S6uEwOhy/pr+0cqAI
s1eN3r+cQAdyZPex//YW4+O19mJ5SXRY/FbTRPxwMTZuLGW03KaDe4zptecu
xTiiydXakEUHVcvJqplLxah9WPxp+SM6LGzI9vSoK8YB2/6IxCd0iHl0t2j/
+2JMdnzm4PuUDsdOkr7xeotxgWvw4O4XdFihVnbkrhAPm1nTsoUf6FC8bL9Y
nDYPw3w+dEd30KHOZ8uqugM81Avk57p30UFjjPbnwSEepoV6Gm3tp4PxkLBa
2FkeMm9+c8ucEvDZ5pZSGMVD5ZQ63bAZOqwZPugSksDDj2npC8jzdDA4tMlg
RRoPDXJOJ25cRMCPx/jSppiHY/kGJGEJAuSXXFQTf8LDDJ7Cjs/LCHCG00u5
tTxcjm21KTIECG9fm3OrhYfV1aXRgfKE4H28v9j0Ew+96+JOOikQINdQrFbQ
w8P/3tj+lFMh4I22W3/NKA9ze+rXxmoTkBen8XNego+uA5l9LF0CxmfNdpRI
8nHVUGih7T4COvVqrbVk+RgwZWi2woSA87skZQKV+Lh9VlFq2IwAr6Ui6lYq
fPzy98+nRisCuh/fne1W46OleDkr4igB0qqNSXQtPs4vu7mffoyA9WV/Xzjp
8LFIylvM3IkAloIRU06Pj5TV9u9UXQio7963785+Psqv00pdeJaAO4drW8cP
8LFRSZLeSyEg0OFTj7QJH4NUhnfVEATMBlUsETbj48D27PogFgGOlt3aBw/x
MXlXeKyLNwERu+t8Uqz5aKNLcQF/Au5aPz/2zIaPovtN1BXOE2CVTfassONj
qeHGydlgAk4c4LqE2fORMBV62h5KQJe33mMlRz6ut+qMKLtCAPeO8rqoY3xs
PvLE4WYUAZHuG+Qaj/MxzP6Wkk8MAV8c/Yw7T/BR74TvoEMcAc+GOjRrT/Jx
2NmxRDuRAN4ukud5Jz7ePaMdLJ1CAPVDcuyyf/joSJU6NHaHAIVzIVtYAixx
7qfs2/sEJMXGlOUKMDJfdednEWC7sbS5QoBZnNzca7kEpKjR/qQLsIp/hI9b
AQHhEslVZAE+vuSNzB0eAb7qbYvGBf0ikmV4zY8IaPr37DI7AX6yzcluYYVA
//TBwEv/nw/v/NxTRcCOEfXZy4L5lWz6rhHPBPmD3zRcBfyOdmtsS6kngJm1
sHCpgH8Yy7PhdZOArwtH/ZoDHx8tKKWLNBMwNH9E5+tRPn6PnVu8+z0Be1Le
MqUE+iqoGmVQ2wl43ePKlhXob1N62eRWJwEcUmzb6GE+XjRv+tL4RcD38549
6VZ85LVJBf/tI2BfsO3GnRZ87COOK2oNEvBnXnV7vCkfraJ6nBLGBXq99P0x
JPDH+fVqM/W/CDg2NPikW+Cfgnz3m3OzBPwOkvpeIPDXqubpltOiDFgTIxXS
s4uPpmcNvGLFGPDscIawuSYf/SZCVtYtZUCbB+PPla187JSVtN4qwwDqgP+F
LGU+SmY5/DglzwBn/XbxMIH/jfcmRcQoMGBmPGWN8To+Zjmp1k2pMKBSs+q5
szQfPe/sO1Clw4AMfkv5RiE+3t95sXNcjwFHk85OiM/y8H11XaCqAQOaBuy4
LZOC++SrXdlVMwaYPvhlKjPIQ1F1upbjcQZcLKSN2grOd0JxnPKgHwP+nO9S
lLnLw5cmHdUK5xlANu/fS0ri4Vyr0mmbiwzwtVTVTonloevvnBR+BANCbs8Y
vQrjofr+atmgJMH+FSOdOgQPK54Pi8lUMMCi/7OaxzYe3nDIXy5UxQDHsBHe
MlUeUno9Vg3WMuCUXXpuynoeSoqMKlY1MqBc2qbrxgoekvaP67h9YoDM72ey
bT+LUYL3i/RslgGk6pV8scJiPJYmVMXROwdfbxwVY6kV42iAlN/70nMwtuq6
YYBoETbayNdE1rnBV/cz3erv8nCUMxhr0+wOci5fX/+efIDFC7gHtzd4QJxu
dJPkj3SM+vibGnSOCWrJi3XN1e5i+YGGA77uTCi8VnuAue4u9mWlyDOZTEjb
+6H/zoq7CH5GDS5sJiwOdBVdN5WGw/KR2w0CmVD7Wk3BryYNrZ0UJ/9cZcJ5
xquBBpc0XN558GJADhNOmBuFPk69g9E9N5K9vzMheKSytIueiv98YV8n/WCC
0vHl/CL7VNzS7RhiN8yEjdsUvWINUrG6c8257WNMyL//dWWITCpOtN3V75tm
gr50z6xUdQqeeFPU7iDuCS/5mpcHFFJwU0Wz3O4tnvCw+7Km3uckLI2Xihsn
e4Lo9WhqYVQiVjtlsZbQPEEscw2b7Z+Ir5TAZhPhCfIjEQGm1ETsy6YvOeru
CZZTH2xXGyaibOXT4CJvT1hbXjZLTN5E7353d8/LnrCgzcr8retN1NZtMBvJ
8gQw1aHYGSVgUdulme+DnqAVFqc8tS0OoxU+LOka8gThVzqWOopxeO60usK7
EU84vSjONlgyDlW/vTF4PO4JCgnNfXvGYzHpt0Lo1VlPSLFUclAti8WQ1Y9W
bF3CgqS1e5OEzWLR0eGHsps6CxjpmS5c4l+cfWN/ZITGgvL0mraxVzEo1+Fk
uYzBAn+xwMpswddH++uZgxpuLNj1bp+1Gy8Gz00z9ameLJi3zjGRuhWDnRui
Nnf5sQBvQGY7OQarWc/+vopggapS/lfnv9cxYpVOQV4uC2YldYIn9l5HueOr
V7r/ZIGG0H9phxKisPX3ts0Xx1gQGb3l9VRwFN5INNkfP8ECyiazysJzUbi0
w5OOv1kwtqOh8IRRFAqdaqxaLuwFzQVIYQ5H4sDZYFb+Si+4yWZQH1pEYpnH
4LufWl6gVW8cLLH0Kp68XBnvxfGCWIm9d+IrwnEg49/PZ328QM+v87rew3D0
fk5Vt/fzgvE8R8r35HD8d6EkanO94AObmeQWGI6Nl1y/ToZ4wVhAwk7hfeEI
QcLavrFeQBya3O9QcRk3+hm/DSz2guQ9zoVeL8LwO1G3JGzUCzS+X6/hz4fg
I5sjBnfGvWAmprRtYCQEQ3U+sMonvUDiXGLA5u4QVBLpbxue9gJ5b/19dTUh
6Ji4KOuYCBvKT3pkRF8JwZq6gyZq0myoNVXp1V8dgsnKtYGN2mz4S6mtq9K7
hNadT4ekfNng6Xi+MfFOMA4ZLXIQ92dD01ktD924YIzMtHryN4ANRvcboOtK
MNYz30f8uMAGl3HC6qBXMJos+LH5+WU2vNVPI1imwai3ZfUZvwQ26FjZHrUa
DsLNLLf3XSVssGw85tpkHIRCi9ZU5k4K6n0Qr0sWP48HhD0ME3+xYSYoemBs
iosX5mpqQqfZsFi0f96hl4vzY24vTv1hQ/wGyR6jSi7OdlW9lVzIATMFWf8S
Dhenyui97FUcqMtZd3GuNxB/uJWJ79/FAVLWVr/qxgD80HrcvonJAZ6bEduw
0g8dE04/7WFxYGa0fFInzw9bjhNbZ9gcKHdIXLs3xQ+bOwJEN/txIN09XeNs
gB82dqfygoI58I9z0YHDun5YPdS7SvsGB1xvpvoyeb6Yu9Cz9VYxBx7fKsjO
4/vgxd1XHGlTHLhf/XNeqJ2DzZwjUyd/c+CMxm3JukYObiyRiT88wwHbGeWN
8ZUcrNa526o1z4HYf7+oHUnnoLDuY/s/C73BZTZ45VZPDgbpDdndkPGGgGg/
7lUJDp43sD3yRNsb1p0KeVRszMYAC3lzSS9vaAsPCLV9xUKzoVsZWjPekJwh
3OEgxsTTBwMnTvv6QLKUjuwKPgPTDhovkpvwAWunWzcWStOQ1zobYu7vC3NY
GzZcTkKZNavGQ3/5wom7ay2bpM+g5bDCq/0X/EDVImU6wdAF7xPL3AJF/SGv
Krftp7oTHkr6Z7YuyB+MK7/hQO8xfOGUMhW1OAAmJVRi7D7Y4403+7tdQwPA
5FOeU/0ZOwweqokuFwqEi0OrtXda2aDJLf2ca2GB8KmeXKKQcQgdZqVKPBZw
waRwX3Yr2wLzaIZ2KQu5kF5n+P4y1QIXvfcYfrmYC2U7jwwbnrTAkoJGVdWl
XKBtIzU1GVigHCUs4dMqLoQf8OUZL7HA9jfTvhaqXPA4OXLr3j1zPJXxWX+T
BRdKdstpS7abYYn0io82Vlzo9Zcc5jeZ4fLg/ezzh7nwN99y7EyVGVY63cpt
s+VCje+B581ZZqi00l7h+kkuGM/Jyor7mmFPQN38HIMLYQ0imo2rzXDft8lb
6u5ciNhkdbR3iRnGOirvOc7kwgZRR84CITM02RnsUczmwvoflvccB0wxo0/v
M53Lhd17YlRtykxx/ig9MOECFzLWllTefmiKjlUJcs+CufBh86ZdU2mmuDh5
wkYpjAuheh/iSyNM0VV809DhcC5Ya2w+v/GCKT7ytr0SEMGFY9Jvt8V6maJk
7wWVB5FcGA05nbaUZoo027yq99cE/A/RWq7+Y4r/A5xuO8c=
       "]]},
     Annotation[#, "Charting`Private`Tag$19124#2"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{1.7759999999999998`*^-8, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{1.7759999999999998`*^-8, 
   1.1011200000000001`*^-7}, {-1.2732906026093622`*^-6, 
   0.000033886363526477896`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8550880672305517`*^9, 3.8550880854556637`*^9}, {
   3.8550905418921328`*^9, 3.855090560805344*^9}, 3.855090820010639*^9},
 CellLabel->
  "Out[1415]=",ExpressionUUID->"57d956d9-95ac-40d6-b955-8b66b8976ab8"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"lattice", " ", "=", " ", 
   RowBox[{
    RowBox[{"Import", "[", "\"\<~/bottomWall.dat\>\"", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"2", ";;", 
      RowBox[{"-", "1"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NL", "=", 
   RowBox[{"Length", "[", "lattice", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8550867582187634`*^9, 3.85508683306031*^9}, 
   3.8550869103933687`*^9, {3.855087370458099*^9, 3.855087384673457*^9}, 
   3.8550904816252613`*^9},
 CellLabel->
  "In[1354]:=",ExpressionUUID->"301f5b50-ed4d-44d9-b44d-85ba85167b66"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NN", "=", "200"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NP", "=", "250"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ydiv", "=", 
   RowBox[{"rccs", " ", 
    RowBox[{"\[Sigma]cs", "/", "NP"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"potTabCS", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "<=", "NP"}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"yp", "=", 
      RowBox[{"i", "*", "ydiv"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"potTot", "=", "0"}], ";", "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"j", "=", "1"}], ",", 
       RowBox[{"j", "<=", "NN"}], ",", 
       RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"xp", "=", 
         RowBox[{
          RowBox[{"RandomReal", "[", "]"}], "*", "L"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"zp", "=", 
         RowBox[{
          RowBox[{"RandomReal", "[", "]"}], "*", "L"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"pot", "=", "0"}], ";", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"k", "=", "1"}], ",", 
          RowBox[{"k", "<=", "NL"}], ",", 
          RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"rp", "=", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"lattice", "[", 
                   RowBox[{"[", 
                    RowBox[{"k", ",", "1"}], "]"}], "]"}], "-", "xp"}], ")"}],
                 "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"lattice", "[", 
                   RowBox[{"[", 
                    RowBox[{"k", ",", "2"}], "]"}], "]"}], "-", "yp"}], ")"}],
                 "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"lattice", "[", 
                   RowBox[{"[", 
                    RowBox[{"k", ",", "3"}], "]"}], "]"}], "-", "zp"}], ")"}],
                 "2"]}], ")"}], 
             RowBox[{"1", "/", "2"}]]}], ";", "\[IndentingNewLine]", 
           RowBox[{"pot", " ", "=", " ", 
            RowBox[{"pot", " ", "+", " ", 
             RowBox[{"lj", "[", 
              RowBox[{"rp", ",", "\[Xi]cs", ",", "\[Sigma]cs", ",", "rccs"}], 
              "]"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"potTot", " ", "=", " ", 
         RowBox[{"potTot", "+", "pot"}]}], ";"}]}], "\[IndentingNewLine]", 
      "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"potTot", " ", "=", " ", 
      RowBox[{"potTot", "/", "NL"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"AppendTo", "[", 
      RowBox[{"potTabCS", ",", 
       RowBox[{"{", 
        RowBox[{"yp", ",", "potTot"}], "}"}]}], "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"potFuncCS", "=", 
  RowBox[{"Interpolation", "[", "potTabCS", "]"}]}]}], "Input",
 CellChangeTimes->{{3.8550868674451427`*^9, 3.855086906488489*^9}, {
   3.855086955597715*^9, 3.855087089527472*^9}, {3.855087165315565*^9, 
   3.855087203994906*^9}, {3.855087323572144*^9, 3.8550876106796627`*^9}, {
   3.855087690850342*^9, 3.85508775318048*^9}, {3.855087790465866*^9, 
   3.855087790581727*^9}, {3.8550878556822853`*^9, 3.855087864466061*^9}, {
   3.855087912040518*^9, 3.855087950558249*^9}, {3.855088096745352*^9, 
   3.855088154323867*^9}, {3.855088226016267*^9, 3.8550882850018253`*^9}, {
   3.8550904569421377`*^9, 3.8550904726830397`*^9}, {3.855090579532155*^9, 
   3.855090590662023*^9}, {3.855090650597658*^9, 3.85509068235596*^9}, {
   3.8550908517233963`*^9, 3.855090852225072*^9}, {3.85509102184417*^9, 
   3.855091065746666*^9}, 3.855157593165029*^9},
 CellLabel->
  "In[1560]:=",ExpressionUUID->"d61335e4-0426-4867-b2b9-c75fc22125ed"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["InterpolatingFunction",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], 
              ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{{{{}, {}, 
                TagBox[{
                  Directive[
                   Opacity[1.], 
                   RGBColor[0.368417, 0.506779, 0.709798], 
                   AbsoluteThickness[1]], 
                  
                  LineBox[{{1.3349011860080614`*^-8, 4.360955717275551*^-8}, {
                   1.3418050936571477`*^-8, 3.4208302455411805`*^-8}, {
                   1.5272236244029377`*^-8, -7.268259528792585*^-8}}], 
                  LineBox[CompressedData["
1:eJxFx38w03Ecx/H5lYhMY0U/UKTyo2nHjtU7Y8v6gyMptBUiq6+fw0a/c4zE
uKVIdFxXJ6upbssl34/axSZEfuTq6EocLqSMJUV11/G6e97rHnZRiQdidAkE
AuVv/96yjDvbKA0DffJqXJGZgljDJY9nQ8OBelTfRB7ORxtir4/4sTjwaO52
vt6rBLQ+ISzma/hR2Cmq8ajmnETxPb3HTlEjoKH/jajeNAYF0Tw/KhwjIcvl
jHa0NBK19C9k3adEwdXvus8467ioWbXwa97xOHh4+hI9akPR4ZmIG7PUaFAa
tY3xJAeRusHYnkiPgYw3tE/d7CCEt0xeyqScgLm2apGC74/8rNz1K71i4XVO
2zh9lI0OyRRhZCoPJFPfirkMFmIOnKuQbj0JokEyvcjPBzUHVBuMu56ClRVH
jE4Y7kXtBqaMbAcMxM2xwbG1Xoi32F3ZQokDnjd35vtdD/RZMjjpTIsHy1Qe
6gugos+YE3HMKQF++vjvwKooSJjzNiTQPRHcBjIsNEnOiK3h0nLJSfCzURxk
IdmGmpI19drCJBh+Z6vavccB5RMbOhtIySA16TAZs9mMLLtsA2XiZJhY+OrY
CDZoVP4kcobEB1ZLXeYRrjU6Xz/Wzyviw0RW662qZDLSK/DuwIxT4Ft43AVM
uwZ1XVQHvxSngKuzzpcXmBmKLplg7DdOBZcPNRNfNEbIu8NXuaUoFdhutAdM
ugEy6cGfFpDSgDhfTBCV66Cy+R5re3EaqLKmdjkN/8b5zI2riSQByN9rg6XC
H7jpQ11sW6EArAYv1WRrpvGS0VV7O1cKYV69vVxpOoXH+ey7054vBFyg7rn5
fATXa9yYpjVMB5kLtrgJ/4gPcbb2CQrSYRxjyq1DenGF6sDDbGIG3G8tZahm
lTg7ZMP087wM2DFEeEeuzsMd9Neqg8xOA+H/mnplK8yuLLtWLeyzMz+z5Mu5
0TYvi5ftgE12SszOLnlV4j2LuuJly6/pKA3Nzy3Z3bntxVvxsv8A7ORXcA==

                   "]]}, 
                 Annotation[#, "Charting`Private`Tag$21404#1"]& ]}}, {}}, {
             DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
              AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
              GridLines -> {None, None}, DisplayFunction -> Identity, 
              PlotRangePadding -> {{
                 Scaled[0.1], 
                 Scaled[0.1]}, {
                 Scaled[0.1], 
                 Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
              All, DisplayFunction -> Identity, AspectRatio -> 1, 
              Axes -> {False, False}, AxesLabel -> {None, None}, 
              AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
              Frame -> {{True, True}, {True, True}}, 
              FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
              Directive[
                Opacity[0.5], 
                Thickness[Tiny], 
                RGBColor[0.368417, 0.506779, 0.709798]], 
              FrameTicks -> {{None, None}, {None, None}}, 
              GridLines -> {None, None}, GridLinesStyle -> Directive[
                GrayLevel[0.5, 0.4]], ImageSize -> 
              Dynamic[{
                Automatic, 
                 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                  Magnification])}], 
              Method -> {
               "DefaultBoundaryStyle" -> Automatic, 
                "DefaultGraphicsInteraction" -> {
                 "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                  "Effects" -> {
                   "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                "DefaultMeshStyle" -> AbsolutePointSize[6], 
                "ScalingFunctions" -> None, 
                "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
              PlotRange -> {{4.40448*^-10, 
               1.10112*^-7}, {-7.268259528792585*^-8, 4.360955717275551*^-8}},
               PlotRangeClipping -> True, PlotRangePadding -> {{
                 Scaled[0.1], 
                 Scaled[0.1]}, {
                 Scaled[0.1], 
                 Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"4.40448`*^-10", ",", "1.10112`*^-7"}], "}"}], 
                    "}"}], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"scalar\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], 
              ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{{{{}, {}, 
                TagBox[{
                  Directive[
                   Opacity[1.], 
                   RGBColor[0.368417, 0.506779, 0.709798], 
                   AbsoluteThickness[1]], 
                  
                  LineBox[{{1.3349011860080614`*^-8, 4.360955717275551*^-8}, {
                   1.3418050936571477`*^-8, 3.4208302455411805`*^-8}, {
                   1.5272236244029377`*^-8, -7.268259528792585*^-8}}], 
                  LineBox[CompressedData["
1:eJxFx38w03Ecx/H5lYhMY0U/UKTyo2nHjtU7Y8v6gyMptBUiq6+fw0a/c4zE
uKVIdFxXJ6upbssl34/axSZEfuTq6EocLqSMJUV11/G6e97rHnZRiQdidAkE
AuVv/96yjDvbKA0DffJqXJGZgljDJY9nQ8OBelTfRB7ORxtir4/4sTjwaO52
vt6rBLQ+ISzma/hR2Cmq8ajmnETxPb3HTlEjoKH/jajeNAYF0Tw/KhwjIcvl
jHa0NBK19C9k3adEwdXvus8467ioWbXwa97xOHh4+hI9akPR4ZmIG7PUaFAa
tY3xJAeRusHYnkiPgYw3tE/d7CCEt0xeyqScgLm2apGC74/8rNz1K71i4XVO
2zh9lI0OyRRhZCoPJFPfirkMFmIOnKuQbj0JokEyvcjPBzUHVBuMu56ClRVH
jE4Y7kXtBqaMbAcMxM2xwbG1Xoi32F3ZQokDnjd35vtdD/RZMjjpTIsHy1Qe
6gugos+YE3HMKQF++vjvwKooSJjzNiTQPRHcBjIsNEnOiK3h0nLJSfCzURxk
IdmGmpI19drCJBh+Z6vavccB5RMbOhtIySA16TAZs9mMLLtsA2XiZJhY+OrY
CDZoVP4kcobEB1ZLXeYRrjU6Xz/Wzyviw0RW662qZDLSK/DuwIxT4Ft43AVM
uwZ1XVQHvxSngKuzzpcXmBmKLplg7DdOBZcPNRNfNEbIu8NXuaUoFdhutAdM
ugEy6cGfFpDSgDhfTBCV66Cy+R5re3EaqLKmdjkN/8b5zI2riSQByN9rg6XC
H7jpQ11sW6EArAYv1WRrpvGS0VV7O1cKYV69vVxpOoXH+ey7054vBFyg7rn5
fATXa9yYpjVMB5kLtrgJ/4gPcbb2CQrSYRxjyq1DenGF6sDDbGIG3G8tZahm
lTg7ZMP087wM2DFEeEeuzsMd9Neqg8xOA+H/mnplK8yuLLtWLeyzMz+z5Mu5
0TYvi5ftgE12SszOLnlV4j2LuuJly6/pKA3Nzy3Z3bntxVvxsv8A7ORXcA==

                   "]]}, 
                 Annotation[#, "Charting`Private`Tag$21404#1"]& ]}}, {}}, {
             DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
              AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
              GridLines -> {None, None}, DisplayFunction -> Identity, 
              PlotRangePadding -> {{
                 Scaled[0.1], 
                 Scaled[0.1]}, {
                 Scaled[0.1], 
                 Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
              All, DisplayFunction -> Identity, AspectRatio -> 1, 
              Axes -> {False, False}, AxesLabel -> {None, None}, 
              AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
              Frame -> {{True, True}, {True, True}}, 
              FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
              Directive[
                Opacity[0.5], 
                Thickness[Tiny], 
                RGBColor[0.368417, 0.506779, 0.709798]], 
              FrameTicks -> {{None, None}, {None, None}}, 
              GridLines -> {None, None}, GridLinesStyle -> Directive[
                GrayLevel[0.5, 0.4]], ImageSize -> 
              Dynamic[{
                Automatic, 
                 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                  Magnification])}], 
              Method -> {
               "DefaultBoundaryStyle" -> Automatic, 
                "DefaultGraphicsInteraction" -> {
                 "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                  "Effects" -> {
                   "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                "DefaultMeshStyle" -> AbsolutePointSize[6], 
                "ScalingFunctions" -> None, 
                "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
              PlotRange -> {{4.40448*^-10, 
               1.10112*^-7}, {-7.268259528792585*^-8, 4.360955717275551*^-8}},
               PlotRangeClipping -> True, PlotRangePadding -> {{
                 Scaled[0.1], 
                 Scaled[0.1]}, {
                 Scaled[0.1], 
                 Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"4.40448`*^-10", ",", "1.10112`*^-7"}], "}"}], 
                    "}"}], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"scalar\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["3", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"Hermite\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["False", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  InterpolatingFunction[{{4.40448*^-10, 1.10112*^-7}}, {
   5, 7, 0, {250}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData["
1:eJwtk3dUU3cYhsEDooKUFidU2iAKqEVERVR8kREHQhmRvRJmEkhyszcuLEcF
rYIL1IpVoVqEg2XUgQusAysWy1FwoViQI8WqhUolref4/XFPTpJ7f/f73vd5
WKmSyIxRZmZm5h+u4Q/XJskDmTTItOzjpy2OcGZMijo9CR+/O6Gm+XrP1T5n
+n0mirrWBz3Tz6L/PXDGVNq6bvQ8us8LJwqGTONvL6D7vVHiwPnqwF4fem4J
tlWcSpjF9aXnAThashMnLKdz/OH91Cvx+3/86bwAePzAlfc9CKRzgzCT2b51
3iU2nb8CTovOlWmOraT3rMJk04uGC1tW0/uC8Unz5NbR4jX03hBYFbB7QiND
6f1f479IuanYO4zmCMf7gtZx4sJwmicCGiZrz851ETRXBN5yTKxaaSTNFwlm
0e7Ke2kcmpODlw5zFr+PWkvzrgXfdLnpi1VRNHcUurviwgOXRNP80eA2v+rM
nBNDe8TgQUV+1lanWNonFrEFTm8q7eJorzj8LqnNvTMqnvaLRwQnZNzfb+Np
zwTc8n62e0pPAu2biNUOOpbv/UTaOwnNI3aVKTeTaP9k+HeV+2w6n0w5pOB8
E5qOV6VQHlxMu9vn+jycS7lw0cmu6x+8zqV8eNhfv+H0mEAe5cRDjHuo1uEc
j/LiYWLpFL85C1Mpt1S02XRb4FQq5ZeKnblVN8Jc0yjHNIS90n3LO5xGeaZh
fOqKaPnUdMo1HTfbPv188650yjcdW9gPu/ZYZ1DOGVhZX1FekZdBeWfA0l0h
OjOSQbln4kqJ3/wWVSbln4kNNtbvHg5kUg9Z8MttbxzgZ1EfWRgZKMszf5pF
vfBxlicKtk/gUz98aNt87Gbc5VNPAviwLdq9QwXUlwCDdbdLV10VUG9C/ORW
yov3E1J/QshKMl1zGoTUoxCeNl79xnnZ1Gc2/jSO1Ow4kU29ZuPHgWuasuk5
1G8OhLxinD6QQz3nwK0txaJ5ooj6FuGPoNk32reLqHcRjtYN7ui1ElP/YqS6
XY4aXi8mDsT4sqTQ0WZYTDxI8Mg6rmuaXEJcSHDA6FI+96WE+GBQOaSuO+zF
ECcMCqqT9rtLGOKFQbYg0FBzkiFuGAQ7u6cs7WWIHyncO20DmlykxJEUY4rf
uoTypMSTFD0hHVbtB6XElRRXLS/2JXdIiS8pjjUeu9UzSUacyZCn3lbNcGTE
mwxpntKidztkxJ0MAS+iVRtbZMSfDKwjvnHWY+XEoRxmCc6+xWw58SjHY/sx
X0zbKCcu5Whs6Tc/3ignPuU4uLmt2+NfOXGqgBE//1K/SEG8KpA4dOjEcoWC
uFVgaXVe4fVqBfGrgINAyET2K4hjJd6xwjmd7kriWYl7HQu90zOVxLUS9UWO
U/uPKIlvJfaEmL9XPlYS50ooLXsemRxVxLsKaxtbLuXHqoh7Feara47a7VYR
/yp85rkvf/8dFXmgwl+9RqGzrZp8UKO1LC30ZLCavFCjKn6154J8Nfmhxnb7
ufbnr6jJEzVELRMG2WYa8kWDkM3D93711ZA3GszGk7MxWg35o8G4oeZDT2o1
5JEGL6pObhC81pBPWlzj70x/7aElr7QoZ6lX6rO15JcW33QkzrKo0JJnWmQU
BYwv7NaSbzoEhbi9msjSkXc6TLe0bTuUpCP/dBjV+KbWtURHHurQpbq/r7pd
Rz7qcHHuBf1iez15qcd3vUeTL4fpyU89csu2+q8p0JOneiTFMy53r+nJVz18
7aOtkiwN5K0Bji1L+577G8hfA4bzWLfEuQby2ID7y6yqh84YyGcDGgZf7lo/
ZCCvjdhb9Zty7AIj+W2Eit8Qu4sxkudG/A/mjJlU
   "], {
   Developer`PackedArrayForm, {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 
    14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 
    32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 
    50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 
    68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 
    86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 
    103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117,
     118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 
    132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146,
     147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 
    161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175,
     176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 
    190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204,
     205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 
    219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233,
     234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 
    248, 249, 250}, CompressedData["
1:eJztw/k/1PkfAHBHbiW5FTIY14SQJD4zbrJCGIot11AYFONuJhRiCOXYEIuQ
xH6dSe+XEh08WONq88XG7CJHJMkRdn/9/g/f5+PxVPQJPUfh5ODg2Pr3r+oO
SrqpBsTllnH30Qh9op7BRLOWK56Y62Rg9kRYiSip6eXhaSxDdDv9Kuk+pwTR
/eGUYGOtKLHA0Mrx0kkBIpnhx9+QxUGc4O4cMYj/jp1M0jjw0eIb5nGsPYXh
8wXbmzGJsb83j731v062Jkxj5jwpMhYJM1i8bKSFadcHLPJHYiyzfQTz6Cxa
4BrsxS4Wu9dKYf1YW7SLNnflK2wLtR/4W+Ul1rJ6h/m6uxFjWo1aVgg1YYPO
QQoahQ+xZsZW4+bbCszFrpwqn3sP8xJv8vxJJxNT3jLt4AtkYhvlVzvwR5Ox
8UbV9YAsCqaUI9xcxfLBbgfc2PFj+oLG8aq9uM0AkNymK7AHrsFTaXpxemoE
zBG0K/STaVDgN6ZssxoNatHhbY0BcSA6XybUNxYHiXhhxe7heHgvF+wa3BwP
RK3/PJ4OjAeTrLIch7I4OBOgYTpXGAe+2QFUv0Nx0G7evyVnHwv7+OXJpPQY
aP35ESHwt2igyzdsc09HgcHi2X55iSiYnRLZKsFHwvN5mUYLbxoEhJa7hoZH
AH6hjpHUEQ6nmiti5jaugTanHdtO7hoMiCz71F+7Cj/TI7jNW8LgdwltTfXh
UAi8MPuHCyME+ghnXlWJUEFJLvz9Ye5g8OCqVk9qCwQFd4dp39wrwGCoPWVf
uQwCddvLp0ICwEFsWPuNvz/s9tA796dRYP5GR+Rkrh84HRP0gUe+ILou2HRr
yAcWbQ3zm/h8QNKx+6utuTeQZp3w1CovmL5I7ol/fgmqcexPP8IuwqyQLbFm
1xPWSGYlj9Y8oCAIt6c3egG2e1gfgl6fBzH2ujjW4A7JPBnf7Srd4IRIf4pj
FRnGs1a806ZdIcWGqWe55AI7fGbkepwLbJjxR7HtneGzA5klkn4OhrwNSiyH
nMB/XoV5XskJUG5MW36UIySoFkWMvHAAXGEvqTb+LPh7lo2rm9lDkjun1if9
nyAZl0ewVrCDgQtZ1dMCZ8BI3f9ZiIItPLccZrzXtYFbTVnoOWYN7TnFaUne
VmD18Ag7kmkJlW0LoecaLcC3Dhetum0OCdTlzTVjc2hdDcdnJpqB0ZHrrIkp
U1BUqknZr2UKjuvyn5XvkkBwaaZ98SMRyDn7BbE2DBIu2hUWl5rAlUz5koa7
xqDLJRLZm3QamkM0agbjjaB59C+JgYxT8PhHoSmtwhBYSMPRCk6CEFs25eWI
AUw9cWvq5TGASbH+skjSCXgySut8FqEPB53P57Cq9UD5lIP3Dq8edF2+3+pt
owuyvVoDHuXH4fZ/l6vqt3SAFA+ZBRQdaOjJdzmerQ2eRpK9DXQteGP8YO0r
7RgIH0yTNwwiQB8NNzVrpwkHTyuooGgNeNB3M5Weqw46Uq83LMrV4AqNyDXT
ogok2YzjXkN4kF195xasiYeVrIoWU3sVuPktOftdgTLc28rLYY4pwZ2gB49V
ZZVA9JvC8i4VB1NRAlffIkXQnyyqJSgpwm4ra8456SiQZF69iO5TAFpvbtSD
enk4R0nMCImUA0qe2aC01xFQjr2Z2085DHf9F6mXTGUBuDT1X1rJAE1Xht19
VhpGP4YNRNpLgWDBybquCElg1uPSiu5KQJCQX3b6fXHoyy/dxo+KgTOBatnB
KQZrIbsPnykfgm77aYnNOFH4GGwl1FR3EC4zPBJVV0SAlNciqVZ/AMhu1uI5
cvthIq1pym5aCKrGhn+ZyxUEjq+fjWvdBKA02/CzhxY/CDSUHKUs8cKLZze2
vyvywnj9pbIcVR5YUXOgeFnvAxXhCRwhlhv8wlk7cmNc4CJS+eUQcALhj6zZ
31w4gSpoU0S6yQFWIZWdzLw9dFR1r8/Jdxexz0z20Pt+IP/qsFj3X7eRqBHH
3wT9LYSkfYwzUzcRg2VbN8m1gf58zNPF3PcdpRbQ+O7/8g3tYxcEH65aQ1jp
7gnp11+RR1LCglPFKhKTbg25UP8FBYcNOg0lriCK+Jec39nLiLw4YBaYsYTq
PjktGWYsoOtvPijkC31ChQJVVPb6LEoZTpxbKZpBy9fviZf6/4VUJ0qLN43Y
qEYyVpIPN4VGekwMs2v/RGkdEq4D8pNow7WjJuDWB8TQkeEdK3iPWu+Ib0hr
DKOw0ORN4iMWMppoaeP36kesGj1uFfd3aId+nnBguRNRjbpMnkoBMrosRSB1
tqDNxOQNc3o5irEI5G3dSEcc//c//gEJ323Z
    "]}, {Automatic}],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.855091202222303*^9, 3.8551590492849483`*^9},
 CellLabel->
  "Out[1565]=",ExpressionUUID->"eed4ea11-e374-43ec-ad18-b73c8e25f828"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"NN", "=", "200"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"NP", "=", "250"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ydiv", "=", 
     RowBox[{"5", "rcas", " ", 
      RowBox[{"\[Sigma]as", "/", "NP"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"potTabAS", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", "1"}], ",", 
      RowBox[{"i", "<=", "NP"}], ",", 
      RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"yp", "=", 
        RowBox[{"i", "*", "ydiv"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"potTot", "=", "0"}], ";", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"j", "=", "1"}], ",", 
         RowBox[{"j", "<=", "NN"}], ",", 
         RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"xp", "=", 
           RowBox[{
            RowBox[{"RandomReal", "[", "]"}], "*", "L"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"zp", "=", 
           RowBox[{
            RowBox[{"RandomReal", "[", "]"}], "*", "L"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"pot", "=", "0"}], ";", "\[IndentingNewLine]", 
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"k", "=", "1"}], ",", 
            RowBox[{"k", "<=", "NL"}], ",", 
            RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"rp", "=", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"lattice", "[", 
                    RowBox[{"[", 
                    RowBox[{"k", ",", "1"}], "]"}], "]"}], "-", "xp"}], ")"}],
                   "2"], "+", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"lattice", "[", 
                    RowBox[{"[", 
                    RowBox[{"k", ",", "2"}], "]"}], "]"}], "-", "yp"}], ")"}],
                   "2"], "+", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"lattice", "[", 
                    RowBox[{"[", 
                    RowBox[{"k", ",", "3"}], "]"}], "]"}], "-", "zp"}], ")"}],
                   "2"]}], ")"}], 
               RowBox[{"1", "/", "2"}]]}], ";", "\[IndentingNewLine]", 
             RowBox[{"pot", " ", "=", " ", 
              RowBox[{"pot", " ", "+", " ", 
               RowBox[{"lj", "[", 
                RowBox[{
                "rp", ",", "\[Xi]as", ",", "\[Sigma]as", ",", "rcas"}], 
                "]"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"potTot", " ", "=", " ", 
           RowBox[{"potTot", "+", "pot"}]}], ";"}]}], "\[IndentingNewLine]", 
        "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"potTot", " ", "=", " ", 
        RowBox[{"potTot", "/", "NL"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"potTabAS", ",", 
         RowBox[{"{", 
          RowBox[{"yp", ",", "potTot"}], "}"}]}], "]"}], ";"}]}], 
     "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"potFuncAS", "=", 
    RowBox[{"Interpolation", "[", "potTabAS", "]"}]}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.8550868674451427`*^9, 3.855086906488489*^9}, {
  3.855086955597715*^9, 3.855087089527472*^9}, {3.855087165315565*^9, 
  3.855087203994906*^9}, {3.855087323572144*^9, 3.8550876106796627`*^9}, {
  3.855087690850342*^9, 3.85508775318048*^9}, {3.855087790465866*^9, 
  3.855087790581727*^9}, {3.8550878556822853`*^9, 3.855087864466061*^9}, {
  3.855087912040518*^9, 3.855087950558249*^9}, {3.855088096745352*^9, 
  3.855088154323867*^9}, {3.855088226016267*^9, 3.8550882850018253`*^9}, {
  3.8550904569421377`*^9, 3.8550904726830397`*^9}, {3.855090579532155*^9, 
  3.855090590662023*^9}, {3.855090650597658*^9, 3.85509068235596*^9}, {
  3.8550908517233963`*^9, 3.855090852225072*^9}, {3.85509102184417*^9, 
  3.855091089995729*^9}, {3.855157579816798*^9, 3.855157585551444*^9}},
 CellLabel->
  "In[1554]:=",ExpressionUUID->"582f8007-dee2-472a-9ddb-f9f05169440b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["InterpolatingFunction",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], 
              ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{{{{}, {}, 
                TagBox[{
                  Directive[
                   Opacity[1.], 
                   RGBColor[0.368417, 0.506779, 0.709798], 
                   AbsoluteThickness[1]], 
                  LineBox[CompressedData["
1:eJxTTMoPSmViYGCwAWIQraNSLL+tXNnu0pZ5V75wdtj/yTyh5zPfw07n+1cr
3Wpxe7XyXfkcrOF29yqfTn3vsNLOZX4/e0JTgt0yu+Kj9pcX7Pv9RuyoQmaq
nZtd24Nbxyft6yzmY7XelWVX4R3PZe7euG+LTe+L+g35djlprDp+Ewr2Rcvb
qfd3FNm9Vm5TvHssdl+8qMLFAJ1Sux8bnxedSnHft3HN0TPLF5XbrYw4+OV5
sNG+/ITFndp+VXbHkk/Lhsl93Fu91WWGy5kaOwYo6Kq/IHvBth7OZzL2MnL5
1ADnP//W+++VXhNC/mSutkZbM5w/7+qhyXLXW+D8h5t+LokXbIPzo+adETNP
a4fzq6IaDSOXdMD5F1QurRH82wnnr9Cckdzs3w3nq/+3P2zf3QPn33nU3Dzp
YS+cbzF95Rt9xX44n9t5kYez7gQ4f+pB29OW1xH8Ig2vRVdLJ8L5WdOWrNyj
OAnOX7xwp1/DKQTfYKq9x8v0yXD+9X7horlCU+D8S0URH75tRPD5Pofz6PpN
hfNTq5ZGrPuO4PO/Sv55Zeo0OP9KQsEpN8fpcP7b/W/fxz5E8N33qG4OrJsB
5+/Zv3rZBI2ZcH7L6kXvSo4j+OnznqctKZ4F53frPa/ZIDMbEX/Lw58n7kLw
p6iJNcWlzkHET59rIQPrXDh/4WT9f3ULEfzH89N3e3jPg/Mrpgic3f4SwdeY
wM5fNHU+nN8zJaacRX4BnK93NXfiolwEP05ymfOzQwj+jotiC2qEFsL583vX
TdmRgeCrzVC+kbQXwb8udvFoPM8iOF9s5lJvpiQEv65/U/X3jQj+ldmWkx8x
LYbzAUGPEaM=
                   "]]}, 
                 Annotation[#, "Charting`Private`Tag$21346#1"]& ]}}, {}}, {
             DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
              AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
              GridLines -> {None, None}, DisplayFunction -> Identity, 
              PlotRangePadding -> {{
                 Scaled[0.1], 
                 Scaled[0.1]}, {
                 Scaled[0.1], 
                 Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
              All, DisplayFunction -> Identity, AspectRatio -> 1, 
              Axes -> {False, False}, AxesLabel -> {None, None}, 
              AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
              Frame -> {{True, True}, {True, True}}, 
              FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
              Directive[
                Opacity[0.5], 
                Thickness[Tiny], 
                RGBColor[0.368417, 0.506779, 0.709798]], 
              FrameTicks -> {{None, None}, {None, None}}, 
              GridLines -> {None, None}, GridLinesStyle -> Directive[
                GrayLevel[0.5, 0.4]], ImageSize -> 
              Dynamic[{
                Automatic, 
                 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                  Magnification])}], 
              Method -> {
               "DefaultBoundaryStyle" -> Automatic, 
                "DefaultGraphicsInteraction" -> {
                 "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                  "Effects" -> {
                   "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                "DefaultMeshStyle" -> AbsolutePointSize[6], 
                "ScalingFunctions" -> None, 
                "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
              PlotRange -> {{2.2663199999999997`*^-9, 
               5.665799999999999*^-7}, {-5.014297909336823*^-7, 
               0.01173774026741584}}, PlotRangeClipping -> True, 
              PlotRangePadding -> {{
                 Scaled[0.1], 
                 Scaled[0.1]}, {
                 Scaled[0.1], 
                 Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", 
                    RowBox[{"{", 
                    
                    RowBox[{
                    "2.2663199999999997`*^-9", ",", 
                    "5.665799999999999`*^-7"}], "}"}], "}"}], 
                  "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"scalar\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], 
              ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{{{{}, {}, 
                TagBox[{
                  Directive[
                   Opacity[1.], 
                   RGBColor[0.368417, 0.506779, 0.709798], 
                   AbsoluteThickness[1]], 
                  LineBox[CompressedData["
1:eJxTTMoPSmViYGCwAWIQraNSLL+tXNnu0pZ5V75wdtj/yTyh5zPfw07n+1cr
3Wpxe7XyXfkcrOF29yqfTn3vsNLOZX4/e0JTgt0yu+Kj9pcX7Pv9RuyoQmaq
nZtd24Nbxyft6yzmY7XelWVX4R3PZe7euG+LTe+L+g35djlprDp+Ewr2Rcvb
qfd3FNm9Vm5TvHssdl+8qMLFAJ1Sux8bnxedSnHft3HN0TPLF5XbrYw4+OV5
sNG+/ITFndp+VXbHkk/Lhsl93Fu91WWGy5kaOwYo6Kq/IHvBth7OZzL2MnL5
1ADnP//W+++VXhNC/mSutkZbM5w/7+qhyXLXW+D8h5t+LokXbIPzo+adETNP
a4fzq6IaDSOXdMD5F1QurRH82wnnr9Cckdzs3w3nq/+3P2zf3QPn33nU3Dzp
YS+cbzF95Rt9xX44n9t5kYez7gQ4f+pB29OW1xH8Ig2vRVdLJ8L5WdOWrNyj
OAnOX7xwp1/DKQTfYKq9x8v0yXD+9X7horlCU+D8S0URH75tRPD5Pofz6PpN
hfNTq5ZGrPuO4PO/Sv55Zeo0OP9KQsEpN8fpcP7b/W/fxz5E8N33qG4OrJsB
5+/Zv3rZBI2ZcH7L6kXvSo4j+OnznqctKZ4F53frPa/ZIDMbEX/Lw58n7kLw
p6iJNcWlzkHET59rIQPrXDh/4WT9f3ULEfzH89N3e3jPg/Mrpgic3f4SwdeY
wM5fNHU+nN8zJaacRX4BnK93NXfiolwEP05ymfOzQwj+jotiC2qEFsL583vX
TdmRgeCrzVC+kbQXwb8udvFoPM8iOF9s5lJvpiQEv65/U/X3jQj+ldmWkx8x
LYbzAUGPEaM=
                   "]]}, 
                 Annotation[#, "Charting`Private`Tag$21346#1"]& ]}}, {}}, {
             DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
              AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, 
              GridLines -> {None, None}, DisplayFunction -> Identity, 
              PlotRangePadding -> {{
                 Scaled[0.1], 
                 Scaled[0.1]}, {
                 Scaled[0.1], 
                 Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
              All, DisplayFunction -> Identity, AspectRatio -> 1, 
              Axes -> {False, False}, AxesLabel -> {None, None}, 
              AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
              Frame -> {{True, True}, {True, True}}, 
              FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
              Directive[
                Opacity[0.5], 
                Thickness[Tiny], 
                RGBColor[0.368417, 0.506779, 0.709798]], 
              FrameTicks -> {{None, None}, {None, None}}, 
              GridLines -> {None, None}, GridLinesStyle -> Directive[
                GrayLevel[0.5, 0.4]], ImageSize -> 
              Dynamic[{
                Automatic, 
                 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                  Magnification])}], 
              Method -> {
               "DefaultBoundaryStyle" -> Automatic, 
                "DefaultGraphicsInteraction" -> {
                 "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                  "Effects" -> {
                   "Highlight" -> {"ratio" -> 2}, 
                    "HighlightPoint" -> {"ratio" -> 2}, 
                    "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
                "DefaultMeshStyle" -> AbsolutePointSize[6], 
                "ScalingFunctions" -> None, 
                "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
              PlotRange -> {{2.2663199999999997`*^-9, 
               5.665799999999999*^-7}, {-5.014297909336823*^-7, 
               0.01173774026741584}}, PlotRangeClipping -> True, 
              PlotRangePadding -> {{
                 Scaled[0.1], 
                 Scaled[0.1]}, {
                 Scaled[0.1], 
                 Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", 
                    RowBox[{"{", 
                    
                    RowBox[{
                    "2.2663199999999997`*^-9", ",", 
                    "5.665799999999999`*^-7"}], "}"}], "}"}], 
                  "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"scalar\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["3", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"Hermite\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["False", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  InterpolatingFunction[{{2.2663199999999997`*^-9, 5.665799999999999*^-7}}, {
   5, 7, 0, {250}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData["
1:eJwtk3s0lHkYxyXU1lLadksXrZUtRRdSafOt0MVGaUkoJ0QsEjUu6zruMwxm
zJiLub0zKuLoqpSKLSWyhyhtJ0XZxVYqqdWy2d3O2eeP98yZmff9vc/z/X4+
ZoGHfwjW1dHRmfDpGvt0OTtOuXYmzhz/f9ri4IHCuVxbB/ruhM4O10HF7m30
uxs+joYer528i/73AC+38v6J/t10nzdM576eKLzpS/f74VTlCttU7X56LgBf
q+zP2m0MpOcPILT/UdPS00F0TjDOLkt6amYaQueFYjR2/l+z8n+kc8PgWF83
zehjOJ1/CLmT/BfphUfSew7jeRl7wXhEFL0vGkauu5bGH4um9x6BzZDZmndd
R+j9R+ElGnaM/IJFc7CQsLZhx/PvY2ieGKgfC32D0mNprjg0sIMO9lyOo/ni
MbDQ7ojv23ia8ydMbdZP6VycQPMmYMWhB1x3/0SaOxGexmXFLZIkmj8Z8Rfi
NFvakmmPFCh8tlVdN0ilfVLxNIW3z3QBm/ZiY/guq7erlk37pUHf3C9U5pVG
e6ZhVszm117DabRvOixvW7NmFqTT3un4zuSrsXbLDNo/A27h/6QW3sqgHDKx
/1q/vltAJuWRiehpbXlTxjMplyxkBNQYN0mzKJ8siM+rJVmrsimnbJTrc+Y7
3c2mvHJQuyeqVCcih3LLwS8nvS3rJnEoPw66/954OrGUQzlyMORmaWe/gUt5
cqHLGF8ZecSlXHMxc3h0Y3VsLuWbi0XOvY3RM/Io5zzYi++4Lj+VR3nnYfsf
5zoGXXiUOw9+6+TeFX08yj8fh3kZ3SFp+dRDPtK6w4Ms5hdQHwUQrvB80Xup
gHopxPH09VGMZyH1U4hL9xeO+A0VUk98BAsN6gy38KkvPiKvjrEHhXzqjY+4
vtdOLc/41J8AbKPfDCqWC6hHAbhrfm3mJAuoTwGK/Ft4IS0C6lUAObd+5xaT
Iuq3CMfOnZ9hEVJEPRehqqusc+KFIuq7CBf1FNJeXSH1LkS9NX/vdXch9S9E
s1emKaMSEgdCdKTGP0sZFBIPInSVRxzzWyciLkT4vd0/ZD1HRHyI8GrMc8nc
ByLiRIQRc5dXo+bFxEsx/nV1OPMwupi4Kcbk2JVHa+qLiZ9iGKstVosNxcSR
GHOaTEZZe8XEkxjmbw2vepwUE1diWM3RTbX5ICa+JLBzGtlkvFlCnEmAiBd6
Q0US4k2CrcXdt1ufSog7KdzrOnKrlkmJPyl8BxrdeElS4lCKA9OvTA+/IyUe
pYiwP33PZbaMuJQhJrBUvPigjPiUISVP4jOpWkacypBTnTevf0IJ8VoC/pPU
nps7S4jbEsgMWNpSZQnxWwLt8tDg9JclxLEcld77FgfYy4lnOarT3F9uyJET
13Jcq3A+ZdopJ77laLy3Nnr8GwVxrkDbR6tVj6MUxLsCDy3MPtTWKYh7BZ7t
+LJW9rmS+FfiZdxnyfG+SvJAiffM+IY95UryQYnx5re6q0eU5IUKBu/6bs10
VpEfKkyb94jzTqAiT1SYvbl1e0ePinxRwyzyhtFZazV5o8YSycX2wkQ1+aOG
7c8VoshmNXmkhorVVnliKkM+MTDnuhiKbRjyikGZsiEyy4chvxhYnXO4y2Iz
5BmDM401K4PKGPKNgV3XSqFHK0PeMbj8pvK9458M+acB9L71spmnIQ81uDGb
qTFz0pCPGmy1nmNiHKYhLzVo2SRK0BFoyE8N3L2MHr+p0ZCnGtwP4zj0dGvI
Vw18UnXVrfpa8laLJ8IknTorLfmrRWD5SECVh5Y81mLgalSDIkFLPmsR3v5i
IU+jJa+1GOoLyk5s0pLfWrDGugfC3mjJ81L8B+BysKQ=
   "], {
   Developer`PackedArrayForm, {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 
    14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 
    32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 
    50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 
    68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 
    86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 
    103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117,
     118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 
    132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146,
     147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 
    161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175,
     176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 
    190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204,
     205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 
    219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233,
     234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 
    248, 249, 250}, CompressedData["
1:eJxTTMoPSmVkYGD4BcRBT93rfnN22Ed1t7BPmJFnv3/Sja0+fwPsg201DtTo
mdr78sQJf9WRtN9WfH7DvV9s9qIFehWF797ZSZel9rMdvWVXcuyTWXj5brtM
HvblP59MsitWMFwo82jqPierDCOX3fP3XWXf8uOLx8J9W+74VO1QWrAvoXpz
8Oq5c/YlvUsvjZg3Y5/gZq/S5+en7FuaNNN9WuPEff7TOhNDgnv3/f70/uDN
7o59d/QnBDhOadmnUbbrxU6dxn0/vn2/ZnW0Zt/6nGsRXuwV+wwiPtiqCpTs
W3v73s2MTQX7DHYsZebiytnntGle55fu9H1Wd9qtCyYk71N5/lU2xCVhX43U
zvmJN6L2Lb0bsUFZPGyfDP/t/bNeBu4L7OkU7mz02Wfqs/2GYoDbvun5C+fe
snHaN0HqcF60o+2+bQVn3+hKmO+7XbbwS3eH4b6vHwMCu35o7EsPay/8vkdh
n6GNrFQtp/A+sx/sJ0O6f+5lGAWjYBSMglEwCugIAEqHsgY=
    "]}, {Automatic}],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.855087755724032*^9, 3.855087867348028*^9, 
  3.8550879516056232`*^9, 3.855088110786745*^9, 3.8550881885875196`*^9, 
  3.855090597215311*^9, 3.855090658696538*^9, 3.855090696738151*^9, 
  3.8550908801093082`*^9, 3.8551561055334053`*^9, 3.855158335324211*^9},
 CellLabel->
  "Out[1559]=",ExpressionUUID->"854e0578-bf7c-4540-9102-18b1961076ba"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"potFuncCS", "[", "y", "]"}], "+", 
      RowBox[{"esPot", "[", 
       RowBox[{"y", ",", "2"}], "]"}], "+", 
      RowBox[{"imagePot", "[", 
       RowBox[{
        RowBox[{"2", "y"}], ",", "\[Epsilon]", ",", "q1"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"potFuncAS", "[", "y", "]"}], "-", 
      RowBox[{"esPot", "[", 
       RowBox[{"y", ",", "2"}], "]"}], "+", 
      RowBox[{"imagePot", "[", 
       RowBox[{
        RowBox[{"2", "y"}], ",", "\[Epsilon]", ",", "q1"}], "]"}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"0.1", " ", "\[Sigma]cs"}], ",", " ", 
     RowBox[{"rccs", " ", "\[Sigma]cs"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", "Blue"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"potFuncCS", "[", "y", "]"}], "+", 
      RowBox[{"esPot", "[", 
       RowBox[{"y", ",", "196"}], "]"}], "+", 
      RowBox[{"imagePot", "[", 
       RowBox[{
        RowBox[{"2", "y"}], ",", "\[Epsilon]", ",", "q1"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"potFuncAS", "[", "y", "]"}], "-", 
      RowBox[{"esPot", "[", 
       RowBox[{"y", ",", "196"}], "]"}], "+", 
      RowBox[{"imagePot", "[", 
       RowBox[{
        RowBox[{"2", "y"}], ",", "\[Epsilon]", ",", "q1"}], "]"}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"0.1", " ", "\[Sigma]cs"}], ",", 
     RowBox[{"rccs", " ", "\[Sigma]cs"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", "Blue"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.855087604799358*^9, 3.855087605861857*^9}, {
   3.855088129990026*^9, 3.855088136444669*^9}, {3.855088196891953*^9, 
   3.855088213121809*^9}, {3.855090602829947*^9, 3.855090637354813*^9}, {
   3.8550907451831636`*^9, 3.855090762830721*^9}, 3.855090795947707*^9, {
   3.855090974565531*^9, 3.855091002890123*^9}, 3.8550910618938303`*^9, {
   3.855156149420126*^9, 3.8551562091039953`*^9}, {3.855156499123807*^9, 
   3.855156518145466*^9}, 3.855156549834442*^9, {3.8551569558937283`*^9, 
   3.855156963860607*^9}, {3.8551569982433443`*^9, 3.855157002412108*^9}, {
   3.8551570814406652`*^9, 3.855157131293654*^9}, {3.855157320691971*^9, 
   3.8551573359165297`*^9}, 3.855157380979485*^9, {3.855160372884925*^9, 
   3.855160415593362*^9}, 3.855160470257514*^9, {3.8551605096945877`*^9, 
   3.855160511276588*^9}, {3.855160652006699*^9, 3.855160663557188*^9}, {
   3.855160727779994*^9, 3.855160729659812*^9}, {3.855169739490988*^9, 
   3.855169765170203*^9}, {3.855169820399947*^9, 3.855169824575231*^9}, {
   3.8552439912497807`*^9, 3.855243993221957*^9}},
 CellLabel->
  "In[1792]:=",ExpressionUUID->"76a283bb-106f-4bf4-b6bc-68960779cdf9"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVznk41AsXB3DxG1xrRNYyMVnGXEtJ0jg5IkqYGdtQspQlMYlRwqhLylK2
pKQsIVGhUjdLmsSllK2yUwktV9qQe8N95/3jPN/n85zzPN+zxu8gy19YSEjo
hGD+n+c7Jmo9A2yAbzu1W7beCG0qrBVCDtuA4VsKJ6jSCJ9Nx9nsPLcNlM8u
G3lTZ4gKZ7PszMu2Qa7Y7FOtK4botfGqvW7tNtitPieVlmyI08eeM4mRbdBk
/q9qH9sQZeXU9zRQbEHuck2c8T8GyFpfe5hWYwtGnXVj9ZYGOHDkR5nUCzuI
GdpIW/pAQ4m8GzXHJu1g5d8O27t7aEhv9H/0/R87CFX0gtYGGhYS/YP95O3w
5My9ENVMGgZkNkiXcrZD/7rrpq6bafi9IjHCQmIH6K3PDRo8p4+So0pbOGgP
VboGj8GXivRl3fZvXezhUqhl4xtHKnIoKWyXIHuQyyTkL9Op2BO8cMg83R6a
5yLH9ypT8cLPNyWiI/agkjtAp3TrIUWuQqIgaidQTw+/Q1s9tLCm93ZWOYCS
RCs331oXXZxe5s09cgA7i3k/Y1NdDPYM8V310gEcRmOUe3V0MSfs0lTwvAMY
25izXSR18eulBWFRdIQiiye3yS908MpsgyG9xxH6Xn2TGPXXQfEyi+RrM05Q
laiMWue1UXYguCxQhAG+Eju77qZo48VRU4kYKQZYNq+54hanjdUfOzqLVjNg
YznzZpO/No78t+T5xYoBXR79T3GDNprSvA+lpDKAbFag2Na7Fj+e0MjnqzNB
TFYnZo/WWvywvTExR5sJ0l2h+mVKAst4hYYYMeHyHwa8RUmBL1ykK1szgZCZ
KOuZoeDkDcWhgweYUMBflaveSsHxl5LKGnVMyN/3e7Iah4JvKPOZPHcWRHtn
ME1atPDNx5yjzr4sWFvZVS5WL3DlBl+9AyyoMWhXmKzWwtdmEUav4gT3lebD
jy9p4ejO6Q7aVRZIm23ZsSxSC4e545LDMyzIIK1+x9XRwv7mrkTzLGeovK66
2HlWE+dWCsWP5TlDv8b7FNlUTVyx3zAupdQZ7hRljbnHa6KjdNrhwfvOMFM0
WC98SBObXe0Do187g5jfz1sPHTWxerLFro7mAszKc4PtkpqYJF4vad7qAm+d
amyGUteg2c7SzE0LrqC/XouWWkRGO3nr4M0kN2ifnexQyyMju3/MykLGDeRk
z/XdyiZj1D7yjCXZDfSadwhNnyLjn7F5bnbWbkAUX58v5ZDR9GammvtpN+D/
/f6HjAUZTWTiSrnq7pA6FEnZUK+Bxl1utVV0NmQ/+Dn/mL0a77m2reRuY4OQ
WtBWD4fVaD60iWvGYIPpuhbReVyNVpPqho/2skF1rPopU381uiyMlfSksGFr
4AapyKVVGKV7MGO2nw0dIpv7wq6uQv7xU4GbIz2gws1SemZBHR2N7yu23vSE
jHJ2qGyTGrZQc50m7nlCcksZh1WrhnRKdLII3xPsc/4tzKtWQ6oSfXFLjydU
3fY6ZlmghqTFh+P35zyBnTwQ8SJWDRvaWu9UbNkFl8M1R5Q3qaGeTx8zrXsX
UDi/752/q4pE+twZ19ndsNTlYtz/UAVpJmzqfmNviN+xXLVthTJaDNUsynT6
gEbC042jJ1ditSptpuSrLzRbvAgvsVXEu3a/TqRS90JFOtfom6oCRqgOl9Xs
2Qefgll701RWIC/4Olslzh8Oa7O5123kUaW8p7jjbgBk1Iqq8I/KoXDAh9iH
/YHg69PtpNu1HHlybl+FFPYDd/d0WoP+crzl82r2xPZgkDqTuuBnKovGBluT
rYMPAC027so7Kxnc+kn8T5fiEPggejRr0FkaiygPwgtbQ6E0K9LFJVkK7wsn
8A0mOXBj6Qdp6oUk3gpkvDwpEwYZZjI5xmRJpJ1xk80uCIN2Q5+5Jycl8Gt5
0vkn9EOw/8pE7tHp3zDjwuMgct8h+OWl8Pqi/2/o/teskGJgOLB6zvE1vopj
4N/Ok8YiEVBsO6H4KFocLzuVZ01lR8D3U07dDxTFsSpRLKlNiwtOjS2dwnVi
KHEn8+mzRi6IizBSPnuJYarGipccp0iID/sUuV9GDN0S+NRNU5EgpK1HPd8o
irba/nZFcYdBQbFk3ZmjoqiQJ19FlTkCmtdyrC6aiyJVbMpvuPwIiFt25pv8
ImHA7YYR/c1R8Kz+PsO6mYRTLrWlxf1RoMTwcf11moSOTxrv0SOOwsRFzv0b
niTsja1PixCJhtMJSVGihiQs0xm/01MQDUuPP48tEyFhvhxR2GkcA+o5BvHP
hgkMf0579ZkfA6WpX5SGaglMP/6Hu8nuWFibHrUvI4fAnvDnhcqfY6H/zvuV
U0cI9Eu0zy34EgsFrzZKBwn87fyTTO3vsTDWdIo2fpjA5Q9a4k1+xoI8f2Zi
OJJAR7HGfYxlPOiNKbHqiiDwaV6lbpIiDyznwy80HiSwqTm9+qeFYG/K8a4N
JJDVJ10eZ8mDq7dve5kL/PZjahFpKw/2rQ9NqA8gUEg2KWuFHQ+itRVsGv0J
BI/jXEMWD8hfBgpa9hJY9znMLDCAByERL64NeRO4Q+iL0XQQD8a9R5S9BR6Q
D9WLPMCDs3X5VWN7CJzfuF81IUzQX6zM/ORFoGm870J+NA8eJBX6/dpF4F/Z
r2fW8njgKr1K7LjArmVen28cE/yz+Uc3ITD3mcdo3QkeNC3yBmU8CRR53deL
p3jwnaGmnO1BYNY31862ZB7san8XoyKwJvGy1ek0D3x720kFbAJvrWTxe9N4
4Pm69S5F4P8BNf+URQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$25116#1"]& ], 
    TagBox[
     {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV0nk81Psex/HJEocQ0SIZNBLmWE6yNT5+X8QwllkYU6G02IlMEX6U5SRJ
kaLIUpZSwk2y5YwIleUkpGWWluMkS8Kgm8657h/vx+vx/P+tffAo84gEgUBI
XNn/661e53pry27gOU36KLWYoN1VDqphJ3bDVrFLiQ3XBPVOJ+52vewILU5z
q3IxY6R6KYdqXekIVSzmpRg9Y+RrUUHb3uQIPaSk+GRFYzSd1MeQ4jsCxWCz
YA3fCCkpa/i1kpygZYPMmi/xRoi5o+kEud4JcHpMehzvV/Q6Zq5yzUsqzJd9
VHl+kIzkCu7WJ41RgWT4ZouFKxlR2o60z36nwg6f1VJdO8moRGr0zaiWM3By
PDRpv5BRQHarQnmEM4xH/3dsvM4QzValRdvIuYDfVE2dxS+GSF6wwTYC0eD5
A9s7xv36iLLqBe29Jw2swjt/hLToowhSBscziAbtORa3eLf00WDIcpT1BRqE
32nd2Zyij/IXRWWr+TSoC9c0FFnrI5JylVxxrCtIp8RWPq3ejmwcKCMDNW4Q
wkmg88r0kKfHUMFCuxtcdq7sn7ush0L2hvlvGXKDTsbCeqszeuhKZOFkyJIb
pCfzUpeC9dBM4bLEauQOb5atfZ1M9NANcasxZdAdougZlnK8bUi20ubsrXkP
aN1jk+MzoYuUXodUBkrSQf5xsfxFgS66JjCXi19DhwbZE89evNBFteP9A6Wa
dGiX0GhMatRF/H//2fvVjg7pzw+2Jv+ui8zJ+6MyztEhNuf7PmVdXTSeSizi
aTDATvNAenMoCX12bku7so0BLM2urML9K1b0DQ8zYcDF62KrTNaK869RNjow
wCIqVjt3FwmN3VV7ezSUAUJ/qXr7NST0aUh+I7GZARm25WmKtVuRiLSUjXsz
4WPxcGY7YcXjV06y/JnQS9ArN1rQQaJ7O/31Q5mgr5P8smJCBwkto02GE5lg
c6HUsHFEBwlcp/vJFUzYeIP3wadaB73jfpJ/N88ED8ofd4t9dNBo559p1jks
sPWpKCt4rI0W1hOSPxSw4IeMyCKmSRutCzZOzChngew9/fx9tdrIXSHrxJtG
FlxsxTKhSBt1etEC44QsqK91FITGaaPasSfUZrInGHR89N5jpo3SZVvkrbs9
4Uhw3dNf72khS9fybKtlL6gOTy/5EEFEVBWHkF3SbDASqwpc/ImIM/rBzkaR
DUFdklOPWEQUe1hrHtNig4W9jUunJRE9TChgUx1WHA+X6ZJEZF6dvdk7kw0M
rw4Xn2uayEwxsZyr4Q2zVg+NJwa2INM/2U01FA5Uq1T9PMnWQA1ePeu5jhz4
rXxUl+qigazfWnEt6RxoTovvI4IGshvTMG4/xAHP1LPhE7oayHP5Q9lgBge0
rlY/mBVvRrHbj14Uj3LgEtGv+2HeZsQ7dSZw1/E90B8ZFDn4Xh25mzaqdVfv
hfBgJzeTrE1I6sLCeS+xDyhcoxcr+G1AZDOOQbDpfnCTftDESFNDNm/rfyoO
HADW35/+ZvasQ7Xq5PmyGX8oDKt5nO+jgh5Qf6SeMzgEExW4UIGgjKLV31XW
+x2GgX3JgztKlBAecoezKfEIdEmacp1vKKBNtwdv9j8IgNXXls17q+WRRMDn
hD9GA8G5slnAl5JDuDJ7hqAaDNoOifHj+2VR3YFhcapzCFz60lH621+rkamR
/VmHkFBYwntf9BdJI/svsg89b4bBwCFlQQ1bCpWSHh0r6Q6HqueGQ01WkqhR
IoVnNBYBx4sTz5uaSaC6QPrQ74qRYNSqTGMYrELk82yl3OJI6J7hXbFFBDRz
Oz3vKSUKNomLLbsq/sEu5ncEab2KgrZXq87dmV7GvLvEBLXAY6BDSx1cCv6B
BU6wxkwlo8Fd5rG86pvv2HWP2zmTudHQMPE1b2/MElaTJpPes5ULXGG5Xa7h
IiZ3P/tZbxsXNtSUeksPibFzxHVDER7HV/7SIWgsncfYKTwDq8njIPvEliN5
eA5z2naEWpp4AvyU/bQHnWYx1QKVGgPFGGibV3RbS/mGGchMHnx3OwaURZt4
c6QZLOA/rXzDXbHwQlGO0+45jU16NpXfHI2Fbf68fXznScz9aVsDJfokVN07
zSjc9wUbSWjJipaMA9Vcq8zMos9Ypd6n+4PFcdBd6zq6t3cMK1KWKhkwjYfr
enLm1/X+wo71kYenePFwdIdW+2LeR+zCqdPeZj4JQKFbV8/OvccGj/WVbJxK
AKkCXXO1WBF2MI12tfhrAtSXpmRmRYmwb3lPs7fNJoDWz+E22VARtvbRk2Sz
xQSQu5/V8K+vCHOXaTtMX4WD7MLQ5KK9CHtWcG97uhoOEiOqzsprRdjjzgu1
izY48M4P9/UyhBjzlcLtRAyHMs3Eh2IHIfZ+/FyptP2KSe2uWpZCjKCUnrOO
igNWcTk2TlOIwZ5TXGMmDgkHvj+zmxBgzVORloEBOPR+15TZmibAXAhfTaaD
cCgcz8MDYgXYa5Vw/eOhOPTkN1y9EyrAliyC1VMicVibFNZuzRRg5sn+y0Vx
OIhOczvDiAKsK1c4r4vjkF485PtIRYB5VfpO3U3C4RR78qrSagHG7d0jaE7F
gSLsW2qc5GOSwlcj6AwOqrf46mtFfCznm9dAz1kcqEsmgqCXfExHaqjbIxOH
JfVQu44uPla3nskbycLhU5yxE7GZj/0P+mCNnQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$25116#2"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{2.96*^-9, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{2.96*^-9, 1.1011200000000001`*^-7}, {0., 
   1.0964633629803509`*^6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.855087606391399*^9, 3.855087642896573*^9, 3.8550876849586*^9, 
   3.855087964182536*^9, 3.855088137956091*^9, {3.8550881925601377`*^9, 
   3.855088213517478*^9}, {3.8550906103581753`*^9, 3.855090667865048*^9}, 
   3.855090714678006*^9, {3.855090745932721*^9, 3.855090765104608*^9}, 
   3.855090796259851*^9, 3.855090913821019*^9, {3.8550909751443443`*^9, 
   3.855091003464923*^9}, 3.855155938557406*^9, 3.855156152326724*^9, {
   3.855156195588241*^9, 3.8551562104679947`*^9}, 3.855156519692113*^9, 
   3.855156550780912*^9, 3.8551570326609983`*^9, 3.855157089680901*^9, 
   3.855157133063817*^9, 3.8551572237005463`*^9, {3.855157322053855*^9, 
   3.855157336479453*^9}, 3.855157382841363*^9, 3.855159067324884*^9, {
   3.8551603832894783`*^9, 3.855160417342136*^9}, 3.855160471866379*^9, 
   3.855160512350453*^9, 3.855160666598418*^9, 3.8551607300917397`*^9, 
   3.855169765800516*^9, 3.855169827903922*^9, 3.855243994443914*^9},
 CellLabel->
  "Out[1792]=",ExpressionUUID->"5e2a3b4b-70f3-4f78-aa71-309c47795ef6"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVlnk8lOsbxoUiW6tDTosklRhryDtzc48ZxozdMDPSZi3ZqZMyErJ2bEWF
bBFRSVG2bFnKER1JuyKRoqSoU9Lv/f3xfJ7P96/n/VzXdd/vtd4twMFTVERE
ZJ48/79lNzxTWOO3BSpTpS7vu2CNktfSD+6t3gJ7XtxuixRYoziN87D41xa4
qfXtq/Uya5xzbkimJKsD/3LLo94TVjiRmLvQtGIr/NxKXyR9nIPvFHjuMd+2
gu8ykxt7zDg4UrSk5a6JBpT/SHi5WIKDzxsjw+0faMDgef8GSjobu6bdvrh9
1oTK8hqj5puW2HHsT/uS7RTgvxN4XI6yxFaZ/qsfjlNA5dyZv4ptLbFWjekT
ulwLNDx0RQomWMi9cmqqdZU2eJzeUDGvw0LG0EHvfmMduKbf9FzxrTm2bnLI
nN2lAwGr2TmDjeZo6k9pV4zWgbmFFDenc+ZI/TmqsvMfHXCXNlzPtDNHPXn+
4NsdujAq6VDc2M7Eazv0ZSUjdYH/T0tHThETKYVLqepFuhCQmOonG8NEda17
5/wndCE/9rP6OQYTVSyNnb6F64EiUh+JdTMwP+WPmFUFenB6cs+jtRUMXDsw
fZ1o14NEJUpYVToDldzLl0bK6kNk9SJr5g4GLheu7pbM1QfRdKf4ms9muKBy
nq7UtA0KdbMfzuiYocPMxhPmo9ugi/ue27XKDAu3W3cGyxpAloB9ZpGoGdJb
szn/7DCAVzbpA1ce0jHqoRE3/LsB+P9OrYw4Ssc+hT2ZpesMwc21jsb3oqOK
a9yTfnNDUGLfe5tgT8c7I49cNTMM4fExrbKPm+koPhvsOahjBPDDnZf6HJFr
nFUiJTCC5TltzXN3EYsiWsYNIo2gh6ufW3UTkSmx1D+lxwhCxMJXLziFGKt4
5ZDpge0QdJH9YswGUZIYiyssMobMuM33nveZIv+YXFfPP8Zgm92rua/NFEvv
bJP5OW1M+tutonnTFC2tYlIdkQCN15EfXLNMMXHn+nPigwQo3q3zMPY0xWcF
rOfaC6mQSjFPDeKbovpowJqdGlTwVZukPOOYYpd/Y0H1ESoMGLWkU/VMUTpy
R5mXAg2yWhWjtMVN0bUtaiIdaOA7tsm7/rMJXpYsozR50uDjFZ9G3+cmaJX2
/bpCFQ00n7aO9FSY4MnCjPq7dgCK3JyHvq4mKNfe262eaAKT7uI+om2Am59W
RTZeNQHKW/oJ9xuAOHlO3+GhCbgERmuLXACsk9LtocqZwof0jQvHowA/6s5t
8+CZAmXp6DJ3JiA3OnXhjXFT4M2cXcDrp+Fe2ehXcz9NoU1WkqPYSUP/Mwdr
zeUQ9i03er64jobx5S5+z3QR1gY7eRzNp2H9Q9VHC8IR1DXzb8YF0FBFtbbI
To4O/kt/SHfJ01DranlEljIdujdkb7SSpiHVKJc/oksHxTf/jc2I0NDZKlrm
MI8Oa6fWJzROUDEh1Do0L58ON53kTyl0UDFz3sRm/DodeoZkiK4GKhbG627W
a6dD2a2m+fwbVGzIUXjRMU6+d19Dr7aAilNtQ2Yfdc0Air6sTjhGxV82/WuM
mGYQOfXd3f4vKko97fh2nGcGS9p2FRoHUFF1srxcPtwMaraNJfvvpiJP/tAK
WrsZqKlNbHNAKjZ6Sr1J4jHgqx7P47YUFRdJrR0N288A/zLwShKnou1VnXHv
owxocS5bFDpP4OtZ/iezPAbwXTOkTk8TKBpf8vPnKANiqTKlEi8IZGvUz49/
Z4COzDHlCwMEnnrQs+CJFBP+Gzi6lvcvgaqrZiWqKExIfetYIdFJILOMsdL3
EBP0xumBMTcITLbhK7jEM0HqTKvLy6sEDkwfUGJlMWEuzuydVRmBXsQpZdVG
JkiHXVkcUEBgfPeQxouF5iDy29i1NpXAB4EzWl0K5qDulGHbcpLAVfKL9Wq2
mIMDZZ3eYDyBZTu1t5+2Noe6O9vnnY4T2P0xgmmVYQ6BQhdtoxACV55KZxmX
mIP/iR0awwEE7jS8yNlcS/LCayl5vgR+PHbfXvylOUR/M3no6EXgkmWrdzWo
WoD4/Qc7z7sQyK/W2ltmYAFnL27Jf8kjMF9g5nGWZQFGKfNvtZwI1C708Qn1
tYCQeeP+xXYEOujVHtKosgClS1lNyeYEZj3uDlPqsICT6x7kujAIfHP0dbjk
Ewu4GOoLhnQCQ9skokd+WoB6nIGaChDYsO/P2D5ZFkwpaW3QphK4UFYroXkd
C45MKLNtjAnMdHJOyTFjwUYV85g6AwIH/9ufnujEgstt12wltxG4KVeYcdib
BcaykdWeegTWjBZlc5NYEFNh0G6jTaBIUk0u/TwLzu1NVX9GIZCl1V2gXcGC
uETtglBNAp/+9aVE5iELzuZ60AbUCZTKvlx1bJQFz8q8zaK3EEht9GyZ/o8F
HvXvvXAzgf5Da3s8ZS1BYy//2NJNpD7iT549UbaExQ/PekxtJLBvU9oYR98S
nkku/fRalUAxDvtro4UlxLzK/ja0gfQ/rUG22N8SfAOa3q1UIfBs1UElxShL
aJP3OGG+nsB7jymbkjIsYU+tnmS8MoE/fozpzZdaQuuUg9XTdQRqrC0wDWqw
hOYGJ01jknehi/VIryVUjdDiytYSmOKxwoX3xhK2uoQZqJPcHNft1TVrCfUX
XivUriFwuuxECE2KDaK21ZI8klV7IPLaGjYk7s8fFSPZ6fO3kxt02BArUpnS
tJrA2JWV5zIZbNAucRlOILnG0OfiYj4bGsRCb7uR/N5lw43wA2woddsmwib5
z4gXTZ8i2GBvZ5hoQrJVQUa3WzobbhoFEWYkR7TZPH1UzAYLWaOvXJKvjUmM
smrZEDVFzQgleUiqZbq+mw2Hx5J+F5C8nHLkN+U1G96nJq58STLDXk+m8Asb
5odmqzeS33sodEJRXoIDfu/eth8lufRM8cZ4JQ7MpbWqvSL5Wd0u3Z+aHDAN
s6q3JfWQHlQw8UcOhN3K9LpPMnXBv5whLgfi6xfJ8Ek9/VUT+dx9HOjY6Jjy
ieR8CzPPzqMcKC2N6j9F+tHnMxdknMKB3R/fNzFIv8STqyOuFHKgP0rLQJT0
c1ulf5LyTQ54tpqu7v6/v99eFy16yYFZofj9GDIPXUpZlWFTHHDzlnMPIfPy
k+bYOCFmBR19ab/91Eg/Y9of96lbwY9FD97GknlTXVYmlXfYCuSaf5YxyLw6
67srLD9pBWcdSm6mknmO461WPZFnBTL1O8XeaZF+nE+mHeiwgqKJdaI1uqS+
6iGBhiutIem36vLnRgQOW2sIyzZZQ/H6xIIIcr5WBL1NWENYw0hSWYMGOX+H
bvEuiLlZQ+aXYZNSEwJpDOpAb4U1zDXOqCtZEMi17c+ebbGG/buK5idZBPq4
+O5d028NPz7nBXWxyXkNzJnw+W4NRm9efs2xIXAqZ050EdrA3dqUqovOBBbO
NGhR+2wgdZtGlck+Mk8iTjNuIzbw+eC0YaYPgb3Sk3UJszbQlcbd/5XcV3Pr
15g/VrKFYU3G+c4gMp82Qtdgd1sQrqL/03mUQMkSWkLpV1vofrKmckMauc+e
+pR4i9mBFav93sdT5D4aNJA6KmMHOSl7m5ozST3Ge3oL1tpBYrLFsrAcAl/+
nnf5RLcD4aCjuHEpgQYau4MSk+zgw6055S/NBI7HrMttXm0Pr91X/ZqdJfCd
ZeOJTDV7EOF0TPT/IFlup5+vtj1Efxh1rSX/L+/OZlEVGfYQJT6WkrGIiqOX
5Z8HHLCH1qW7RLL+oOJIv7Tiujp7kIvY7XLPkIqvVb+nCXkO0CyRwQmLoOKT
tgcnjNMdQfJ88e41f9Jw9g+RqOFsR4gV+1K4TZmGK/ZrRSQWO8KeuPu/7DfS
0EY2+dCzGkd49cDxdaYWDducON5HXjlC478JF+0YNLw22s6q0+DCx6Cqngh/
sh9I1ksbd3LB5ezWwpx2GhpZFadtn3OCYGL2Uo0QUOeBc20FlQ87hqwWTpP9
x0anRr7zigt4MVfk15H9TDxl9m+nGVdwjHD/83EpooY+X32/zm5IPe9TrhZF
R9rzql9yvXvg3Bn+DslQM7ympPG1aGovNL3R9fkgYGA162dMkro7LH0zarrH
mYkhSi9KqnZ5wJhD8FQ02beFPuX8VRGewAy8bKhGWOCqS30Xeqq9QDZ16+nj
xiwU9XoX3vTEG8771Q4bbbFE4TLnKZGV+wEGpWeHt7Kxcs+jmRhLH2CVzrRG
buGgDsUsgeFzAHYz7zj8LW+FZu8lb3Ev+AI1bcHqkpXWWKB6Ozi/0w9OvVDL
GlpggzWi0c2UUX+4Ohn168C4DVZ62/XHygWCqtrVOYc3tqjxt/OS03mBcNAx
XzLH0w6nLsWfuUcNgqhvG98cH7bD1LN39ik/DgKafEOatas98jpmROS9g6H3
yO5klfv26P3BcVRHLATKcmbC88wd8LztpfSJ0yHQp3PhO+WWA1ackIi/uyEU
hreOzFerOqLUjbSu7sZQCCeSPPOyHDFp3Yp+f9uDUBKZufi2BBedo5vVt08c
hAF7npWEkIsWap6sgohDsDZWRvPcOBdXZi+vUJf7CxKrsxkqjk6oLjHh9uLS
X+D3Y+XV021O6HW94eVW4jBYTB/3Cdd0xglubfGFJ4eh/A/rdwq5zmhzr/Em
NSQMNL7umz4pzcOB8PrkELEjYOFi31IWyMOSTSM3+vKOgFbD8mNGL3mYu0w8
v1fnKOgajnYmIB+D72s8mmw+CnH8p5LvC/mYEnmcp+8aDhKend6HpQXYF3w/
X3EyHA6qv9+ywFeAbic45/I+hQMlQv/zFT8Bfj5zL01tOhz+nkgvcgkQ4NLb
7VH638KBGZfYeyNYgDYSjR52C4Tg3Cgw8AwTYFf21c3x8kKYnFa2aIsVYGtb
yrVvNCGExeUFhxQI0OGx7KUIUyEkSlypX3NBgEPjSQULzYQgy22d6iwSoMiS
+PQVLCHE/iu6bnWpAEEQGarlIATlVw+S7lwVYN1koJG3lxCMa6wvyjUIkC3y
SfvjPiGc2lxeceu2AJ8u99ty8IAQygOlivc0CfC74X6l6EAh7Fxy3/F6qwAN
ovbO5R4RwntTfgv3ngA7Tr/6ulEoBO/Ndeq/ugToVLJz8vIxIYT/pxRZ3C3A
0G7BYF2MEG6/efxxpleAYq8eD2CcEF7R9SRz/xVg+men3rsJQohXOClr/lCA
KuL9nbYnhSC6cHh+sl+AlX84NA8kC+HWVf0XGQMC/B8rGOMh
       "]]},
     Annotation[#, "Charting`Private`Tag$25165#1"]& ], 
    TagBox[
     {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVx3k4FOoewPFJHJqElCxJEhXmYhjb4GfeMZaxhDFmaUWWEo4YbWaQrVIn
0aJUlvBoKlvptgkvZcvSjdBGJaLsQrbOOfeP7/N5vpv8/mQFSBAIhIR/+7+r
Nr9T3hCqC+urrmRQ3JyRTGl6lO8DXagos5H6OMdEkjYu7QVLurCmpaOVeouJ
FjkV5wzO6YGRTXZJzwomGk7JkqKV6EMchazk2+uIBpW5+xJn9cGkMY7KvOKI
vubL4wZbEhDiUzYlsRzR+8o4oecrElRqkx1fNTmgpkm/Kb+J/4B8qUJyWaM9
qotd71loaQAK1wLcjM/aoxrZjuIfJwxAU7WWVu1ujx5vsQ8WKBqC2YfPnIG3
DMQuujBeo2oEu8OHva/P2SHG56igDioZrp4nzEb60lHNVtblmT1k8JZflvma
TEe0MIMXKglkuFVUl/xFgo6sFwa0dr8kQ1ZUl49UIUImSrye/p3GsMRf4zE4
Q0NaTKr3rNAE9uau8Fbzt0U5qesSVXNNQK0ZF6Yo2yKNzsl7Vi9MYNoor2n8
JSC1fXcU4lZR4M3Wg7WnzQEpitSbZbIoQJTlOwSo2qBlZb/palWm0E2Vz+pb
boVY0zpJDgOmULypRtK6iopuWrrVR6wyAxor5Jx/NBXRa665vNxpBrLKnnNr
ZyxRfLsFW/jLDEy586vjf1ogyZmIgB6yBVATCS47FM0Rm5pZSORbgOJlg9Th
bjOUH4OHzOIs4ArHY9e6HDNkL60QltpqAY/ffN2rY2SGklWKDtMOWkK1z7kj
AxxTJGP17eTNfCpMBQeL2ytMEC9Wrqn1JRUaXUUTJWdM0K1aU9mFSSp8Ulq9
sLTDBDFdE897IStQnzIo/jZvjFJ2b7oq2WMFV/3lwiptjdHKuJ23A5VtwGj2
1kHCByMk96KtWS/FFhiPskfPiElo29vyuMpiW7BabWEr9iMhNHKVwmq3hWlF
xwZQJ6EnRONWazka2I383th8Xh+NGi+a+nNpMLam7ikjVg+xE85L3R+iQWC/
iWlw+Dakpf0430OODv7RU+03MrWRYfGdmExNOhCd8ww1fbSRtUUW76sxHe4S
0PSkjjbiuCbIHuXSwZkqlki+txmdFrgJsnPoQF/SeO3UpoXGn3+2GzW2gziq
YPLEuk2oMoDYd4bLgP3leZ/+d3c9+oOoMXDsAAPmq4V5tc7rkXsxeSgomgE7
7p1Y2DSkhj7N8MbsshmQGK6/QnOrGpI4VbiwMMCAJ28dqpffUkH2txlrQw7b
g7D8/tHkCiXUPBpj73rJAb5WxS7K6Cmgt0emCmXbnWBcNV1roHSWRrx2tzx2
wAm2SdZJyPvM0KwrA/DknBM0dP6Z76UwTcuR7H7XrcmE8Fd5clsEk7TAtIpV
BWFMyIkJqWGnfadN3k6KtCE6AyE3x1xCtZG2skfZNgy5QHXC4rTfofFqG4Z1
Z1uJG3wKzaFzLhDxUOLGrGp1TximcEfEz9Rx9/NXSdR0L9hsnLKhrVcHW7gW
pFkuesMX2aQuwU0SJr/iPC6x5oFLaP5JLQcy3k5+pFRftANkk2M8AzwpWDJ1
5i/v6V3Ql3ujhkI0xyQKT+8AeS+QvvV9/iPLEtu8L1+Sa/OBy+wXYQy2NS5V
I/3MH/eFfnWpk/VNgB84LSSe0dsHNtcH9xDu03Ck2ofC8j3+0NLbO7B9CmFR
8B2eakwAUHf2kF1V7LCq+HVe64NAoI5ltoR4MLBE4KCwqjsINDLa5/vD7LFo
NWecsPYAhBocbg7JccBlPm+mE5nB0FqqcKC+3hGTDexOM4IPQsWlGP2ILids
913mITsvBNK//xL8nmPiXO1nETn1oVBcd/1hqZQLfiSRUG0wEAbNtS7a32Vc
cVmQR0eyXDi83XK99baGGyb9xZG/mB0Ony+GHX2osR2Pi09lNFofAsqlwfl+
I3d8/krtfs2uQzAanCEbuMEDc+umCUpBESD/VKFoLsMDB/3wGiAvjwT3YGVt
3/We+Ia7OH34YiR8nX6UnXfRE5ckSZ9q2CyAyMCdGeZEFibeT2tqrhRAIeVd
395TLHxm45qOMPcoMN8Y8q5mkYU5CdV6lsNRkLaiICn+mBd23BLglBtzGAxH
Jo4XDXvhtdcUS/TkjsDh5yzy7l1srCc97PdBfASGVTSoWzvYOPBexUd9q6Pg
rOL6opTujYfZjwvyuo9C0IXvLPXH3nh7Y+V/rSOPwWy0BJtA4uBO4dNzkcuP
g0SeQDB9iYMLt369/zr7OBSVOz85Kc3FWaslc9rI0WBcvF+XHc7FES2kNyPV
0VB7LYP24w0Xp8ad4FJ2CWFEn/n3ezoPv45oyVEZEUJubl2WZyEP+yW5XM0e
EwI8KrsgL+bhiYzGtC2TQoiWKDvUcpuHFZ69iKfMCqG3dmTQqZiHt0tX+nss
E8HZ8eDn8ICHm64VbzulJIJY8kvDLbU8XPM8tXTWRgSmtM53fT08zOpaJY6h
iaBzSnoq6xMPfx46kytlJwI33R0/+V94mCB/Kn2NkwjuZvrea+vnYeDHCQxZ
InBYJ63+ZJiHn4yEWwQFiiB/6e+ClHkediaMGY3uF8GdgkAPxiIPv1UM1Y06
KAKb51N9S0s8/Mv8gFpCuAiqPsbXhS/jY7N438Ws4yLQaog55i3Dx3UXe3/q
iESw++DmUDkiH3sX7h65GysC58gJZv1KPhY083ueJIpgTGdllYU8Hy/v7epE
J0VQksLlTijwcfqEd1vDaRFQGlq7xYp8rCXZUe9+9t+3OmTnt5aPy9axqjvP
iQDRbDPU1vHxP5Q8xOQ=
       "]]},
     Annotation[#, "Charting`Private`Tag$25165#2"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{2.96*^-9, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{2.96*^-9, 1.1011200000000001`*^-7}, {-6.576234363235534*^6, 
   6.773335440715483*^6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.855087606391399*^9, 3.855087642896573*^9, 3.8550876849586*^9, 
   3.855087964182536*^9, 3.855088137956091*^9, {3.8550881925601377`*^9, 
   3.855088213517478*^9}, {3.8550906103581753`*^9, 3.855090667865048*^9}, 
   3.855090714678006*^9, {3.855090745932721*^9, 3.855090765104608*^9}, 
   3.855090796259851*^9, 3.855090913821019*^9, {3.8550909751443443`*^9, 
   3.855091003464923*^9}, 3.855155938557406*^9, 3.855156152326724*^9, {
   3.855156195588241*^9, 3.8551562104679947`*^9}, 3.855156519692113*^9, 
   3.855156550780912*^9, 3.8551570326609983`*^9, 3.855157089680901*^9, 
   3.855157133063817*^9, 3.8551572237005463`*^9, {3.855157322053855*^9, 
   3.855157336479453*^9}, 3.855157382841363*^9, 3.855159067324884*^9, {
   3.8551603832894783`*^9, 3.855160417342136*^9}, 3.855160471866379*^9, 
   3.855160512350453*^9, 3.855160666598418*^9, 3.8551607300917397`*^9, 
   3.855169765800516*^9, 3.855169827903922*^9, 3.8552439945236588`*^9},
 CellLabel->
  "Out[1793]=",ExpressionUUID->"e5f27880-1d45-4e0a-b5af-777de96be2cc"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.84305840046799*^9, 3.84305846032104*^9}, {
   3.843058607710734*^9, 3.843058620979311*^9}, 
   3.843330654312757*^9},ExpressionUUID->"68e24d9d-c014-4139-9e78-\
3ab3c0dd1e6f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dxs", "=", 
   RowBox[{"0.296", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "7"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xp", "=", "0"}], ";", 
  RowBox[{"zp", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"forceTab", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"y", "=", 
     RowBox[{"0.1", "dxs"}]}], ",", 
    RowBox[{"y", "<=", 
     RowBox[{"2.5", "dxs"}]}], ",", 
    RowBox[{"y", "=", 
     RowBox[{"y", "+", 
      RowBox[{"0.01", "dxs"}]}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"totalpts", "=", 
      RowBox[{"Length", "[", "bottomWall", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"dist", " ", "=", " ", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"grid", "[", 
             RowBox[{"[", "ii", "]"}], "]"}], "-", 
            RowBox[{"{", 
             RowBox[{"0", ",", "y", ",", "0"}], "}"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "totalpts"}], "}"}]}], "]"}]}], ";"}],
       "*)"}], "\[IndentingNewLine]", 
     RowBox[{"absdist", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"bottomWall", "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "1"}], "]"}], "]"}], "-", "xp"}], ")"}], 
            "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"bottomWall", "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "2"}], "]"}], "]"}], "-", "y"}], ")"}], 
            "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"bottomWall", "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "3"}], "]"}], "]"}], "-", "zp"}], ")"}], 
            "2"]}], ")"}], 
         RowBox[{"1", "/", "2"}]], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", "totalpts"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"force", "=", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"lj126", "[", 
          RowBox[{
           RowBox[{"absdist", "[", 
            RowBox[{"[", "ii", "]"}], "]"}], ",", 
           RowBox[{"6.46", " ", 
            SuperscriptBox["10", 
             RowBox[{"-", "12"}]]}], ",", "dxs"}], "]"}], 
         FractionBox[
          RowBox[{"y", "-", 
           RowBox[{"bottomWall", "[", 
            RowBox[{"[", 
             RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], 
          RowBox[{"absdist", "[", 
           RowBox[{"[", "ii", "]"}], "]"}]]}], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", "totalpts"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"AppendTo", "[", 
      RowBox[{"forceTab", ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "force"}], "}"}]}], "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"forceFunc2", "=", 
   RowBox[{"Interpolation", "[", 
    RowBox[{"forceTab", ",", 
     RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8430617366560783`*^9, 3.843061940644188*^9}, {
   3.843061971931679*^9, 3.843061978035647*^9}, {3.843062161323409*^9, 
   3.843062237440226*^9}, {3.84306226836631*^9, 3.843062316892111*^9}, {
   3.843062413399679*^9, 3.843062488243133*^9}, {3.843062518441737*^9, 
   3.843062868662446*^9}, {3.843062905204554*^9, 3.843062925290988*^9}, {
   3.8430630535558147`*^9, 3.843063059659176*^9}, {3.8430630991867447`*^9, 
   3.843063145239378*^9}, 3.843063292440391*^9, 3.843063592129685*^9, {
   3.843063841556601*^9, 3.843063859555007*^9}, {3.8430658532127438`*^9, 
   3.8430658537395153`*^9}, {3.8430658875548*^9, 3.8430659567190313`*^9}, {
   3.843066315094059*^9, 3.843066379235177*^9}, {3.8430668065671186`*^9, 
   3.843066807886414*^9}, {3.8430670731378813`*^9, 3.843067081936181*^9}, {
   3.8430671301659393`*^9, 3.843067158214018*^9}, {3.843067565650825*^9, 
   3.843067586434514*^9}, 3.8430676360224943`*^9, {3.843067684282193*^9, 
   3.8430676921797457`*^9}, {3.8430680286484337`*^9, 3.8430680312428102`*^9}, 
   3.84306817710222*^9, {3.843068286480464*^9, 3.843068302477064*^9}, {
   3.8430683723252983`*^9, 3.843068464584474*^9}, {3.8430686051230288`*^9, 
   3.843068621898098*^9}, {3.84306881206313*^9, 3.8430688960824833`*^9}, {
   3.843069121384025*^9, 3.843069185958105*^9}, 3.843069249538609*^9, 
   3.8430693006726217`*^9, {3.8430705606404753`*^9, 3.8430705861323023`*^9}, {
   3.843070700292371*^9, 3.843070779261497*^9}, {3.843071477591682*^9, 
   3.843071537860813*^9}, {3.843071593770649*^9, 3.843071595072591*^9}, {
   3.8430716732148867`*^9, 3.843071686685972*^9}, {3.843071778978163*^9, 
   3.843071855779298*^9}, {3.84307192378579*^9, 3.843071965447803*^9}, {
   3.843072020134692*^9, 3.843072039819293*^9}, {3.8430720809086933`*^9, 
   3.8430720959137907`*^9}, {3.8430721436473713`*^9, 3.843072157941435*^9}, {
   3.843072241612215*^9, 3.843072277599737*^9}, {3.843096233824428*^9, 
   3.8430963274900293`*^9}, 3.843096394295681*^9, {3.843096488611124*^9, 
   3.843096488769744*^9}, {3.8430965796561403`*^9, 3.843096599541588*^9}, 
   3.8430967335526648`*^9, {3.843096799044549*^9, 3.843096801746962*^9}, {
   3.8430968398028603`*^9, 3.843096839874199*^9}, {3.843096974924418*^9, 
   3.843096981129023*^9}, {3.843097065769477*^9, 3.843097071118815*^9}, {
   3.843097292036168*^9, 3.843097297235675*^9}, {3.843097351017954*^9, 
   3.843097360585252*^9}, {3.843097455452731*^9, 3.843097536984194*^9}, {
   3.843097573204055*^9, 3.8430976178284407`*^9}, 3.843097666970622*^9, {
   3.8430977283689003`*^9, 3.8430977340302773`*^9}, {3.843097846129879*^9, 
   3.843097853222762*^9}, {3.844171675051371*^9, 3.8441716950979548`*^9}, {
   3.844171746943431*^9, 3.844171775492601*^9}, {3.844171838946961*^9, 
   3.84417184390668*^9}},ExpressionUUID->"8e901d90-d741-4750-b168-\
26177588df4b"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8430588282913218`*^9, 3.843058864545334*^9}, {
   3.8430606167711067`*^9, 3.843060790514496*^9}, {3.843061204511936*^9, 
   3.843061205022519*^9}, {3.843061240333366*^9, 3.8430614654762278`*^9}, {
   3.843061511802182*^9, 3.8430615988954782`*^9}, {3.84306164549865*^9, 
   3.843061675281261*^9}, 3.8430617349606743`*^9, 3.843061858280553*^9, {
   3.843062967983597*^9, 3.843062969343692*^9}, 
   3.8430630582751617`*^9},ExpressionUUID->"926166f8-3d1f-465d-91ad-\
2aa20c2b776e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ljNew", "[", 
    RowBox[{"r_", ",", "\[Xi]_", ",", "\[Sigma]_"}], "]"}], "=", " ", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4"}], " ", "\[Xi]", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox["\[Sigma]", "r"], ")"}], "12"], "-", 
        RowBox[{"1.5", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox["\[Sigma]", "r"], ")"}], "5"]}]}], ")"}]}], ",", "r"}],
     "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"forceFunc", "[", 
      RowBox[{"r", " ", "dxs"}], "]"}], ",", 
     RowBox[{"forceFunc2", "[", 
      RowBox[{"r", " ", "dxs"}], "]"}], ",", 
     RowBox[{"lj93c", "[", 
      RowBox[{"r", ",", "1", ",", "1"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0.7", ",", "2"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.84306285391926*^9, 3.843062855380747*^9}, {
   3.843062938361989*^9, 3.843063035036161*^9}, {3.843063161774219*^9, 
   3.843063168629183*^9}, {3.8430632138362513`*^9, 3.8430632342179737`*^9}, {
   3.843063272515573*^9, 3.84306332509451*^9}, {3.843063375041848*^9, 
   3.843063414298773*^9}, {3.843063733306694*^9, 3.843063819717865*^9}, {
   3.8430638762435703`*^9, 3.84306391891119*^9}, {3.843063960974594*^9, 
   3.843063965278537*^9}, {3.8430640426271963`*^9, 3.8430640668985023`*^9}, {
   3.8430641243030376`*^9, 3.843064149780105*^9}, {3.8430641919798403`*^9, 
   3.84306424536972*^9}, {3.843064281896963*^9, 3.843064306342655*^9}, 
   3.8430643911862793`*^9, {3.8430644597357473`*^9, 3.843064682890091*^9}, {
   3.843064718451359*^9, 3.843064728560565*^9}, {3.843064760199051*^9, 
   3.8430648062718983`*^9}, {3.843064856228676*^9, 3.843064890083*^9}, {
   3.843065047296283*^9, 3.8430652747688227`*^9}, {3.843065336540827*^9, 
   3.8430653876898527`*^9}, {3.843065420729465*^9, 3.843065486014982*^9}, {
   3.843065529155877*^9, 3.843065593023919*^9}, {3.843065628568144*^9, 
   3.843065805022732*^9}, {3.843065941993266*^9, 3.843065949222398*^9}, {
   3.843066041010399*^9, 3.843066050346143*^9}, 3.843066287219551*^9, {
   3.843066401786796*^9, 3.843066442996913*^9}, {3.843071749024784*^9, 
   3.843071757755867*^9}, 3.8430722323397083`*^9, 3.8430722863049183`*^9, {
   3.8430963636283913`*^9, 3.843096367557498*^9}, {3.843096417996757*^9, 
   3.84309641826904*^9}, {3.843096460257512*^9, 3.8430965135058613`*^9}, {
   3.843096620587556*^9, 3.843096635936961*^9}, {3.84309667594363*^9, 
   3.843096720565967*^9}, {3.8430968204815083`*^9, 3.843096856423625*^9}, {
   3.843097100476927*^9, 3.843097109387259*^9}, {3.8430976482101593`*^9, 
   3.8430976617792187`*^9}, {3.843097698856242*^9, 3.843097712200925*^9}, 
   3.843097759246122*^9, {3.8430977908918343`*^9, 3.84309787802917*^9}, {
   3.8431373598536997`*^9, 3.843137360828918*^9}},
 CellLabel->
  "In[2415]:=",ExpressionUUID->"384421b7-5477-48fd-a6bb-fea5eca5d219"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVV3k4lG8Xtu9rYSTJTiKyM+pMsqSypKxJEZKUlCKFpEWRECFZQ4qSLIVw
kCja/FRaVIisM2MbxszwzffP+1739TzPWe5zP+e8r5JviLM/FwcHx1724//v
jrivu4/Oj8K5I7q7Avk8SYnOtWb5S6NgG7eRu6XRg3T7/OjpDP4xUH0Y/+6h
mAep8N3u0StKY/B7ztL3/FM3UnOo9CdflzFYM0LP2yroQuJgFuTlu49B6JGs
T+GD+0iWVzed+LV/DF6MmnJXNuwjvb5rK+zpOwY2E+EBKif2kd63nbPeEzIG
YdR5bYH/9pJ+Sv+qg+tj8H5puu7TPWfSUl1JoXzjGEQtpBJXH3Yi9ZlYv87H
MTj4dqCKf6sTqbZmaEz11RhY5uhpM2WdSKcrFTfrdI2B6NV7Zm9zHEmTpXeb
t3wbA8V1q5nHzziQfmUk/fSeH4Nb4pfJWha7Sa1nzsoU6IzDK9ZR+2rFHaT8
WSlztc3j8NDLfYj5y5YUHVp14KHhOCQ12JyzzrElEY9TiyqJ4+B+TqX4yxpb
UrVfkEGr3Tj0qtiOwyYbUsleb6ch/3Ho8V/F+97binRjs80NtdxxqN8zb2LQ
TyL93lKffbxgHKoZ9NDCxySS4c5Nj2uKxuFJ8XKZZDR73Vfmo3XZOETQ+RWp
Cuz1tBHpgBfjEGRpJOHZspX0i3a1oKRnHBIGYp7adxJJ+i87XmjwT4DNL76t
9l7GpGudxLchQhNgObRm7I2AMelnb8WP56ITIDuqnWZTY0S6NpWxbCs1AePT
zuMgZkT6qRBoFag0ATd58+7oowHpaqzAx1LiBFxvKHHv27qZ9N3G7t+GkxOw
mZHV4e6xgdRt88H+xekJ8O54aNVbr0lqtHGptgmfgBu361oc5TVJ+TY+sYej
J0BV+1uDzW910hGbc2tzEidAeanQ79ItVdKc9UNHiYcT8FaB/wadqEgStxZ8
QRuYAHfrh1vydcVJHNa3FK4MT4DESKTZeXtR0oyV9JXVYxPAcXW3kesxYdIX
KyVnPeoE/GmnaIs84CfdszKbPLo8AXq2xvIRChwkLaujiv1ykxAfbli+0otg
tf1NfNveSeDq27a/s1AQxXKH9m1zm4T3SSbXtQ2F8dsiS7HZcxKsbHSeJ7eL
4Ikn+nX1PpOgVyO72mNUHDPX3BurDJkE3Tfhw3Myq3GCcmJnfsIkBGqrOCVM
yWLqPSmRqLZJOCdwxMOCWxm9Fjb1Lb2ehNiDF15xeymjhrNdUcTbSeitTdHt
qlbGl/zRFmGfJuGn8D3aOxcVHDn1L/jY70nQ2npkn9U1VTS3q3/nwZiE4UKW
+OZxdRyYP3jL2GAKhIReXvD224jKvx3tIoynILl/debtvI3o1wnc9WZTQKg8
VtX5fSOO3F0fvoU0Barua8f192jjJPz2trKfAs+SSDf+rTq4eN17k/ORKXht
aab/lKCLEgoH3h3PngLDm6uu3NiwGZ357a9V5E7Bt2d6dWmWm/E21WLbdMEU
hPU5TOXu34wybfI1YaVT8FAlwaXq5maUD/x573zNFCjUc6v/nN6MGs/2B1//
MAV63Ssb7zzWx602nsLF3GTwLcjY8FDYEOVVvOR0+MmQrLvup6+KIS6tHNhQ
I0SGzsbCJHmiIdbW+di2S5JB9/vj2VtBhqijczRueD0ZvPf+d/v3S/Z5qQiG
mgUZ7tYfZVzeb4RL1HNCT4AMV695lXqEGGHfu/NrjLeTIWifo8umOCNMuxZj
YrOTDFZkw4qvj4xQmHH1dIA7GfqVOA5rLbHPD6RPlISRwejd+/B/N4yxrylj
aVMEGXbUBFDtso2xNjtL8Pl5MvjkLAeWlxnjKZccjY5LZLh5fJNnaLcxjnUW
Hf6XTIa/okkWDFETfF1cciokjQy0ebWaAwomWHSpNHYhgwyCvxp1cJMJHrIo
z+PPI4PhkymFK44m2FdR9UPjMRkSHOw5xVNMsDaxZrziKRmKjYfPhRaYYNrR
53STajI0KUTN/Fdpgqds6gTwORk+8kkfM241QUeVBsKOBjJobuv+J/DBBLU5
GtU/NpGh4qDK2MYfJijU32Tk3srOLzpy3OEfO747rXsD35Bhd4PmVNqKCdZE
feoqHSbDrYqBhfJDpig0Vto5N0qG0+O5VzmDTdF738V20iQZ3NS8pF3DTVFg
o25z3wwZ1md/0V+5aYpefYnPBDgo8PRq1/E9DabIZbAjK1COAtuuUZo6Bc3Q
LXf9nep1FCi6aVpTsMoMywUXUjmUKMCfFlsWudYMXf8UJ2ZqUOBd/upMbR0z
fHiT+2KnIQU86k1Ck53M0Gm0KUDTkQLHp2JU3DPMsHjvncNhzhT4ONu5ZnO+
GS41HT+ELhQwWJKUEHpoho5a1gdEPChwh2M/31ClGRaly3u6e1Fgz7qXkln1
ZkjnmHMtOkiBk4fU9HlazNAhuGsv1ZcCSfeTnEM6zHDBMtI+/igFOjf43Lbu
NcPcHCPD0TgKNFiW3cnlN8dJ53LO0hcUaBpxSU4KNke5NbJ+Qw0UeOhj+sXx
lDnu+B33WqGZAuk/5eQlI8zx/rH9CentFAju+f3gdpw5el4Wko7rocDapqPN
mXfNMX7n2fCmz2w+zHbzeuabY43E4Dd6HwWoVZt2rS0xR4mcutyTvynQ8XD2
S06lOXbUBGp6T1LgTHoUubDTHOfO997IolDAR+KQod97c1S2JE31zlDAPsEy
Uq3XHKPfE57tolNANZafr/S3OZanxUldY1JAgjm26+iwOX7zpJxtXaEA42x3
itaEOcYlP56M5qTC8ZLk5oMUc7x7eihHnpsKaxb+rTkza46Vrmsc63mo8MoW
wm4smGOnmSOHOx8VQjLvvM9jmCNtpd73tiAV2s2s495yE3FPYqqGkAQVTl4o
nFwvRcTAkM6+B5JUWPuObmMkS8Ro5+Xr1qvZ9tbtKdgpT8Ry2aDJizJUkGte
cTmjSkSB4m2VC/JU6OA80PzWkIjr48N90xWocMq5es0fUyIaH3u82kCRCuvu
C4fNWxDx8OY1Z0+oUCHUql5T0ZqIkVKOGiJqVFBIl4wzsiNi8sLlvofq7PiG
A/t32hPxwff667aabHvGaHJoDxGbGqnmwxuoEGTutM9tHxE/56tPXtpIhdwj
/JujXYk4GeeVo6hDhZ60JtFidyLK7exc2a9HBSJFu2PGi4hnvuS96jGmgnCR
oHmSPxG1KQ4OuJ0KZaJt69vPElGyW1Qr1poKe37yfZQ7R0RaaTevpS0VaI92
Xjx5nojou7OxbScVtu3o+bP2IhGLQTDr8m4qjMjIpIReIuIN+c4wawcqJAx7
bOu4TMQQ+lUnPicq6FXnTMtfI+K+L9baHXuo8OXSQMGp60Q0q+IRiN9LhSip
Sn3bG0RUSG4b2uFChQLuU710Nh6125b91p0KowOzhIOJRIxqtBB6f5AKEbkL
uRtuEdH3LmM4yYcK926+IP1k4x3h9S2Oh6nQcuHcYFIyEVdtNj33KYAKAvsZ
anMpRCwpMhjtPU6FTMJKeVMaERNiZ9rSQ6jwkg8dQtOJeNK7Ms81lAp/5i9S
Ve4Q0VxW160vjAqavVyG1zPY9Z2f0s86S4VdbW2fiZlE5OkpF/OMYOvr2eVw
MhuPPTk2LhdJhdsF1msKsoj4PkHr9Y/zVFAt250rfZeIVYFjBfei2PXoejTr
zsaZ1qVRB2LYfE8I2N1jY98VNaPfl6gQs7F9Vjmbzf8ppaLB61T4XrbFTu8e
EX84/om5n0CF6a7s3NNsjNp5+/1usvObpM/WsvGNEfnVI8lUMNauzd2Sw+bT
U/bSWAYVUso3ze3MJSK3ydcDj7KoUNqdaJfExqOr75gdy6ZC8+R47ic2fkfd
J62dQ4XPInZzUnlEfPZu9fRkLhUmtR/YubNxxqOe7sf5VOC2583LZuML11JK
TxSy78Pxw3O/2NjHz+mybhEVHqz+GTfFxjbbxA9Ri6mw5Ky7Xo2NNyq8J1Y+
oIJ96qV6L7Y/CUYi4dRDKuR/+uySxo73e7XQh9lyKtg6XUjkZucTosm3daGK
Cmn2b+gDbH6Tuysk7tZQQX5plKXOxk9PegxZPKdCcYkAVzC7PjMvyuMv1VPh
+YqtEI1dzzC7vf+JtrD5q3wtJ3SbiGlTzOKnrVQ47D2i4JhKxJqUkoi9r9j5
CfGppLH18cXIaRetnQphz9U0vrH1Q/tGX5fVQYXlw9YbFdhYJvo+lfiGCtck
/HUPs/Vmomzf9ustFcQbLxuUJhHR/TUtPbabra+jRSZTN4kYEZQfqPqeCrza
kbqxbP1miu0kdnygwicZsQAyW991z2ZFgz6x9ctZeG8/+z4sLdlUVfRSweDr
G0Hjq2x+E6ZY5j+o4Htpzd/xGCJeLDe/vWeUCk19LzL3nSZivtNf/7kxKtxo
2/2hJZSILXM3TTMmqODy5A+v7kkicm0Z6P9JpsJUnMBpweNEVB648TSGSoW6
E/cenj1GxO1XDOOUZ6gQ56H3Z+goEf02/HJpn6WCo9UrmT2BRLz87ppm4Dy7
H+q62zcFELEodDNDaIEKpLCPK1l+RGyX/vHu8SIVup+ZFNn7EpHPe9PpWQYV
hnX5pqoPEPE6ubcxmmsapLXuR8ex+9Wj1OhkJZ5pyA8UUjFxJuJbY83Dr3in
QedBaMe4IxFFYs4LCAlOg5UqScJ5FxGTxJX3potPw1mF/gJFSyI+qepSM5Wc
Bu4DVja9QMQPbmcWv6+ahlvZZePXtrD1lN+ZoygzDSWykQYUdv/Vszp1so0w
DYZuA18Ljdn9fnTt9oA109CcvuOCK7tfn0pslxZcOw27eisUhfSJmKoXMlom
Pw19qwjtjbpEjH1fMByqMA07P/ZykXTY/SG4d9BEcRqcTe/+urKBiN5C/H9Y
StPgVddzP0WNiPalZv1tKtNw2Fz4aI4Sez4o8vT80JqG+K1TUd2S7HkintUg
bDYNH2wqH2jNmGMQuTXpmMs0sP7BhYpqc/RInE/Y7DYND+h92rSn7HmtpXl9
wX0anIRP9Vs8Nke1gJtxcV7s/DYVbX1bbI5/+t0isg9Pg+MZAc7hO+bo+m7S
pyt0GgJinpm+Zc93y3IZo41J05C2oS43xsgcc8JXD4/eYudjoVXsvdkcFy0l
0ktSpoHDMbtsi445PvkmOK+UPg3Hw6JeMFTNcS0/q1r23jQ0nftcNbKaPc99
hgz5HrHrJVVjX0MxwxLCU8OB9mmYS46SrioxQ+E4O8MMFpuPh1OJzwXMsFpz
E/mi/wykqv7eVfjGBMe37dlp9GUGcrcH++kYGCOHlrrPEZgFYY9Kb8F6Q7x/
xUzOr3IWQgprh8/YGLC/R/uu2CvNwbzyWYunfzcjq0WzvPr6HHyPfVyfV6qH
Gg3Pw0aW5uB8SK+4Rscm1ItbXEj3mwef+HYOZqI27i15paPfPQ+SBze63Luo
hdxbPvBmWdBgZLh4xeOEJt7dJJdpsZUGfySmU777a6Keor/WH6DBOmLbA1cv
TfTiZjhobKdB5q0j/znYaWLNG/XMGjsaXDd9qgUqmnjENVqrx5UGwTe2fVv/
VQO7QnQchUNpgIb8mldIGujrEzHw5BQNngds/LfNRAMXndtOO4fRoDbTsWRZ
RwNVjT0ys8Jp8IKZoRqxVgOjmJcHNKJpUPFKU+kYTR2lyB9Od8XQoIS2+4/G
lDo++i3HFxJLg2LN0Ly/Q+r4pfWpVu1lGjxIrFvn/Ukdda//PG2VQIPcfTvl
9pSr4+tIDb7RRBqkXz3xTfS+OnoFn8pMSKJB2ovUzLdZ6jhzoFFLN5kGU6Kn
f7elqGO8o0BjTwoNfOXleGg31FFh217Hs7dp8F2rRVPzsjpW6+cOrEmngaNZ
oL1nFPv/T9qQzyeTBvqutXeaQtTxdmFCZlQxDf57Q25wNFPHxZsHXawe0IB7
VcggZTPb/zmDVcIPaWDkSRFI1lJHVacfCZnlNLg7TnH5uFYda1laMVVVNDgg
PE1xWlbD7+5v/cdaaHAhsXj7uVdqqCwuaODyiwYr2zXVR/ao4dPzV99pExZg
P42HJytMFf9ViNR0Xl2AmkfDzKo+ZWQ9s3IbJC9AqriLfLOuEvYluo4WUxeA
R4C+K1FTCZ8FBJ47OrMAFzhyznsoKWGgXGI2dX4BDk3//T67Sgkt53K0qxcW
4L+xeKEWYSVc976iMZy+ALsGtc2TeJSwJ/a/38vMBdD9LyxLk6aI5fuHT7Yu
L8CDLtk382RFvGa0wHmVYxES/6hmW40qoq+44G07rkXIuWeV93pQES3G5FRF
eRah2t3v/o5+RSxx8g1cK7wIPHZDVU4diuhAjjm3T2MRiEK/50+GKKJmZ4qQ
7IZFOB/WWtF3VBG5C+9n/9BaBJXQpACOw4r4wqWj0XfTIkQGqfc6uiiicqMY
V6jRIqgfcK0gmyniQkLOjZvbFyHMstZfm1sR8zc0ZL8+uAgXYkaW19qsx9q3
z1WCfRaBfNzkXZzFeuw+Vl0meXgRfLzisyf01+Pi48cNXgGLsMVMy7Rh/Xp0
0s//MRO8CMszx0M96QrISbyydn3kIoQHzA9lliug727H7PC0Raiqk6p4QVBA
lZChu5pvFiHIzXHVxzl5RPGM3eF6dDDbQcs91C+H4yrX85Pz6fAjU1MzoEYW
z1a1MfUL6fDxI9lM5pEscm1fdv98n40Fana9zpVFOd/TknIP6PAyYluIerws
7so/cOn+YzrkuHvWjnjKYp9u5i/rCjrcTlbsvOMoi37NPeajT+kQ3znyzcZK
Fi/8sp3VrqZDtOlpVomOLJbL6/vV1tPhqGyi1REOWTQtD0b3l3Q46OTsSpgn
4CviA3lGIx1c4mUDO8YI6NQ1EJHTzMb461z4LwL2e8p/hhY67FosStD4j4BB
466bB1vpINDF6njSSUDauZSbl1/Rob/DMT2nhYCXBLvH1F/T4fGrAt/EegKK
ZfHZvOmgw4WWWd3zVQS8q7mt8NgbOuxpsmYdLSeg+ovzy6JddFBsyHjrXkzA
rV+ptc7v6dBeTfQ3ziBgiPQPjZ+9bH+lcXenIwnILJK+HP2FDl+LPh/5c5qA
8YZOfxT76FBSoGH0IZiA+XvbM/1/sOPN7vpQ7k3AjykVgpQBOtxMWs0baElA
L6Vx/5QhOhxO8O9xJRJw9Klqq8EwHfTjn+dZGxIwjHRQ4csIHfivCB431CEg
58esyIhRdn1i95urqBMw6WDvF7lxOuRFP+ZftZ6AchQxg8YJOgRV24fHEQhY
Em136+AUHTb1OPF2iRBQX+zyBCeFDmOUvbdXcRGwKafJtojK5kfUTclzQQZ3
6tDv28zQ4chGz4qCSRm2vk54JczTYSTgUJfeVxm8fcP9nRSTDt/6g7kdy2Vw
jk+nQkNwCbDryukEVxl0SKYaTQktQZpav9PkThl8uKb65TORJTgYY7jJHmTQ
W5v4dovEEizrD42Kacrgi5plJ+5VS9CTaP46RF4GV0Hr187VS1AyknL/o4QM
Bnde8U6SXgLT7sPR0/wy2LHHbngvYQn0HvQ6fOOQQeUfIsFr1iyBziXr9S10
abzg93Hml9wSqB2opZTOSKNeuBtHkMISKK7OTI74K4137/mvvai2BJIx+3sI
ndI4p7ah0FpjCQQ9uwtXUBodKyY1hTcsAb/RltP/6qSRp/W08R3tJWCOK0g9
L5PG4/9i95QbLMGU66CL6y1pJOnnXuvbtgQXJuoKVdykMeGA+KHrkUsQce9I
WmuUFHLF3e8K/LsEiQdTacUrqzCVu23McDcDLKt+/9uyXRJ9z7+yWrBnwJ1+
uS21WyTRYLY9r86RAeP8rqmbTCWxd7DTZete9rpXt8V6HUks8nz7lMOFvX6V
PzVDQxLP9HQJt7kyYGul5T9xZUm02fku4Io7A1J+RFnEy0uiTOv7FltP9n7e
uhQOgiSOmH2UF/Ji+9ebG4mQlMTnlZ/Cuw8woOyJaReTXxLjN/zXk3SQAS69
TAvjZQl0L+jV2ePDAIElfBIyJ4FZF79neQYyoCX50xmXdxIYtPhjTj6IAcdq
0/8ltUmg+cl+x9/HGCDz08Ojs04Cvx/8w+sXwoBTGoMWxBIJlIeR0ONnGbCx
aYZbKUYC81nTdhcvMyBpYnXqpJ4EnjwzW2R5lQE/n808mNGQwG1Tcys88QzI
arv67sh6CRz8uVBzPYEBa4afyDqLSaDqS5bS7VQGqDstH7DvE8c5g5ULLmkM
yA9Vf2jSIY7tZRx9hDvs/bcd5pRqxTEgmzvpXhYD5L7k3qDdFsfSSMGl4nwG
iHnB8zxHcYyYEXIJLGTzHXWE68ZWcbQLEnmqVcQA8bxb9mE64jjuIR5Q8YAB
XIO/h3YIi2P9J4mW0IcMuMEtoGuwJIYJdqvkDcsYwK2mF7luTAy9WlaH08oZ
EGXj3s7fJ4baZtI9L54wII9/8WD+GzFkPpXROf+UAamv1I4NNYvhO03Z+C3P
GHAhdu9Z9VoxPCG7dmtrDQOcGU8SywvFsGJB8VHXSwaIUvzrXpwXw3pjUWZI
EwPef67jLzwlhq/P0O2lkAG3Xoq6JhwVw1+zn6a92hggeKNm5oCbGIpRL5mR
3zCApcqrzW3Atj/6t1PiK7te9yJeOYyL4qZvpf9cphmQs2NOIuaAKPv/PN1s
aYYBR7lfSj/bJ4o2brEJuXMM0GmKkxveJYrenz10/y0w4KXBatVd5qKY9Eko
PGKZXT8FfRMCQRSn3gTzZQszoZKstFzSI4KLAh7uIMqEqvhvlkpvRZBnh/Wj
ITEmFCunXMtuEUH51+sctFcxIcWVQzL5qQjubn2f3ijLhKCmXyrnkkTQnbPh
n48cE/zd7wTOXhFBP9IDMz55JhycsX98PEoELzTF9DusZ8Iu9UZj32ARjGcd
051VZMJWDDv/87AIplm4x2YoM8HUUxtd94tgeb2e2h81JqgmZdvt2imCV2eL
Cx5oMMElx5tXfJsIHtJeqxCygR3fti26LCMRNPdPvmu8kQneGRcu/lITQalc
XsKyNhMIUw2fmqVFkPwl8nb7JiZ8sGQoF/CKYKc4VfymHhPiM83DLs0LY1Ts
dwF5QyYsba+Tsf4sjO71jleGjJhQkrV4RL1dGPVnX3GWmbDtU0zq+GuEccSv
YsmMyISPd2v3v00TRocdlyfdLJlQPV2V77hPGDVj6YHrrZgQaTs7rWcljFz1
J4ZHrJlgkKO/fZWhMD7f6PHrjB0TMnZUDveuFsZUv/eeW3YxYXsu1biWWxiD
c7Z/5bFnAmNWNz5jVghtvrzY2+3AhFa7kG8RQ0KoKL7p420ntv28J1qe/wnh
ku393fudmcB/UDOe0C6EvRdl3yjvY8I3E48niS+F8EndTetxFyaUS9zo5awW
wvgZrtZKNybEjNUvnS0TQt+NEVvPeTBhT+uE4mShEFr4TdWT9rP5z5a39bkr
hDI5viYCB5hAO21//EuKEE5//lr1wZsdz+7o27uuC6HxdLRlcwYT9PfTwW5E
AC+4NYVGZzGho6t2SvqzALY1svK3ZDPByyIse7BNAJ1uXFhpyGXC1XUU2vkC
AQxSiXz5opgJ1outg8oHBDDP5YzxsyomyJlFef37wo8jDdX+oTVM0Iytnlj/
mh+1lefS9J4zYe+biUj3Gn6sJ5+afVLPhCgPz6w3t/mx99rJp2UtTKCcM/lS
5sSPcuSK30FtTBBuPeH/F/jRZx9FTKudbU+oZE5elx9L6zdtHXvNBGPn/jgX
BX4kK544XtrJhEN3pVYnifKj4bXH9468Zdsf3FX4msmH56cmu9S7mZClFbd5
ZYIPW/dqM4bfMeFyn+EH0gAfCtQf0yr+wNZznnzmqu986KBY5uH3iQkj/jw+
f3v4MP3qeLzKf0y4qT25obaLD5X3Hv1X8IUJo3UNDR6NfGgxGVCU28+E3F7P
3/n5fBiq4KuQOcEEXqEsdd0jfPj9kvuqBH4W6AftUM+l8aLX00um2oIsCLmy
95cSlRd/9Zd7vxNiwbN87zvFY7w4aMpZJi7GAu2vYXyPf/LiOPnh9jQpFqhb
FYw0tPIiw5MRlqPEgh1L5aomt3hR3iD3awWRBZWPW++81OLF3EOdLKctLBgR
+DsVpsqLikkzKjNbWbDWj9daR4EXVcdsThpasiBBbsdsjiQvaudRBOp2sCAS
d/flLfLgFuFt5q0uLGgVurmd3sGDaHrs0GE3FvBKzZ/828KDlgHpV3k8WLB3
3YHcDw08aNMy1mPjxYK/ujr04goedAhPPdblywJhl3dPnDN48GPRy5RgPxbs
8zb6uSWFB517Rp6LBrCg8EiO4IYEHnTVIfI4HWWBQeRxv5VoHuzz9NeaDmLB
+bjPKeMRPOgZf8spNZgFbxK3NH8+xYM/a+rOGpxggeSd4kkM5kHvoaF7vSEs
8MwTlSsP4MEnQhlTmaEsuH9EuMvQiweXN+/ceuA0C8xP/j0Q7sCDeRef/h4+
ywLn2DtxTH0e/LMuSnkhih3P/aX3fExu1LPWO90QwwKz8v987MjceDF4qC0m
lsX+fi2fS/jDjUoNdv4CV1gw2u4tJ9nOjb7uMqVrEllgOtrqvzaJG5/FvFns
v8mCV9TsxQMXuZHrwQW7wlss2E8PS8g/xY335wfHtW6zIFpIo1LNjRvn5O8Q
KWksEFzNYRVox41WVnaJVXdYkL/225dHRG5MO8b8GZ7JAhPVZ0endLjxb2qF
jsVdFnyyT7aYVeZGw3rfaI57LMgh1p4blufGywPSH17lsODohp+1X2W4UU3v
wkn7AhYweDQ3vxTixoB3O6q8S1mg+LJZ7coMF9bOMbhVHrFg8uGwb/gkF/LJ
V+z7V8aCFxnC+UdHuPBBkDQtpIIFNqfd5By+c+Eo/6BpbC0LTmpRxAitXGiq
m37d+gULjGWldwu+5MJ41x3fBetZwMVHvM6o4cK+KIbW+wYWvJ899Hqqggs3
FD85n9rIgvSBq9x/HnJhZLdPt2szC7w+lJN67nPh21mpdWtbWKDR2BP1KocL
5dZ2Hv/dys6PZvT96B0uDLI833T/FQvgpdR97utcWH90k3jgaxZMxc4eyznP
hUIpAwe1O1lw17bH0OQEF5b9tuWs6WLBeM+t10F7uXDygpTV6x62/seExj+t
48KQ54/fjP5hQZcM5+b8Z5y4VLxL8tYgC5ZlQlvWlXDi1bQxd6O/LJAjDOzJ
zuLEVXHX8n8Ms2AbYc+g7E1OzA1VG439x4JAQsupOxc5UetQm67mGAuuEDZz
S4VxYq2DT/j7cRaUEwpupxzhRMstK01hk+z7an13k9lBTny/MYdvLZmN/QkH
RT050VOO6NBCYUHtlbRbA/s4cUTgW/qRaRY0FEtijSMnsoal1Krn2HocFlby
tuZE7fzE7fYMFvT6cww90ePEF0laCbNMFvRdiVodt5ETraI6e7KWWdBfvLTd
TZ0T93vy+I5wLsO/4bmilbWceEPqwsUYgWWg+Y8FOPFz4mj8scZK6WUQCfnK
JfmLA8PCBXndCcsQXBh0UvwbB3IEPNi9LLsM3Z9Z/aK9HEjYPvRjp/wyJFio
1gm95UAblufSkPIy8AmFhvDUcmBR6E4TGb1lWCkS+rlwkwMPeW6ojNy5DIuF
wxpKwIHuZ1PKZHcvw6moS68OmXOgUyq9uNZ+Gabc1vvkG3Eg6e2buzNOyzAo
4nF3vTYHKpkHXQ5yW4aOs90iCms4cHBNmZun3zLopAcMGY2sNPt/0142i16G
0TnjG9nOK81B7nq76JXL4M6RbHhEf7mZ8+2Za5bKK/DobM325VFGc4TQ8WjB
hBVYKqitdZihN+d/c3XvT1yB5F71btYYvbmzlKRfmbQCivwZA+UD9OY1tlIj
7qkrYBscLiL8id5cH9dgX5q1AmnGpr4dFfRmJlNwnW3pChh11YmSjtObL1JK
Gi63r8CK0C3dSxOLzaVNyenuHSuASmmnTw8tNn+8GRmi/WYF4k2znvv9WGxW
0nZQ6e1eAYmA+2DbtdjcGjh/Q6V3BZRanjuKlC028wxu92wdXIFtgSMX9YIX
m7UrdQzv/GX7/xH33MdvsXnfRYJY0MgKTDkokVO9FpuLFSZaJMdXIMvIa//8
7sVmm/2pG3ymV4DK1WNUr7PYfELrArfR7ArYnQ0JnlBbbM6g+/cLzK/AvTGR
+/IKi82jGWYpTxdXYMdHW4kYscVmiSMqxy4vrUD29mGbp3yLzabGotbuzBWY
q70UNbC80HyId0FBe3kF7LUUq1ctLDRf7/2zuLKyAvk5jePbKQvN/wMqC77U

       "]]},
     Annotation[#, "Charting`Private`Tag$64144#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVl3k4lO8Xxu1bJWQn2Ua2ZAaF1BkVoRASqUSFQutXFFJSSSiVJW1kS7KG
UmFOSVokiRIlW5YWZubVMJaZ3/v7a677mrme95z7/pzzPqO1+5B7gJCAgMC4
oIDA/z+hWmnHff4YnAhavnGfmA99R2fSQwmBcfgz/EU7n7+NLmTmkLlPdRwO
p4zpJTh70zeP1Afqu45DcrJVXp+WJz3fI31PmPs4+K6WNl46voU+XX/ADz3H
weRvf2Vo7RZ6Xpq6j/eOcaiULVgb5LWFPrk20vnC/nHYyCt5G/fAg37ntoX5
SNw4eH6p66r1cKf/cS8WLKwZh9SrclfuHXWlq6oo7x14Ng49NUpt7kaudIcf
ca80GOOg/0N9EW/AhZ4bsj0xrXEcao2Wpm3xdKH7nJVSiGsbh8GXqzIFLZ3p
TdX79H3/jMOWyb13t8850d2Sri6VkmFCUMDaYd1/9vR9h1533pNlQvdftxvv
a+zpMe68BLtFTAgJ93cOj7anFysH/zmtyASP+NOVTcL2dIl824pJdSaI368/
FSxnR6+vY1r/NGBCmqGykarFOrrxuIsLrmPCe0vpJc6idLps8wLDWDsm1DdV
R/+7CXROYbPo2g1MGFjs+mzzMqDjbqe6Bicm8N7EWopvXkPf8tnOuMmNCVe0
h2lhaTb0k3U2Ui27yO+L0I1634q++8bMz0v+TJg7uBc7NlrRHSKePnfdw4RS
msTyyDFLuhzV8sTHQCYUP3Wd32BmSS/IMxtpP8CEM297Xm2pX0FvSTR81R3F
hBTlqMzybjN65b7Ru7dOMiHhA35amGxGv25XeHLnKfL358WkD60xo+/mUyx+
nGFC2MSVM8vu0uico1p5/QlMsGwtDCkKpNI1fJTPjGYwAReWRDkMLKMf0hdb
M1nJhMMvxbmc+RR6SnOZzI1qJkwOFx6bvqZLLz+8bcDmMROq5jmx51R16eya
4gtnnjIh0T3pt4iBDj3M0ePTgudMkO+T6ZGz06IfD87ep9vChONGHOu1Smr0
08XW19xGSP+ODh/buXU+PXvzYMDEKBMUKcOi3TVS9OcTyZYZv8n+Pg+leatJ
0oVW933/NsYEG+uhao9eUfrZ9/H6+/4xoUbw7e9r7TzIO0KdkZpkwsSvAHac
yCw0KnS/L5ligq98Yu+gGxfEfE3+I2bIfvZ11Bb8ISBhrL0uRogF69Xbf21Z
3w9XTQ+NPFBnQWyR1pYBYUGMbbn784gGCxZM1qyjRgrh4dD2/pWaLHCZ0FRe
8UwYnQutvjfosCAlaltNqYEYSmiKtHUbsuBqwtupLLF5GLMw89k8KxZs8vhs
Y+snhwdK3tV8tGbB4mODe3/MyOGOjbzqDBsW/E1nJ53MWIRW8XvKdejk+V3S
35+0yKM+Jb1k1JYFGrPqot7BCqjY8LqobB0LShcbLeOIKuIEb1n+qg0suOy/
4SRttRIO3PLLEXRkwb7ydccqXiphm/W1rCYnFjTxiwL32SljWfhUpocLC87f
OeH42V4Fg8deXArxZMH7bsWFDx3VcFvSv0SqFwuMjWIE9r9VQwdD/YRJbxY8
j/zJWrJRHSmByXFxO1jgpFLVnrxpMfZ+9zp+cw95/la3G/tdl+CHqIvH/ANY
oFdQk6jZugTrVeqOLg1iQcP05foQfU286al9oDKYBeJOk2Xa9zVx6/s//u+O
sMDhM3or52qhXciSXVf+YwHljc6+6S9aaC7pvsPrGAuEas9HfJuvjbJ2j7cO
HGdBwd1N6dnh2thcG7tx5hQLVA90ftJ30sG1xYoWRpdY8EeY6WLF0sXbEYt+
jlxmgY6bdKsOhYJTa2XSCq6wwOeOsZv0NgqWfpX8p5XGgoeW+z0GkIJq4nNV
yrdIf34LUprO6OGE/4C5WBHpZ1wHe23HUnRd1jvY8IAFQZzLoVf5S7Fo6ltq
bAkLAvc7DfUZ6KPf5c8Ts+UscHNlfD0do4/va99UEY9ZsFPtPtYvNUD9C6/2
VjxhgeOlPdbS7gZ41qNB/tAzFoQKalTtjDbAHxr40riOBd5hnctKCgzQ+ldt
2K96FngNX70322qAadVPdAuRBZ4+zlqbZgyQefpRe8ALFmx5L37zJsUQN26q
PKvzkgWHirZMflxriAVK5eZ9jSxoZhxsKvM1RMGB4sE7TSww6LiQkRxpiDtK
76fueEP2+ysnKCTdEOXscie+NLPAXOGL+NIWQzx1NL2q5RMLCoPB4c5qI/R+
H21e20fyriDzJkndGOfFOZpnzJG8vBuM8W9fhjkK1O4VfBa0Nc69+/R3GVoW
Kp/5LMAGP1RUsRc3wcD3wx8URNhQXO1QaWhtgqh0PiRVig2a2cXDRJYJehUd
kDOfz4bGG43mgU9McMzG88mnBWwISeuJ7WwzQbXduuKLZNmQdVFGvU50OYYX
v8i5osSGqwK7f8z5Lcf5UORIVWGDSurjj0NhyzH34xVmqyobipYuePnhwnJs
5fitkdFgwxOXmsK75cvRyJb/9ZIuG465iD/RFjDF3o5VsklUNmTf2nnmlasp
hu/TqTEyY8PewAszT7eZ4oIZqV3vzNlgbFoZVrbHFK01u4qlLNlQ1SARdD3C
FD8+fO5RZMWG6GSz3qRYU9xnd3/acRUb1nv5botNNEXel5S7ozZskNBKaDuW
ZoppwccdEtawwSkyMPXTbVM0nts1rk9ng++brJID+ab44vKG9Ne2bDio/PWV
eIkpMqsUB8Xt2JD+aCN3Va0pOvGrTp3fyIZOtqlvXhdZ/5VbenrObBixDY5Y
02+KEbpn3ze6sGE2JTelc9QU8xw91ETd2bB4uWLDfK4p8q+xHsV5syEwZGbp
MSUqput93anjw4bIp+a2C5dQ0fgJijRsZ0Oi5EGf+3pU9Om57C60iw2V93qT
vltQkXk4gnvXjw3IUSmIWE3FeOFd2ba72dBu58GQtaOiRrr9hr49bBhOTep8
sImKVfomY6cD2DAx0Miy20JFleo7jHVBbDhaEhMatp2KMbYLr4jtZwOv1Sb/
gj8VHXyYZkmhbFBWfqJYcYCK3YkPT2T8xwb7ggqu4HkqCo2vEC2NZUP+ixxG
7iMqBkXd+3w4jg3UIb+px7VUbBZXLjQ7x4Z6ySXU5hdUTNPkOj25wIZPm2/m
TLRQcbp4v3r0RTbsCtvWLdFBRV+rrr9rktjwK0NJfnE3FRsanRiCl9gQ/qxj
E7WPivruz1JeXmZDhUvt484hKib3GO2Ov8IGgz2PNJV+U5EdfMvM6Rob7kaU
J3iOU7E27uTnD+lsuJKdt71tkoqu1aDefZsNB9hJ/HcSNKyyLf97O4sNP8Xi
90ktoKFyiybD7y4bfNRiPzrI0rB/SHD3UB7Jx/pjuY0qNAxXfnmP9YAN+uk7
NzAMadidZ36iqoTktcirfM6EhnRqvlNEGekXw03FxoyGkk7n/84+ZIPoiN3v
mlU0PPiZU8+oYsPJWfIKBTRs2x2UcuYRGwgZ6zqL9TRcOf7F366GnDeKuV6Y
Aw1vRTmYSTxlg2Bl+WHTjTQUlHgi8u4ZG77nxZT1OdMwMNXgc3IdG56mbxq7
upmGpiVSJxY9J/OMHAn550nDhp7meo3XbOi11Qx66kfDX7ZuThaf2cBovbxz
fTgNL6YVy3V9YcN0d1V503EaGo2Kd8d8ZcOK4a/CG6NoGJpSH/L6GxtK53SK
3E7TcP6givmBHpJvCce59jM0LF55bFa2lw268gc3e5+j4abE1peP+tjgLyOg
mRBPw789RsnbB0ie802GP12g4SVavKfATzZcs95ZqnGRhibn+xfnD5H76EPi
sf2JpD/LMkvHRsn+uCPC/GQaMqPEWmOZbLB1ydU0vEbDlA/+1/XYbNg28HE4
LJXsV6fO7x3BhiPHBcoYaTQ88vY/lvwkG3Jzdq72vE5DtnKfXOEcG8QmlXxO
36bh1VCb7k18Nmgk2Wu9u0NDM8zIZQkQsFLr2IhCNg3DglzMV4kQsH9jW/iD
HBrKP7s/+0OUgDO9Ams4uSQv0qKNZ8UJuHFsuahtPg237PZLNpAk4KGUb3Ni
AQ3/VT/zbJEioMVZSyv6Hg3TJZU0/ptPgJ5K1hok9YqdR4eUpAk4Oai+Q6SQ
5EnEIMJflgDDKOWMJFJPuadfn1AiIL5w4YLb92l4vYDll6lCQM9/yYZ9pLac
3mSwRo0AC5jnQCmi4Ym7wk/jNQgY6BCLKyH19PjhblUKASDMm6p7QMMb65pz
GXoEpLdEKQoV03BVxtLQvfoE/M3kmtmTOnpNz2yJEQE3Tf8dbCG1+lWrRvdl
BLBnjibJldCw9mdq8qQJAY5NzPtbSb3Diul5y5SA7KsHm26Qei5po4YtjYDJ
nX8Ge0h9p7dg6KcZ2e9W37uNpF5jLlR20YKAu9Jre5aRuid+Z8TylQQsbqKo
pZPPi+mugXZLAjJPSXrzyHo1lstLnLAmQN7yb2ogqRlnDrUutiEghdn6sYXs
T8BQzz8ISH/8r2/MIv04GCG1ZbktAT6Prn6dJv37/nLMfnItAcbzkoO2kvrp
rsfG8fYEfKyKjVtA+h+W5jBV4EyAmkTIs6g8cr77jX8fdCVgbEeA4xcyXzdT
2Z4VbgRgxa4vNFKbvPva8GoLAQHbtxCjd2l4W7n+0aWtJC/lLrF2pJ4fmHN/
qzcBUqKOC++S/ERWnr+l4UPAt23rbs9m0XBUIOTy0HYCykpXG3mT2tvF9Uzp
TgKmOSe0pUj+Xt00Oxa+i4AdpRepWbdomLdi1kdsD+nP4mLXN5k09A1N1tML
JiBneixxMcl725eyuoDjBDyoDhN5Rc4TnZJaviySgAUHzi3aTs5b2dHjuf+i
CDigm67NJOcxaYFtwrlTBCy/9piuGkfy4UOJdo4l4IrTa9eyWBruL5Q8pBBH
5i341Xc9Od+d//76fz9LgMeT0QNfY2hov65tS/55kmc7ody+aJL/lEcbDlwg
wOngQ4e2SBrq9NywtrhIwMv03WMvyP0hcGKPZmMyAU+GX1jlhZH+l078Hkwl
IDchrjUwlIb6s509xekELHloFu4VTMMMx7qPYdfJ/LsG1Bz2kfkMnnsscouA
S0brgwz2kvlQg4uabxMguWVivupuMp9TLrdTswg4G533UIrcZyaqSnG6uQSc
eC/C+72d3JdBM8f+5BEw8a8q99s2Gs6r/rGvqoCAgxoBju+9yHyEXm6PLiRg
xF5hvI7cjyOuhS7riwjYe6gxtdSDhl63k2znF5PzlnHMOsuNzOfXYfP2EgK8
kdJ72ZWG5paeS2+VkfuhJ/ptCrmfc89Zqe6tIODp5CP3F3SSZ4ERhk4lAQ0f
WauVrci8o9IDBqoIaH1gbHCQSkPpI0T57hoCenfl8FW0yXp2lGzwZxDAb0ou
PiJMQ88v2/9qPidAIud1RtMMFU3dpa71viBAOlo4bvEEFYc2BPXsekWAhumJ
bW8GqehupnXM9z0B9Ot7xbReUXFZ6QdVjQ8EbDiaxQqvp6KEQQx+byVg86au
b83k+3kg1zjwdhsBW/UUXmuXUbFeo3veznYC/AQ2Vx6/R8XMzIQK9c8EBHZd
vNOSRcUweUuvb19I/lfMGO25Qb4/Lw/N3vxKwKCAT2hsBhUNpdJytncTsOdd
TXFWKhVFz61zUPtO7qM0pb91V6jYy2f97eohwN8vfNm3S+T95p+LlU8/Abv+
mZUqJ5D3hz6JVu9Rcn6XlJVdOUnF79sfH1P+TUDX6AJmWSQVaz4HqHWS/xO9
q0JNWyKoeLD5RaAXkwAvR8MKqaNU7HocPec5SfL6X/7DuEAqVlxiGnqITgCL
MhsY4kJFP5vOc85aE3Cl6gu1U5WK4TFHtMe1J+AsrXrHZ/K+lYxSjBTdCQgv
vxrfLk/Fp+tXT31aOgE7ip2/t0pTUd45J9jHZAIiY+SsCEEqNu0MdQ1aNQGp
S9K534dN0eSUgEqs5wTMvLOMWV9pinPP9YurEibgzOb+32vXmeLSZ4/DhqYn
QN5r1gdjTdA0bmoybe8/eOTpKNd1yRg9Cl4uozX/A6eV/NPr7hui8OoPopk2
HGAyVrx9W6SP13ISr5/M58Dhq1EjXSf0cCp5l+f6exyIsMkTfLxfD3ecMJOb
d58DZ4eaVa9t00Pdzd2J14s5cMdaw3mjlR5eWFXmsKuUAw8H7QOXGujhX704
Ub1yUl86dEpYRQ8fzRmeqqzkQGM/VjyboqDqKG9VZDUH2pJG32aMUPBUe9sU
/TEHvq6QG/yvk4KDjIJq8ScccLOvCOx/R0GHB5FHW55y4MNFie6SlxQsTndZ
nlbLAecPu1xP1FFQ9oz2n+31HHiz6HHD+kcU7PJ+GzD6nAMvbgUUd9+j4Jr1
d7TLGzhg21ereS+bgrnLj/4Ib+RALUU+7WgmBUPFVLeJvOFAZemLk5KJFORV
7t+0pJUDBbjEdeVBCu7OWi059JEDuqIRDUJBFGy6KPuq+BMHsh1bVrbsomCK
/xOw/sKBzLZozQA3Ck5sSp4V+MoBZaX2VFMnCm6z9H/S1MWBa9uNJGfXUlB7
oaSZZw8Hkge/sq6aU/D89LdxtV4OzDOgBvouo+Dvn+XF/X0cmGkbYj3XoeDm
j2f33x/gQHDLqT0xChSsqvXWO/yTAz/eKHdYi1NQudB4YMUwBzwaK+wnp3Tx
5DWB7LkRsn90qqn8pYv2wYUqiX/Ifh5H3zRu0cUiz+jPbmMcUK1UWDDK0MWF
tpuvKTM5kFBaGpNfoYudSlPzCwgOhOb3+muk6eL+xg0Cz6c5YHVtvb7MDl1s
KVeri5/lQOGl75nNzrpIuzV+woXHgcUXw+clgC5OH80gugUnQSy2cExQRxd9
fUPKc4QnISra1q9eXhcbHOHAftFJ+BXR9TFSTBf1LRYZmopPgvd//61bOaWD
SZrDQxyJSXh/cH41MaqDzHnPcuukJqH5xEnpju866Dl5ye/s/EkQ9BKJN/6i
g0/7dy/eKD0J5uaJ/LhWHdRoWdElKzMJobJyx7vf6OCZJ1IZnbKTUDh2nUlr
0MHhvB6PrEWT0P1uyf6LtTpYHnX+vbHSJDieX+ZjVaaDsam6q38rT8K5wmZm
WaEOupe8KL6vOgmNb0Pi9XJ0cKKHl6inMQlrFhZVLUrTwZVrI5w0KZNgdV1v
4VikDtZL7GtaZDYJS4uWvMyx18HmNMfn0y6TMK7mp/yxVxuHy+ZXvz4/CaL0
rm05Kto493C9V//YJFxMutwX8EwTsw2e3Xy1awr6O1qKAmo0UOfQwA39N1Nw
RSWSlrlDHXFhxqYIUy78qc7aPt9GFWU6hypW0rggdywwiWamiv7ZK5SmzLhg
aL6szttQFYWon/uOr+TC4YdPNfKVVdHOXSEicg0Xhko7+lb/U8G3qdfuntzE
hS7d+pkVZSrYoZLCidvHhaXNU/d09VTwl05Cdko2F9ghyoXzfytheGXDLC2H
C9W6/tTxL0ootI7n3ZHLhYvf7z/9+FIJVXf/J6t6jwsyrqvep99Rwo3ZO8/k
lnDBhObL1nRXws7l13vsyrjA+lUQJQxKuJfRZj1SzoWq3HGRISMljO7ZQBhX
cWGTQqzSA1ElLFan7X30lAtRU7k2Fk8U0bI4FL1rubCm4k+jUoEivlx1T32m
jgtCwRau01cVcfO7vuO3GVz4rB3T+e2UIn73Ue+A51zI7H7lzwhVxOBfW6n9
L7hgveqel8QOReScuJJ89iUXbHxHNaU8FfGMZPOo3isuWMYa/ZrnoojSmWL2
b5q4YJZ3oHLBBkW8oW+bE/KGCxZNZdEL6YqoVxPFW/COC9RfLDtZK0Vc84X5
yL2FC8tNwzvljRTxkEL30m/tXNCtjZlTW6iIs3kKZ2M+c0HzB75aLKGIF8w3
92p2ckFdSDhliaAiZns0Xg/o5oKqQ7y2DqGArVfKJMf7uLCw/fIGwy8KSJM+
+1twnAtJhztGqrMUcEJsWdlSyWlQwELrGDMFdElhWvyVmobYeY/NDYwV8L5K
Ve3D+dMwtLXRpF1XAX2NV71dLTMNj//2aRsqKmCTm+NPD6VpaDrpaWbFlccb
twLUTlOmYanbndgYlEc67U58p+00iBZ/K7rtKo+JOxf6JUSSWlbm0LPwRSgU
l/tu3+A0fEk4cfj0tCxeFW4YNd80Ax3R5wI082WwbFKz6F3tDMxZtPX550pj
8VNTSi9lFv6Cu+sf3/m4ghWzlpExCwp1hr/WaEph1xlvuUTxOUjNCzySpy6B
vgMDt9oPzYGpSvCRut1ieOhxyZuR3jm42LyKalEsgtP5G2Uv98+BmcfAQ8kC
ETyfOuptMTgHrV8vmvdkieCdI5SR2OE5UBz+ujL+mgi2GN0WUxubA/W7O0qX
RomgcXbSOueZOZgfenThjo0iOHIhpK5CgQdZCtTdI7+FMSxCUtRbiQfzTpqv
WTIkjAKB9zbxlHlwfHCl6tZeYVRaN9DtpM4Dt8o1bQ3twmg/5zM9oM2Duc2b
1mbVCWPeEaeViqY82J4UpL31sjD6+RhURDrx4OKs/C1zc2H0Dr/yQHkTD5JM
azY/MhHGzVe5+Y+ceXBp73ZRSwNhpL99c4O9mQdXm+8eXKUhjFrWwWeDvXiQ
dsvEdq2EMParPPDy2cuDbBuHIddvQthlsch9KoAHOYd/3/j4WQjb3KI2pQfx
QO7Fuif/fRTChoSNtm3BPBgbszjy4ZUQ5nF/Gzod4UGRg2rf+QohDPhqzLOK
4YHebD/+Oy+Evv9Sp76cIp8v9+1WbqwQbpWdYx+L5YGQQcdxt2ghtHd8P1xx
lgf9nk2mJUeEcE2ARb/reR54hOL87aFCuCL29re/8TxoOPNkRCJICPWeHPho
kMiD3LIH2Xt3CKFGR8e7piQeyL/Ki5bzEkJF1upXAZd4cOrbbW90E0LpBQUo
nMKDgJu0rSW2QihuIP3s7hWyf9kP5u+0hFDALrwarvGgMD5k0aigEE759ZR9
T+VB55w4W6xfEEeul+apXOfByl/0srU5gthbpZj1OJMHQX7fk/3OCGJna0ym
500eZHw+ERqzWxBfS7heunKHB5MvHho81RbE+8fHIyTzeXDjpm4eNVcAc1K9
jt4r4EGJ7PMzrnECeKOcEWpXyINv8Tv9D+wRwIsjl/1jH/DAJixd476OAAZ7
m27kVvBgKlOGZuvAZ5ge1Dr8tJIHNee2r5YT5jMm4+TSoqpJno4UOAzU8Rj1
mcJPbR6T9e5keVQd5zHOlk30zNWQ+dybaj3kxGM4Nf4UZjwl61kb56xuy2PI
dH/WP11L5vN9wdvXK3mM22JPjgohD44u0mnQovAYe9WLMhqe82B3aQm0qPEY
hrSbtWcbeODuaFkbKcdjPNp5Uky8iQfWp5yrP/HnGK1VtjfmtfBA8HfEvXNd
c4z0tzRG8wcesM4J6dI+zjF29uoMJn/kQZ9mcnZP0xzj1zwxE5kOHjzfmpO5
snqOIbzn7XP5bzy48KI5cfTyHGOFrMfo4l88sOL/cW6yn2PM6q2X/vGbB5m2
Eq31q+cYDTYWZtl/eTAap+P+yHyOsXmf0kltFsmzhM/WfO05xn5Gt8zSKR6I
yzX5xvFmGbcO7LU0FeNDi+7dQ/BoliH49lj8Wm0+nH571TbDYJYhdM8t96cO
HxxPJvNDtWYZImeXMS5Q+CBreqFurcosQ2LNT06LPh9upp20GpOYZcg83BK4
fTkfCv32Ue1GZhgaN8zswmz4cCAmRHpv4QzDJpglVLCVD8PxhabtBjOM41IH
YiQT+XBYvU/9tvk0I/vrVu/vSXwg+kR+uxtPM14X0mkVl/hw6J7+EwndaYbK
Bvkh76vkebTDnmGLphlP4545F2byIcSBn7yRzWXMzkou3lDIh9CwxXxuGZdx
erzg2dlGPrzZb5KcbcJlFNanpHk38cHo8YuZDD0uozU58pDxGz6kiXgFX9bg
MrSMXXTam/ngn3VqQ4w0l/Fi37+LOu184La3Cu4Ym2KI9K/zedHPB/G7z/+V
lE0xjCuWmacP8mFM+sjrwXtTjC2nlaSDh/jwLVrzplr2FCNf4/dz2V98KPc+
RU9ImWLYb79q4M/ig7fM6sS9R6YYBw2jhS0IPtjH/Nl5c/8UI4Mb8F3iHx+W
/blp2uY/xRjJsLpSPsUHwdfTHeA+xZAJ0gk5O82HEYuiwnCnKYbligV23rN8
6MjdFlWydorhJzqpYczjQ4OspMug9RQjob13is/nQ9GpGk01synG/wB/eMbf

       "]]},
     Annotation[#, "Charting`Private`Tag$64144#2"]& ], 
    TagBox[
     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV13k8VN8bB3BUSN8o2Um27MqWInlutkQI2Sl8KaEUKim7lBAVsmdpUfmW
ipTtyBJaJSlr9iWMmbkz125+9/fXvN6vOXPPmXM/z3PulfYKtPXhYGNjS2Vn
Y/v/5/ePhR8rNabh8qndFr6cLlh8NHd7yf5p8P2+fi0x3xnrMT08oXRuGrJl
O9905zhin02/Wb4NnobUk1clEsMcsVpT+3LTS6SVMs3OODtiBaae0f9GTEO0
cXFDg7Ajdsr0snhe0jTks3uynmQ4YAyTJ9ZbnkxD5KbAg0p59hifyca3xBA5
vtPsFdsnO4zNJEXy2tg0mJ07x4AXdhjdWPDatqlpUMmUcnh81w7rMpa2VadO
w56O81GzbnZYrrHuzOm1aVjnn/v+KM0WUzY+LdUvNgPBMzebDKRtMWOjthuN
djMw4f1hSjn3KMabP3LsoOMMiK2fNT997SjWvbAqhVxm4OgzjbSWs0exs881
31V5zkD2xCWpkYNHsUzR3KmXgTOw3PuUIf3DGpueO2tekDgDd1reMg3CrbA7
uQL/hDfOQKXMX9UnKxaY2/yu30sfZuDWHwuBoC4LTMH28IPQjzMw6ngeDyyz
wGq4IvRDvs+AZemUx0YfC2w8aCLA/88MjOwpvvm03RzTO1z1xXl5Blq5qrW9
Xx7GhpgnUnS0ZiHhT8D52oxDmMwf68OhOrMw/sw5vy70EObdCuuqdGehKHJM
cdzlEDaevePSAWwWInMr4h/vOITNwJ/jxpazkHK/smn2qSm2kHB8l+2pWZDq
YtN1azXBtki6fzmTMwvm/50TDNxujNlyWV5/kT8LjaoxkX3rjLG7VP2DtMJZ
GI5WsfL7a4QJNUpUhJTMggatxH+80giT8O3LvVIxC4l1OUzXY0aYwivXgIRv
s8CrXhYpfNcQMzB12fRwHQXKNpkffiN/EJOQdRNT46KAv2q5FQ/fQWyJ5a5U
wUN+77SUEDGPYW/eeR5q3kqBvt+7pz60Ypia2unYsR0UaB63tOgIwDAJgdDl
nfoUkPp+W8D5AmBLQ+nTj0JIO04tXf+tj/2uu7e0K5QCYVsNPdLK9LE3OVkb
K69QQG7IrLDrhj4WZJ+n0BJDgcVEzmvLuvrYVOuDfydSKVCHc9yty9+P/X7x
ulfhPwo8a6zWnTqvh1WEf/9UMkaBL31aUcP6+zCeqZJWxiQFRMH+juv2fdjx
Y1HN2AwFhixcV5ZX92LcKrvRbzoF3FrNeV6hvZjb76RX3GxzENLw6+qs8V6M
Q8ssy1dsDtbY7CUuOuhgRyfrTipaz4Ein6FyZJo29tAu498Q2zkQqk0tirus
jS3VnfGot5+Df/iY154d18YepEu4OLnNQb6Y+JCbkjY2bxhmeeP0HARPP9h/
uF4Ly8/boz0ZOwf2NX6/ZBma2IxtKXvJ2zm4H2Q1+iFIAxMTFfEeqZ6DXgc7
F0k3DczsT+wHSTQHCcPLcrdNNLBif9fE9OY56FDbsrtVRANzieMRjO2Yg5ka
NY/QenWspcJX8fjMHFDHkUiTgDpmk3RHgWcLFW7lJVbaFKhhvoGtvx9vpULv
7aVAx8tqWITtWoLJNiqIx3eOJtqqYaUifjNRQlR4VZQjHrVBDeN+ePDlvAQV
8trmQlLOqGJ1tVS9MSUqeCUTN0RMVTDVOSureiMqMNKrSp2ElbCtnzcrR5tQ
wW2PWA6drogRJZ83GB6iQvuUWFH1V0Ws3su8ttGcCmn4q7XueEXsWJeJaosN
FRrlb8kfXFTAwmv1eb6eoILGcwVa7Lg89jVR+UPvFSps+6j9zHBIDnvtO1WY
G06Ff00EjI40yGGZJiXh7pFUOMOf/C68WA7zYu3c8yeGCljpm0DHk3IYEST9
YDiBCl+zqFaDs7KYpItIzNQ9Kqhwde4RXy+LBSpyGsy/psJxd4X2AQtpLPXz
iy3ZFVTw3p05bqIljZWdcx7Rr6RClQP17EcxaYz+tvRGTBUVAnmzTFT+SmEh
h+1+bH5PBeuiGnmzm1JYqF+Br9xXKrDrybsU3N+BRZXq3bWZpIKo7tCM64AE
VnB01IcxRYUkx+JZ9nIJ7D0jed+9aSrM5wVE9CRIYBwHhvr7KFRwsTzpKqMj
gcV9ua7oy6TCz06Dfzlvi2MJlM7aCA4auDD1SqatxbA76oGTzyRo8DvOXjmb
KoxFfy0cOy9Jg/vPfuluaxPGzgV0Du+VooF+VpojKhTGLEt0+xtlaWAjiJW/
sBPGuKXWd/Qq00Dwdk3j1DshLIIvq3qTLg0uTvv/vZkiiPlRGm7529PgF6vl
XLv7Nsw5iZmo4UiOP3lMRkN/G2amrJgw70QDfjEHvVqxbdjOk8mxsW40CORb
qHX4zY8N9juG5vxLA7585oYEe37M4cuM56fzNHBc8ZOsdtyKGZYK7VG5RQPe
mpoH7Tgvlndp29hkCg2utzJqS6p5sQXDLemPbtMgeK8Cb2ssL/a8eyNTOp0G
lQN/Z3sEeDFxrtVykVwaNH5+uHpIbzPG8BzR5nxKg9v8XGfx25uwR8Jl2kPN
NKjot6eaBnFj7COlo/kt5O/fTm7zNOTG3J4/SXNro8HHH71Cb/m5MX6TYsav
zzTI4olLFC/nwiKDMsq//qCBUN+PxReLnJjTl6vaNUM0CDm0culrygZsU+xh
7XurNFi8JJtHG+PAigQ1enVYNAg3r87rQRzYvhKRmC42OohuLaRSsziwk18m
vgmup8NDPaGaB1YcWL1wvH8aDx2ClwsNZKvYsYulDUW3hemwgX3E2zqLDRv8
uX9rkgYd1vEaqIhQVuCir+xbFS06pBnqrg8vXYHNyzwnPmnToVX5qa26/wro
SfWU8uyjw0BJ50TU1DKk+4WaJRjQoXk3n2b91BKYs8oj4y3osDopmeG3sADl
irsoUT50cBV4Iih5hAmiFfnI6BQdttpMHJvgZULEQb7bnKfpUJ+5M5qtgwFm
LlStpAA6nFHmFZR2ZkBv4qvL94LpkIErX9jijwPHnM6G59F00Dphv+5YHg2s
K0CiN49cb9P6zs/nZ6D8YNls3n06HMho9JndOAMiX6WQRyEdCpkNIxlF0zA8
zu41/oAO35MDOGJ+/oWLIk2Pac/oYOIXefPRwSnIvWKmxV1Fh0YdpUtZmuPw
96CN+Z4uOrA9UF/7GTQIN9NL+Xt+0WFk5N79CqlBUJni6o3opoPK6n7B+bw/
EJBa59/aR4cCfPuPc84DMDugkuw6QgdWaJTej+5eoF7hbI+m0iFl76pNEqsL
mBXV9l95cLj6wOxS2stPkLFRWDL4HxxS1mQ8OjM/go570LgwLw7dbTXdF6Pb
4OJ6pUueW3EYcNuwu9+hBRZsMzIZwjjkLeXeW8ffCEtz53rFduJA4WpZqk2t
ADZlec9TgIOue7S767FidPYSz7HdB3Fw0i5XT/N8jPqbKKbzhjjYdA20Kp1+
hqpOVKpeN8Xhe6J9XOPrlygk3WzhkSUOy3sk+MdS36EpNv+UcVcczFrGzmZ4
N6GOXy9qfUJxkO+6FS5n+x1hO9PK1MJweOQqw95d9x29CAotZl7B4WLW+1G6
cgdK2nww4VokDsXvTzc6s/9ApkYdxx7G4+C98PEM9+NOVPWcMT2ahoP4Xtri
za5fqPiarpj3Sxz6r4WvcXzqRxFsk0j2NQ6C7l7PJOQGkNOVDJ+Rchya+zIT
31wdQLzn8TKvtziwbilZnlH9g8Lc/jvkiXBoGNVFy4aDyFZL+sLxLziY7136
wHZ7CHEMcbc7TeFgJ7vp6xzbKOp3rbwgMo2D7AM5DV75UfS2y0f89wwOX7XV
Cpnmo+js54aTjlQc5mq9yqTSRlFP5dVV+3kcFqpOllNkx9DLW1Rluw0MsN7R
lF2kO4489H9fs5RmgG6wc4YETKKLEedl5mQYIKqkVtTqOomS63lQqhwD/ore
uGkROomqjA8s/FBgQLdG6pOuskkkYFnk57KLAft7v8twSU2hFvcA61P7GVA3
v91/gZhCuyLZRKPtGSDS5h9leWMaGb/PqpBxZMCPouVJ5YJp5LpOy7bJiQG/
3kylj1ZOoxvXfRK53BhwdznZfXZ8Gg2nfFxN9mKAi93ympPRDMooSBvODmRA
l1pDRxVzBq2+VywtTyDXO2Rr9OogBQ2vmgdfTmSAmMStsY2OFPRB94yeQTID
hHMSth4IoKDUly9bW1IZ8Jxz7K1OBgXJFOqN9dxjAIV6XeTqJAWZRR2RZH/E
gHzH5zwX4ufQHYNzqZYNDIixP+lTdIyKLobdceRvYgAzIH+LujsVub4pl/zV
zADar68iz32oSG7XYqlHGwNqhD4mXblIRZXbY9qC2xkgY8MjfPweFfWt3OXI
HmDAgSQNHtsuKlKorgwZX2LAe9XAwuDDNGRW16SZvELuH+f1c3XWNOT7/jtV
a43sM6cbUlbtaaikZTogmp0J3KoXGE5eNKTYucNHgpsJ3SdMPl8LoyHl2ev2
toJM2JN6SqOxhIbMqWnbFoWYZH77NZ2f05AfXvj9vggTBjBp+9HXNPR0sdpy
VpwJo3qmu3rqaEiFk2pyQ4YJ+4tupph00pDqDiedut1MyD9l27xzlYaOyPgw
vDWY8P1CZ9Y2DjoK2Bn0apMWE2I+99jMc9JRqUrSLmcdJviN2uQUbKEjtX31
8gx9JjTJKnZfkaWjXTaKwsrmTJgKaGE7cYiO1GMX5tO9mdAsbhm28wYd1bz+
5qt9kgllp2+/70iko8Ojj7o7TjHh4/W4okspdORlYl/N588ETS26Y0kGHaVx
vYpIOM+En8acuY8e0NFiov+G8AgmLFnG1EsiOoqvMbwoHsWEFpUFPvMGOuKf
FZ14F80EXsHAW2ea6UjVqrWViGPCgp2zft4nOjq+ZWfSuUQmZAn8tC/4RUcN
aQP83pnk+usn1Q5Q6MiquSKWI5sJxVZTqXNUOuplJjEKcpigjeKeZ+N0xHDY
39Wfz4TQu7v29y7QkbxoZpbjQybYh36I5VyHo5t5NlIWr5gQqPKCbbMQjoS+
Kt6ees2E61HMaSsRHBWvsdhvVDBhJdld4KYYjmpOPB9pesuEb70b9GckcUSR
3vTYADFh2YjzvYcCjuweNalpfmbCrTk+5617cfS8Xa4N/8KEF1pTafy6OOJe
jvOu+MaEef1tAf/sx1GdtUnOvh9McJYZ3PrXAEdKi83c0MOE++LPwMoUR3Gy
8g/Y+pigF/jQRdAMRwOW8dDQT97fiVGXn4dxlFZketFkiAlJY167MUscsSxa
RiwmmTDy6bhsgx2OXC4qRG7+y4Qw9fZ/bexxVF5wXezbNBMiI3+1dzvgyI95
yMZ2jpyfK9muyxlHP/Nb65wIJvRdKJ6NOIGjZ7S2LJ/1BPif9x5NP40jTgnl
PQqcBKTfCqBW++HIw/Rm+yQXAU/sZMp6/cn9yzHnCthEQOA1Hn/usziKNv4U
EsRPwGn63xfCQTjqO6uyRVuAgFOq9Xr/BONIJyvxGVOQgBCDfe+WSM/MWgyH
ihJg+sqtrPkCjhzvfbaOlCLHt6d4CFzG0av3qtOYDAFXvnV6dpP+ZyYpnkOO
ALd6v7TMMBw1YJa11xQIaGFVPttwFUfb/f9zOqREwIaGc/dfkw5N38zgViFg
4nz4sGs4jtT+flFO2kWAtZdOSE4Ejm4I7PpgqU5Arvj975qROBo2uOXJp0kA
f2tnThPpzLtWmXf2EPD3WsPdX1E4wmufax3bS4ChPf7NKRpHVpO83wR1CXB4
PJzeSXrdgW8bsvQJeJF9p7c6BkfZu8Qy9Q0IaNKmekvF4khdykd5EAgw2rdg
HEXabd2ylYIRAZmdPTs043BEZ5gMfTQmoPANn3wc6RvjqcFnTQnoLSzO+k66
ok0+s+IwAX7sLn+OX8PRkerzys4W5HybHtXkkx4uralZOUKAstOD7T2kQ/O5
rAusCEh43sO1NR5HvKm2Q0ZHCZgcbI0yIv0gOi94woYArGMy+TxpveDJDYl2
BExffa6dQ7rdWytzlz0BawvXw+pJn3KIUO5wIKAqpt97iPTaobaaC04EdEVt
XVwlnaYrYC3qQu7XzSh9oes4UlY5MVTjSkBZYLS2Mul6iafBHu4EWO73Gdcl
7cDL3LD+BAEpBy45mpCeYUHmYw8CVLasJh0hHUO7qWzhRV4vVyfJmrToyM8a
yr8E/JI97mJFuqxTyvqODwHHD5asmJE2/eA/tOcUAWcYRqFAuq/yTXC3LwHx
D1w6NEgHPWHnDPcj4LfCli1SpLlzjmRKBRCwpy1Gh4d0ftI95aYzBMhbfTKn
kv9HO2K45lQguf8rKzYdpD8FqllvOk/A9qKdNmWkvTxDh54HEXDknqXlTdIL
to3BtiEEKLZesvAgfcuYl5O4QMDXt4VHNUnL6ThnZl0iIDax0ZONdJXCA+UD
lwmI4WyP/Ujer6OiczWDYQT0ZJVXp5IOX4kbUoggQOFAYdRW0gKUb8GfIgmg
vDwt/JnMw9M/YpyB0QTwCiT+iiHd1VCm/CaOgNDWHROjZL4CypdrnOPJ+V4p
YamkOR6ZWq9eJ+BR07ufe0nvTugLNk4koHrco+0KmdcPYQqck0kEjISMqYuQ
dgsIyky8Rda/5qeJMjLfN6y5aztuk/mKcXf4fz0MCWpzemYS4NuzXLlA1lMo
V2Tm+mwCNL5ukgglzbvYplySQwCMHGTgZP3p9Z2wnssn82+6c9sQWZ93ixIz
wx8ScDmt9/ptsp4Xkk/YGz8m4AJzvGmCrHe3y1r8m54QEM72jl2PtNzR3sTM
UjL/u3pTOy7h6M2qcuTr1wT83PczvzMER2JTa/vDKghIXscesol0ZGfHAlZJ
gF5DQYgB2W/MnoUFfa0i82WUvTnrPI56nD76TL0nQGThmaY02b8MjPNlyhoJ
YFfrmdc9Q54Hu4P+XGwm4O2be/zWAeR+coo5r28jwPmIi/tZsh+uvT59ZEc7
AXekB7uiT+JIhm+jlv0AAddu5NayHcdR/FLfnPggWf+xIbpDbjiaHisrHR4i
+9lAukudK9mfa5zkz40R4Njcff8s2Y9N/UpEE2fIfnVBo/rxMRydbj7E9n6J
gKTss4ejzMm8X4n/oio8D7k6fZZ/tch+myZ3YFpkHhbH6r0DNXFk+19D6ROx
eXBbV9FGU8cRY2AtUV5yHvDt55Mpajjaa3jJXGrnPPz+2OTbSp5fddy+Ldu0
5mHX98omNnEcfU4//H7Jah5C5/sG8lh0NPHin4rW+HkQECh5+P/zm5GSLn76
xjzk9aJnXvV0xHZOMmbjzXlQX28kfLmOjkTU1a3Nk+fBW49PsbCKjszL7KY+
3Z2Hke0fgwZekc8nZdnbvxXMg3XGz3K+YjoKeqkY/7OKnO/agaduMXS0+srY
cZgyD5+GLAqFDtBRgVJ1zocTC+Ag8X1tKZOGZANHshXbFuCdr8rwYQYV1fPd
O3JJfRGW/vnvOPMIFf2VTShILViE9bpU11qlOcTgVHuhsHEJcl82Bez8MYsS
3fk8EsKWwKd4R5+XzwziiC3+5Du6BK/jxgdVRabRnXWNU9pHlmHrjbVRs94p
9GJe6umnmmUgPM7YL6dMotIq9Z2DO1fA8HeCquWpCaRDizBE91ZAsO/u7kWt
cdQT48SfyLUKm+Q7BZoFxtDxkZHczsBVYBdKb24SHEWBlf+1TQ6uAqei/wEJ
vhHk4aL0Msx8DTRv3BJKlh9Gfk7qFosv14ChTWnbaDWE2D9euG4owwL7T/wv
wwMHUSjPmYiNiSxYx5IrGLD/gwq6HZz6k1jw3/qjMZrWf1BrCab58hYLzE01
Vq6b/UGihwTGne6w4Mvnmoq9+/+gqthqy5IsFqR5xeo8lfqDVlY2bj9UwgL1
AGnZ3ukBFDX3qDqumQWooc3cL3YAldSlpju1sIAhuP0qlXx/ak8OC1RtY8E+
UXu90IsDSFrVSrbzMwskkYhb0ukB1ODLvCnbyQLLaxdUWqwH0PphI5eGYRY0
sKH/4iUGkOpLNe2MURYMmjfH7RQaQMeihHn9xlnw7ofpSDPfAHooOf1+618W
8J3z3LNp3QAydb2j5EljAe9QuFzJVD86q3x13R6cBdmyE2p2I/3o3qJPPzeT
HH9BuIbV148m7+neLltgAeEQ7OPe3o+2nJL1j1tiwS+CFsn7sR/t09ls4rTC
gsqm/u3vG/uRx4Z5SdU1Fmy0HjS4UNuPEjoHF1gsFggpFA8rV/aj/wHmYjFX

       "]]},
     Annotation[#, "Charting`Private`Tag$64144#3"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.7, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{914.25, Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.7, 2}, {-27.624717942456893`, 104.10011558179202`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.84306295286833*^9, {3.843063031224279*^9, 3.843063035755679*^9}, 
   3.843063066519023*^9, {3.8430631023515997`*^9, 3.84306317102878*^9}, {
   3.843063223535733*^9, 3.843063235059379*^9}, {3.843063274267282*^9, 
   3.843063299857799*^9}, {3.843063393466517*^9, 3.8430634149116993`*^9}, 
   3.8430635545885477`*^9, 3.843063599687607*^9, {3.843063733772029*^9, 
   3.843063919348646*^9}, {3.8430639614165707`*^9, 3.843063965565536*^9}, {
   3.84306404292741*^9, 3.843064067276176*^9}, {3.843064124717991*^9, 
   3.843064150106069*^9}, {3.843064192363626*^9, 3.843064245813733*^9}, {
   3.843064285142161*^9, 3.8430643070760098`*^9}, 3.84306439166041*^9, {
   3.843064460609852*^9, 3.843064476641905*^9}, {3.843064705288744*^9, 
   3.843064765822175*^9}, {3.8430647977811317`*^9, 3.843064806766529*^9}, {
   3.843064883320794*^9, 3.8430648905011663`*^9}, {3.843065077409275*^9, 
   3.843065081336049*^9}, {3.843065113327546*^9, 3.8430651734308968`*^9}, {
   3.8430652420773287`*^9, 3.843065275474423*^9}, {3.843065373323539*^9, 
   3.843065388166603*^9}, {3.8430654587853537`*^9, 3.843065594657448*^9}, {
   3.843065646297257*^9, 3.8430658053339787`*^9}, 3.843065868425675*^9, {
   3.843065930237914*^9, 3.843065967734272*^9}, 3.843066052223589*^9, {
   3.843066297215035*^9, 3.843066443500771*^9}, {3.843071744867466*^9, 
   3.843071781781349*^9}, {3.8430719306080303`*^9, 3.843071968763633*^9}, {
   3.8430720084492273`*^9, 3.8430720472113743`*^9}, 3.8430721022129107`*^9, {
   3.843072148739912*^9, 3.843072162261235*^9}, {3.84307223314713*^9, 
   3.843072286752365*^9}, 3.8430963580737057`*^9, 3.843096400021545*^9, {
   3.8430964641878557`*^9, 3.8430965139252663`*^9}, {3.843096588049008*^9, 
   3.843096636540209*^9}, {3.843096695154977*^9, 3.843096740244053*^9}, {
   3.843096806890072*^9, 3.843096857027478*^9}, 3.843096993917161*^9, 
   3.843097081852344*^9, 3.843097118806403*^9, 3.843097322916641*^9, 
   3.84309759220619*^9, {3.843097651030426*^9, 3.843097714282468*^9}, {
   3.8430977532839403`*^9, 3.843097759947723*^9}, {3.843097810179102*^9, 
   3.843097834241805*^9}, {3.8430978738731422`*^9, 3.843097878564947*^9}, 
   3.843137362870286*^9},
 CellLabel->
  "Out[2416]=",ExpressionUUID->"ebf85e9b-5c35-437b-822b-d3580ea7bd9f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["forceTab"], "Input",
 CellChangeTimes->{{3.843062956417507*^9, 3.843062961887466*^9}, 
   3.843064269647794*^9, {3.8430968741180277`*^9, 3.843096877877143*^9}, {
   3.843096925140823*^9, 3.84309694222624*^9}, {3.843097018320154*^9, 
   3.843097024110446*^9}, {3.843097337554282*^9, 3.8430973416873302`*^9}},
 CellLabel->
  "In[2328]:=",ExpressionUUID->"04fbf567-17a0-4aa2-91fb-aea03882a647"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.016950000000000003`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.033900000000000007`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.050850000000000006`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.06780000000000001`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.08475000000000002`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.10170000000000003`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.11865000000000003`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.13560000000000003`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.15255000000000002`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.1695`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.18645`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.2034`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.22035`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.23729999999999998`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.25425`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.2712`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.28815`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.30510000000000004`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.32205000000000006`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.3390000000000001`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.3559500000000001`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.3729000000000001`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.38985000000000014`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.40680000000000016`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.4237500000000002`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.4407000000000002`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.4576500000000002`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.47460000000000024`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.49155000000000026`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5085000000000003`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5254500000000003`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5424000000000003`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5593500000000003`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5763000000000004`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5932500000000004`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6102000000000004`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6271500000000004`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6441000000000004`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6610500000000005`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6780000000000005`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6949500000000005`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7119000000000005`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7288500000000006`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7458000000000006`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7627500000000006`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7797000000000006`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7966500000000006`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8136000000000007`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8305500000000007`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8475000000000007`", ",", "0.`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.843062962291107*^9, 3.843096878170946*^9, {3.8430969282254543`*^9, 
   3.843096942550437*^9}, 3.843097024641094*^9, 3.843097342072584*^9},
 CellLabel->
  "Out[2328]=",ExpressionUUID->"c86e8ba2-6a5b-41c7-98c2-15b2fc7d0357"]
}, Open  ]],

Cell[BoxData["forceTab"], "Input",
 CellChangeTimes->{{3.843063630941976*^9, 
  3.8430636355021677`*^9}},ExpressionUUID->"07a2eb45-e6bc-4a83-9433-\
710453e5b062"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Length", "[", "grid", "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPointPlot3D", "[", 
  RowBox[{
   RowBox[{"{", "grid", "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], "}"}]}], ",", 
   
   RowBox[{"BoxRatios", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0.1", ",", " ", "1"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8430671654519978`*^9, 3.843067174156084*^9}, {
   3.843067600767157*^9, 3.843067626637959*^9}, 3.843070767648741*^9, 
   3.843071696931761*^9, 3.8430859814140167`*^9, {3.84308602198877*^9, 
   3.843086053738451*^9}, 3.843086293655696*^9, 3.843087592817631*^9, {
   3.8430877203788033`*^9, 3.8430877238024406`*^9}, {3.843087780378635*^9, 
   3.843087805486238*^9}, 3.843088237252108*^9, {3.843088369500903*^9, 
   3.843088378178376*^9}, {3.843088534607188*^9, 3.843088537211232*^9}, 
   3.843088740051984*^9, {3.843088797616682*^9, 3.843088805173355*^9}, {
   3.8430897240093813`*^9, 3.843089729289259*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"b31ad9ce-e792-45df-96ac-bd7664cd18c2"],

Cell[BoxData["2793"], "Output",
 CellChangeTimes->{
  3.8430671747363453`*^9, {3.843067591368346*^9, 3.843067604007327*^9}, 
   3.8430676394966183`*^9, 3.8430676964986773`*^9, {3.843068444117957*^9, 
   3.8430684680132523`*^9}, 3.843069191107461*^9, 3.84306925449506*^9, 
   3.843069305371385*^9, {3.843070768150878*^9, 3.843070783755418*^9}, 
   3.84307169743476*^9, {3.8430859826985598`*^9, 3.843085991468211*^9}, {
   3.8430860284330072`*^9, 3.843086055270853*^9}, 3.843086296107019*^9, 
   3.843086401325934*^9, 3.843086459282968*^9, 3.8430868538668833`*^9, 
   3.843086973301392*^9, 3.843087143311448*^9, 3.843087226290606*^9, 
   3.84308732030971*^9, {3.843087389290307*^9, 3.843087421990244*^9}, {
   3.8430875839042177`*^9, 3.843087594578936*^9}, 3.843087679206346*^9, 
   3.84308772449086*^9, {3.84308776286341*^9, 3.843087807282857*^9}, 
   3.843087875709639*^9, 3.843087932802657*^9, 3.843087985458837*^9, {
   3.84308802067288*^9, 3.843088041255745*^9}, 3.843088072509082*^9, {
   3.84308821376101*^9, 3.843088249005271*^9}, 3.843088280770157*^9, {
   3.843088370990675*^9, 3.843088379356954*^9}, 3.843088465464695*^9, 
   3.8430885382266827`*^9, 3.843088576997683*^9, 3.843088698932242*^9, 
   3.843088741174259*^9, 3.8430888056448727`*^9, 3.843088849023384*^9, 
   3.843089188085759*^9, 3.843089290593457*^9, 3.843089423401588*^9, 
   3.843089468086226*^9, 3.843089606543586*^9, 3.843089646110832*^9, 
   3.8430898179798594`*^9, 3.843089855994337*^9, {3.8430899019627733`*^9, 
   3.843089954044943*^9}, 3.843090036526037*^9, 3.843090089939625*^9, 
   3.8430901396553183`*^9, 3.8430901706409397`*^9, 3.843090287226213*^9, 
   3.8430904978736057`*^9, 3.843090566068331*^9, 3.8430909510839233`*^9, {
   3.843093709422905*^9, 3.843093951858526*^9}, 3.843093991232625*^9, {
   3.843094032911628*^9, 3.843094062009204*^9}, 3.843094108338614*^9, 
   3.843094162762795*^9, 3.843094236461954*^9, 3.843094325042142*^9, 
   3.8430944411281557`*^9, 3.843094675123214*^9, 3.843094810234503*^9, 
   3.8430949542978067`*^9, 3.843095080946371*^9, 3.843095169737362*^9, 
   3.843095273314554*^9, 3.843095349823566*^9, 3.8430957404016857`*^9, 
   3.8430961228960123`*^9, 3.843567278554141*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"c9073fd7-d0ff-46bf-b98c-cf295e0a23de"],

Cell[BoxData[
 Graphics3DBox[{{
    {RGBColor[0.3315753, 0.4561011, 0.6388182], PointSize[
      NCache[
       Rational[1, 120], 0.008333333333333333]], Point3DBox[CompressedData["
1:eJyFnX2Qnld5nzfIXhDCZO0Vi2VbMhnSQBKPxzO2/CGv9xGWMcIfkrAVxTbY
gC0b+kcLoe3AtFOsf1I6aSc1mYBNOmnUhk4N6SRrphkSa5lH0FHHdpHH31gB
FX9MNxWglsp0a8tVacf7XOfM7zrvM9l/MnN48/Or933OfV/nd9/nfn/pzk/d
dPebpqamjr11amrN//+/t5/27778ltNP9VtfP2/2z+//Yf9Pfv/eK06/aeNW
1p//P9962+O/+Gz/rx76wj/dsXXT1pvf1X3/S//5tf6a4fW/dnDdRX/vm5vK
65944/WH+r94/F987/4Lzy+vf2bQuebo7L1L//b88vrLB52rrvrEDb/6hXOk
82z/G7d96l9+5h+cW3R4/YuffOXq+39ybvPf/buf/eyPDtx1Xnk9Oid/+/Uv
vvBX52394Pz3zn/376308yP/3qnhj/XUOdSf9cdrXvzVRzcWnWf0+Szc8qm9
i7e8UvT5fNBZVT84/+vDOjqPDPrfHD43dL6rz+2O4X1eOui/8l93fPTGpXeW
9ceH169b85t/+uWvn918bg+c+f3fOPBLG8rrvzv8d3/5XR899cMHNjSf20MX
vvzV02bOKe/T39cd8bntn58f1v25PXr9j1+58f9WHX+/nT43vt/83KamXhrW
U6d+7+g8o+/9kr//5q9ddf5Pm+8dHX/v6Dyv7x0df++733ifx4o+3y86q+qL
5XtH5xHtF3TGvveFQf9rv3vpZ37rf64v688Nr//2nyx8++EfvmPQea28/saH
v/PJH+6Za773v3rk2pnTHp8rr+f5ued7j33zve9/Z/O9+3nje2cdHfTv/dlT
05+5+Ozme3/b8Hzy+fj53B3f+/75+4d1f+88t+igvzg8t5v1vfN8+ntnPXUO
9Y8Mz+1mfe+7h+fW3/sLw/OZ33t9btF5Xs8tOn5ut76h83LR/8LwfKIzPFdL
PLfo+LlFB/0/Gp7bW954/ZES/3k+0eG5JY6h43iFDp//Nj23vP+PXrbpt7/0
K2eVdd7P53b/yjP/Zf1s89yedtfX/9Gafz5bXs+/64u/deG737tmfXk9z//G
fd947IZ/uH7rdcP3O7Zf+NxYR+cHg/7mP3x4w5c/+Y6i4/3F98vntmPYX35u
WUfH+87P7SeGfcf36313XTy3dd/5ud037Dt0vO/26Lll3/m5ZT116r7bo+eW
fefnlv2Vz23dd3v03LLv/Nyy73jenC/25HO7xL5Dx/sOHfRfH/bdx95Yf7R8
v+w7dLzv0EF/dth36Dyvfce/H/0Lhv2FjvMFOk9o36HD92u+6mJfv72sPz28
/sJTZ/z1m66b2XrT8NzyeT687vd+9z3fnimvf274737gnLlLb7j8zPJ6Pren
3/sHRz/9Z2du3a59x35PvnpwiXV0+Nx+/P5/c8HDf3hW0WHffXaID3AR+muG
+HBT7LvFpdOHdXR+oLiBjuPGxcPzyffy9SE+bI999xclbqDjuHFxxPln++8M
ceOm4fl03FiIfbd/nnx9sfYdcQMdvnfy9YL23YkhPlysfUfcSJ2arxe07+DJ
Xdp3xIebYt/VuLGgfUfc2KV9R9zYNTzn8+LMBe074sYu7TviBjrow5ned8SN
XbnvStzYFfu3xg10+H5PZtzofJ5Cx3EDnReUr9Hx+WuID0WfvDylP8WNzucy
dBw3yI9b4vtdW9afGl6/yvNvLXx+ZXye68rrnx7+u6tx9W3l9cSf1Th5Rtlf
8xEP3658/dV54hg6jw/6q7zxi0XnCcU39tcWxbc8X9w3f2BY3y7OJO6h85Ti
Hjy/RXFvuziT9YU4p9S4h85Tinvsr3lxkeLGEut5TjnU3zfEPXSeUdxz3CC+
XRJxY//Sg8M6Os8r7jlu5HmkcibxLePG4nzGw8qZeU450sQ99tflinuKGzqn
HGniHjrmJb6/yeeUI03cS50a95yvH8q41znuZdyovJQ69XyNjuMe+x194pvj
huJeN8JL3cg5pfP5Gh3HPXRGzindyPm68/kaHb7fC/Kc0o2cr7ux83XurzXN
OeXSN57z05tzys43ntvp8nq+l9Xn883l9ezr1eftLeUcSvy8X/E2n6u1RYe4
uvr8vLXoPK34bD/qpSE+5znlgSXWPxjcdWj4ft+meFXjNvFhQZyZ5+v7Stxe
0DnlmiFuO+4RtzmHOm4v6JzCuuMecRsdx23HPeKz4x7reU6vcdtxL8+zR5q4
nefrGrfNS3nOPdLE7Vt0TkkurbyU59wjTdxG53nFbT7fyefcI03cvkVxj7jt
uKe43fmce4viHvHcce/zGbcLz4hXS9zAR3LcU9wuvPS3kldLXHooz7lFfyHj
dod+xvMa9x7Nc27R35P+UhO3d2XcW3oxz7lN3EZnxBdt4jY6jtvojPiiTdwe
9mlnPxydVf2DJW6jc1BxG51HRs656QO83t2uuL3Khz/vblbcXo0bU0Xn2eG/
uxoffqGpX/zkjf3+phLf0Dl9yBd5zv3qEnkEHT631f17muJtzS/Ety723XTj
h7Oe8f/Q4CO9ueiQF8g79sPJLxm3H1j6yrCe5+Wad+yHPxbngmPl8yG/ZNx+
cInzwiXyRU/GeeFY+XzOGvIO8c155xKdcy+I80KN2+QddJx3fM49EOeFGrcz
H71c9K8d8o7PueQdn3PzXPByk3d8zv3JkHd8ziXvOG6TX3zOPT3WH23yDjrk
BeWdzj6Jz7nkHXQ45yrvdPZJduucS35x3Fbe6Zx30LG/uqC4rbxT4vaJPC90
Iz5JZ59kj+K2zgtFXz5JZ59kj+K26hqd/dUFxW35q519ks2K27uzHteN+KtF
X3WNJu+g47wzxJkm76Az5IUl1eM6+yTojNSpu+3KO+jw+asO29lfRQd9nxeu
iPjw0471J2O//KzknS3xPK90WbfFt3+1m1yHPdkRn7dEXH29y/PCffOso/Nk
+NKnis5T8e/6eec67IEhP2beeWCevOl6HHkTHfTJm8TnKyMurWnqcax3kb9q
3kSHvLZ5yJvE53nlzaxrfHWe8xo6fP7kTXT4/PcNebMb4rP9scw7982znjo1
b3bKO5zX4OotypuZdzinrys65B3yJjroc15z3iE/dpl3ynkNHepW5E37JORN
3t/lwVczOi/sn2fdPgnnNXTQV97snDftk7CeOk3e7EbOa53Pa847mU+rT3Jf
nteK/nnps3X22eyTPJjntaJ/SfpsnX22wU/r7LNl3ml8tuKTfD/rC03eJD7z
/f4sfbair/pCkzfRGekH6Oyz3RR5p6lLdvbZ0HE/AHHefSyZd5p+gKL/SPax
FH31KXXuU3LeUR9L0Vf/UtEnbw7ni6a+gA766l8q+uRNdJw3V+PY1Fb3A6Az
5OVSl0TH9QV0xuoLGZ+f61xfWN2nL3X4VFfG65c7+2yrcfVH5fXk3/Vv/HuP
N3nT+ZrP7eFhPf064saJJm+S3503ye/ps903zzo6T8a+eLVz3lwc8r77WDjn
Zt7ct0Tezz6omvfdx0Lex4+6Snnf/QDk/c2Rf2veR4e8/OMh75Nf7K9mP8AD
S5yj0eG8Sd7PfFfPy3uG/LKgvJ8+G5//dNHh+SHv71He5LyMH+W8n3mz+rTo
8PkvDnkfHef9EneU9/dk3iw+LTroU19D55l4/s9o8iZ5P322mvedN5X3O+d9
+2zkd+fNA5n3O+d9+2zyaYv+xzLvl7in83LnvgLnzc9lfa3J+/bZ5NM2eR8d
+7RD/b0b8WmbvI+OfdqL45zV9CM15+XMmzXvX6y8qX6k8v2qD7Bzfe1i5U31
IxX9fdkH2OR95031IzV533lT/atdnptKX3GT95031b9a9PFpM9/VvO+8+VL2
rzZ533mTvI+O+wq23HNg+n8f+IWt7kdCB33yPjo+L6PjfqTV53BNk/fRQR+f
Fh3nfXT+pr6C1fPXc73z/tlvvM9v9eRN9iPxz3l/ZvX1ytfPDuuHO9fXbhRv
EPfgEHSSl44qX1c+cV8BfOK8f+Ow7vPy4sAt7is4a+AWn5fhE9fXWEfnyYh7
JzrX184LX6Kel28c+CR92gcKt6CTPP9q0TG34GdeKW6xT5t+xbHCFXALOk/H
c/Xz7qaJPu2Uzsv75llPv7dyCzr2K3brvAy3pE97X/H50SEvwy27I19Xv6LE
HXELOvl8Thcd15czXzfc0plb0Mm4ulY61a9Ah8/nsfQrOvsVU/oTt3QjfkVn
v4L8uDCZWzo+nwvSr+jsV6AzUl/uXF+2Tyufv+Rl1ZcbbnF9TT5/yfuqL3f2
+V1f+1z2Q3b2+bO+tui+oM4+Pzr2+Yd+48bnvyTy/qL7ITv7/NfJp02f/7WG
WxaU99VHPeLzv9Zwyx3K++qjHvH5a96nvnyH8j4+P/kR/fvz/kLDLXco78Mt
Pi/jV1yhvD+f924abkmd6ldcobyfPn/N+/gVzvuso8P3mz7/moZbrrnu3d/5
2//rtK32K9BZVbfPv6bhFnTsV6z2101vdT8kOrx/eAYd+/zojN1fyHrxTxtu
GfJ4P9nnX+6zj4h9/VJ5fca9o73vqZmXhri3NHBLn3Vq8ubhokPcmBv4ivx+
VfDVviXXl/lLncpdri+fNXCX68vwlX1+1pN/eP9HG26Buyb7/MviFvSXu0vk
V8BdyRuVu9wXBF8lt+xbwkdyfRm/yH1BWQ86Uj5/+Mo+/47gsZfL+0/uOlLe
P9xlnx++Sm55YOnF4K4jxW85a+Au15fhLt6f+yjQWf1f71tiPXUqd6GD/o+T
uzpzV/r8+4tfhI77K3YHbzR+UWe/yM+9uKsb8YsKV6hONMZdygvFL+rsF3Xi
luy7Pta5vwIdPh/ViRruQsf9FeR391d0wS3E1dJfUbhCfX3l81c/duMXobOq
vrikvr6if232YzfctV3cor6+hruSf5p7KIVbdE+t4a7klspd6JDXsk70WsNd
d8jn/1reQyn18awTvdZw1x3y+fGL7Ffo/lrDXeYWuMvcQp2I/D5yb7ThLnML
daIrwmeo3GW/Ar4yt7B+hfwKuGtB3AJ3mVvwi5JbKnctiFvgLnMLftEHxS3w
1UJwy8HSX4GOuQsdc9eNF/6zf/yDC9/ScBc66Gf9aLrhLnQm91esbbgLnYwP
m4rO5P6KtX9jnWjIU336P8TbV4tfpP6K3n7RkH97+0VDvu5dJzLv8e9iHZ1n
4nM73rtOBB9OrhMt9+kXwXXLvbkLbvQ9d7gRPkmueK4f4a5+cp3ocJ+8RF7A
lzsmX25qynUi/pLfDg31iG+VelNy7+HOdSL40P0VO8OvO1b8rvUDN7q/IuuJ
RxpuzDrRvnnWU6dyo/sr4MY94i640XWirDMeKVyHX4cOnz9+XYk7E+uMR/T+
V4rOUxFXXy069utcJ4Ib0Rk+/1JnROeZ+PwLN3bmxptUJ8KX83NzILmxMzei
Y78OPhnhxsJF8us6+3XJS5Ub4ZMRv674Uaozdvbr0LFfZ79IdcaGG1On6cst
7/+xvA/Suc6Y3FX9OnOX7oN0GX/KPb6mzpjcVfty0XGdcbvqRLqn3HCj/SLW
t8sv0v3lhhvhE9cZt8sv0v3lxq9Dx34dfOI6Izqr6pUbk9+qX4eO64zwCfpf
z7kHjV+X9abKjeigj18Hn8yLG5O7DpY6Izr088ON6NDPj1+3beAT1xnNXa9E
39Gahhu3ibuoM5q7sv+2cNc869vkF8GNH5RfRJ1xx8A5rjNuE3flHJLKXdQZ
d4i74MabxF0vRh9R5S64cYe4C25Ex/1Ft5z1yuU7P7muvH/4EB3eP+vomBvR
MTeuPodnNHVGdHj/5X7foOM6Izpj3Jjn0J+L04hXpwoX5Tn69Yb3WHd9cOjL
bXgPLp1cH1wR7xWfp+G9Ie/36Y9VXrXPBpcm73FP4adFx7zqexzpZx4TTy73
Iz6bdOxzHtO976O9fTa41PXB9DmPySc8XHT4fAbO7PGjklfxOY81vGqfbeDe
xmfD57xZvJd+5st+/9Kp9WV0sm/qpRHeW+7SZ6s+Z+pUXuV19jn3iPceDj/z
0fJ5sY5O3n8svNqZV4f32dnn9OcuXu34frMf/khnn5M62pWTeXX471ReRcc+
JzquL1NHuyo+n+JzFp58OOvLDa+6Pqh++IZXsz5YedX1QfXDN7zq+qD64uTz
lH74xuc07+3L+8sNr5r3Hsh7ZOX9L+b95aKv+RINr9pn0/3lhlfReSae/zOa
flrdXx7xOV9rePV28R68ulm8p7kTDa/eLt7D59ws3oNXt4j3NG+n8Tk3i/fg
1S3iPXi1E+/BpZuD9yqvZn9R9TnRMa/iR7kffot4D5+zE+/Bq1nXqz6neQ8u
7cR7rKNjXjXvwas7xXtwqXy20g+fOrUvbmdwWuXV3QMXuS/OvMf6TvEe95fR
Ma+a9+DVncF79f5y6lReTU6rvAqnXR7799yigz7r5j141bwHr+5due1n3/7X
by/69MWhgz68mjqVV9FB/4+iH36m4VV0+H7pi0PH95fRMa+6HwxendwPdqpw
ke5/Nf4e6+a9IW/26cvZR3VddUW8hz+50vBe+qt1zgy8Chdln/lPG95Lf/WY
/MnjfXKaebXx9/rd4r3k2OrvJa/a3zvaj/BeP8J7vXkPXjXvwav8/0/m1SMN
r5r34FX+9xFe7cyryXuVV1On4dXCS/JXO/Oq37d4tTOvTu4HK3X5MV4tvCd/
tcvzSKnL635W6YfU+y/+qnhppTPvJa8e6+yv+t6u6vKq25Z+yC7Pa+UeR+Ov
+t5u8uox8caU7v829zcbfxUuWhCv5v2pyqt5/7eZe9B57gH1R9flsw98sfir
7gPXvJ3GX3U/mOYeNLzqfjD8VfeD4a/a39O8ncZfdV0VXrW/h79q3tOctPL5
pO9a66rw6hbVVeFVuMj3N11XZd194PiryWmVV6+Rv4e/at5j3bwHr5r34FW4
6HLxqvvBWHc/GP6qeQ9e3aG6Kv5q8t7UFBxr3oNX7e9lP+TahleT9yqv2t/L
fsjKe9TlbxXvwaU7xHvZD7m28VdvFe9Rl79dvJf9kJX34NVbxXv4q7eL96jL
3yXew0e9Vbw3H/PkK+9Rl79LvLc77nHMbPX9zduD92o/ZOr4HsdMw6uX/p0X
f/MPjs80dXl00M97HDMNr6Jjf3XVJz+zqcujw/MDx6Ljujw65lXzHrzq/n94
1fVcuHSk/7/o5P2Ik73rufAqXHSleHWkj67omFft78Gr5j14daSeK26s/io6
7gcoz6t4dcTf68178Cqvs786wnv9CO9Jp+HVzrx6s3hv9f9739LUyJ95T/5q
Z151PVe8Kh57TjqVV91Hpz7Shldvnsh7y9Jp+kg7+6v4YL6/43pucuyxhlfR
8f0d8576SBtetb+ne8cNr8JFnjdif0/3jrs8r5V5I0X/mpzH1bmP1Pf+NG+k
vH/N6Wr8VddzNW+k6GtOV+Ovup4Lr5r3NKer8VfNe/Cq++jgVddzNY+34VXz
Hv6q67n4q/b3su5feY/1K+Tvwav29+BV+3v4qK7nZn/pmoZXzXvwqnkPLjXv
sW7ew18178Grrufio5r3WDfvwas75O/Bq+6jg0vt77Fu3sNfRcd9pHCR+0jN
e/ir6LiP9FbVc/FXXc+FS28W77Fu3oNX7e/hr94p3oNLzXvZX3pGw6t3ivfy
/s5M46/eId5j/U7xXt7fmWl49bKBr+yv3iney/s7Mw2vXhacVv1V817e36n3
7/FXLxPvwavouI90/qNf+vObf+eshlfRQT/v9ZzZ9AOgY15d3aezjb+KTsaH
TUXH/QDomFfx5eyvTu7fO1W4SPdV5e/tn89+gCMNr6LzZMTzVwtfTe4HMO+t
iBsrr/I69wOY9w4El5b+Pe4LF50n4/sqvNqZV817cOmU/sSrnXnVvLc++wGK
/s7kVfNeb95TP0DDq56nip55j7/UqbyKjvtXXc9VP0DDq6nT3Htq/FXqnp6H
M7meW+496V5JuW/euX/V9Vzde2p41f17mpNT9DUHr/McvKzn7vecHM2RKPPx
NN/pJHNfG3/VvKf5eEUfXnU9F14176W/6nruVFPPhVft78Gr5j241PVc1t2/
B6+a97IfYM1W9wOY91j3vYl7oh+g8h68at6DS8172Q+wZqv7AdBx/ypcNLkf
AN5bLHNl8/5F5VV03A8AF5lXzXvZJ1B5j9+hMO/Bq3CRedW8x7p5D171vYmn
Bl69RbwHl5r3WE+deu/J/XvwqnkPLjXvsY6O7z2hY17FBzOvZj233ntCx7yK
zuR7T9V/y9/Fq7wHr9rfy3tPMw2vmvfgVft7ee+p8hj3zc178OqWgYvMq+Y9
1s178OoW+Xv0A5j34FXzHryaOrUfwLyXv/NYeQ8u3SLeYx2dyffNZxtevfpD
H5w94z3rmzk56PD85H3z2YZX0fGcnNU4sL58/vk7j3VOJP0A6JhX0fE8c+5Z
mFfRfTLiVeHVkk/hVd3XKLyKzgivlnx9b/qrnf3VKf2JVwsvyV/t7K+a98Sr
Q77bNy9/tbO/6vke6l9teHXE3+vNe+pf7eyvjvBeP8J70uH9l/tW5f3P5D39
EV491vBq6tT7VujYX4WLPB/JvKd7+qpHH21478fRD/Ba469Onu+x3PBe9gO8
1vQD4IPpvp54b/989gO81vCq67nw6mR/r8x1bPxV+3v4q+Y9eNW8x318+3vp
u1beg1fNe/Cq72vApZPruVMN78GrnusFr24T78Gl5r3sa63+Hry6TbwHr5r3
4FLxXukH8H0NeNX+Hv2r9vfg0m3ivewTqLxHP4B5L/tX16r/bd3IfY11De9l
/2rlPfxV9+/Bpea97F+tvIe/6v49ePV28V72r1beY939e/Dq7eI9/FXzHlzq
/r3sa628h79q3sv7VjMNr2Y992DpX0UH/bxvNdPwquu58Gry3kHdt5ppeNX1
XHjV/l7et6o8xrrrufCq67nwKlzkfoBLxXt5D6vyHv5q+nK1f3VBvJf38Svv
sW5/L+/pzzb39N8n3oNXk/d8T3+2uaf/PvEe/QBw2uR7+vDewfL7O+iYV9Ex
r1677dSn/9N/fEdz3wod9PP+/vqGV9Hh88dfXY0zc00/ADoZHzYVHfpX6QdA
B/1tyauFN+SvKl+XfgD7M73ua9hf7Z6MeFv6AbqR/lX5h8VfhSdL/6rnoqh/
tXP/Klzk/tWRem7RSd4r960696+6nntj9q/q/Zf7VqoXl/kA4r0yV6rzfIDk
vfuW8F1dz12fc6XK56O5neLV/Uuu5/KXOs08T/Hw4c71XM2VGvFXPf/8aNFx
PwBcNDLPU/7kcsN78Krrufir5j241LyXvmut58Kr5r3sB/D93JVusr+30rme
m/0Aaxpetb8HrybvLWoOefX36F+1vwev+r5G9gO4njvV1HOfGnjV/h5zpXbK
34NL7e9ln8B046+iM/l3Idc2vGreY933NT4R/auV9/BX3b8Hl/q+RvavVt7D
X3X/Hrzq+xovRv9q5T3WXc+FV13PxV8178Glruf+evS11nou/qp5D14178Gl
vq/Buv09eNX+Hrxqfw8uNe/lvKnKe/irl4n34FXzXs7trDzGuv09/FXzHr8/
Yt6DS9Pfq/6q67n8/oj9vZxDPtvwqnmPdfNeziGfbXjVvAeXyt+bPxFzyGcL
z8Cr7wtfrvqr9vdyDnn191g378Gr5j149QMDX5lXk/cqr6LjfoAPiPdyrtTc
1ovEq8l7da4UOpPnSlXeg1dv2PzQ4/d+7J1NPwA6vP+cKzVXPn94FR3z6uq5
9eyRuVL8/tsTpX8VHfMqOiP9AIUnt2X/aud+APt76gcY8vUD8y9m/6p44GTj
792b8wEaf3Wkf0/cWHnV/p7mWbmeK97bNw/HZl0Y3ivzrMr7fyjnnYq3y3yA
xl9NHeJhmYPa8CpcdKV4dYT3io551bwHr9rfQ8/1XP7Me/AqOjl/4HDhoi3i
1eS9On/evMc8K8/By34A897yCO8td/b3sh9gjeqhxxveg0vt72U/QOU9eNW8
B69O9vdWugXxHuvmPXjV/h686nouvGreyz6B6u/BqzvEezkfoPLegehThfcW
y+/l2d/L+QBr9f2+qeE9uNT+Xs4HqLwHr5r3mD9v3sv5AO7fm254D3/VvAev
+r4Gv29u3su+1sp7+Ku+r/Fo3LeaUT1xXVPPZd28l/etKo/hr14mf497VeK9
+fz92cpj+Kuu58KrV6iem/etKu+xbt7jvpV5D169UrwHl7qey7r9PfzVK+Xv
5fz52ea+lXmP9SvFe/fF/PnKe/ircBH63Le6Uv7egzF/frbo46+a97hvtU3+
Hlwqf6/ct0LH8wG2BadVXrW/h78qf6/MB9gm3oNX7e/lPKu5hle3yd9jPXU8
z6ryHv0A1w98dZF49VrxXs6zmiv69AOgQ70bXoXTfN8qea/2A1wv3oNXzXvw
6q733H3BFafObngVHfRzztXZjb+Kzgvi1VVO2ND0r6KDPuupU/sB0Bm5b1V4
RvMBNH/vVOPv6b6V64nixmaeVeExzVn1fRPx3gPFX817vs381cZfhYs8bz95
r9zvls6h/syBV31f488GXjXvpb/6WtFnHR3eP7yKjnmVe6x8/jcMXCreW0rf
lbpw5VXPY8l+gDUNr5r3+EudQ3Bv4SvzKly0IF71/dxd0Q9Q67nwqnkPXp3M
e8sjvLfcuX8PXp3cv3e84T24NHlvcSn7BKYbXjXv5XwA389d6Sb7eyudeS/n
9q9t/FW4yP2r5r3sX13b+KvomFfhosn9q67nTjW8B6+a9/BXzXtwqXmPuf3m
PXjVvJf3rWYaXp3cvzfd8N4n4r7VTMOrrufCpe7fy/tWlcfwV13PhVe3yN/L
+1aVx/BX0SFfwKvoPB/P/xlN/x5c6nou6+7fg1ddz825/bMNr7p/j3X7ezm3
v/Ie/avmPbjU9dyc2195D3/VvAev2t/Luf3V32P9ferfg1evEe/Bq9fK38Nf
tb/3YMwNWN/wKjr2V13PzblVlSdZN+/lPKu5hlfx08yr5r0TMc9qruFV+3vw
Klx0kXjVvMd66lReReeRiJ/nbP3QwFeeD3CDeI91dOBJ/FV0eP+74/edNzT9
AOY9ePVD4r38fecNhSfh1T0bNvzOia+c0/SvooN+/r7zhoZX0eH907+62ldz
7sjvO28o+vSvouN5VuiYV5Mbq7+6e6K/d6p3PfeFnGdV/EnNXy3+Ibxqfw9e
Henfa3iP9eTGOn918n2NE73nsej3App+APMe86zQsb86uZ673Cfv7V/CdzXv
HY9+gOrvcd/K/t7Adf0I70mn8io69lfhooXgVfoBKu/xZ38Pf9W8Rz+AeW/g
7cbfyz6BafHS0Yb3sn91rc8LI7y33PBe9q9Wfw9evUW8B5ea97J/1fc1ThQd
86p5L/tX4b3Fct/K/XufH3jVvAevev7esH879+9lX2vlPfpXPX9vW9y3mhFv
TDW8x/pe8d5Tcd+q8h7+quu58Ope8V7et5ppeNX+Hv7q5P696ZH+venG38Nf
9f1ceNW8B5eqnjuf97DObHjVvJfzAWab/tX09w6W+au+r5HzAWYbXnU999cG
LjXv5XyA2YZXzXvwqnkv5wNU3mPdvAevmvfg1Q/I34NLzXs5N6Dq46+6npvz
rOaafgD377H+AfFezrOaa/pXXc/FX3U9N+dZzTX9q+h4ntVO1XNznlXlPdbN
e/DqTvl7zLOCiy4Sr5r34NXUqbyKDjy5LuavbmjmWe0U78Gr6MBLvxzzVzco
fp7T8B5cat6bj/mrG5r+VXTgSXj1VvEevLpbvMd66lRevVW8B69+eN3hv/6T
S89r/FV00GcdHfcDoON+gNU4v7F8v/QDoJPxYVPR4f1/M34vYGPTv2p/D3/V
vAevUvcc+b0AzxtveI9+APfv5e8FNP17De+x7v69TdEPsKbhVft71P2znuvf
C1jT8Kr9PfpXR/y9Pv29yqv29+hfNe/Bq56/B5cm7+1fwndNHXjycNFh/iT+
KlyUvEqf6oTfh4w5fu5fXdvwqnkPXk3eW8QfLjrmVfMevOr7ufDq5HrucsN7
8Co69lfhIt3Xa3gv+1rPKO8fXkXHv4sKFyVvr3ST/b2Vzry3L+5beR7Lyc68
h49q3sv7Vp6/d6oz7+GvTq7nTo3Uc6ca3sNfdT0Xf9W8B5e6npv3sCrvnTfw
qvv38Fcn9+9Nm/fKfSv7e/Cq+/fgVft7cKnv5+bvXtX7GvCq72vAq67n4qOa
9+BV8x686nouvOp6Llxq3mPd9Vz6V13PzXlWcw2vup7Luv29nGdV/T36Aa4X
78Gl9vdyntVcw6vXi/fgVffv5Tyrynuso+P5AOiYVz+kei68mvXc2r/qei68
io559WbxXs5ZrTzGevqElVfR8e9bwUWeD2Deg2PRcf+q/T141f4eXGp/j3Xz
HryKzgsRP89peI9+APMevJo6lVfNe/QD3D5wmnn1FvEe/io67ge4XbwHr37s
1L733/105Um4FB30WUfH/io65tXVOtGmpn8VnYwPm4qO+1fRsb/q/r3sB3A9
91ThIv9egHhv/oXoB1gjHjjZpy/3LL5Q4astma/7kf693v4e/io6eX/8ROE0
/x6reG8++wTcv3e8T1/O8wF8X2O5H/H3evt7OR9gbcOr5j14Vbw3D6/6fi68
6vu58Kr793i/rufyZ96DV+3vwat3ivfgVfNe9rX69zWOFh3zqnlvZ9yrgvcW
y30rz9/L+1aVx4a+5Yb34FLP38v7VjP6fk80vIe/at7L+1b291Y68x7+qnkP
XvV9DfxV817ew6q8h79qf29bzAeovJdzAFzPnWp476mYD1D9PfxV+3twqe9r
5HyA6u/hr9rfg1ft7+V8gFl9/tMN78Gr9vfgVfMe/avmPXjV/h68at57JOZZ
zTX+qv091s17Oc+q8h686nou/avmPXxX8x7+quu58Kp5L+dZwXv1vpXva9C/
6v49eNX1XLjU/l7OuTq7uW9l3oNXd6uem3NWK4+xbt6DV+3vwatwEbyBj5q8
V3nV/h68at6jH8D+HvOs7O/Bq67nwqv29+BV8x68mrz3ROlftb8Hr5r36Aew
v5e/C1B5j3X7e/Cq/T36V+Er86p5D15Fh/dP/6p5D16F03zf6g7xHryKjv1V
8x68es//uOSPN336/MZfRQf9/B2BTY2/is4Yr/I9wqW83nX/9P0qf5rf8EtH
7l/0I/cvGn6DP9Hx/Sl8Lc9THenH67PO637UtVvzPviJwl32S0fqs73rs/Cn
/Tr4c3J9drkf8ev6nMtX+dN+Hfx5l/gN/jS/ZZ9q5Tf40/148Kf5DT37dfy5
Hy/vT800fimco/ffuR8v70/NNH4pOugPfREdfWuu70/mt+WG374x8Kfn6eGX
mt/wS81vrLsfD7/U/IZf6n48/FL348Gf5jf8UvfjwZ/mN3xR12fzd6xm9fyf
6uzX4Zd6vkr+jmq9f8G6+Q2/1PwGf5rf4EzPV8k5APU+L/zpfjz4c/vEfrzp
ht9YN7/Bn9vFb58f+NP8Bmea31jfLn6DP81v+KW+fwFnbpdfh4/q+iz8aX7j
/pTvX+CLJr/V+1Pux4M/d6kfD/50fTbnplZ+Y933L/BL0fF8Ktdn+V2qXfLr
4M/kwOqXmt/gT3yti8SfyW91PpX9Our77seDPz8ifoM/7dflnNXKb/DnR8Rv
Of9/Y1PfT7/uidKP+hH5dTn/f2PDn/br4MyPiN9OxPz/ylfwp/kN/rxTfl3O
/698xbr9OvjzTvEbfikcxfuHM81v8/G7AJsav9T8Rn3/zuC3ypnmNziTdV6f
954qF10dfZvV1zpz4Dr7WviHI/cUpFP7NtFx3yb8AHflHCe4aP8SfmPyVfUV
0aHOi68IP/ie0Ugds3cdE667S77WYtwzmmm4Tr5WmeOU80wq15mL4DrfU4Dr
zEVwnX0tuO5ScRFcZy4a3u+8uYi/vO9QuQ6dnBN1uPCDfcW8p1Dr4Hnf4VA/
N3AdOvYV4Qf7iuaiXcO6uSjvxVcuwld0HRP/0FyU9+JnlRdOdPa18BXNRXkv
3r7WSmcuwlecPIfkZOd7CvCbfa28L1+5CF/RXJRznOYarvMcEtav1RySp2OO
01zjK7qOCb+Zi3KOU+UiuO56cRF9m+ainOPkvrVp6VSuMxfhK9rXgt98L5X1
Hepbg+t8T+GxmDu6Qd/vupF7CusaXyvnjm5o+jbNRfiKrmOy7nsKcB06nuNk
X+tAzB2tvhZcl3xVfUX7WnAd/g95GX5LLqpznG5VHROus6+Vc/I3Nr6ifa3T
h3XXMb8Yc/I3NlxnX4s6uH2tr8Wc/I2Nr5h+VK2Du44Jv5mLWLevBdfZ16Jv
8275WnCduSjn529qfMW7xUXUwe8SF8FvvN7+4d3ioqxf13oZ91kmzzc71bte
ht+VXLG/zAtC57vyu9Cx30X+td810h9VdHJ+3c8arsDvulR+C37XSL2s4Qq4
6FLVy+CiK8QVeZ+l8Vt6z7OFi64QV8BFI1zRiytKvdX1MrjIfstU3L+ebeqt
rpeV50hc8a64f125Ar/LXIHfZa7I+9ezev9HG67g/rXrZTfE/WtzxXLDFfhd
9lvwu8wV+FrmCtZdL8PvMldsjHlB9ltWOnFFuc9iv2VfzAua0/N5srPfAheZ
K3JeUOUKuMh+C1xkrsjftaxcwbr9FrjIXEF/4C5xBfzjelnOEap5n/5A+y05
39L9UdMj/VHT0vHvs9d6GfPYzRXwT/ot9T7LbvVHMS/Ifgt+F76E/S7Xy1i3
3wIXoeN5QfZb4B/7Lfhd6dtULrLfAhe5XpZz1ytXsJ46lYvQoT8NLiL/ut5q
vwUfzPUyuMh+C1xkvwUuMlewbq6g3po+SeUi18vgInMF9Vb7LXCR/Ra4yH4L
/GO/Bf6x3wLnuG857x3UvMxcF9dB8FVG+pZ710HwW1wHwW/xeR+/JfPy4hLr
l+m8z70Dn/ePD1zhvuWlgR9cB4ErXAeBK3zez7nZs8r7y/3Ieb/P/udD/X+P
e7KzDVfwOz7o7x74YSQv976nBldcrbw88EDvvIye+5b58+8KDXzS5GW4wnWQ
7QM/XK28zLrzMlzhPpb/FnNdal6GKybXQZabvPynMddlTufN453vqeGrZF4+
OP+XMddlruEK52X8Fudl6miTz/srnfMyfovzMlzhvEwfl/MyfovzMnU05+Wr
Yw6h6yBTI3WQqSYvPxVzCDc0XOG+ZfjBdZCcQ7ih4QrnZbjCfcs5h7DUQcq9
A/exwBWug1BHI3/Zb3FeZt19y/gt6Pjegc/78IPzMnU05+Wcm13zJlzhOgj8
4Lycc7M3NlyBDnkfrtg75DXX0ZyXWXcdhDraXp33uSfrvAxXOC+zvld5mT6u
e+L8Xrlir/Iy/HCPzvvwg/Pyg5qDTV7gvO+8xnnf503O9ZfJx2bdPjbnfee1
nA/s+zgrymuL5T6g81rOB3Z/5onev5dH/nVe+8u4Dzgrn/940eH9//shLxP/
nZfzvFnrIPm7e4f6Hw15GR3nZeK/z/sjea2fnNcO985rnPfdn4me8xp/zmuc
933eJC87r3Gu93mTdec18rLvX3Ped39m/s6a89py0WG/cN73fRzqIL6Pw7le
9f0l1t2fSR3E/Zn5e8HVxyYvTz5vrnT2sfP3gn3/+mTnvMa53j52zlvb0ORl
5zXO+7fqvMl84Mk+9lTjY3Pet49NHcT9meRf57Wcw1bPm5uGvPxh5bVLYz6w
6/vTjY/Nuvszcz7wxqLPef/j8rHJv/axcz5wzWuc9z+u8yZ1EPdn5nxg8k6d
X/FxnTdfH/KyfWzysvMa+ffjyms5N3hT09/i8yZ52T42+dd5jfzrvOb5ac/H
f/fnJQ77vDnS96W8UH7npckLnDfd98V5c6S+2eQFzpv+nQXOm65vktfsQ3Le
TB9ycYn11Klz79Hh8/kPcc99Tn2Jy33mhcUl8l36mb7nPqf6+9Ge+Om+zZG8
0E/OC4d7n3c4bzovoOe8wJ/PO5w3nRfIa84L1Pd93uG86bxAXnNe+FHMZdrQ
nDczLxyEKzrPYcu5TK5vHu/sQ3KudF7IuUw1L3DedF44d8hr9iHJa5P79lc6
5wXOmz7vkNd83iF/OS/kvKZzm7xmHzLniG4UN06N+JBTzXkn54jWvMB50/VN
8pfPO6y7vsl5Ex3ntb0T65vTI/XNafmZNa/5vENec98X+SvPO/Weu8875DXn
Bc6bPu+Qv+xDcq50XvC9dZ93HFc57ziu0vfluJp9/uu17072ru/kfdKmvtO7
b4R1943kfVL3jZzoR3wkxdUyH1g6NS+gYx+S+OO84LhKXnBcHfy03j4SecH9
tJxrRuJqbx+JvLBLcZXzjuPq8HnMm7f5cz8t5x3HVfq+HFc516i+s8S670Mx
X9p9I5x37CORF9xPS9+X6zucd1zfIS+YtznXuG8k56KcKx/jRGfe5rzjuDrw
T+e4Sl74sOLqvpjXV3n4G0NecFwlL5i3WTdvD/fKO8dV8oL7RjjvOK6y7voO
eQEd932Zt5kj7bhKXrhLcZXzDjrOC8nbxJnphrc/OcR/x9WvqD/f9Z3J9zRP
9SN154b38p6U+/xPNrwHb0/uZ1tp4hLrjkvwtuMScdX+NlztPn/iqvv88ZHQ
eURx1XM5iJ/ivXnW0cm65Eu9fQDiqn0AfCTXneFt+wDEVfMe/bTmPT5v+wD8
mffopzXvwdu3iffgavNe3t8/V/pHi47rO+xf941MjkvL0qn1Hccl4qrrzsTP
2xSX4HDHJeKq687EVdedc65UiRulb8T+NnF1cp//yY44YN5WXGKOsXQqb5v3
iKuuO8PV+foaPx2X3AfC6+nz974mLrlPFd4zbxCXzBtD3undp5q/J7JB/U4r
/Yi/19vfOy/ub25o4pJ5g/gzco7rfY6D98wbxCX3qeb9zVq3ggO9r4lL9vfw
t32OI/54X7Nuf2/grt7nOHwA7+vh/S7Z3+PP57icH1L33VuGuOR9TfzxOY51
7+u3DXHJ+xofwHWr/F3mjdJf7nyOwwfwOQ5/27zBed/7mvW98vfwt72vqTvn
Oa7GH+9rzvve1y/KrzZveF+wr0d872Zf5P2dDfrcTjb5jn09uZ670o/4G82+
gDfM4exr91nRpyoOn4dDnO/Y194X34h72Ru175Z75zt4w/uCupX3BbzhfcH+
HdkXvfcFvOF9wb6+S/sCPe8L/rwv8Pfse8Mbznec11zPhUPuUr6DN7wvOMfZ
92Zfe19wXvO+8LnM+c4cxb64Tc8V+W7EN2ueK/bFbTrffT7utW00hzTPFfvi
NtVT8l6bfbMTvc935LXkqINLea/N882O9z7fke/MUewLP1fXDet+rvA3zFHs
i7v1XOFjjDxXvTmKfeF7Afgb5ij+7tZzhY/hewE85z53E2/9vfBc+XvBHxs5
dzffC8+Vvxf6BCbf11jpXedi3edu+gQmn7tP9L6vQVz190KfwOT9frz5Xniu
vN+Jq/5e4KWR76X5d/G97NW/izqX8zufv/2E7Le0T3uyt59AHlR+L/Us+wnk
u4xjB0t9ynEPn3aEB/r/BxjmsnI=
      "]]}, {}, {}}, {}},
  AspectRatio->1,
  Axes->True,
  AxesLabel->{
    FormBox["\"x\"", TraditionalForm], 
    FormBox["\"y\"", TraditionalForm], 
    FormBox["\"z\"", TraditionalForm]},
  BoxRatios->{1, 0.1, 1},
  DisplayFunction->Identity,
  FaceGrids->None,
  FaceGridsStyle->Automatic,
  ImageSize->{376.4915428253954, 170.88395024560415`},
  ImageSizeRaw->Automatic,
  Lighting->{{"Ambient", 
     GrayLevel[0.5]}, {"Directional", 
     GrayLevel[0.5], 
     ImageScaled[{0, 2, 2}]}, {"Directional", 
     GrayLevel[0.5], 
     ImageScaled[{2, 2, 2}]}, {"Directional", 
     GrayLevel[0.5], 
     ImageScaled[{2, 0, 2}]}},
  PlotRange->{{-1.813728893743494, 7.859491872888475}, {-0.49363448015713063`,
     8.881784197001252*^-16}, Automatic},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{0.26760749096213976`, -0.653294005719733, 3.3093191403779167`},
  ViewVertical->{0.025672606824904288`, 0.9363358631000658, 
   0.35016577321529996`}]], "Output",
 CellChangeTimes->{
  3.8430671747363453`*^9, {3.843067591368346*^9, 3.843067604007327*^9}, 
   3.8430676394966183`*^9, 3.8430676964986773`*^9, {3.843068444117957*^9, 
   3.8430684680132523`*^9}, 3.843069191107461*^9, 3.84306925449506*^9, 
   3.843069305371385*^9, {3.843070768150878*^9, 3.843070783755418*^9}, 
   3.84307169743476*^9, {3.8430859826985598`*^9, 3.843085991468211*^9}, {
   3.8430860284330072`*^9, 3.843086055270853*^9}, 3.843086296107019*^9, 
   3.843086401325934*^9, 3.843086459282968*^9, 3.8430868538668833`*^9, 
   3.843086973301392*^9, 3.843087143311448*^9, 3.843087226290606*^9, 
   3.84308732030971*^9, {3.843087389290307*^9, 3.843087421990244*^9}, {
   3.8430875839042177`*^9, 3.843087594578936*^9}, 3.843087679206346*^9, 
   3.84308772449086*^9, {3.84308776286341*^9, 3.843087807282857*^9}, 
   3.843087875709639*^9, 3.843087932802657*^9, 3.843087985458837*^9, {
   3.84308802067288*^9, 3.843088041255745*^9}, 3.843088072509082*^9, {
   3.84308821376101*^9, 3.843088249005271*^9}, 3.843088280770157*^9, {
   3.843088370990675*^9, 3.843088379356954*^9}, 3.843088465464695*^9, 
   3.8430885382266827`*^9, 3.843088576997683*^9, 3.843088698932242*^9, 
   3.843088741174259*^9, 3.8430888056448727`*^9, 3.843088849023384*^9, 
   3.843089188085759*^9, 3.843089290593457*^9, 3.843089423401588*^9, 
   3.843089468086226*^9, 3.843089606543586*^9, 3.843089646110832*^9, 
   3.8430898179798594`*^9, 3.843089855994337*^9, {3.8430899019627733`*^9, 
   3.843089954044943*^9}, 3.843090036526037*^9, 3.843090089939625*^9, 
   3.8430901396553183`*^9, 3.8430901706409397`*^9, 3.843090287226213*^9, 
   3.8430904978736057`*^9, 3.843090566068331*^9, 3.8430909510839233`*^9, {
   3.843093709422905*^9, 3.843093951858526*^9}, 3.843093991232625*^9, {
   3.843094032911628*^9, 3.843094062009204*^9}, 3.843094108338614*^9, 
   3.843094162762795*^9, 3.843094236461954*^9, 3.843094325042142*^9, 
   3.8430944411281557`*^9, 3.843094675123214*^9, 3.843094810234503*^9, 
   3.8430949542978067`*^9, 3.843095080946371*^9, 3.843095169737362*^9, 
   3.843095273314554*^9, 3.843095349823566*^9, 3.8430957404016857`*^9, 
   3.8430961228960123`*^9, 3.843567278835554*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"f7b47bcb-e47a-4609-a50f-68774c0d47b6"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.843069634903658*^9, 3.843069668364053*^9}, 
   3.843085461481062*^9},ExpressionUUID->"1aaab91f-d2d7-4733-a67b-\
7ffcacb8500f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ptsXl", "=", 
   RowBox[{"-", "21"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ptsXh", "=", "25"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ptsYl", "=", 
   RowBox[{"-", "8"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ptsYh", "=", "33"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ptsZl", "=", 
   RowBox[{"-", "8"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ptsZh", "=", "35"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dx", "=", "0.339"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rotY", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", 
        FractionBox["\[Pi]", "4"], "]"}], ",", "0", ",", 
       RowBox[{"Sin", "[", 
        FractionBox["\[Pi]", "4"], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Sin", "[", 
         FractionBox["\[Pi]", "4"], "]"}]}], ",", "0", ",", 
       RowBox[{"Cos", "[", 
        FractionBox["\[Pi]", "4"], "]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rotX", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"Cos", "[", "0.9553166181245093`", "]"}], ",", 
       RowBox[{"-", 
        RowBox[{"Sin", "[", "0.9553166181245093`", "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"Sin", "[", "0.9553166181245093`", "]"}], ",", 
       RowBox[{"Cos", "[", "0.9553166181245093`", "]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"grid1", "=", 
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ii", "*", "dx"}], ",", 
          RowBox[{"jj", "*", "dx"}], ",", 
          RowBox[{"kk", "*", "dx"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "ptsXl", ",", "ptsXh"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"jj", ",", "ptsYl", ",", "ptsYh"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"kk", ",", "ptsZl", ",", "ptsZh"}], "}"}]}], "]"}], ",", 
      "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"grid1", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"grid", "=", 
   RowBox[{"ParallelTable", "[", 
    RowBox[{
     RowBox[{"rotX", ".", "rotY", ".", 
      RowBox[{"grid1", "[", 
       RowBox[{"[", "ii", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", 
       RowBox[{"Length", "[", "grid1", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"len", "=", 
  RowBox[{"Length", "[", "grid", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "<=", "len"}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"grid", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], ">", 
        RowBox[{"0.1", "dx"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"grid", " ", "=", 
         RowBox[{"Delete", "[", 
          RowBox[{"grid", ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"len", "--"}], ";", "\[IndentingNewLine]", 
        RowBox[{"i", "--"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"len", "=", 
   RowBox[{"Length", "[", "grid", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "<=", "len"}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"grid", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "<", 
        RowBox[{
         RowBox[{"-", "2"}], "dx"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"grid", " ", "=", 
         RowBox[{"Delete", "[", 
          RowBox[{"grid", ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"len", "--"}], ";", "\[IndentingNewLine]", 
        RowBox[{"i", "--"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"len", "=", 
   RowBox[{"Length", "[", "grid", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<=", "len"}], ",", 
     RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"grid", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], "<", 
          RowBox[{"-", "2"}]}], " ", "||", 
         RowBox[{
          RowBox[{"grid", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ">", "8"}], " ", "||", 
         RowBox[{
          RowBox[{"grid", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}], "<", 
          RowBox[{"-", "2"}]}], " ", "||", 
         RowBox[{
          RowBox[{"grid", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}], ">", "8"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"grid", " ", "=", 
          RowBox[{"Delete", "[", 
           RowBox[{"grid", ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"len", "--"}], ";", "\[IndentingNewLine]", 
         RowBox[{"i", "--"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.843085469360854*^9, 3.8430854896476173`*^9}, {
   3.843085624144446*^9, 3.843085652296022*^9}, {3.843085718051879*^9, 
   3.843085748289916*^9}, {3.843085788528337*^9, 3.843085797431518*^9}, {
   3.8430860924816027`*^9, 3.843086222969914*^9}, {3.843086273853112*^9, 
   3.843086289121018*^9}, {3.8430863245830393`*^9, 3.843086396650817*^9}, {
   3.843086453231913*^9, 3.8430864546398087`*^9}, 3.843086562379963*^9, {
   3.843086900394623*^9, 3.843086902121599*^9}, {3.8430869617024384`*^9, 
   3.843086979509603*^9}, {3.843087028863029*^9, 3.8430871370217*^9}, {
   3.843087176357892*^9, 3.843087218754643*^9}, {3.843087299424258*^9, 
   3.843087313061631*^9}, {3.843087384114211*^9, 3.843087418099361*^9}, {
   3.843087470496785*^9, 3.843087484389625*^9}, {3.843087516596629*^9, 
   3.843087577745447*^9}, {3.8430876638316813`*^9, 3.843087666094007*^9}, 
   3.843087716228169*^9, {3.8430877561060534`*^9, 3.843087760760745*^9}, {
   3.843087860684825*^9, 3.843087871684413*^9}, {3.843087914123107*^9, 
   3.843087917434059*^9}, {3.84308796730434*^9, 3.843088068738975*^9}, {
   3.843088202380934*^9, 3.843088275953635*^9}, {3.843088307433031*^9, 
   3.843088363644137*^9}, 3.843088458896721*^9, {3.843088570146723*^9, 
   3.843088606161152*^9}, {3.843088661271358*^9, 3.843088692757415*^9}, {
   3.843088841174252*^9, 3.843088841891232*^9}, {3.843089092709949*^9, 
   3.843089107776319*^9}, {3.843089146975232*^9, 3.843089180132359*^9}, {
   3.843089228788291*^9, 3.843089237746208*^9}, {3.843089321376136*^9, 
   3.843089407027638*^9}, {3.843089446298993*^9, 3.843089449794524*^9}, {
   3.843089512679978*^9, 3.843089513365671*^9}, 3.8430896100351963`*^9, {
   3.843089681718713*^9, 3.843089681869712*^9}, {3.843089776972389*^9, 
   3.843089835718347*^9}, {3.84308986729434*^9, 3.843090000759178*^9}, {
   3.843090065789398*^9, 3.8430900662845173`*^9}, 3.8430901012117243`*^9, {
   3.843090152976974*^9, 3.843090185965917*^9}, {3.8430904241725483`*^9, 
   3.843090426042992*^9}, {3.843090469598969*^9, 3.843090492992386*^9}, 
   3.843090584045011*^9, {3.843090716502325*^9, 3.843090730604663*^9}, {
   3.843090772211192*^9, 3.843090775411372*^9}, 3.843090987313195*^9, 
   3.843091109475121*^9, {3.843091173026889*^9, 3.843091174839669*^9}, {
   3.84309357461934*^9, 3.843093577235046*^9}, {3.843093628058998*^9, 
   3.843093935634614*^9}, 3.8430939657550783`*^9, 3.843094008241047*^9, {
   3.8430940399183807`*^9, 3.843094040981451*^9}, 3.843094079886312*^9, {
   3.843094126051874*^9, 3.843094126297885*^9}, {3.843094170914442*^9, 
   3.8430941929197474`*^9}, {3.8430942474466047`*^9, 3.843094251620307*^9}, 
   3.8430943476324387`*^9, {3.8430945772067547`*^9, 3.843094578580378*^9}, 
   3.843094694697467*^9, {3.843094821620016*^9, 3.84309482216072*^9}, 
   3.8430949773483257`*^9, {3.8430950930539007`*^9, 3.843095097755677*^9}, {
   3.843095188624372*^9, 3.843095238302197*^9}, {3.843095294428337*^9, 
   3.843095295761262*^9}, {3.8430954682693243`*^9, 3.843095475361947*^9}, {
   3.843095818284045*^9, 3.843095818673174*^9}, {3.8430960146089153`*^9, 
   3.8430960212879353`*^9}, {3.84356795786699*^9, 3.843567958134754*^9}, {
   3.843568561518272*^9, 3.843568562689637*^9}},
 CellLabel->
  "In[214]:=",ExpressionUUID->"bac8d4ea-4456-47e5-884f-ef2cdb50b8fc"],

Cell[BoxData["86856"], "Output",
 CellChangeTimes->{
  3.843091166831935*^9, {3.843093566387656*^9, 3.84309359157416*^9}, {
   3.843093699168798*^9, 3.843093937962044*^9}, 3.843093968829446*^9, 
   3.843094010815159*^9, 3.843094044051035*^9, 3.843094082701668*^9, 
   3.8430941312675953`*^9, 3.84309419596716*^9, 3.8430942549283113`*^9, 
   3.8430943518078747`*^9, 3.843094583027546*^9, 3.843094700203205*^9, 
   3.843094826362691*^9, 3.8430949817048903`*^9, 3.843095101473496*^9, 
   3.8430952452138643`*^9, 3.843095298654016*^9, 3.843095478322359*^9, 
   3.843096025898875*^9, 3.843567168615593*^9, 3.843568661022542*^9, 
   3.8441677059552298`*^9},
 CellLabel->
  "Out[225]=",ExpressionUUID->"7b3b9693-c892-49c9-ae94-f077bac25d9d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<~/bottomWall.dat\>\"", ",", "grid", ",", "\"\<Table\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8430960691798487`*^9, 3.843096140895504*^9}},
 CellLabel->
  "In[2203]:=",ExpressionUUID->"891da131-d92e-475e-b6b4-2664f48b222b"],

Cell[BoxData["\<\"~/bottomWall.dat\"\>"], "Output",
 CellChangeTimes->{3.843096142230618*^9},
 CellLabel->
  "Out[2203]=",ExpressionUUID->"4aa0a195-177d-4a10-9e36-b74625ee8239"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"gridshift", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"grid", "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"grid", "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "2"}], "]"}], "]"}], "-", "0.148"}], ",", 
       RowBox[{"grid", "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", 
       RowBox[{"Length", "[", "grid", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.843096202137363*^9, 3.843096206493814*^9}, {
   3.843567309269021*^9, 3.843567366754177*^9}, {3.8435674402561398`*^9, 
   3.8435674419353333`*^9}, {3.843567499788987*^9, 3.843567504988226*^9}, {
   3.843567719777986*^9, 3.843567729410014*^9}, 3.8435682050438232`*^9, {
   3.84356824787999*^9, 3.843568249759489*^9}, 3.8435682805256433`*^9, 
   3.843568318428073*^9, {3.843568610974532*^9, 3.843568612302518*^9}, 
   3.843568856084538*^9},
 CellLabel->
  "In[231]:=",ExpressionUUID->"83c18bd4-3765-4619-920d-ed90cdf4da83"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"bottomWall", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"gridshift", "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "1"}], "]"}], "]"}], "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "7"}]]}], ",", 
       RowBox[{
        RowBox[{"gridshift", "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "2"}], "]"}], "]"}], "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "7"}]]}], ",", 
       RowBox[{
        RowBox[{"gridshift", "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "3"}], "]"}], "]"}], "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "7"}]]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", 
       RowBox[{"Length", "[", "grid", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"topWall", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"bottomWall", "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"bottomWall", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], "+", 
        RowBox[{"6", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "7"}]]}]}], ",", 
       RowBox[{"bottomWall", "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", 
       RowBox[{"Length", "[", "grid", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPointPlot3D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"bottomWall", ",", "topWall"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], "}"}]}], ",", 
   
   RowBox[{"BoxRatios", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"8", ",", "9", ",", " ", "8"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.843137451585341*^9, 3.8431375941536207`*^9}, {
  3.84313768354828*^9, 3.843137783050359*^9}, {3.843137816048511*^9, 
  3.8431378205173817`*^9}, {3.843568310862728*^9, 3.84356831439857*^9}, {
  3.8435686740604267`*^9, 3.8435686782443438`*^9}},
 CellLabel->
  "In[272]:=",ExpressionUUID->"efb1145a-95d9-4727-b376-871c03800e8e"],

Cell[BoxData[
 Graphics3DBox[{{{
     {RGBColor[0.3315753, 0.4561011, 0.6388182], PointSize[
       NCache[
        Rational[1, 120], 0.008333333333333333]], Point3DBox[CompressedData["
1:eJyFnW+MnelZn2eyi6JGy66Nl1SlhZYglKyF6LriQxLgtY1da+vKZDNrR07Z
Zb1WY2FkAxtXIzyVs2OznWQcWsad7CSTmGS8s571zNZd2VrWjZweHFqJwAcI
2qAKhMDhb0s/hJQWqibrAfnc13N8X/d71Pmy0quj3x6/f+7f9fzu+3nPdx/9
6akPvWViYuL2Wycm7vvb/05c/9BHt/3n+cFDt3/1A/d/4dTgzn+4+vFPbVvv
OH7jnz31LQ/+1YnBE7/z7jd+bHKj++I3fvbtz/6bucG2+PxHfvrO9A//7Ea3
eU0673zgl350/1o7/mroHDz4yW9ufffL3S+HDp//yJ8/ufKX//Hl9vn3vrH9
qW3/6uhgffYde3/7e6+0z2+Ezhtv/+9/9vrFK91z//TnL//GgZ8bPKDvj84/
P/XVN45+6X3tODp7Qv9de07945nz603nmv69O3/hcz/wfW+fHTwY+mfi34vO
VOhzHibjvHF+7rz4k79//9nVdhz9g7/5f773Sz/1UjufnIfnPnTz19b/5KX2
+f2ch2/Mnvz4k5fb518Pna9c2Lf15BuXu7Px/bfp/KNzIr7nZhxH57HQf2Tw
W4cf/eJa07mh67U7zsM2XS90OM8cR2ePriM613Qd77v7PU+388z1QueEriM6
+3Ud0XlN1/HcXZ1Tg626juic0HXk/tkSn9/8zl97680bK+34dc7P/oPv+8jl
S90tX8fbf+8vn/4HL47uQ87D9B8s7V58sX2e8/yVBy6/93vettrNxr/323T/
oHOY6xjHb+l+3v6eR8/96V+PdF7V/cb97PsNHc4Dx9F5TPchOjd0Hw6/5+ly
H6JzTPfhTl1H7kN0fB/O6jpyv6EzpfsQHd+H6FzVfXjn7uePl/sQHd+H6OzT
fYiO78Ph8Q+O6l7cb+g8zfmP467P39zxvqN/+Huface5D6+c/9DXf+I//WK7
ju2+ff0v3v19a59tn98d33Pqj/717NcWP9c+z33ylY/e9y9/Z9dKu14P6v5H
h+ed4+igv/21f/fKxe+/1HSu6nnZFdfrW/W8oMN9wnF09uk5Que6niOu11Y9
R+js1XOETqfnCJ2reo64Xg/qOULnsJ4jdPbpOULnNT1Hw7p9vF33zeSnp9t9
spmer9F9yHOEzjU9R+U+jOcFnb16jtD5IT1H6NiXJ+LvbXqO0JnSc4SOfRmd
q/3PUefnCJ0pPUeT5py7522pHef+Gf67PtV8bUv6/svt83vjew6/z6fb59vz
+C3/9Tv+4dc+3e63phPPLzrHOQ9x3L78xI//7vrlX7/YdPD9jXjeud+26nlH
h/vwzTje7v/QPxh1YJd8mTowGX76kOoAOodVB9DhOj4SdQCdV1UHuN/adYzn
fZd9OY6j85jqADr4xRtRB7jf+nns9KiOpfpwqvhpeY6iDtx/fXi/uQ6gYz9F
x1yHjusA9/9W1QF0mh/FcXRcB9B5rb8OdK4D6LgOoLOzvw50rgPhg539FJ2n
++tA5zqAzhiu68x16LgO4F+Z6xbaca7v8L7694XPh/fPYvs833N4P3yifZ77
fHh9X2jPS67nS00n1/OlptOe07vX65NNhzqzEfWK58X1Cp0n03leLnWAOmY/
XY86NqE6QL0y13EcHdexCfE53MLzwvenXtlPM8+MuI46ho55Bh5zHUNnSnUM
nd2qY+hcUx0rfpq45VQ7PxxHZ7/qGDquY64D1DF0plTH7KfUMfvpoVzHOtcx
dFzH0KHObOQ61o3hmc484zqwmetYN4ZnOvPMrOqA6lg3hmc68ww6XhfEurLU
MXTMM+h4XYCO61isXzrnDOiMWxdsTTwz145n/fOtDmxNz+/H2+d5TofP478t
OcNwvfALbT3edFQ/j8b3nPiu4XF0OA/D5+VC07mueus6thn1Fp3mF3H8rOtY
1OFSx6IO87xvEQeic1x12HXsUNRhdF5XHT6r9elm1Ft0jqkOo/OY6vBZrQuo
w/i+eRKdU6rD6OxXHUbnddVhnvdtqsPoPK06jI55Ep3XVIcLz0S9Rcc8ic4+
1eHCM7kOd85h0JlRHUbnQH8d7pzP8LybJwvP5DrceOaRzJOtjj2R15Xj6nDX
eDjzZMf1vZLXlaUOx/qx688Jj3fOCV3HlM90Y3LCzjkhOq7D6IzJCTvnhJHT
dv157+nOPImO6zA6XldGnSk8iU67f7SuzPVkuh3PnHOm1OHhfT7bPp/zjXNl
XTnkzOdbvdqS/HSu6eScba7U4WG9+ljTac9R+MVurSvxC3TyuvXjTcc+gs5r
8hHWX/k8LDSdp1MdWGg6e+Uj6NhHzoon8Qt0npSPoLNXPI+OfeS+3nxmqekc
k4+g85h4Hp1W58NHWH+Z58+KJzmOzj75CDrOJQpPhl+gc0I+gk7h+fi70e8j
nX0EHecS5kn5SGcfYT1YeN48mX2ks4+gY56nXo3xkc4+go55Hh37CPVqDM+P
eDLnEsVH0HE+CU8650fHPoKO80l0nPPHc1p8xHVYOX/nnB8d+0j010ougc7T
8hF09slH0DHPB6+Ozn/uN7Xrq75h8RF0bprnf2Lq//7S//754iPo7B3jI/x7
H3v1C5/+X/9t+033DdfuPl9PlVzizbvn+VjJJ4fP48niI8P788Mll3hT/nU4
XcfpkksM/70zTeea/A7ufUh+53zyThxHZ4980PnkE+GDJZcIv0On1fk4vks+
sh4+iE7u/54v+SR+h87T8sEJ+Qg+OCsfORg+uHkt83zOo04PDskHnU/ig5vK
JfDByes5l8Dv0Mm5wWLTca6FDrnKBuup+HtQPoiOcy10nGuhw/ffyD7Y9efw
Ix9p66n429Pvg51zLbi3rKfM89kHO/sgOl5PUW+da6HTzn9eT3Vjcq1Wx5TP
d+7TOZdQrtWR327P+Xw3pk/XeDv34+7JJXI+343p0zWfVb+7+CA6e+WD6JDb
qN9dfBCeH9OnG+XDud9dfBCd/vXU/CgXyv3u4oNflI/k9dT86PuznpKPaO5i
zHpqvnuP11OhYx8cnoeFzn06dPbKB9GxD6Lj9dSRP//2k29eu9DOD36Hzv+v
3x2+M3A+P+x/nRzYByfeddcH2+fbemfomwP74Ct3jx8YuE839N/vuOl8nrpg
Hxw+7wdKPn8l/No+eCf82j4Y37/k8/HvLT6Ij9sH8etZradYn9oH8XF0rsvH
7YP4+C6tpzhuH8TH0cl9NHzc66m5ppOfo7mm085P8vHjI58NHyf/2SIfR+do
r4+P1lP4uHMtfJz7ot/HnWstNB2vZ+2D8vHOPo7OYfm4ffBQ9vHOPn5fbz6/
NCafbz7e2cfR8Xr2rPJ5+XhnH0fH61l0Wq6S+1Od+1PoeD2LjnNRdNyfwi+2
ysfPygffzP2p5uNTuc8+yrXyvE3xcXTwqWGu3vrsTV/zNsXHb2k99Vzus7fz
o3mb4uPo9Oei8yUXRcfzNuj099nnO/fZWU89IB9H52n5ODplPSsfxMfxr/4+
+3xbD7b1rHwQH0fnpnwcHyxza6FjH0fH61l07OPD87xY+lPoeD2Ljn0cHfen
Xlx5y+9/7n98onuY8x9+jc5e+bhz0ajbgzJvM/SF6uN37/PZ9vmcK55pn8+5
5cygPxedHvTnotMD56LhpwP3p+AN96fgDfenhvrHBu5PwSHuT8EhnreBQ5yL
UpfR2ScOcS4Kh5RcNDgEnaP5+zedrH+y5qLBIe5PbaY84bT0p5tOy/2CQybl
4xvBIfcpF437pPanUq5+vHAIOui3PEE+Tm6AzlFxCDr5Of1Y6U89kTmkM4eg
c8wcEn/O1Z2LTuU8oSsc0puLNg7pzCGbykWVq3fO1dFpPp7zhM55Ajpj+rPd
FnEIOuYQdJyro/O6OAS/G5OrdyfEIejsF4eg4/5sWc/m/mzhEHT2iUPQMYfY
xzUnUzjEPq65387zfqz73J8t69k899t53g8d92e9ntXcb+EQdNyfReemOGSn
fFzz86PvH8e9noVDdmo9C4fYx+ENdGbEITvt48Eh6NwUh+C/5hB0nCegc0Ac
Yh+HQ1bCx9v3D95Ax7k6Op73Q6dxVHDI0AeXujz/MOIK92fRaRwVHILOzeTv
G93tD3ztR3/kuz814qjgDXScJ+D7OQ88X3KAqNstB1Ce3PhhKtf/QZnTG/pI
07kmznEOAOegcyz7V9PZJ/4xP8A/nm+Bc5wDcLzk4cE/zgHgH+cA8E+Z03vn
vTnM6cI/zgHgH+cAOYc5XfjHOQD84xwA/plwHv7Oe/OWU8pJjjUd91MmxA8t
h4m/rD/ddHT+m85e8Q86zmHuUx6e85YP1hwm/sbwT1f4RzlAmyvrzQEa/3SF
f0LnuvjHfVXxT1f4RzmA+imd+ynkxp4rQKflbN+V+imd+ynojJlPK/yDjvsp
LccW/6DTnq88J1xymEnxg+bTGp9oTrjV/428r6HkMM4BNCdcchjn4XlOeL7k
MOYH7Xco/IPONfGP+eHNvN9hTA4zX/op6HiuYLdzgLzvqfRTCj8E/6Bj/nEe
DucUfuB46Jh/0HlN/HM2fPZh8c9u8QPH0cHfmSs4K35gPu1S+GzL84NzCj/E
cXT4/synoYP+G8E/5gf6Keg4h7lkfgj+Qcf884fBD5wfOAcd5zDomH/Qad8/
+Gf4nC6XHAYd8w86nB9yGHScw7zjW3/vl//48GfKXAE6M+Kf/jn/84PSRwj+
cf4A//Tv35wbOH+Af/rnss4139f6velo/d509op/3E9/IvGP+wjTTUfzDAPz
Q+af46XfZH6Af8wPmX+OF/4xPzT+ET9k/jle+Mf80Pinlx8a/3TmH3T0/Qs/
iH+6MflP5/ynnx8a/3TuQ02KH9SH6tyHQufJ5O8t/+nG9KG6/j7U6c59KHQ8
V+n52NyHGvGD5io7z1W6n655ks7zJLuVPxzM8/lj+Od05z6U52M1nz/y97wf
qvShdit/0Hz+yN/zPqlRvhT8M2l+yPP5hX/MD/APOu5D4bMPiX/MD9rvWfgH
ncYnwT/uI2i/Z8l/zA/wDzqeq3wmfNZzlehMiX/cRyD/ecb8kPpQi6UPtcv5
Qxx/Rn2ER1IfarH0oS45fwjOQcdzlei4D4WO85/CD6kPtVjmSQo/BP+gc1X8
Q/7geRJ0ZsQ/6OwT/9wWP5D/vCV8/+FUf9YKP3AcHfMPOu5D/SPxA5yDjvkH
Hfeh0HEfangfXiz8g477UOi4D4WO+efIf/nSox9d+GzZJ4VO4880T3K68A/9
AvPPmDmElmNo/dt0nP84f4B/Cj8E/4zpXzQd5z/mh5b/eA4hzc+U/GFgfmj8
I34Q/3TmnzH8MDA/iH+6wj/KHxr/iB/EP92Y/Kcb0//q3P9Cp/CP+EH9r8I/
/fzQ8p/O/HNW/HAwz+EU/mGdbv7xHILmcAr/eA7hibyvpPO+EnSc/6DjeVrz
A/xT8oc8T1v4B50x+xM7709kne7+FzrufxV+YA5H+QP8U/gh708s/FPyh+Af
8wP8g896nhYd97/MD/APOtfEP+5fwDmex8u50ELneVrnD+Q/rNPNP+YHjqPj
ORx0zD/k/O5/OX/I8zkjfiD/Kf2L4J/SvwjOQcf8g85O8U/JH4J/Cj8E57h/
Af+g4/yn8AP7xMNnzT8lf4jj6Dj/Qcf9L+cP8A86zn8mzA/BP+i4/4XvO/9B
x/yDjvtf5gf452jwg/nnHeaHOI6O8x90+udpV8o8LTrOf9Dpn6ddKfO0v/WF
3/3yw3+8UuZp0envfx0v/FP6F/CP8oc8t3Nc+clc4YdD8E/8tfwk809n/kEn
7x+fbTp5jvdM4Yfc/yr5w8D8IP7pxuQ/8t/W/5K/N/4xPwzMD+p/Ff4h5++f
Qx7xg/pfhX/cv9Accsl/nD9o/kf9l5Olf6H9RJ37X+ho/qrMP8A/6Jh/zA+a
Qy780+YPxT/uX+T+17zqT9tP1On+L/yQ+1/zned/Cj/kfbXKB9r7GUb7u8l/
1L+Af0r+kN/PUPgHHfe/Cj8E/7h/0fIf5Q8cL/wQ/OM5xvyenMXS/yr5QxxH
Z4/4x/MP9L+cP/B+BnSmxD/OH+Af9y/gn1vhsw+Kf9CZEf+gc0D8c0v8AP/c
Vv8CzrkkfmA/0S31L+Cfwg+8n0H9izznszSa443jzh/ofxV+CP5hnW7+ue3+
Be9nMD8E/6Bj/tkTPuv+FzrOf9Bp+6GCf/aIH3hPzlHlD/CP8weOo8P15T05
6Dj/2R2+7/kfdNz/Mj80/gkd80/hh+AcdJz/oGP+Qedl8c8wx7tU+Sd0zD/o
7BT/oGP++Yu/+/6/86fPvVjmf9DxHLLzh4OZf7q837DlP87/x/DDXOEH5T/d
mP6X1+9N52j2r6bj/Mf8kPtfp5VvtPzH+cPA/KD5n875j+cf1P8aXd88/yM+
afPP8ve2D2vEhynnOV34x/ygfViFf9y/YN80OsfEP55/0H7qMf2veT2/bR9W
yX/aPr7e/te86v+ZMv+g/dTq78yW/gX8Y36Af/DZ/v7XvPovc01nv/gHHec/
JX8IzkHH/OP+Bfzj/AH+MT/AP/39i4WyDwL+Qcf84/lJOMf5Q54LWiz8s2J+
CP4p+UNwDjpT4h/PT8I/zh/If5w/wDnOH3JfbKnwDzrU57wPa7nkP+iYf8wP
ef5n1L+Af9y/gH/cv8jzP8ul/1X6F8z/qH+R53+WS/5jfiD/Qcf84/wBzin9
izQXdLHwDzruf+0SP9xJc84XC/+YH+Cfkj8E/5gf4Bx0PP+Mjvtf6Jh/joTv
ez/1LvED/IOO+eeI+AH+gR/a9w/OMT98JM1FXyr7qdGBf76S9mGtlv4XOt5P
jU67f9I+rNXS/9py6ld33/j7L5X8B50x+U/n+Wf6BWPmfzz/Sf7T5ivU/yr8
g86Y+eeS/4zpXww8P6n558I//f2LNv+j79/mn0f5TN7/pXym7Tdv338yzz9L
v+3/KvmP5x9y/jOv/tf2m+5fwD/mh5z/jPoXvDcGn3X/y/2LnP/Ml/6X+QH+
KflDfp+M8pPp2r8I/jE/wD/4rPtf7l/kXGih8A86nv85a35Ifa6Fwj/mh/xe
Ne+jPN/W6c5/Cj+k/tdi4R90rol/+vsXC2P6FwtNx/lP4Yfgn69q/wWcg47z
H/MD/a+vKn/YSPu/lkv/q3/+YanpmH+cP8A/5gc456vqX+T9X8utPsM/zh/I
f8r8Q9r/tazr+5mm4/zH/Qv454j4Ac4xP+S5oFH/Av45ov5Fnn8e8QP7zc0P
8A86fp9MyR+Cfwo/BOcccf8izT+vlP5X4YfgH3KDwj/mhzju/IH+l/MH+l/4
7NvEP+i4/4WO+1/oeB/6WfEDnIOO+afwQ3qv2mrhH/jB/S90HhH/oGP+Qcf9
r2EdeKnkP+g4/0HH88/omH92/MYPz3zsxuWW7zH/g86Y+Z/O/S/PP2j/V81/
+ucfCj9o/1fJf/DZMfPPJf/pzx/a/netr8l/5gv/lP0Xef+7/PHDTcf9L/cv
4Bx0yE/0Hp6m/0rwDzroXw/+MT/AP+5fwD/ocP4vB//088NTJX8g/0HncDo/
x8bkDyfr/EPqf7l/MT2GH6br/EPqfy0W/nH/gvfmoXNC/NM/P3mu9C/If/DZ
/vfpLfr+L/OT5D/o+H163r8J57h/kftiS41P4B/3L/J7ZZcL/6AzJf5x/pD3
fy0X/nH/As7x/EN+r+xy4R/nD+Q/nn/I+7+Wlf8vlflJ+Aedm+If8wOcg85e
8Y/zhzb/I37I888rhX92q3/R5n+UP+T555XCP/is+19H1L/I888rpf9lfvjt
4B/nD3n+eaXkP+gcEP+gY/5x/wLOQecF8Q865h90nP+QG5h/jogfOI6O559n
xQ/kP84f4B90PP+MjvMfdJz/rITvP5zqz1rT2Sv+Qcf8syJ+gH8eDX5w/wsd
8w867n+h4/7XsM6slfwHHfMPOu5/oWP+ef8jr13/4BMvj/avBeegY/7x/IP2
v3ee/5ns5Ye2/6vxCblQ2b+Z8p951c9zA+cPcI754U7Kf+Y7v/+n9C+Cf/BZ
97/Q8ft/nD/AP+i4//WM+AH+cf4QXNF03P/y/ovLqf81mp/Mfa6Fwj/oPJb4
6kDz69fFP/hsvr7H2v6LE5nfms5+8U+Zfwj+cf7A+4TRMf+YH8h/nD/AP/is
8x/zA/u/nD/AP+j0v094Wdd3bkz+MNd09oh/JsQP9L88PwnnFH5I8z/LZf4H
nfbe7OCfneGzD4l/+vsXC03H/LNT/Ys2/2N+CM7x/CTHdyp/aPM/mn/I888r
yv+Xmk6Z/wmdA+If8wP8g8+af46of5Hnn1cK/5gfyH9Ypz8s/jE/cNz9C/gH
Hfe/zA9wjvMHjj8jfoB/0Gn7l4N/zoof8j6vS+38kAsVfgj+Qcf8U/ghOKfw
QxxHx/xT+CH4h9zA/FPyhzhe+CH4Bx3nP/is559L/pD2hb1U8h90PP+M73v+
+ZL4Af5Bx/PP5gf4p/BDcE7hh7T/fa3wDzre/z7MUa+M7v+0/32t8A86zn/Q
+RXxz888v/1/bv/albL/C50x7/8p/a+y/yL4x/MPev+P5z8Hzh+Yf/b8JPPP
z6h/Qf5jfsi50IL6R2eaDvqHUv9rUfM5003H+9/R4fzk/tdi4R/zA/0vdPz+
n/7+xVMD8wP9L+cPcI77Fxw3P5D/OH+Af8wP3wj+MT+QC/XnDycLP1xJ8z+j
/gX8088P03X+Ic3/LOv7nyn9C/in8EOa/1nu/HsK7l/AP/35w1zT0fuvSv4A
/5T9F8z/aH4SznH/Is8FXSz9L+cPef55peQ/3n/R5n/Uv8jzzysl/3H/os3/
KH/I888rJf9Bx/lPyR/S/PNKyX/MD/CP8wfmn78ePtv2FwfneP7hTpqLvlT6
X18XP+T9X6sl/yn5QxxHx/0v8wP8s1X9Czjn65p/2Ez7v1ZL/2ur+hf0v9y/
yPu/Vkv+g47nnws/BP/sUP4A/6Dj+efCD8E/6Jh/8FnPP6Pj+Z8dyh+2p/3v
9/BD8A8+6/xnh/jhubT/fW3Eb8E/5gf4x/yQ97+vFf5Bx/kPOuafDwc/tPcY
B+eg4/wHHfMPOu37p98VWu/eKv5Bx/yDTuO39LtC6y1fgn8u/MHK93zz/EaZ
/0HnBfFP//7N8wP6BbwH/krqfy3Kv+bG8MPcoOy/SP2vxaZP/uP5BzjniPkh
9b8W5b9nmo7nf/DZ/v7XaH6SXKi990n5Dzruf5kfyHnK/ovUF1sq/S/zQ57/
Wdb8z3tvmh/gH+cP5D/mh8vBP+5fwDnocH6C6wo/wD+lfxH8s9v5Q5r/uWf+
IY6js0f80z//cKbMT5LzoJP7O7Nj5ifPlf0XB9P8s/OHucoPcdzzkxtp/tn7
N8/X/CE4x/s38/zzqH8B/zh/gH/K/GSaf17R/MZC5YfgH89Pwj+en4RznD/k
uehLJf/x/APzPyV/SPu8Lin/XyrzD/CP+QH+cf4A53h+Mr8XepQ/HAz+cf5A
/6vkD+n3JlZL/2uL+AH+8fwD/OP+Bfzj/CHvCxvpwz/oeP7Z/Qs4x/xA/oPO
e8Q/6Lws/nnc/BCcg85e8U/JH4J/Hjc/BP/cDp99UPyDDv7O/M/j4gf4B52X
xT/PKn+Acx53/pD2xd/DD8E/z5of0u+krxf+uS1+4Piz5of0O+nrLT85FPyz
YH4IzkHH+Q86B1J9u9J03P/i8y+Ic/i8+1wcf0Tc0t7XJG7x3CO5Tb/vzw08
t0CeY9+nb9U/93hu4LkF+GRM36HpuG+FDn2ZPLezXLgFndyXmW469AVeSXM7
y8pVTg6cG9wfuQ06J7LvD7xvAm5xbvD54Bb7PtzivgPc4tzgs8Et6Jhbytxj
cEuZe0zzPBcLt5S+Q5pb9r7L6aYjbqxzC2lu2XMLZ7ovOzdgbke+n+eWVwq3
fFm5AbkN/uh96/25wVzTcW5zRH0HuMV9B/jky/b9NM886jvALe475H1b7jss
NJ0ZcYv7Dnnf1mrJbVhft7oafIKOc5tZ5QbkNlvl+3AL/ui+1axzgzi+VXOP
h4Jb7Pv0rXao7wCfODfguH2f3Ma5AblNmVtI+9NfKrkNOuYWdK6KW5wbwCfO
DfL7nNdKboOOcxv80X0rdDy37NwAbrnt3CC4pfh+8EnpO6T97FdK36r4fvr9
rPWS29j3OY6O+1boOLchN3hY3FJ8P/1+1nrJbdD5lTHc8oL4hM//C/EJx18Q
bzhvx/fxqf55lWXNe8w13zycfGFuUPL2NK/ieb9zze/yftLZ4pv596pG/Xr6
NfZNfN95++S77p1XWfa8xKDk7eH7Xi/j+/iL9yuN8c2B18v4PjrOK+ybeS73
YvF9dJxX2Dfj/1vWy+QS6DivsG/GeSjr5eClMXn7dOnXB3eV9XL03cp6Gd+3
b5JXeL3Mca+X8X37JnlF2W+Y9iV5vTxXfJO8osz7he+X9XL4u/v1+T3Gq6Vf
4/Uy8yr4y8Pp/CzUeb/wfffr8X375kb4vvN2/N3r5c20j+keXw7fL76Z9muv
lbwCnZl0/ywV38z7tddKXuH1Mv5u38z7tdeK7z8u38T3y3o57ddeK3kFOvZ9
+ya+/6zydvwdHc/rer3MvErxzfT71+slr7Bvkld4vZx//3q9+H7xzfB3+2b+
/ev1klegM873H5G/X9B6mVzCvpl/73J59Dto4ZvU+dfTffWxVuf7f5/RvjPX
dPYnHn6++A6+6fUa/oiO9ikU32G97PXawTTnueKceWDfif77wOu1POe5oj77
yYF9B39Ex+vlft95qunckG8yT7VNvll8J/7Q2S/fROeGfJP67PecoDMj3/Sc
GL5p38n7XFaVU03XObHwTftO3ueyqjm3M2WfGutl57R5n4vnxM4V32G97Jw2
v89/tayXndOyXrbvMOfgfWoT/2Toj/advP/lpeKbOzQndijt813T+Vko6zX8
dIfmxPI+37WyXmZd4zlPdNr1Xb13n++auPoTpc/Letm+k/f5us+71HTsm+h4
n6/Xa8w5oOP1Mjr2TftO/p2je9Zr6X0mV8p6GZ3+95yslzlP6rznHOw7m+k9
J+tlzrP4TnrP23qZZ7DvMM/J8XHvJyn9Zc3n5Pm6FV33uVK3h3VjbuD1Qp6v
G9XtV8J3PJ/T+svur33nvfN1K8V30Mn712YGztnwF9dt1nHotPVO+I7nc1iv
eb2Av6Cj9U7Tse+4buM7Xi+Q03o+B99x3c77C0brBXJa1218x3V7Mu0vWFV/
82Sp2/iOc7a8v2C0XiCnLf218B3P5+A77q+xLivrhbTv4KWyXnN/7WDaXzmq
23Gf1/mc8B3vD9pI+ytHdftQ+E5ZL4S/eL43768czedshO+4v0ZO25+zLZS6
je+4v4bvlLodvkN9e5t8x/21vO9yVFfJadHxfF1ZL4S/9PfXlkrOln9fZn3U
vw7fWVDdxl/Q8Xyd1wv4zoLqNr4zqbqNv/B5z9EtqG6P2xdJ3S5ziVG34boH
lLOh499Fdd2jbvu9CsxFm1ep22NykqazJ923Z0rdy78L77mC6aaTv//0wHUv
/y685xJPDpyTUJ/H1L2m47rt9yrQXzOvUrc9l0jddk5Cf828St12TvL/om6j
09bpaV7avHqy6bS6mvaFrZWczbxKPfdc4vvTvjD3F850U+JV6vYOzRWwjuif
KzjXdPJ7X58vvPpm2hdmXp1rOgdUt52TkLNRH9xfmzKvpv1iV8p6wbya98Wv
q/+4UHk1jptX87749VK3PZdIfS51L+2LX29zI6wXLmiuYEN12/M/5lXqs3nV
88z7VPd4TlsOkOYhV8Uzc427nJOUvmSah1xt63RyEp6vbclPZ5uOcxKvc+FV
dG6KV1d617nTA69z4Vi/jyWe34H3U1P3HtU6l5xki/qSUU+aTt6v8dTA+6Gi
Xg1umZfiz/upOe79UPDqLfESde9x1Q249FGtczl+S+tc6p55if4Czxfn5y2R
h9xS3aDuOV9lPyw6NxPPn6l1I+qbeYl66L5krJtK3SAn4blzToLOC+n8zJV8
lZxkUutccpLCS1Hf0HHdc1+Sumdect2bEZfyedc3jo+bB/gh1Q37NbzUPw8w
N+hfp8w1nfye2Oebjt+jyP35gOqG1ynwkv0aXvI65QNpjnqt9CX79yFOD7xO
YZ3rdQrrXK9TmEfyHCC85HwJXnJfA16yX+f3Ja6VuuF1CrzkdQr5qp+7+P61
r5Hmq0frCPJVP3dX0z6y9bLORSefn+ni14fTPrL1wkv2a+qD86X8O6rua5xr
Ol7nlnVK1I0Leu7gouLXY3JRnjv34/DrW55jSfN+5sy5gftxU/Hc3RJn8tzZ
L8iRnIvyPNoveO7QyfVwZuD1Nc+d/YLn7nFxJusUcybPne9b/PpxcSbHzZk8
d75v8WvPsQzXKft/sPTj4s/37efT/oWRX3w+nruSi8bz5fv2/rR/YeQX1+O5
cy66ruduJulMl/sWX/Z9u6n1he9b1yv6cSVXSXMsa+qnzA3MCR+I+7ZwQty3
vu6T4QvmhM0033KlcKave55fXS+5KDqZo6YHvu5X0/zqerlv3Yfl/hxz3ZuO
71t0zJnOw7k/LyhX4f7k+IzuN/69rGsilxs4j9pI80vrLe8Kjhq4znPdfd4O
pfmlUZ3nuo+p8+W8Tab5pVGdfzWuu+t8+MvA67J4XgZel3F9L4ivuF6Tul48
L/7/ruu8qU838HPK+Sn+Evf53wB/bABH
       "]]}, 
     {RGBColor[0.7926498, 0.5499369, 0.1278459], PointSize[
       NCache[
        Rational[1, 120], 0.008333333333333333]], Point3DBox[CompressedData["
1:eJyFnXGMpWdVxme6NQSDSbsgRBSVEtJ2Q3RrTEQM3+7a1SgJUHZnmzayuouW
UJMRyyYXpma6MyNeugOVu04dOu0Cdzq7w9wZkNAAtSl+7EYTwT+wpBADIbAg
ouIfpaLRCLujmXue95vze77P9h+SN5PD3fu973l+73PO+e7L3/L2I3ddMzEx
cfl5ExN7/u9/Jx676z0v/Ksz9btOf+e+3sp6dfWjH3vvQy8cVVq//o7f/dLt
z16ojn7l1U//1uRmdekH73rxPX/SL39/39uv9l77rs1q+xOIc+MLPvWG162X
dcWZmvrAD69/9UeqzzLOd988/P5ffKT8/eb+yzf/0m9eqEZzNxz+8is3yt8r
ztMv/pd//vS5jer0r73vwhde/8f2+RXn1ucfP/2S1fNlXXEU/6ZbT/38vYuj
Eof/3gPv//AvvurFcyX+bPx7FUfx9T1M8vt89Pe/fu38Wlkv38Pf/+crP/cH
5+37PH3Xk58f/dP58vdb+h5+MDf93jdfKH+vOF86++vXTz99oZrn9xDfv+Ic
js+5HeuX8D3cXH/xjv2X1kscPq9D+B70vC7xe4h1xeFzVBw+xz07n3PGnqPi
HMZzVJwtPEfF4XNc2Ilzyp6j4hzGc+R+3n7Z55/35OND38+vm3rjfRdWq4t8
jpd/4vu/81OPlr8vz7H3jeVDS4+Wvy/P8QUXXvOKH12r5vgcY/9wP2/H+kU8
x32/vH/hO//VxOF+437WflMcfQ9an+NzjH14AM9R+3D8OWdsH87hOWofHsBz
1D5UHO7DOTxH7TfF4T5UHO5DxeE+vLrz93d35JMZ24eKw3yiONyH4/U7LX8q
jj7/6Vhnfv7hLW98y7e+9ojl543Fu559219+0Pbh9qe/9+pXrX+o/L0+55F/
/KO5Z5Y+7PvwPXt+7ysHh7YPtf8Vp+zDWLd9+Mk/3Tr3c6u+D+O8HOQ+jPNi
+zDWbR/GOTrIfRjnyPZhnBfF4TlSHJ4j24dxjrgPdV4OYh9q3fZhnCPuQ52j
cd5u9uF20tOZ5vOn83XK8rni8BzZPozzwn2odcXhOVIcnqOJ+O+dOEeKQ11W
HJ4jxek4RxXPkeLwHJku73xvy6bL43/XQ6bL48+5Uv5en3P8eR42Xd74kb95
6c8887Dn8zi/1GWtU5eP/vZXRxf+7pydo8047zxHOu/U5SuxznM0FXnAzlHk
gUnoss67naNY5zm6OfLAJHRZecDyeZz3g9TlWFcc5gHL55EHeI4yj81YHuA5
Uh6wcxR54NrH8jnKunnK9FRxyHWKwzyg/c88oDhl/8S64jAP8BwhD1TMA4rD
PKA4HXmg6tDTinqqOB15oOrQ06qD6ypyneI8l56O9+3A9HS8r/7M88DOPlky
PR3vhwctD4yf75+7nkb+MT2NdeaB8fP6gOeByFfMA8pXzANaZx5QHmMeGEUe
myCfR74i12mdeUB5bAJ5QNzCPKB8RT3NPDNjecz0NPIYuS7zzIzlMdPTyGPk
OuUx09PELacsjykO7wWmp5HHmAeUxxSHeYx6qjzGPHAs57GKeUxxmMeYBzZz
Hqs6eKZiHmMe2M55rOrgmYp5bA55AHms6uCZquNeYHks7pWWxxSHeUxxmMcU
p8NnsDymOM+Vx8b5v9/h2yx6Hts5p++1PDY+jw9YHhvfF97vPgPyp/bJxE+P
1y2P7ZyXs+YzKN8az0S+tTwW6/QZjkYetjwWedjyWORb+gzKw8xjxyIPM48p
D88jj21HviXPKA8zjykPzyOPKQ8bz6T74IzlYcXZQh4mzygPM48pD8/jXqA8
zHuB8jDzmPKw8UzkW94LtM48pjxsPJPzcJPHUr690/Kw4nTk4SaPZZ6smIeN
Z3IebvJY5skmD+R7ZVcersrnzzxZ6fNv5Hul5eG4P1Z5/zd5lf4M8xj8GcvD
h5DHcK+0PKw4HT6h5eHwaS0PKw7zsOJ0+L2WhyPPWB5WHPqE7ffKnt0rx+dr
1vLweJ/P2b1yvA8XLA+POfPdloe3I/+3+719y8PjfHW/+72hF/R7pReX4M9o
nXlYOkK/VzrSfq8clDg5DwxKHOoI75XSEeZh6cUh8KTWea8Uz1seDh3Z0+rP
LJc41JF58KR4fg/ysPwH3iulF/PgSa3vQR6WjvBeKV/CeDL0QnGoI7xXFp5H
HoaOVNQR3iu1Tp6EjlQdPF9RR4wns45UHTxfUUcsD2cdqTp4vqKOWB7O/qTp
iOJQRywPZ3+yyvnhvPEkfAnTEcvD2ec3HZlnHs7+ZEWeVxz6/PPIw6gPmo4o
Tke9yXREccyfHOdJ0xHFoc+vOOZPRpy95Pm3HfnvT/3H+0xHFOe56oa/8fHP
PPzv/7DvSerI+s75Om46cmXne36r6cj4PE67L7GzP99hvsQV6Fd+jj33J3f+
vfeaLyG9M54PvTOej/V2n3/BeP5o6GA7z/fNn9Q6eX4UOkie172JvoT0jr5E
vk/NmA7Sl5gKHdxu9SUGHb7EwHwJ6eA2fAnp4CR1JPSOPr/uWYpDHZyEjmzq
PtXqTy6XOPS1JqEj0kHqyGbWwYo6OAkdKfcp6Ah0sOQB3Kcq6qDxfNbBijpI
noev1aWDVcd9qqIOmo5kf950kL4EfK0Sf1/2500HD1JHsq/V+BLZn682oYMH
qSO53m06qDjUwYPgedS7TQfJ86jTNZ8/17tNBy9BR/J96ozpoOJQBy9BR/J9
6ozfp6Aj6LvouE+d8ftUxKEOjr+HQcU6neLYfSriUAcVh/epE9/98ekrnzhr
dTrFeU5/fqw7NX2tcf1ruqYOTty0o4M1fa3x3x+vqYNbO+uvr6mDY/196ZP0
55UXqIPj8/76Dh087v586DV1MD6/6WD8e93XCh2nDkqv23Ww5/586Hi7Pz9r
OigdN38+1qmD0nHTwaTjvE/1XQeTvjc6uJl0fJc/HzpOX0t6TX8+6/jdpuP0
taTj7b7WoMShjtPXko5TB6HjFXWc9W7pOHXwWNbxijq+p9WfX+7w54uOV9Tx
PdDBUfZFu3S8oo7vgQ7CF210NtenTMcVp8MXreiLTkAHN3Kd3XR8Hjp4Jden
yuc/kuvsTR7O/TZ+n4UOjn31oetg7rcxHb9IHcx19qqj38Z0/CJ1MPmiZ0zH
TQdz35rpuOLYfRY6iL4103HFsfssdFA6Lv1qr7OfMV/0AHRQOq44e6HjpoO6
z0IHta441HHFoY6Pv+clu88qDu+zikMdVxzq+KPDa77+4X99sPn+Q68V57n6
bSJv19ZvM9YF1/GdfT5Xt99nZ03Hx3n+3rrdF+3V7b5or6aOh57W9EXFG9Rx
8QZ1fBz/rTV9UXEIdVwcQl9UHEJfVHmZOi4OoS8qDjFfNDiE9ant5CfwPjvt
vmhwSHvfWq/DF+25LxocwvrUZnDIHtxnY594fSr56ncbhyiO+Qn0RZOvfrf5
6opjfgJ0/GjmkIocojjGIdBxcEg5p0eyn1AZh7T6ogPzReEnVOQQ0/HMIbiv
FT+hiZ999SZ+rs8ah2zDF4WvbhxCHR/lPhnjEMXpqM82nJD7ZMxPsPtsrs8a
h1DH0e9nHEIdR5+McQh1HH2/5ifwPot+P/MTqOPy1e0+GxzC+yz6fo1DFIe+
uuLsBYccgI6jf944hPdZccgB3GfFIdRx8YbisE/mAHU8OERx9oJDqOPZPx+Y
n6A49NWp4+KQIXU8eIM6nuu2S8YhilP2T3DIWAeXm8+f+mGWzE9QnLJ/gkMU
Z2/S983q8u3PvOFXX/6Q+QmK08Uh+R6xaPwQedt8gKvgFtxDjR/iPlvTBxDn
GD8E57CuGvpV0wcQ/5AfxD8dPkBNH0Dr5ocH/1h/S/APfQDxj/kAN+72YWaM
f+gDiH/oA2QfZsb4hz6A+Ic+gPhngn74jbv9llPwSd7a4QNMlzjmw7TyQ899
gLR+p/FPe1218A/y81yJYz4M+AH8Uxn/0A+XD9PqAxT+qYx/2N+S6yld/FN1
+DAV+Yd++FTuK3D+gR+u/jT64egrMP4xfsj1lIo+DP3wqdyfZj6M+QC5r6Dq
6E8r+R99wk38PNdg/EMfAH3C5sPQD899wmeMf8gPmHcw/lEc8g/54Uqed+jw
YRofQPUU+uHin0P0AfLck/GP8UPwzyHyQ/CP8UNwjvGD1iMO+Yc+gPhnnj6A
OAf8oHX6AOormAc/qD9tFfyg/gHjh1hXHPanrYIfng7+IT+onqI49GFWyQ/B
P4pD/vkW+SE4ZxX8kOssy8Y/ikMfZnxOV8yHURzyj+JwjlVx6MPc8GNf++y3
73jE+goU5zD4p73Pf9H4QfxD/0H80z6/2Td+EP+092UtOD8E/3TUEep2/2HW
+OFo4h/zH0oc8g/5IfMP/Yfpmvwg/rF6euKfu41/yA+Ff8APmX/uNv4hPxT+
aeWHwj8V+cf4Qeut/kPhn4r8097n3+vgh8I/0Jfi/1TkH/ID+Af6Xvyfivxj
/JD7SfD5i/9T0f8hP+Q61K56eu6rNP4hP6CfxPiH/bFTuT+/g39moF8D649F
f77xj/FD7qs0/4d9WUfznJT5P1ZHyP35xj/kB/EP6wjyf8gPmJOyOhTrCOIf
8oPqUKwjYN7T/B/yg/iH9XTxz0nwgziH9fTsCzX+g/yfk+SHVIdaMv45SP8h
1k+SH1Idasn4h/wgzlEc9lWa/xD8ozj0f4wfUh1qyfjH+CH4h/wg/qH/IJ9H
cdhXSX4Q/1wGP8j/uQb8kPtGGn7QuuKQfxSHdaifBT+IcxSH/KM45B/FIf+M
9+E54x/FYR1KcViHUhzrJ/nrz+1/z+BDxj+Kw77K9vmaxdrqF8E/HX0Ixceg
/2P1i+Af8oP4x/gh+KejfmH8IP4hPxT/h30IqX/G/Iea/FD4B/wA/qnIPx38
UJMfwD+V8Q/4ofAP+AH8Uxn/tPLDca9fZP6pjH9a/Ydpr1/kPhznH/gPqH81
+pX7cIx/6D+If9iHgD4c4x/6D0fzXInxj/FD7qc1/8f6uvMcovEP6xeYKzH+
IT+o/kX/AXMlxj/GD+rDIT8E/xg/5PlE4x/zH4J/yA/in/Y+hDInbvUv8oP4
h/wg/qH/IM4hP2RfaGD8Q/9B/o/5D6nONcDzfcTqF+If+g/iH9YvxDn0H3J/
TsMP8n+sfhH8Y/WL4Jx58IPWrX4R/GP+Q/CP8UNwDusX4h/Fof9j/KA5cfoP
wTnmP8S68YPmxOE/qP5F/0H8Y/ygOXHyQ/CP4rD+ZfygOfGIQ/5RHNa/yA/i
n7eAH8Q5N5AfYl1xyD+K095PO7R+WsWh/6M47f20Q+OfL37mq0+96NtDq38p
Tnv9i3Nhi8YPhX9a+UH1L/JD3/jhmPiH/JD5pyL/KE6eH5/r4IdZ44dc/zL/
oSY/gH8q459Wfij1L8Qv/EN+qMkPqH8Z/7B+Af+nIv/Qf0D/j/GP1S9y/cv4
h/UL8Y/1P+R5IsTvddQvesYP4p/2/odZ4wf0IRv/tPcxLhg/5PoX/Ye+1S8w
V9tR/zqD87vo/JDnajvqX03/Q/F/wA/iH/Mf8vsZ3P8hPwT/GD8E/xg/yP8h
P8S68UPwj/FDqn+x/2HZ/YdYZ/0i178aflD9i/6D3s9Afsj1ryXjH9YvxD8X
6T+k+teS+T+KQ/65CH4Q/5AfxDmsX2ie6CL8B/GP8YPez0D/IfX5LBv/kB9U
/zJ+CP6h/yD+ucz6hd7PQH4I/qH/IP65lfyg9zOAH7RO/0H9P7eCH/SeHPKD
+If+g9YVR89X78khPxT+Cd2n/6M4rH+RHwr/gB/EP8YPwTnkh8I/EYf8ozjX
gX/GPt6q80/EIf8oDvlHccg/33vJm57/ndOPGv8ojs0TgR+mMv8gP9zfwQ/9
Dn7oGz/A/0H+XHB+SD5P0/8A/wf6O2v8kOtffL9H8X/oP9TkB/T/NN9P7n82
/8fqF7n/B5+/9D8jv5U5rCZ+8nlmjH/ID5jDMv4hP2humv0P24mL6D9Me/0i
1b/OkD87+KHn/Q+p/sX+h1njB8xTG//YHETwD/lB/NPuP/StfqF1xdkC/5Af
5P8YPwTnsP8h+0IDfP8PGD+If2wOIjinvX4xcH4I/iE/iH/oP4hzjB9SX9CS
8Q/9B/GP+Q/BOaxfaJ3+g/iH/oP8H/KDOIf+Q66LLRv/kB/yHNaK8Y/ikH/I
D7n/p6lfiH/ID+If+g+5/6fhB9W/rH6h/h/wQ+7/WTH+IT/I/zH/IfjH+CE4
x+oXqS/onPGP4rD+dRD8cDX1OZ8z/iE/iH/Mfwj+IT+IcxSH/c8HwQ+qfykO
+edE6D79n4PgB/EP+UH8cwL8IP4hP6j/mfxwX+qLXjX+URzxz5fSHNaa1b8U
h/yjOOx/Vhzyz3Wn/vbQ4z953vhHcTr8H5zfUv9Cfrjf/Ifc/0x+KPUv45/2
/skF54dc/6J+1e3+w6zxg/invX5R+n+Mf8gPm3n+C/5MmTcv8Sdz/7P5P6xf
YA69w/9p+EHvgWH9QvxDfsj+T8MPem+M+Q95Dr3D/zlj/GP1i+Af8x/y+2SM
f8x/CP5p73+YNX4Q59B/yL7QwPiH/JDfq7bE/W9zlOIf8kN+rxrnKBfNfxDn
GD+k+teS8Q/9B/FPe/1i0FG/GFj/g/jH+CH455vkh+Ac+g+5LraM/PBgicP+
Z/MfUp8P+x+WSxzyD/0H8Q/5QZzzTfBDnv9aMf4hP8j/sfpFmv9awfN9pMSh
/0N+EP+w/0GcQ37IfUHnjH9O0H9I/c9D5Oeh8YP45wT5IfU/D41/jB+Cc06w
fpH6n4dW/zJ+CP45SX5I/c+7+CHWjR+Cf+g/qP4lnX0n+Mf4IdZPkh+CfxSH
/DMPfhDnnAQ/aN34Ib1Xbc34x/ghOIf8kN+rtmb8ozisf43zwHnzfxSH/KM4
7H9WHPLPLV947b33P37B+n8Up6P/x/jH6hd5/sv9n/b+B+MHzH8Z/5Af0P9s
/k+7/zBr/JDrX+Y/1PQf5AtZ/SL5P/QfpmvzH25M8+/l8+M9PCX+VvAP+eGx
4B/yg/iH9QvxD/nhQvBPOz8cN36Q/2P1i+QL0X+Y9vpFqn+xftHr4Iee9z+k
+hf7H2adH4JzTqB/Mte/2D+5YPwg/6d9/qLf4T/0jR/k/1j/ZPCP+Q/BOcYP
qS62bPxD/yG/V5b1i4HzQ6zTf8jzXyvGP8YPwTn0H/J7ZVeMf4wfgn/Mf0jz
XyvW/0z/QfyjOHvBP+QHcQ75IfcFnTP+IT/k/ueh8c8h1C9K/w/4Ifc/D41/
yA+l/wf8kPufG31X/Yv88OXgH/oPuf95aPyjOFvgH/Mfgn/MfwjOURzWvxSH
/KM49H/Mf0hzXqvYn2vOD+l9emvID+eNH8Q/isP+5znwg/wf8oP4Zxi6T/9n
Dvwg/lEc8s8Q/CD+2Q9+EOcYP8S64pB/FIf1r3GeWTf/R3HIP4rD+pfikH/e
dPMnH7vz6EfM/1Ec8k/7/Oai8UP2f8gPZf6rOb95/h3+9rtrm78I/umoXxg/
XE3+D/2HWeMH+T8d/kPdXr/o1eQH8Q/5QfUvzl+If2z+4sbdvhD54XjN+YsL
qf7V8EOucw2Mfzh/sZXqX+SH497/EJzD+Yv8HsIl9J9Me/9D8A/5Qe8TZv+D
+Mf8h+Af8oP4h/wgziE/aP7L5jeDf8gPuf+H/kO/w3/oGz/k/p8V8Pmi9U+K
c4wfUv/PivX/3AB+0PzXgdb6xaCjfjEoccg/B+A/lP4f8kNwDvsntX6A/KD+
H/BD7n8e4vwulzjW/xNxOP9OfhD/kB/EOSdQv8j9z0PjH/KD/B/zH1L/8xDP
9xHzH8Q/isP6F/lBnEP/QesnwQ/iH/oPqn+Z/5DmvFar3J85dH4I/jH/IfjH
+CE4x/gh1hWH/GP8EPyzSn4IzjH/IdaNH4J/6D/I/yE/iH+MH9Jc2C5+CP5R
HPY/Gz+kOffzxj+Kw/5n8oP4x/ghOMf4Ic2/rxv/KA79n7GPumH8ozjkH8Wh
/6M4fK/+H75737/te6aJL/9HcdrrX5zfXDR+EP+080N5/4/5P+QH9T8bPwT/
kB/k/5Afsi/U8IP6n8kPx1L9axc/3LS7zsX+yV5Nfsj1ryXjH/KD6l8nUb/I
9S/WL47X5AfVv8gP4hzWL7ROfpD/084Px40ffhD8Q36QL9TuP0x7/0Pq/1kx
/mnnh573P6T+nxXjH/oP4h/jh9T/w/7JBfMfxD/t/kO/xCH/0H8Q/1j/g/p/
yA/BOeY/pL6gc/j+HzB+yP3PQ+Of9vrFwPyH3P88NP4xflD/D/yH3P+8y38I
/jF+CP4x/yH1Pw/N/yE/iH/oP6j/+Vnwg/qfyQ9XU1/0qvHPs+CHPP+1Zvxj
/kOsK077/Nca9v8Hq+vBD+KcZ1G/2E7zX43/oPrX9eSH4B/WL/L81xr2z7DE
Yf3L+CH4h/UL8Y/i0P8xfgj+URzyj/FDmnM/b/xzC/yHfWn+fd34h/wg/rkF
/HA6zb+vN/wW/EN+EP+QH/L8+7rxj+LQ/1Ec8s87wA/q/yE/iH8Uh/yjOOXz
p98VGln9S3HIP4pT+C39rtCo+Evin7PfGL7ih4ub5v8oDt//0z6/uVizfrGR
6l9L0K9+Bz/0a+ufTPUv9k8uGD+Ic9j/kOtf5IdZ4wf5P+39k72a9Qv5Qla/
CP5p54fp2uYvgnNs/iLVxRp+UP2L/JD7fxp+GNe/XvMk+UH8Q36Q/0N+uBD8
Y/2TwTnkh+A64wfxj9Uvgn/a+aFn/KC+IPKD+Ke9/2HW+ifl85Afcl8Q+ycX
bP5iKvU/03/oOz/EOvsnN1P/M+c3F50fgnM4f5H7n4fGP+QH8Y/1T6b+Z9Yv
Bs4PwT/kB/EP/QdxjvFD6ovexQ/BP/Qf1P/T3v+wbPygdfoP4h/yg/iH/oM4
h/0P+b3Qjf8wFfxD/0H1L/Mf0u9NrFn9i/6D+If8IP6h/yD+of+Q58LOG//s
Bz88nebf18HPQ+MH+T+sX+xL8+/rRb/EP7eRH4Jz6D+cTvPv68Y/t5Efgn8u
039I8++7+CHWbwM/iH8U5zrwzz3kh+Cc2+g/pLn4XfwQ/HMP+SH9TvrI+Ocy
+EHr95Af0u+kj4p/ciz4Z0B+CM5RHPKP4myl/LZR4rD+pb/ne37096xzaZ2+
Tfvc5aLpvnybdt3vd+h+33Rfdav2vscF033xSUfdwXRf3ELdz307rDv0Spxc
l+mVOHouW6lvZwVcMV1T968N34Zzl5Opb2fFuIW6/0RwC3Vf3MK6g7iFuv+h
4BbqvrjF+h6DW6zvMfXz0DeY9rpD6lvm3GXPdF/cYn0LqW+ZfQuz1VPUffXt
QPdz3/LQuOUp6L58m/a5iX6Hb9AvcejbnEDdQdxiuh988hR1P/Uzr1rdirqf
57ZYdxiUOIfBLab7aW5rzbiFvoHez2y6n+a21nCvedB8A3GL6X6a22LfwnKJ
o+/nWHALdV91K/oG4hP6Blqn7su3oW8g38Z8gzSffh7P9xHzDcQt9A3ELfQN
xCf0DfL7nNeNW8w3CG6h7otbTPdjnb6BuOUyfYPgFtP94BOrO6R59g2rW5nu
p9/PGhm3UPe1rjisWykOfRv6BuIT0/30+1kj820Uh3Ur6r74RH//UfCJ1g+D
N9rnDRdNN3O/ygrzXs37snwM89tTvwr7/RZMN9WXQt3Mv1fV1OtVr6FuSvep
m5M37e5XYb9frza/PXSfuindp25K3zt0s6ZuSvepm/IrqJu5L/ec6T51U34F
dTP+f+2+LF+Cuql16mZ8D3ZfDl7q8Nt7dl8O7rL7ctTd7L4s3aduyq/gfVnr
Nm8Yuk/dlF9h/X5pLon35b7ppvyK9nnDRb8vh76zXp/fY7wG7nrA7svqV6Fu
5t9loN8+sPuydJ+6uRm6b7oZ+s778naaY9qly6H7pptpXnsd+2e5xMncvmy6
mee1G92UX8H7svSdupnntddN93lflu7bfTnNa6+bX8H7snSfuindp25K33lf
znPcja6pX8V0M/3+9ch0n7opv4L35fz71yPTfdPN0HfqZv7965H5FYrTpfvU
97O4L8uXoG7m37vc1Wceuknd0XtOOuq8HbrTrzmnJp+fuiPdpO5IHxWHcy7t
97VZ052p1Odp97WauhP195q6k/s8eV+brq3PPPSRfWJ5/pe6c7w23QndZJ9Y
7vMcmm6yz1y6yTk16ab1icW9mH3m0k32iUk3qTt5zoU+bc/7xEI3qTt5zmUN
fW6zrjtxL+Z9Lc+5sE9swXRH92XqTn6f/5rdl6k7ui9bnTd0k7oz8QtjfaTu
5PmX86abt6BP7Fia813H9zPo8GkHJc4WdJO6o/sy72vSTcUpz3dt95zvOrj6
Qbuv6b5s97U058s677Ld16Sb1B3dl6k76nNQHN6XqTvSTepO/p2jkemm3ddi
nfe1/J6TkfV5Unekj9Sd7fSek5H1eZrupPe8jexeTN1RP+dZ+LRd7ycp9WX6
bKm/jnm7b3l7nDf6lrdzfx15fsHydqkvs772st39dayvzVreVn2Z9wXpC/O2
7nG8L8in5X1B9zXmbekL7wta531BusO8Ld1h3pZPy/uCdId5O88XNPcF+bTM
29Id5u3JNF/A+8K05W3pDvN2ni/Y1d8b61ZfC91pr6/NWn1N9zK7L6S5A/bn
LFh9bSrNVzZ5O/a5+2yhO6yvbab5yiZvHwvdsftC6Avra3m+ch1+xQN2X5BP
2+6zDSxvS3d4X5DuWN4O3VF+eyd0h/eFPHe5674QumN5O/2+DOtryx31tWXL
2/n3ZUbg6oesviZ9Yd7Ovy8zMt0ZIG9Ld+y+EPqiv2cfHetrXXORytvWlxh5
2+YaUl8Q38vUt7ynvE1eVV90h09ieU/rfK+CfDbzSVJftPFq3f5ehV7NvJd/
F559idM1857yc0feq9mXqLzNvKf6GvOe8jb7EpW3mfdUX2PeU94mr/5P5G3r
K0j90uTVafNJ1Bfd7pP0LO8pn9MneVOaC2N9YbY6grynvG0+SXpfIvsKFkqc
klcjbzPvXUlzYeTVfomzhbzNvCefjbyq/HyEvJrmxTbsvsC8l+fiR3ZfMF6N
dct7aS5+ZHmbvKr8bHkvzcWP7L5wFn0Fm8jbzM/kVeVn8ur/38+8aHkj90Ou
8bnXVpeMdatLpn5I1iUXLG/ID6G/mvsh11BXnS1x9oJXOU+d+yGbe644lu9j
ifNbc55aec/6kcInuQ51ycgnNeepI//UnIeKfFVfJC/Ff5yn1jrnocSrF5E3
lPfIS+LS/bjnav0i8obyHnlJ9QXmjWvCD7mIvKG8Z7wUeU9x9iaen/W8EfmN
vKR8yLpk3Jssb8gnaeelfomTv5+++avySdiPJJ/EeCny2z3oZ9Y665LKe+Ql
5r3D4FL2Iym/kZe6+gGUN+yeEnmjvR+gX7ffU/q13VMib1g/QOQNnjvlB+q1
eIl6LV7iPeX21Ee9jnPRq6nXyie8p+ieS73WPZfnTv1IvKeIl6jX4iWeO/ES
z11+X+K65Q2eO/ES9Vr+Ks9dfH6va6T+6g18/mk7dx9Lc2Qj5NWe6XU8F9Pr
O9Ic2ch4iXqt/EC9zr+jyrrGgvlLU8gbvM9Sr8VFptcdvqjOnXFmnDvqRe73
I2f2a3LmkTh31AudO7tfx7mjL6rzSL3QuVOcnA/vtX2rc0e90Lm7DZype0r7
vp2urR4XunwbOFPr7fv2eM19K73mvh3fU173K1aPi/+4b59I8wuNXjwR5858
0Thf3LfXpvmFRi8ei3PHfTvCuTuc4vScM+N8cd9ud9wvtG+Zr1SPa/fD+zXr
sPJFma9uj31rnBD7ls99MnSB+Wo79bdsGGfyuef+VctXdTsn9Go+94+l/tWR
7duO5153PPcSh/uW/Uvat/TDtT/PwlfR/mQdVvuN5yV8OfveNlP/UjMvFhxV
23mJdX5vx1L/0gj8uWDfm3iA39tk6l9qvrePx3PneQl9qZnn47zUPC96vjwv
el7tPtii/f+O8L3x/sX/X30/pi+xz/8XSXU0AQ==
       "]]}}, {}, {}}, {}},
  AspectRatio->1,
  Axes->True,
  AxesLabel->{
    FormBox["\"x\"", TraditionalForm], 
    FormBox["\"y\"", TraditionalForm], 
    FormBox["\"z\"", TraditionalForm]},
  BoxRatios->{8, 9, 8},
  DisplayFunction->Identity,
  FaceGrids->None,
  FaceGridsStyle->Automatic,
  ImageSize->{330.65405683028365`, 287.01041017519316`},
  ImageSizeRaw->Automatic,
  Lighting->{{"Ambient", 
     GrayLevel[0.5]}, {"Directional", 
     GrayLevel[0.5], 
     ImageScaled[{0, 2, 2}]}, {"Directional", 
     GrayLevel[0.5], 
     ImageScaled[{2, 2, 2}]}, {"Directional", 
     GrayLevel[0.5], 
     ImageScaled[{2, 0, 2}]}},
  PlotRange->{{-1.9176735905779169`*^-7, 
    7.910403561133907*^-7}, {-7.3516522376585*^-8, 6.735165223765849*^-7}, 
    Automatic},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{-0.45250070951192173`, -0.3550528612444583, 3.334543533021173},
  ViewVertical->{-0.874326281149805, 0.02788136230888033, 
   0.48453708189007894`}]], "Output",
 CellChangeTimes->{{3.843137768628518*^9, 3.843137784861845*^9}, 
   3.843137822271221*^9, 3.8435688633574753`*^9, 3.8435700292652483`*^9, 
   3.844171667079525*^9},
 CellLabel->
  "Out[274]=",ExpressionUUID->"9c31687d-a3dd-486f-860f-375f1ea4d12f"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"bottomWallExp", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Length", "[", "bottomWall", "]"}], "}"}], ",", "bottomWall"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"topWallExp", "=", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Length", "[", "topWall", "]"}], "}"}], ",", "topWall"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
   "\"\</home/drladiges/gigan/projects/FHDeX/exec/immersedIons/bottomWall.dat\
\>\"", ",", "bottomWallExp", ",", "\"\<Table\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
   "\"\</home/drladiges/gigan/projects/FHDeX/exec/immersedIons/topWall.dat\>\"\
", ",", "topWallExp", ",", "\"\<Table\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8431380840076647`*^9, 3.843138170371451*^9}, {
  3.8435723173530073`*^9, 3.843572407979862*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"7b5c70a7-5f08-4ed3-a8e5-310cb0818f9c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Min", "[", 
  RowBox[{"gridshift", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.843568874466798*^9, 3.843568896096624*^9}, {
  3.8435689438232803`*^9, 3.843568944847149*^9}},
 CellLabel->
  "In[118]:=",ExpressionUUID->"a41d60b1-9f50-48e6-937e-f8e68848bbda"],

Cell[BoxData[
 RowBox[{"-", "0.73516522376585`"}]], "Output",
 CellChangeTimes->{3.8435688971697598`*^9, 3.84356894669849*^9},
 CellLabel->
  "Out[118]=",ExpressionUUID->"a2dac04e-87d5-4a59-93e1-3209317152e9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"22.374", "/", "3"}], "-", "6"}], ")"}], "/", "2"}]], "Input",
 CellChangeTimes->{{3.843568909913354*^9, 3.8435689583655357`*^9}},
 CellLabel->
  "In[119]:=",ExpressionUUID->"2087c5c1-bacf-4e42-a652-4d1d119c9bae"],

Cell[BoxData["0.7289999999999996`"], "Output",
 CellChangeTimes->{{3.843568914865909*^9, 3.8435689588568172`*^9}},
 CellLabel->
  "Out[119]=",ExpressionUUID->"27bfbfdb-43d6-4742-be55-6c881952bafd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"list1", "=", 
   RowBox[{"Select", "[", 
    RowBox[{"grid", ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ">", 
        RowBox[{"-", "0.1"}]}], "&&", " ", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ">", 
        RowBox[{"-", "0.1"}]}], "&&", " ", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "<", "6.1"}], "&&", " ", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "3", "]"}], "]"}], ">", 
        RowBox[{"-", "0.1"}]}], "&&", " ", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "<", "6.1"}]}], " ", "&"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "list1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"list2", "=", 
    RowBox[{"Select", "[", 
     RowBox[{
      RowBox[{"list1", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{
       RowBox[{"#", ">", 
        RowBox[{"-", "0.1"}]}], "&"}]}], "]"}]}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.843569133007029*^9, 3.843569219514682*^9}, {
  3.843569273832347*^9, 3.8435694338720617`*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"13c4f97f-e8d1-4034-9781-1a7d28909991"],

Cell[BoxData["195"], "Output",
 CellChangeTimes->{{3.8435692071929903`*^9, 3.843569220085586*^9}, 
   3.843569335330913*^9, {3.8435693761068172`*^9, 3.84356943430702*^9}},
 CellLabel->
  "Out[127]=",ExpressionUUID->"ade84ba3-7b0d-4e69-9d2e-98f0c4c1c189"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"eps", "=", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"14.8", " ", "14.8"}], ")"}], 
    RowBox[{"1", "/", "2"}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<kilocal:\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eps", " ", "4.184", " ", 
  RowBox[{
   SuperscriptBox["10", "10"], "/", 
   RowBox[{"(", 
    RowBox[{"6.02", " ", 
     SuperscriptBox["10", "23"]}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<cal:\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eps", " ", "4.184", " ", 
  RowBox[{
   RowBox[{
    SuperscriptBox["10", "10"], "/", 
    RowBox[{"(", 
     RowBox[{"6.02", " ", 
      SuperscriptBox["10", "23"]}], ")"}]}], "/", "1000"}]}]}], "Input",
 CellChangeTimes->{{3.844169914850704*^9, 3.8441699246659527`*^9}, {
  3.844169956927383*^9, 3.844169965966806*^9}, {3.844170342854596*^9, 
  3.844170343980035*^9}, {3.844171218768443*^9, 3.844171265885804*^9}, {
  3.8441714132564497`*^9, 3.8441714268620567`*^9}, {3.8441715050862513`*^9, 
  3.844171525144642*^9}, {3.844171565459004*^9, 3.844171587998146*^9}, {
  3.844174664669847*^9, 3.844174668291637*^9}},
 CellLabel->
  "In[336]:=",ExpressionUUID->"5b70b1d7-cb67-498a-a340-5af81b662f47"],

Cell[BoxData["\<\"kilocal:\"\>"], "Print",
 CellChangeTimes->{
  3.844171267110529*^9, 3.844171427190608*^9, {3.8441715062390947`*^9, 
   3.844171525479323*^9}, {3.844171567159687*^9, 3.844171589614276*^9}, 
   3.844174669515398*^9},
 CellLabel->
  "During evaluation of \
In[336]:=",ExpressionUUID->"83f541c3-e170-47fe-84c9-d349db91e419"],

Cell[BoxData["1.0286245847176081`*^-12"], "Output",
 CellChangeTimes->{
  3.844169966666456*^9, 3.8441703462867393`*^9, 3.844171267113924*^9, 
   3.84417142719374*^9, {3.844171506241685*^9, 3.844171525482472*^9}, {
   3.8441715671626263`*^9, 3.844171589618341*^9}, 3.844174669518317*^9},
 CellLabel->
  "Out[338]=",ExpressionUUID->"77956586-495f-45fc-a59a-19bbd3ef63d4"],

Cell[BoxData["\<\"cal:\"\>"], "Print",
 CellChangeTimes->{
  3.844171267110529*^9, 3.844171427190608*^9, {3.8441715062390947`*^9, 
   3.844171525479323*^9}, {3.844171567159687*^9, 3.844171589614276*^9}, 
   3.844174669521247*^9},
 CellLabel->
  "During evaluation of \
In[336]:=",ExpressionUUID->"24921a04-0ca5-4ea8-b965-5fa5d2a30b94"],

Cell[BoxData["1.0286245847176082`*^-15"], "Output",
 CellChangeTimes->{
  3.844169966666456*^9, 3.8441703462867393`*^9, 3.844171267113924*^9, 
   3.84417142719374*^9, {3.844171506241685*^9, 3.844171525482472*^9}, {
   3.8441715671626263`*^9, 3.844171589618341*^9}, 3.8441746695244493`*^9},
 CellLabel->
  "Out[340]=",ExpressionUUID->"885a8929-2caa-45e6-9596-79f4af4ade4d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"kb", "=", 
   RowBox[{"1.38", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "16"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T", "=", "298"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"4", "kb", " ", "T"}]}], "Input",
 CellChangeTimes->{{3.8441710314843817`*^9, 3.8441710755511007`*^9}, 
   3.8441713469004297`*^9},
 CellLabel->
  "In[244]:=",ExpressionUUID->"0ba270da-c7b8-49bf-bfd9-bbbb37c94284"],

Cell[BoxData["1.6449599999999997`*^-13"], "Output",
 CellChangeTimes->{{3.8441710688838778`*^9, 3.844171077376375*^9}, 
   3.844171347235273*^9},
 CellLabel->
  "Out[246]=",ExpressionUUID->"69ea95df-2d1a-42e7-ae4a-31bf99f9ef17"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"8.16", "*", 
  SuperscriptBox["10", 
   RowBox[{"-", "22"}]], "*", 
  SuperscriptBox["10", "7"]}]], "Input",
 CellChangeTimes->{{3.844173085731215*^9, 3.844173090305739*^9}, {
  3.844173123360304*^9, 3.844173126559536*^9}},
 CellLabel->
  "In[318]:=",ExpressionUUID->"cb7907de-be2b-4f0d-9132-d116337f81ce"],

Cell[BoxData["8.16`*^-15"], "Output",
 CellChangeTimes->{3.844173127859334*^9},
 CellLabel->
  "Out[318]=",ExpressionUUID->"e222ed89-94b7-4863-8a86-0b86e4bb4567"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"0.5", "*", 
  SuperscriptBox["10", "7"], "*", 
  RowBox[{
   SuperscriptBox["10", "3"], "/", 
   RowBox[{"(", 
    RowBox[{"6.02", " ", 
     SuperscriptBox["10", "23"]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.844174367120563*^9, 3.844174413814286*^9}, 
   3.844176221867141*^9},
 CellLabel->
  "In[341]:=",ExpressionUUID->"76466e5e-ba35-4a63-af98-34cc17626c21"],

Cell[BoxData["8.305647840531562`*^-15"], "Output",
 CellChangeTimes->{3.844174416183979*^9, 3.844176222249651*^9},
 CellLabel->
  "Out[341]=",ExpressionUUID->"7acb6251-a595-4e83-8573-9801d13e1807"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.85508607924258*^9, 3.855086084647826*^9}, 
   3.855086141276544*^9},ExpressionUUID->"60a34d5c-09e7-4dea-a263-\
3a51acbc5835"]
},
WindowSize->{1440., 782.25},
WindowMargins->{{Automatic, 0}, {96, Automatic}},
FrontEndVersion->"12.3 for Linux x86 (64-bit) (May 11, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"0fc9bdcd-6759-4120-8e29-4960b1e4f277"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 9852, 270, 728, "Input",ExpressionUUID->"242be4a3-80bb-42d2-b5ef-23ee55edb1ff"],
Cell[10435, 294, 504, 8, 33, "Output",ExpressionUUID->"9ed3837b-30a0-4169-914d-16b304b73254"],
Cell[10942, 304, 7721, 146, 222, "Output",ExpressionUUID->"144c2010-3d2b-42b2-94f2-4b40b8ed23e8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18700, 455, 830, 23, 94, "Input",ExpressionUUID->"8350fae6-841a-4504-9079-9306b634c47e"],
Cell[19533, 480, 402, 12, 49, "Output",ExpressionUUID->"becea20e-9195-407d-bcb8-5799e6541b16"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19972, 497, 359, 10, 29, "Input",ExpressionUUID->"09211e93-5041-4f10-a7a1-408f90e1237e"],
Cell[20334, 509, 245, 6, 33, "Output",ExpressionUUID->"49e724fe-5078-4b54-8b2b-cc22951e14d5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20616, 520, 1664, 48, 194, "Input",ExpressionUUID->"24eae598-da4c-4b10-87c2-6c7c6b95436c"],
Cell[22283, 570, 18484, 325, 220, "Output",ExpressionUUID->"57d956d9-95ac-40d6-b955-8b66b8976ab8"]
}, Open  ]],
Cell[40782, 898, 608, 15, 51, "Input",ExpressionUUID->"301f5b50-ed4d-44d9-b44d-85ba85167b66"],
Cell[CellGroupData[{
Cell[41415, 917, 4245, 101, 477, "Input",ExpressionUUID->"d61335e4-0426-4867-b2b9-c75fc22125ed"],
Cell[45663, 1020, 18937, 360, 72, "Output",ExpressionUUID->"eed4ea11-e374-43ec-ad18-b73c8e25f828"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64637, 1385, 4477, 103, 497, "Input",ExpressionUUID->"582f8007-dee2-472a-9ddb-f9f05169440b"],
Cell[69117, 1490, 16763, 327, 72, "Output",ExpressionUUID->"854e0578-bf7c-4540-9102-18b1961076ba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[85917, 1822, 2920, 69, 51, "Input",ExpressionUUID->"76a283bb-106f-4bf4-b6bc-68960779cdf9"],
Cell[88840, 1893, 8412, 159, 229, "Output",ExpressionUUID->"5e2a3b4b-70f3-4f78-aa71-309c47795ef6"],
Cell[97255, 2054, 11001, 201, 220, "Output",ExpressionUUID->"e5f27880-1d45-4e0a-b5af-777de96be2cc"]
}, Open  ]],
Cell[108271, 2258, 223, 4, 28, "Input",ExpressionUUID->"68e24d9d-c014-4139-9e78-3ab3c0dd1e6f"],
Cell[108497, 2264, 6295, 141, 296, "Input",ExpressionUUID->"8e901d90-d741-4750-b168-26177588df4b"],
Cell[114795, 2407, 526, 8, 28, "Input",ExpressionUUID->"926166f8-3d1f-465d-91ad-2aa20c2b776e"],
Cell[CellGroupData[{
Cell[115346, 2419, 3016, 59, 70, "Input",ExpressionUUID->"384421b7-5477-48fd-a6bb-fea5eca5d219"],
Cell[118365, 2480, 35328, 600, 581, "Output",ExpressionUUID->"ebf85e9b-5c35-437b-822b-d3580ea7bd9f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153730, 3085, 405, 6, 28, "Input",ExpressionUUID->"04fbf567-17a0-4aa2-91fb-aea03882a647"],
Cell[154138, 3093, 4189, 107, 73, "Output",ExpressionUUID->"c86e8ba2-6a5b-41c7-98c2-15b2fc7d0357"]
}, Open  ]],
Cell[158342, 3203, 162, 3, 28, "Input",ExpressionUUID->"07a2eb45-e6bc-4a83-9433-710453e5b062"],
Cell[CellGroupData[{
Cell[158529, 3210, 1184, 22, 49, "Input",ExpressionUUID->"b31ad9ce-e792-45df-96ac-bd7664cd18c2"],
Cell[159716, 3234, 2268, 32, 32, "Output",ExpressionUUID->"c9073fd7-d0ff-46bf-b98c-cf295e0a23de"],
Cell[161987, 3268, 21290, 360, 187, "Output",ExpressionUUID->"f7b47bcb-e47a-4609-a50f-68774c0d47b6"]
}, Open  ]],
Cell[183292, 3631, 175, 3, 28, "Input",ExpressionUUID->"1aaab91f-d2d7-4733-a67b-7ffcacb8500f"],
Cell[CellGroupData[{
Cell[183492, 3638, 10124, 246, 838, "Input",ExpressionUUID->"bac8d4ea-4456-47e5-884f-ef2cdb50b8fc"],
Cell[193619, 3886, 734, 12, 32, "Output",ExpressionUUID->"7b3b9693-c892-49c9-ae94-f077bac25d9d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[194390, 3903, 285, 6, 28, "Input",ExpressionUUID->"891da131-d92e-475e-b6b4-2664f48b222b"],
Cell[194678, 3911, 177, 3, 32, "Output",ExpressionUUID->"4aa0a195-177d-4a10-9e36-b74625ee8239"]
}, Open  ]],
Cell[194870, 3917, 1171, 29, 28, "Input",ExpressionUUID->"83c18bd4-3765-4619-920d-ed90cdf4da83"],
Cell[CellGroupData[{
Cell[196066, 3950, 2440, 70, 76, "Input",ExpressionUUID->"efb1145a-95d9-4727-b376-871c03800e8e"],
Cell[198509, 4022, 26670, 456, 304, "Output",ExpressionUUID->"9c31687d-a3dd-486f-860f-375f1ea4d12f"]
}, Open  ]],
Cell[225194, 4481, 1141, 31, 128, "Input",ExpressionUUID->"7b5c70a7-5f08-4ed3-a8e5-310cb0818f9c"],
Cell[CellGroupData[{
Cell[226360, 4516, 343, 8, 28, "Input",ExpressionUUID->"a41d60b1-9f50-48e6-937e-f8e68848bbda"],
Cell[226706, 4526, 209, 4, 32, "Output",ExpressionUUID->"a2dac04e-87d5-4a59-93e1-3209317152e9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[226952, 4535, 277, 7, 28, "Input",ExpressionUUID->"2087c5c1-bacf-4e42-a652-4d1d119c9bae"],
Cell[227232, 4544, 197, 3, 32, "Output",ExpressionUUID->"27bfbfdb-43d6-4742-be55-6c881952bafd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[227466, 4552, 1378, 41, 69, "Input",ExpressionUUID->"13c4f97f-e8d1-4034-9781-1a7d28909991"],
Cell[228847, 4595, 254, 4, 32, "Output",ExpressionUUID->"ade84ba3-7b0d-4e69-9d2e-98f0c4c1c189"]
}, Open  ]],
Cell[CellGroupData[{
Cell[229138, 4604, 1241, 29, 116, "Input",ExpressionUUID->"5b70b1d7-cb67-498a-a340-5af81b662f47"],
Cell[230382, 4635, 339, 7, 22, "Print",ExpressionUUID->"83f541c3-e170-47fe-84c9-d349db91e419"],
Cell[230724, 4644, 370, 6, 35, "Output",ExpressionUUID->"77956586-495f-45fc-a59a-19bbd3ef63d4"],
Cell[231097, 4652, 335, 7, 22, "Print",ExpressionUUID->"24921a04-0ca5-4ea8-b965-5fa5d2a30b94"],
Cell[231435, 4661, 372, 6, 35, "Output",ExpressionUUID->"885a8929-2caa-45e6-9596-79f4af4ade4d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[231844, 4672, 453, 12, 71, "Input",ExpressionUUID->"0ba270da-c7b8-49bf-bfd9-bbbb37c94284"],
Cell[232300, 4686, 228, 4, 35, "Output",ExpressionUUID->"69ea95df-2d1a-42e7-ae4a-31bf99f9ef17"]
}, Open  ]],
Cell[CellGroupData[{
Cell[232565, 4695, 330, 8, 31, "Input",ExpressionUUID->"cb7907de-be2b-4f0d-9132-d116337f81ce"],
Cell[232898, 4705, 162, 3, 35, "Output",ExpressionUUID->"e222ed89-94b7-4863-8a86-0b86e4bb4567"]
}, Open  ]],
Cell[CellGroupData[{
Cell[233097, 4713, 391, 11, 33, "Input",ExpressionUUID->"76466e5e-ba35-4a63-af98-34cc17626c21"],
Cell[233491, 4726, 197, 3, 35, "Output",ExpressionUUID->"7acb6251-a595-4e83-8573-9801d13e1807"]
}, Open  ]],
Cell[233703, 4732, 174, 3, 29, "Input",ExpressionUUID->"60a34d5c-09e7-4dea-a263-3a51acbc5835"]
}
]
*)