mobility_calc.nb

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

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

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    453308,      10287]
NotebookOptionsPosition[    437635,      10044]
NotebookOutlinePosition[    437972,      10059]
CellTagsIndexPosition[    437929,      10056]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{
    "a", ",", "\[Mu]", ",", " ", "dr", ",", " ", "eps", ",", "Q", ",", " ", 
     "kb", ",", " ", "T"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Mu]", "=", 
     RowBox[{"1", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "2"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"osseen", "[", "r_", "]"}], ":=", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"8", " ", "\[Pi]", " ", "\[Mu]"}]], 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"IdentityMatrix", "[", 
          RowBox[{"Length", "[", "r", "]"}], "]"}], 
         RowBox[{"Norm", "[", "r", "]"}]], "+", 
        FractionBox[
         RowBox[{"Outer", "[", 
          RowBox[{"Times", ",", "r", ",", " ", "r"}], "]"}], 
         SuperscriptBox[
          RowBox[{"Norm", "[", "r", "]"}], "3"]]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"kernel", "[", 
      RowBox[{"r_", ",", "a_"}], "]"}], ":=", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox["a", "1.256"], ")"}], "2"], " ", "\[Pi]"}], ")"}], 
        RowBox[{"3", "/", "2"}]]], 
      RowBox[{"Exp", "[", 
       FractionBox[
        RowBox[{"-", 
         RowBox[{"r", ".", "r"}]}], 
        RowBox[{" ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox["a", "1.256"], ")"}], "2"]}]], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"nd", "[", "r_", "]"}], ":=", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox["1", 
        RowBox[{"Norm", "[", "r", "]"}]], ")"}], "3"]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"debye", "[", "r_", "]"}], ":=", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"eps", " ", "kb", " ", "T"}], 
        RowBox[{"2", " ", 
         RowBox[{"nd", "[", "r", "]"}], 
         SuperscriptBox["Q", "2"]}]], ")"}], 
      RowBox[{"1", "/", "2"}]]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"RPYl", "[", 
      RowBox[{"r_", ",", "a_"}], "]"}], ":=", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"6", " ", "\[Pi]", " ", "\[Mu]", " ", "a"}]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"3", "a"}], 
            RowBox[{"4", " ", 
             RowBox[{"Norm", "[", "r", "]"}]}]], "+", 
           FractionBox[
            SuperscriptBox["a", "3"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"Norm", "[", "r", "]"}], "3"]}]]}], ")"}], 
         RowBox[{"IdentityMatrix", "[", 
          RowBox[{"Length", "[", "r", "]"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"3", "a"}], 
            RowBox[{"4", " ", 
             RowBox[{"Norm", "[", "r", "]"}]}]], "-", 
           FractionBox[
            RowBox[{"3", 
             SuperscriptBox["a", "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"Norm", "[", "r", "]"}], "3"]}]]}], ")"}], 
         FractionBox[
          RowBox[{"Outer", "[", 
           RowBox[{"Times", ",", "r", ",", " ", "r"}], "]"}], 
          SuperscriptBox[
           RowBox[{"Norm", "[", "r", "]"}], "2"]]}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"RPYs", "[", 
      RowBox[{"r_", ",", "a_"}], "]"}], ":=", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"6", " ", "\[Pi]", " ", "\[Mu]", " ", "a"}]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"9", " ", 
             RowBox[{"Norm", "[", "r", "]"}]}], 
            RowBox[{"32", " ", "a"}]]}], ")"}], 
         RowBox[{"IdentityMatrix", "[", 
          RowBox[{"Length", "[", "r", "]"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"3", " ", 
            RowBox[{"Norm", "[", "r", "]"}]}], 
           RowBox[{"32", " ", "a"}]], ")"}], 
         FractionBox[
          RowBox[{"Outer", "[", 
           RowBox[{"Times", ",", "r", ",", " ", "r"}], "]"}], 
          SuperscriptBox[
           RowBox[{"Norm", "[", "r", "]"}], "2"]]}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"RPY", "[", 
      RowBox[{"r_", ",", "a_"}], "]"}], ":=", 
     RowBox[{"Which", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Norm", "[", "r", "]"}], "\[LessEqual]", 
        RowBox[{"2", "a"}]}], ",", 
       RowBox[{"RPYs", "[", 
        RowBox[{"r", ",", "a"}], "]"}], ",", 
       RowBox[{
        RowBox[{"Norm", "[", "r", "]"}], ">", " ", 
        RowBox[{"2", "a"}]}], ",", 
       RowBox[{"RPYl", "[", 
        RowBox[{"r", ",", "a"}], "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dryTensor", "[", 
      RowBox[{"r_", ",", "a_"}], "]"}], ":=", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"6", " ", "\[Pi]", " ", "\[Mu]", " ", "a"}]], 
      RowBox[{"IdentityMatrix", "[", 
       RowBox[{"Length", "[", "r", "]"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"coulomb", "[", "r_", "]"}], ":=", 
     RowBox[{
      FractionBox[
       SuperscriptBox["Q", "2"], 
       RowBox[{"4", " ", "\[Pi]", " ", "eps", "  "}]], 
      FractionBox["r", 
       SuperscriptBox[
        RowBox[{"Norm", "[", "r", "]"}], "3"]]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"coulombScreened", "[", "r_", "]"}], ":=", 
     RowBox[{
      FractionBox[
       SuperscriptBox["Q", "2"], 
       RowBox[{"4", " ", "\[Pi]", " ", "eps", "  "}]], 
      FractionBox[
       RowBox[{" ", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"Norm", "[", "r", "]"}]}], "/", 
           RowBox[{"debye", "[", "r", "]"}]}], "]"}], 
         RowBox[{"(", 
          RowBox[{"r", "+", 
           RowBox[{"debye", "[", "r", "]"}]}], ")"}], "r"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Norm", "[", "r", "]"}], "3"], 
        RowBox[{"debye", "[", "r", "]"}]}]]}]}], ";"}], "\[IndentingNewLine]",
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"p4", "[", "r_", "]"}], ":=", 
     RowBox[{"Which", "[", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"Abs", "[", "r", "]"}], "dr"], "\[LessEqual]", "1"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"3", "-", 
          RowBox[{"2", 
           FractionBox[
            RowBox[{"Abs", "[", "r", "]"}], "dr"]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"4", " ", 
              FractionBox[
               RowBox[{"Abs", "[", "r", "]"}], "dr"]}], "-", 
             RowBox[{"4", " ", 
              FractionBox[
               SuperscriptBox["r", "2"], 
               SuperscriptBox["dr", "2"]]}]}], ")"}], 
           RowBox[{"1", "/", "2"}]]}], ")"}], "/", "8"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"1", "<", 
        FractionBox[
         RowBox[{"Abs", "[", "r", "]"}], "dr"], "\[LessEqual]", "2"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"5", "-", 
          RowBox[{"2", 
           FractionBox[
            RowBox[{"Abs", "[", "r", "]"}], "dr"]}], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "7"}], "+", 
             RowBox[{"12", " ", 
              FractionBox[
               RowBox[{"Abs", "[", "r", "]"}], "dr"]}], "-", 
             RowBox[{"4", " ", 
              FractionBox[
               SuperscriptBox["r", "2"], 
               SuperscriptBox["dr", "2"]]}]}], ")"}], 
           RowBox[{"1", "/", "2"}]]}], ")"}], "/", "8"}], ",", 
       "\[IndentingNewLine]", " ", 
       RowBox[{
        FractionBox[
         RowBox[{"Abs", "[", "r", "]"}], "dr"], " ", "\[GreaterEqual]", " ", 
        "2"}], ",", "0"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"p3", "[", "r_", "]"}], ":=", 
     RowBox[{"Which", "[", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"Abs", "[", "r", "]"}], "dr"], "\[LessEqual]", "0.5"}], ",", 
       
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"3", " ", 
              FractionBox[
               SuperscriptBox["r", "2"], 
               SuperscriptBox["dr", "2"]]}]}], ")"}], 
           RowBox[{"1", "/", "2"}]]}], ")"}], "/", "3"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"0.5", "<", 
        FractionBox[
         RowBox[{"Abs", "[", "r", "]"}], "dr"], "\[LessEqual]", "1.5"}], ",", 
       
       RowBox[{
        RowBox[{"(", 
         RowBox[{"5", "-", 
          RowBox[{"3", 
           FractionBox[
            RowBox[{"Abs", "[", "r", "]"}], "dr"]}], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "3"}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", " ", 
                 FractionBox[
                  RowBox[{"Abs", "[", "r", "]"}], "dr"]}], ")"}], "2"]}], "+",
              "1"}], ")"}], 
           RowBox[{"1", "/", "2"}]]}], ")"}], "/", "6"}], ",", 
       "\[IndentingNewLine]", " ", 
       RowBox[{
        FractionBox[
         RowBox[{"Abs", "[", "r", "]"}], "dr"], " ", "\[GreaterEqual]", " ", 
        "1.5"}], ",", "0"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"peskin4", "[", "r_", "]"}], ":=", 
     RowBox[{
      RowBox[{"p4", "[", 
       RowBox[{"r", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}], 
      RowBox[{"p4", "[", 
       RowBox[{"r", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "]"}], 
      RowBox[{
       RowBox[{"p4", "[", 
        RowBox[{"r", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "]"}], "/", 
       SuperscriptBox["dr", "3"]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"peskin3", "[", "r_", "]"}], ":=", 
     RowBox[{
      RowBox[{"p3", "[", 
       RowBox[{"r", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}], 
      RowBox[{"p3", "[", 
       RowBox[{"r", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "]"}], 
      RowBox[{
       RowBox[{"p3", "[", 
        RowBox[{"r", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "]"}], "/", 
       SuperscriptBox["dr", "3"]}]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.794664843626438*^9, 3.794664848609437*^9}, {
   3.794665000721896*^9, 3.794665006026112*^9}, {3.794665422733691*^9, 
   3.794665475012803*^9}, {3.794665551909151*^9, 3.794665562092441*^9}, {
   3.794665594447384*^9, 3.794665605489214*^9}, {3.794665724086069*^9, 
   3.794665728031248*^9}, {3.794665902493886*^9, 3.794665911429718*^9}, {
   3.794668894875222*^9, 3.794668899729916*^9}, {3.794669152283021*^9, 
   3.794669193706901*^9}, {3.794669257358553*^9, 3.7946692898998127`*^9}, {
   3.794669932990843*^9, 3.794669960814073*^9}, {3.794670135946089*^9, 
   3.7946701438470488`*^9}, {3.794685202027279*^9, 3.7946852115701113`*^9}, {
   3.794685279042416*^9, 3.794685279458308*^9}, {3.7946853151867933`*^9, 
   3.794685525172127*^9}, 3.794686091407503*^9, {3.794686123310305*^9, 
   3.7946862095945587`*^9}, {3.794686356455624*^9, 3.794686358790873*^9}, {
   3.794686405328169*^9, 3.7946864366953077`*^9}, {3.794686466713079*^9, 
   3.794686481912757*^9}, {3.794686802410907*^9, 3.7946868244568367`*^9}, {
   3.7946869318834753`*^9, 3.7946869841692142`*^9}, {3.794752348001293*^9, 
   3.794752348702118*^9}, {3.794753120678418*^9, 3.794753121009082*^9}, {
   3.7947531681558027`*^9, 3.794753211610838*^9}, 3.794753253875033*^9, {
   3.794753318428097*^9, 3.794753423704471*^9}, {3.7947536928384943`*^9, 
   3.79475369380446*^9}, {3.794754087043717*^9, 3.794754194268487*^9}, {
   3.794754911893993*^9, 3.794754933177958*^9}, {3.794754980596362*^9, 
   3.7947549809622097`*^9}, {3.7947550479323997`*^9, 
   3.7947550492106113`*^9}, {3.794756167671919*^9, 3.794756168639677*^9}, {
   3.7948393968023853`*^9, 3.7948394373934317`*^9}, {3.794839781280312*^9, 
   3.794839890655039*^9}, {3.794840187964592*^9, 3.794840188340495*^9}, {
   3.794846886473773*^9, 3.794846888602859*^9}, {3.794846965162551*^9, 
   3.794846977457346*^9}, {3.7948472730746307`*^9, 3.7948472791832867`*^9}, 
   3.795294882708016*^9, 3.795294959426344*^9, {3.7952966708815393`*^9, 
   3.795296675248693*^9}, {3.79537686474606*^9, 3.7953768667277927`*^9}, {
   3.795378879369328*^9, 3.795378901965085*^9}, {3.795379226988999*^9, 
   3.7953792865086527`*^9}, {3.795380530250033*^9, 3.795380537037794*^9}, {
   3.795381669252445*^9, 3.795381673941997*^9}, 3.795382758043895*^9, {
   3.795385019645028*^9, 3.795385028759914*^9}, 3.795385074629184*^9, {
   3.795388525839349*^9, 3.795388539101017*^9}, {3.795389252122736*^9, 
   3.795389257047802*^9}, {3.7953893006325483`*^9, 3.795389322855781*^9}, {
   3.79538947287285*^9, 3.795389475943739*^9}, 3.795389625327664*^9, {
   3.795389737139947*^9, 3.795389755332999*^9}, 3.795439458231401*^9, {
   3.7965757667813997`*^9, 3.7965758662743683`*^9}, {3.796575914554216*^9, 
   3.796575939515086*^9}, 3.7965762456443777`*^9, {3.7965763801557903`*^9, 
   3.796576380850175*^9}, {3.796576414284835*^9, 3.796576461138191*^9}, {
   3.796576606604034*^9, 3.796576626940236*^9}, {3.817512425155946*^9, 
   3.8175124284508133`*^9}, 3.820245887927701*^9},
 CellLabel->
  "In[202]:=",ExpressionUUID->"432a00a5-71cf-43b2-8c77-503325889e94"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"dr", "=", "2"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"p4", "[", "r", "]"}], "dr"], ",", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"  ", 
        RowBox[{"dr", " ", 
         SuperscriptBox["\[Pi]", 
          RowBox[{"1", "/", "2"}]]}]}]], 
      RowBox[{"Exp", "[", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["r", "2"], 
         SuperscriptBox["dr", "2"]]}], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", 
     RowBox[{
      RowBox[{"-", "3"}], " ", "dr"}], ",", 
     RowBox[{"3", "dr"}]}], "}"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.798794132136652*^9, 3.79879413924722*^9}, {
   3.798794175791939*^9, 3.798794280552005*^9}, 3.7987943152590733`*^9, {
   3.798794400285067*^9, 3.798794430465294*^9}, {3.798794474257173*^9, 
   3.798794546568479*^9}, {3.798794589003058*^9, 3.798794590585617*^9}, {
   3.7987946312277718`*^9, 3.798794642074136*^9}, 3.7987946721337233`*^9, {
   3.798949545291603*^9, 
   3.798949568071154*^9}},ExpressionUUID->"e1a4b85a-d8c5-41e8-8854-\
6e14e6af3341"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{{3.7987942040544863`*^9, 3.7987942511908092`*^9}, 
   3.798794281607254*^9, 3.7987943160750523`*^9, {3.798794415523993*^9, 
   3.798794432533453*^9}, {3.7987945030560226`*^9, 3.79879451703244*^9}, 
   3.79879454784879*^9, {3.798794583720263*^9, 3.798794591096019*^9}, {
   3.798794642839813*^9, 3.798794672717432*^9}, {3.798949446148425*^9, 
   3.798949453030553*^9}, {3.79894955583095*^9, 3.7989495684475307`*^9}, 
   3.801352873927102*^9},ExpressionUUID->"7110f87f-82b4-4508-b909-\
c875a2932a6e"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], 
       LineBox[{{-5.999999755102041, 0.}, {-5.996319384953285, 
        0.}, {-5.992639014804528, 0.}, {-5.985278274507015, 
        0.}, {-5.970556793911991, 0.}, {-5.941113832721939, 
        0.}, {-5.882227910341838, 0.}, {-5.764456065581635, 
        0.}, {-5.509099714974496, 0.}, {-5.270665397158174, 
        0.}, {-5.036908214173486, 0.}, {-4.783338370102065, 
        0.}, {-4.546690558821462, 0.}, {-4.41804009298534, 0.}}], 
       LineBox[{{-4.41038703176085, 0.}, {-4.038446748918422, 
        0.}, {-4.0347770410317825`, 0.}, {-4.031107333145144, 
        0.}, {-4.023767917371867, 0.}, {-4.009089085825311, 
        0.}, {-4.005419377938672, 0.}, {-4.003826530612245, 0.}}], 
       LineBox[CompressedData["
1:eJwVy3lM02cYwPFawRVof4WVoXigVqHIMJToZAToA0gtRywUBWocthbr6NYK
ncA8ABsOBUQgUFplRgoMOWZmcQyZSnm5xmYBdR5RmQSpBTnGgHAqzL3+8eTJ
J9/n2SpJiJSSSSQSF8/HfYTfZtyxSEckUmMTU/szx+quQJptxha3hE9UmDlP
+lNkqwawI9QpFR3THN3yD4q0Z9gqHav12DuOfFObcqkPO/i120QMGbw4w8nJ
3R8dMLMvggJkkc2Z6VbsRcZomCMd+s6x0xXN2G8ttyuFDCjTRWWM6rFvRK5L
z1sL0rYz56V12Kl1HsatG2GZ3FUQW4b937xyI2cb/LFtrPhFMfaW3ju3nVyg
JIiujbqIjcpGKOwd4Hb+UPn+VGzKKsPykAfMXU+v+jMJ23Y5YaDNE1B3VQ1X
gd33zd9Ndbsgxmrypt8RbEPawJLBC5hujMbforE/nFS9H/eGydAvm78Ix9ao
cqs8fCErPwPt9KcjVcuNBnqaP9yir320iYk7OZ4eaORCOtv36ZX1uCc2rWv2
5kGI4OiLzxjYQHbvuhUMg8U/vaZZ4Pt6kx2/MwwIB/+ZFTOBVDlF8TJPAbzc
I50/PUAg0uYVdr9dJFTH5L2be0YgJOJ07VuIBN8rT8iT3biPmKvNDw+CbKOM
MVCHu92vLnsNQuhkFu82KAgkrnGfXLknBv6zS2NaKYF0PbfP3hYdhee5uTpl
LIEGJds1hKUEJqZUVOf9BPLvnx7KiIkDRmvCm4vu+D9O67pmw3GQHN6vPjRO
Q2gioqZznRwmiJDQXSbsO70OESY5pLQHkWj92KUnTXv0Csjb4StH92loy9Sr
3RRBAjQsuAWx6nF/etrOPUYJJDVldjaehmzPPiiTjiVBHs+ivk9MQ+KuqgP3
jiaD/fsPolohDZFmy0dcXiaDq2TBeDiYhvz/SVr07EuBcPZwVTuLhtgzJQFL
7afgWk/HgaJhKhL7JBa6DqSCj+W5Xz4/RkXo/sJ62WgGuA5fsir6Cvspv5TB
zgSH7qui2YNUpNpSuNfl+0yYyrlj08KlItvMmvaMNVlwnTofx2dR0SnTGT/C
LRs+tVfYK8ds0JSlo5KZdQHeMg8nNyXaoEG9d5RdRj6o/b28AtKs0e6d8Ukh
xhJY/fu/r4zJ1qgzetxDvVQC34XVZkWfsEZTbz94WbmqQRDt+Ne3ImukC4wa
UmargZC/l2sCrJFQlnPNJ7AUcrStleOWuD/XF1Z0aCB1kkdoCqxQzuBiT5j5
CsRdFZrHyilI3BBo6ojQQVHjiN9jLXYqehOXoANDT4rmbiEF8TctOm8o0MH6
FTUv/xwFDQVlxT4w6uBh7KO6nSIKaqRnSvjBFcDZHHoi0YmC6u0vc6u5leBY
6bMwd/UTxNz1uLdB8CM8qHGyWlW2Br3xvszS3KwFJ6res7XJArEuhR+6Nq6H
nPD0r52FqxGv9Phxnr4R/gfQOfuV
        "]], 
       LineBox[{{-2.41038703176085, 
        0.08151079704474959}, {-2.0823528209389703`, 
        0.11509866052757373`}, {-2.003826530612245, 0.12452259533764048`}}], 
       LineBox[{{-1.996173469387755, 
        0.12547740466235952`}, {-1.5941823199135077`, 
        0.16807200959498403`}, {-1.5896129682391498`, 0.16848920295525044`}}],
        LineBox[CompressedData["
1:eJwtlns8FFgbx+VWSym6rOxuFOGVZJHaXB5FYStJEtKYWK17bSxC7dIkQ25d
rFRCNci4hwiH3MaYmYNci1zGLRSTa0jv2c/7/nE+5/P945znOc/5PZftThet
XISFhIQek/XvPkkV+bnwxBdEKeQc606rBffpPIfIRAGy1SxcrAxiw31dgd7v
EQLk0r9f4ERjA+uK5g/GgQIkFP/wh2+32LBTKKdr0U6AZFqOr1dOYkPfWqaN
+1YBumB8/qZGJRtOKzMszROmkIaTwmE1kUYIydehS6lPIkdvuSBMawSNa2J2
4orjSF1hZKHejwNypU3/jIqOI1bz1pvBVzkgNvegnT08hoSOzi7uonGg20vL
OuY5YTfxmKA4DkScczwhqzWGGgruHunJ5MCIfslhtYMfEEVUrDGjlwPJS55a
Fo4jKFFNxcrBmAu39u3/Q/PgCOJmhrDczbng7yOSK6M4ggb83kz5nOCCxfj9
3R3DwyiWVmXhd5YLX9/WqVK9h9GrlfhVej5csC9VkL98dQh9qmnRfp3ChY1X
WiXjH/DR9nkv+8JFLix8+yI9GchHXr10brgQD96Hycua2fORErr96LQ4D9Lv
uistyvKRorWo8TtpHhjmChlQ4gfQXbxGOV6VB24j6t7Kcf3o4eogtTprHlzL
lEjxWteLrm2MvTCWxgPzktNZ8pz36IhaRkUvkweb6pNLmiPeo7V3Jmu5eTzI
GNBt2bvmPRoa5dfdecWD1q3OIivCPUjZ1AjX8XigFv7KJXrhLeo2vxf1epoH
Hb95quXw25G9rWVuxz4MFT2W+4oY7cjprJp7rB4Ghs1ek3K3drSiW9B5EDD4
mq2ca5xsQyxj77zoIxg2qMfGjSy1olGKkT22xmA+XbAgv+kNulUk9/vgRQya
ngliKh0t6IaNr6KSDwbZoWAZjcQWxKxxWz7rh2G4/bC6vkILkuw701UQjCG0
tMPRVr0ZjSpOS4jQMfwpMh+1nc5DnWXc7ZuTMZjMorQ963ko3lXPojkVg8xI
eJXBPS7qSH3XSXuGIZstN2uXwkHhusUtzc/J/XGGDrdL2OjAFds3qwoxvLi+
2i8Z2Khp+14v/2Ji78+mmOzaBvTyZf00vwSDvJ1TNbuZhYRZ6yNSKjDYKoSp
iYzVIZuNt3dk1WNQljlhIn2pDglp/+TR2YBhRkSWIj9Xi0Z9B+UXGzHEjWTE
6QnXokracLhCEwZ2NnfBR64aRYtynec7MCQkx8uEJr9GmLrnh9YuDBduO6rH
Kr9GA4xEJuMdBhE/gSNTqwrpbQyU2t2LwT9QLbrhXgVSCYqOKxvCYPFpqj2H
UY40e76B4Qjxx6lYPr64DBUpbYkqHMXQZm6S59RViio9n2TRxjEwyyUWzcZK
UGsP9XT3BAbaz82H9iy9RDupR03+8wmD9lZK69KPxcj2UtuD1CkMElFKPw3s
LkIHXv7dxhNgGBAad2EZFiKd3R4Lk5/J+0b95+9SC5By4aF/NsxicHUwNAr6
Ix+tKGf2rZ/DYNQkSj8fmofkvIyzReYxvL+ouNfBLAddCHvqwVrAEHUmt07V
PQsZsueU7n/BoA8GtrORmUiZS5s9t4hhXJn9oSorA3VblFVuWcKQKHUmKBqn
oUe7gtyqCZvP8deeFTxD0d6SLc7LGBZ6LiWpbHyKdIzku+cJp9V+3TOjk4qs
cjiuf33FYJMVUVVpk4yeWNFtFwlLqO1hyAkeooCqnZGuK8T/L2YNBTr30dN+
Vm8D4TqW08SxgHvo+ppxnW3fMCgmBK8ffhWHtD9auroQFsbqLisrkajCTfzM
Y8LlXtRMzTAaEvnOrqeRsEBWlV8rF4g4lJb2McJNzG291lYXULqK1rZlwqLn
jyqEG1vAmpNJUd8IZ2ik+q8tvQyM+L3fzxK+H/Bo9k3b3+A6JtzdTbinyy0n
xSIc0GXmqmLCO/R03S7Wx0B6qGTWdcLaFiFx25LvkPNawsaE26797n3D4R/Y
IuujNEve459z/OiE7AOI/eCkm0hYrk9b9VRbEhRV9NtpEaasiRLuMUuB+YPb
cstJfHIUhP7YoPIETko8sNMnLPSLT6+x2DOgOmv7ZZP4njw5fNyfz4CYD/I7
NxFOdbMre16VDh7LizQv8j8miXBf+hoTLLNGeUvkf+/l568+7JANJi8NpzUJ
+wzJ6On/lAsdojIG9kQPNV9vZFxcygOZX5k5dKKfCTqi0sfyIXzHb1KxRF+b
t3z5/klXAZxqDVmJmCH5ouEZ1l5cCMHJjl8oRI/Rpc8MphhFQKvcpbuf6LX4
SO/Md/HFMFcV5CpO9LzG0crZwLcElKBtbehHDM9j9hs91SyHUVPDjgWSP6I1
j8tW61RARLlpyNlhDI4L4r947EMQ8GuAcP4ghojcMdmtjytBIoM+faAfg+HW
Eum+Z69hoPScDSL561EwgeNUqiHho+L16n/z+7hCtHFGNQR7Bh8va8PwOeSm
RBqzBkp2dW++1Uzq6dhpEe+COnjPVu1msDC8odGr5PfWg5n9IUerOhJv+fK/
movqQc1matd0NQb7U0rLOqUsGHixX7AJYVhf9nlmifRVC+Nrxu9eYAiIihmm
k7ourKRVH5qE4ZlK9VM9SwwGdc1hkQ8wtFTNOX0kdhMSWjMiEjBsWcq+mO7e
BKOz68543sZwac+WCUnvZkBDkRMVNzDsTBgcbPF9Ayeaag2y3El83ULaqaEd
kHBOcp24BobwxlWFgxUdIHXaNOeAGqmfu0PvuC51gOifV0xdlYneBKGWl3w7
oe5rVUD2NgzUKzT2Xxe64PaBc/kjUhh+pt+sSPr1HXhvruBu/ET6U3oUo1um
F/KLGb5/k/7Gk5C6QT3RC6GH0nf0p/KA5RntPBjZC+VTQ3f0knhASTDd4Cfc
B029zNaeuzw45WDGvRrUByve02c7Q3igP2huGuXVD007+/Iy7HmwbuaYHvMk
H6ytqUvvVvNgw1stZ//LfAjUk7wqIUz6Z6Vs5KE7fFj+VHNUa5kLcrcG33a2
8kFQVdjvNcUFVaXgQDHbQSjSO+Zyr5MLh6wzSyiUIYDUiSMZaVzwe/HdfmmP
Eai0jLX/asSFPt86HT/aOFBeBp+fppJ5hSUml/50HHw/F8jl2XGg88fD37pq
xkG/7bKYmxUHmmqqGwzEJmB1m75vvTEHKjdVUcTCJiAMT7UZKnPg8YtX4Xdv
fgSmjNV12bFGoMzkdudHTIKk4GRgsFcjfCo5/tqfJYCwMvUUaWc2MG6mUH+j
zwJnbN1onDYLpv4334HD/+e7/wLUZEpZ
        "]], 
       LineBox[{{1.58961296823915, 0.1684892029552504}, {1.8379475963258112`, 
        0.14383011821545652`}, {1.996173469387755, 0.12547740466235952`}}], 
       LineBox[{{2.003826530612245, 0.12452259533764048`}, {
        2.3233885582491913`, 0.089672450841727}, {2.41038703176085, 
        0.08151079704474959}}], LineBox[CompressedData["
1:eJwV0Hk4FGgcB/DBYm7CtqWEtYl0UGRq7fzeIqMSmQxWYcKkJE3FGOMYR0XD
tENTQu0OCpU2HTqUDTkKKWEjU0vHrI0oV0Ls64/3eZ/P8/0dz/MzDTzA5qkT
CARf/Gb/VPf4kMU+Goh1avduVulNaOZeLGIf0UKxF+S2h+ZchCQz8brRNC1k
XZF1sXegGOxUnk+yTmqhtjxjFNFUDGf3EYaV+VropdfDew0pxbBP4M0MqdJC
PrU834iZIiCma7bHTGuhmkBfjVtDhbDh9i71C0Jt5OpQVvKi9zyU0Qz9voQR
UVNug3C+fh6orJz/OBxBROVWnCH2mALmbT7UMxhDRF5f01mKTgXEHmvg9UqI
6MPzkjSBQgFOM6LwzmIiWlGme3XOSgU8/9QlvveOiGLzEu8SFb/DQOu5fPFO
EmKc4HF71ueCydDjd5NBJNRBiyvi0HKBrTtmLtxHQo8M0qKGOnKgzNXtMl9E
QgrvoK4L/ByIrZ2+sesMCfnYNCpH8rKBfDug1rENuyO7+xfqGTDPMe3VdiWj
1PLtoZ0zcsheHCU09yQj7hbIiWySA/VaE3HjTjI6P7Y/1TFbDsP1UZZJYWRk
ffLpVMRqOVSOPgmdSsf1kbRe69CTsMND9PHTEzKq4f1rZdaTATJi61CnOwW5
jH+fEtknBQ25RfK4NwUJWeuCUjKkIDCO1/+BS0HE1NPLv2NIwW+Npa0nn4IU
KnY5HEuHpcHiyGYZBaEW5+X1S9Kg9oHVeHULBT3qCP/PX5wKE4Ij3y5vpyJC
hJ3NsuRkILfXfYQdVLTN/Yv6NodkMFxNet0aSEXdP1ks7hpNgrWD0r8mD1KR
S7Sy3SI0CYQhWeItMiriq/tISrwTYcz7klpfExWVGsVo+EnjQetW/+f4Niri
bnRt6KfGw1yDlW/0lFRkwoI1PtI4sHt2o3pdH95n4aiolcVChEtFsoREQ3w/
PaVBvgiGGM80lzrTUMKyzGPcQQGoZ+mNVWzFLndwWxQnAL1RT5UHh4a4kruV
9RQB2FzrrIsOpiHZwxazN1aRwLd8m/I4iYZ0xcErOVGHYWD+GGnvA9wfGXPI
yYEP01GMiak6GlIwPTzOXD8A9L9FH2TNNNS9ZLC1cCAclmfONNx5hXMubVtT
2H4II5PSiVM0VJnW+OJ4Yij0TSygFzPoiHBShxytwwOHuhTX14iOUOZRma1f
MJzIGJYYbKIjhZe3XfKVILC2aNRO/BXXuy7q7+MEgoAjUvMV0VGC8W+XutID
oN5EBbIkOqr8R251nO0P8/o94uskeN4HofNFIz+4l2Q5uSoXe+2KgtAaXyCU
doxQ7uP6zlvFRhwvYMc4rd5Qg+dFS4USFgcKnEsPCpvwvkK5sAo8wflVysA7
Jc4JtIKK9WxII9v3VnzDeUDRYZnhVlC255uPaOogwtfBvRX+W2BFHp23lK6D
76WYcbm6CZ7Zq3pOL8KmvA39EOkMc3mnug4AtqeOQ/RZBCHWaoaFLNw/b5lv
pJQJdybDfJTu2N+ek9KnfoYdmU7tLlxsafZ7gZU9lPiV6ov3YLtPhzzts4Vp
i4XsMj62elZUTf0qUDwYbjZNxPY/l8AoWg5DkgCaz3Fsz3AvI+JScPRq3HIi
A3tsbK0o3xzkpvaSmmxsQVKBSmAGqv78RxN52Ke92N+OmoD9Hbq2zSVsbkvj
HcUCSE0WbQy5jv3J7NPmK3PhpZsq+Vw5tksuf3KVHlgZsqtbq2dzBxPGbirE
vq8gkBtnPc6l+mtCc6kloFbsbhsIU0wzjWNPxQm6ZudzTHXFI0w+S+1+yVts
k89nTt/rZVbr7Z9404edkN22kNzJ1H/dwZg/Mus91NScKqa/W1Wj5Tg24eat
H7P+ZP4PepBuVA==
        "]], 
       LineBox[{{4.003826530612245, 0.}, {4.006217867958188, 0.}, {
        4.010227579857581, 0.}, {4.018247003656368, 0.}, {4.034285851253941, 
        0.}, {4.03822248292159, 0.}, {4.042159114589239, 0.}, {
        4.050032377924537, 0.}, {4.065778904595133, 0.}, {4.097271957936325, 
        0.}, {4.160258064618709, 0.}, {4.286230277983478, 0.}, {
        4.41038703176085, 0.}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQfUR9/2ahNYIODFCwz2XH3m1SwnD+39x4szA+ETif
kf3STO2/CL6ZR9EhLwYxOP/XnTUvRD8h+C45Jyb4fkPwe38/tmj9heArSEl3
fmESh/Pdwzs1Lwsj+FMupmZNMEXw9Y7JveGqRPArQq2mONUi+AefhNpUNSL4
Icy9PS87Efxqh986J2Yh+Cd2Xc9t3YPgC3l9Ft17AMGPucm378sRBP/9d1e+
lLMIvpjplnVO9xD8hCPnw6oeIfgrg1//2/gMwbcpUvJXfI/gtzHafY/4jOBf
mBA5f8J3BF9KodT9xG8EP3n9hPf//yP4APX5Yv8=
        "]]},
      Annotation[#, "Charting`Private`Tag$2564#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJw12nc0V2/8AHDZe3xmVBSFlBKa6P0URYrKXskIhUgk4ZuZvUJ2ImVEFMl2
HyPZ+VhFkt1QlFXR+H1+5/x+/9x7Xufec+9z7/Mezz3nbrFx1bNjZWFhOcvc
/O/etiRu/t8/Ou56dtc3FrECZU1MWuU3HQubCzx28mCF5uMPLTx/0vEhbuH5
3nxWkB6tavvyjXm82X6DFpkNPvNP5gyN07HQ0ZW5xTk2uOK416SsiY4DUt5+
im/kgC3PiZg5go7l3hrat//jgN512i+219Lx0VPPVB6ocYJyqqVi1jM6rvJN
O3ishhN+vAzlj35Ix0lL5ccu1XPBzW3D2D6UjjfpZDYXTvPAbrcLP7KD6Jij
8u9QpzwvjNXOyb/zo+P/ztRTCz154agBW7q+Fx0b1ioeyuXlA46gndfQJTq+
aRFR3K7CD1FjN7eLnaTjM/hf5rVmQUhLl4rvEqRjsdZI14bDJHikkJpdwct8
vmTD9EYPElS/EHyazUnHH5QKJk0LSTA8/+vVtb80/Ilu9eaMGBnENHoExOdo
2Geg9GbkPzKkf/ENd+mi4f0VrpKpH6lQFLCQYtJGw+Ifx3SqZGlQS7uYf/QF
DctHvbkRfokGI0j/Ja2Ohm2t/XrRVxpsvLOdgyii4euCv23U/tAhQ23QXyiK
hn+otfnwHhGDot6Tcb9CafjfL8lNHNFiUOvQcG8yiIb7hgoyu4bEYOR2UX2F
Dw2r/+LX67m2ATbNBP4+70TDKp+rPg5UbITMmN1eT7RpeDS/KK/WTgLuvQ9z
PctDw3qsHGcu1kqCFR/3K38OGr566XH6u6+SILk/dNeTdTQcMabZ1CkhBbkx
t74KrlLx3fLKHxtvSUGxWqBT52cqpimde5RjuBVq030cNDupWAXzq2gKScPN
l6stnq1UvNMu3nVMSxrQ4g3p3GYq1t60s4MjSBqatb2m2euouE5q+8ivn9LQ
8cvDtvExFe8LWJZ/NCsDw8Yu59Viqfj4wBMO7a/bISPoa71zJBX3uz9OVlOQ
A8sSZ/GMUCouHY7k6HWXgwlOp3erflT8U2z698RvOfhU7mBeeYWKefZfL+ik
7YSfZGtjJT0qDlcwC2V12gW0Hv3T26lUTPl4q3/g1R4Q7ZZ57SRCxaGc5fQv
a3tgY+eaZbEAFes080Y4yCrCltYcFyVOKp7f66F9O1ARduLFaLUfFHyxMqXs
pYoSHH2S0Hl2iILnyCK8AY3KcKzYwSBxgIIpFeH3ziwrg1aRysggg4K9K6l6
CbJ7QSd/cta8nYLp/Nsar8XtBZMsJT77Ggo+IDlJbbPbB65xfSe871Iw1/vL
5wNkDsDVmDxGbSoFR1acM1m2PgAeUT6m/+5QcI3FNbYvGQfAO0zqUnAMBaeq
rsbbUQ5CiL97WIwfBQ+rNn/P5TkEGVfIL+9bU7B/5ad0fUFVaD2jr9GxjYIj
qGIhmzUQyKWQHtZuoeC/Uj89Ri8jiHrP4CjeRMGkrcM//yYjOONy5mUclYIl
uAQ5nb4ieBOpo23EQcHV5/55ct49Ah9bNM+MT5ExjKfU8girg7Yg19PeMTJm
l6yxNkLqUGTYItI8QsYL2ccdyG7qcGVKoy+3n4wDi0rUJvrU4ee6o0bOzWSs
9EVA7GumBnCrqVr8yCFjXlVj0eiTx8ExeK324z0yFr98TvJs0HHo7KjeNJxO
xnf2TCwn1hyHOLOD72sTyFgQcZKz5DVhvdc+m8AgMi64nSkzTtcC2TKFiwK2
ZHz3cPfz3xzaoLV9m4eUJBlLTgpscTqjCxZcc1vNxMnYb52wuv4dXbgy/Xwg
ToyM++XGldqHdSE5W2v/XxIZayaPp110OA0zos6rb9jI2CfN7Wij+hkI5i3z
j5kmYbfXtA3kq2ch5aPPnhfjJCwtuqVONfUsFLVoTKy9I2FuKXbD5/gs9AUO
ql8aJOHZ0v9y04X1QHLtF6fGSxK2O6OPDz/Tg4ZZFP0rn4TjfXxEL/EZQH8b
z2GFhyScaZlq+Xq/AXzM652zzybhzTOLvzMvGIDwhQtn+lNJuIIvp1aVMACr
kVBySQQJ5z6prG3yMoS/nd2pF5xJ2MvKwCLmjxEcKrbIfbWbhCOUNNxr9Mzg
8YCwQvkOEv5jvinjfJwZbP7TXJUmQ8LYK5M1pNsMOE/Jd9lJkLBoO8fxc6fM
offTn8U1QRIeeu2y5YyuBThuu3dEdk4E/8cQT5BwtoR3p/Q7BD6L4JIlj3yz
Uks448FluDgtgrcI9sXL/LKEfU2uF+vfieDN7NJ/vcPOA6s1ijXoEsEi5Evx
JGMrSMsYH/EvEsGFJ3qTDkZag0DzHXv7fBHc6qrzeGuZNfjPnvh28oEIZp+2
UrR+aw32h0rZ6BkieHq/U1PPThtQfBMo9zhSBNvHGLSl9tlAO3mr15CjCO7J
jpYz2HMBViPsyYrbRTD6ucM4dY8DFAe7vpDbJoIdpwaspm0dwOam13WpLSLY
oOZySHySA7S7RbyliIpgzfEj2aQ/DpBmUpzzg1sEb6hYn1PTfREOSq8o1X0U
xmNpxS/hliN4Ndwy0MoXxqz9npVP1F1gZ00M55EHwtgnU7/NJsgFxp4lVx7M
EsYZ70x1I5tcQCu/YOOOFGH85cHtxKPHXIEe2zUlECaMAwtIu3bLXIHnFtRr
fQ7C+KHUzPQPFTdY/vHgjqWMMBaToK2bSXIHs7CK5AwpYbyClf7K17oDXt+e
OiwhjDkuNcg+G3eHqIPzd43WC+OWIEczX3kPkPQ5mKvLI4wtBjpjOFo9IOt3
+uX/BoXwp5cDSpo8nmDMM1eiZimEOyO+H/hR7wWScuRnVUZCeONIoVfJFy+Y
0z5Qufe0EE6QbN74VOwGBEcFYnkkhD9SVAXir9+AUiE6Y5OkEC52P/W3X9kb
BGlo4c+0IJ6xNkgoq/OBZsl45frLgvjpvFBSCJ8f6A5Gf062E8RXT+uuG9X0
gzfh4Vlu5wTx18YGs7RgP/jyzZ9/m44glpL2mVX/5wdkwnUqcqcgrlMTi3vm
6w825jqJprMCeGC/1VqlfwCwJHIvLV0UwOUXt89tLg2CCE32R91WAtido65a
4nUQc73z73y+iQC+dH7moenvIJC1+dFhriWAH+9v+OmnGQynFWZyGmUE8F9f
Db/MsWDI7GzSj5vhx40hbvy24iGgwuFXtuMCP76+ZCxFag8D2ZlonjgLfjw8
XP+PfSkMaC8zzi8Z8GPh9gpfJfFw+BZWzVd3jB/HXIzS03APh1z+FVtdGX78
fkVBW3VzBJAolylun/mw2AHxlNpbkfBR0vza8yt8+GVHs3utfwwMsjl2iF3i
w38N5uQzS2Ogacpri581H7bgkA9smoqBzNykLk09PizXXPp76EQs6Mv1bhtS
4sMicjmFmXxxUL/nxODaCi++MlRsFvk+DhLR/v1H/uPFPMqg53o/Htha5t91
XOPFYJB8X4OIh6sn84ONXHgxutxw7vBIPJw1Eu11Os+LbzU8jLtHSwBB5zXn
pCO8uOCljc7G6AQISybuz3LwYlrF4DGxgETwndMUTIrhweERdSMsIUkw685S
vjmUB/uU7Q+7l5cEZr8qzQv9eLD9EXMf+7YkOMguV4Cv8OCBAJ6yywLJsCLK
rzGrx4NVPXSIC8nJcOVYzw1E58FDux9+FipLAdsMk+nP97jxs8dafvK86RD3
7INaXzI3Zt+R9v28cjrUd3om1cRyY/XXC6otlukg9idRM8qPG6tqdy3uepYO
PecYBfLnufFevbZvHtYZcFhC2+WKODeW3zqhu/jiLojeV/mxnMGFPS72PBk2
z4Lj1e2nRxO58Anl57kGHlng0Wua3xLFhS0D9jR/jsqCHlYv02RfLrzwn0KV
U30WhNg+qzlgwYWNPx+wbJTMhqWt8v4+G7gwu7vpl55v2fAqT5xnXRonJh/t
vD1+PwesvuJ1HvGc+MNM7O+NdTmwoGi7OhPBiR3dx9Kvvs4BSn3ebKcPJzb9
OfjQmf8BmPQrdKec48RGQj6Sd68/gAkW9QSFLZzYRqzN8JfeQ1gxddhklc+B
Kw5GTM5sygNx/id7iOfs2B0fMAnnLASXKdmR2GJ27C1z5I2dXCHU12aHWOWy
4zO+D3JsdQvh3OWEt+uS2DHfo8K9TUmFkNHteUvjGjuetTb+StpeBKK31Yba
lNixi2b6yV/6j4FC6/Dvf8KGS2oHZf40lgDv5plXnx6xYmeFI218QaUwksHd
MXafFe9Q22j6IqUUHovuaHmdxorPRjmsxRSXwhnyldoXEaxYO87OUW+4FJI4
V/OzHVlx4j+326mKZSD5VSDQVI4V8868zN42UwYq1XuV2wrW4T+sfxvIpuXg
bHArJT+fBfc+n7w54lwJVk3vO8Tj/xBK368OVtfXg6Ta37MvAn4RU4KbJhmb
m6DgYtl4zfNlgs90r1Ffaws4Lj61iEz7TvRO7HD98rgdUvd9V3GI+E6Img1t
rqxth9YbChvUvb8TASLRF252tMM2lpKhVdPvxNmqV6arH9thjL/IyFH0O+G9
Y25dsVQHGErnnjmR8o1QyunwXErugIBS5XDBnfNEgqmotZ9PJ+y6yWHKKTVL
CEyeNsuU6wax6p7kj+yzhNun/vacfd3AsZI+2D7zmajkWcvMOtoNI5cVDWIf
fSZ+0TkO+Zt1Q8S586fXK34mql+eKxsI74YPqlXH5I58IkLvJER0zXRD1pqz
ou75D4So+a1fcamvIGr/ATeFIx+Iw+VhOy4+eAXX3dmekKQ+EA9rnAT2lrwC
3dlU+dczM8S0tk9RSfMr+DPcImvlMkNUZd+YlZ5/BWbVmyWu/jdN+A+do/Js
6QHyjX6+pPRJYndgzWiDaw/8/PdLZN57kkDvtbvGPXpgNERivZbZJBFxl79h
9UYP5Cc6bl1dP0kc+H0yjR7cA4efsKhZJk0Qeik5Gr+Te+DSh50u0rfHiQPP
jDc51feAroueh9+VcUK2sOE7vakHlJeve785PU6YSbKZ1L3sgb+sTSERguNE
867/6r/39ECiuOm9ucgxQjU9VJllsgduFvJmXxZ4T9yby5t/zMGAE1WGjyU6
R4nCauuaMR4GUF5mVTEiRgmBKo0SPkEGFEzs693LPUpYjISsnKAxoF/Ulu0v
6ztilmJp5CDNALmwGruYn8PET/5Esc3HGPD6grNcyeQgwVFnwG7jy4D6d2f2
P88dJP5c0v1s4seAXKO9GnWXBolvwj2WWoEM8ND6e65jfoBQ2dg1KRzGAOGd
cbc/rPUToctXFjQTmONbLPspQekjJLTFPmrnM0DBOYVD5nUvkaKwuNz6iAHr
p31Ju9J6iacbVU3gMQNmBo/tVN3cS/iTv/FTSxkQWP36vMlOBvGotmfEtoYB
19h+RG8J7yacguUdojoZoLFM5O0W6iYSU6OPxXQzgPQhrEHtThfBNaWmFdbD
gOJ2sWXT7E6i/PVcyYV+5vVvH7aIr2onzM/ewPVvGfAsiMszC9oJ3Vu/vALe
Me93rSe2+EUbcf5B6hHV9wyQMLVpame0EkciP/1KnWCAyeYQObbPLYRF16eX
yx8ZIE06rSFypYWoOXak0eszA5bY1ltKrLwgbonI1yzOMuD2h4LbKqwvCMGF
lizGHAPai7t+uos1EUOvgjjklxiQkpVECsxqJGxHSutdlxlgH39+Z5x0I/Hl
UKrDoxUGsHl+P1+k2EDc3TobwPWLAde95WLa7tQT03/vFVn9YYDu3LfBktw6
wmF+rercX+Z4bCokkipqieBvJWt6/xgwcELjqc1QNfHcfjtdel0vFNXxrmp9
riJuD0fNsbH2QvAextHda5VEg3Xw8hDTSqKW/WsbK4hV77fRLuy9wBu9ddOE
/HNixElukzxHL7Mez9q1Hi4n1BW/vJ5k+vbH6z8SrcqIlb30zoNcvXDR4jDy
cSslJLwb2IaYRj3s4daBTwn9h1a2V7h7YdRVaq+FVglhqnMlOZSnF6KNn7TI
Oj4mpsvdHbl4e0EV1EyWIwsJkbHbNn5Mz0q3f2p4XEAIzMj7zTOdJmjsE/Mq
j9CWLieM+XrhxMokv/n3h0Shxj2pSqZ/vruSKUN+QFTvcHkkzN8LeS/+7F5S
vk9UChTrWzNt9DiiARtlEQl2y+KPmOaV250r9j2DGPgxxTfL9MVfWm1lyqmE
S5+M2FaBXmhptflyyusO4abnfsKQaakUX6GZmtvEU7HQ1JtMs77aaff3byRh
KC7Pm8V03WWrQoWQYEIz42B6FdPf18tOvhDzJpI3R57qYLqnSPy9gZ498SKY
V3yAaXbrk5vD1HVhfv6R0GumC3bdv85ffRUWBy9tYTCd6nV3uW/AHy7/1tVv
Yvrd0KWSbN0weHLF+eFjpiVV9l1yfRkLibdH6XFMK+kG3BbPSgDg7XzkyPTA
TQeXWxbJ0NNrZ6nG9PUSnZNf1qfD990fFLmZFhtTktUfyATT0juyHcznt+SO
Zn2nlQ1K+xoghOmSzSxuwjI54DrR5HWQaZaD7u/VOR7COlnW/inm+z57dkbn
+mQusDR8PhvG9P1LprWPGvKhumRlQYppjTRIFblZBCarsVnqzPm7U1rKdcyi
GOSqjxa/ZM6/+zRJRXXTEyDfsR1XZ7r5z60C17WnYH+ssHorM16+hBNW4Z9L
IT/2hE04M56otF/0nKEy8H+roTjD2Qv2u5xDBivKYeu/p7phzHiMqX6o9i33
OcRv/5rRxYzfiuPvl3iSKmBxhU7nY5r7vJ6tmkcVSDtCggsz3h/FHkAPFOpA
PXdr22tm/rA336vlUq6HOs5X5DZmfp3/yXnQaT8Bu74WKj79zYCIJ5/Xi97D
cF+hadFulQGHRatExh42wj31sXJrZv46lX15dVumCd7s3dvP87/5rbM5Rr2g
CSbyygbyFxiwEBDKm1fUDB9XnkR0zDPr6WdDNpeyFpg7dnot5xMD+oLDGyT2
voTgbwpubMz6wiJR58d4/hJUph6NmM4wwEx/62/l6lZwlX2QOcusR0K1C0tr
uB1ifU6L5jDrmVd07Ex4dzesVm5wutDBgIcyTQ9UzryCHufScOU2BvQ2rNh8
ZTD73q7lzrUWBtDWil3zHXugboz+yrWRAVd2077wuTCgdnBcaq6SAdtSpqZ6
Pfqg+BRDW/MBA1Tt/jYVlvfBD/9tDpHZDNBTXJ8TvNIHky9dp1oyGeDfedJ6
n1c/bEipIm1NZcAwS9m7VJ8BWPjy8Pn1aAbEXAoYtAp8DZRnpdxhHgwI61hX
PlX/GvRjHSx93Zj1Vz4w4eLaa8hx1nG7xBzH9e+BZ654vIHF8p5R+YsMsLoR
3O5nPwROpwpPWpkzYE94aH2m9luIiXXc4oqY/S0/OneE9B4eb70vY8Dsj928
gresTr+Hh8dE0y6uY0Crc4ztVOR7kJc3Mff80wOWKZrCnqxj4JYYMvrfcg/o
W2h1/eczBhPDLdfVpntAdeqEZvTlcfhaXRsbxOzXAkunVIrOToLZebkHZ316
QHhY0fb61Ukghf4YU/bsAQpeH3k0YRIkUwNERNx6QCxqavhN/yRsLdnn/My+
B2S3+npzmEzBd5evo3lne+CoQWGVpeU0hCkejdSS7gHPZzwHRJw+wHjWGWO9
O69gzKNF2TN4FlrqGVZ+bMz1UiuHWP6DWRBJbpm4udIFbzYe+zfUPAvTOhsn
PT51QU9zU5saxxcgTas+0HjVBZjSYMkR8gVe/OEUupbWBfee1YQlhn4FDt1b
PbK7u8By6clIacQ86HcY2hrrdcJclU7j9dbvcGww+PPzoHbIDc22uhC+DHet
N2XfW2qBbSuFZK/0X+B7M1nahLsJRksl6lQu/gHrJr0XiIcAw+SxsNk4FvQ+
IUXvdmUlxGiWCaxLZUEmNtsP1mRWQuuPW/G0bBZ0YdI9fTG4Eg6Z7Mg48pQF
/Ynw+xd7thLERT1LkhksiPgl5OE1WwEf0/gG1UnrkKJdNVVEsgK8M/dJZSSs
Q5KMT5n308oh82FU3akkVtT9tKrwQ3UpeMieuv/6LivKmL/M65RbCicK+UJt
HrKi1IWauN+3S2HpScQZr2es6IZLiLj2pVI4WRs2mdPLitiDGgJj15fCz95g
njVBNjQc9O/4ixtP4SzLf4YFoWxIhRpw+MPxJ8Bufvkrxw12xLp5j+7u9UWw
4aTRZqUAdhRZNigduFgIiiqgbxXOjphfGmYr3YVgtUGkqjqVHfncIGqOhhRC
3dtnwa7V7KjE9EeD48oj8LT4vWFojR1NPG/ftDBSAJ/ORWoX3eRAF9l2Bec1
5gGLrsd/QyEcaElruJF+Pw/WHz73hDOWA2m1vDHND8iD4+K7adb3ONBnsaP2
ckfy4P5o7zgVc6B0QcWXTxpyweK82A2/dZxI8f3Eo9rWh9BtVZCnF8yJatfx
gfdcDgRK+R1ajuREr2fGAhr7cmDvjEFXcgIn8sx6lrqtKgcynFgWR+5zogqz
mfWqwTng5Gl82KGBEync/85esCEHuKM4Bnz+cqIeemH39dP34WiFNetDLy40
zB20O7Y9C1Zu7L+j6c+FVP6NPRYty4ICVQHZz6FcyOTgLpu69CwQbqzU2Z3M
he4sGCufuZwF7zuFUqvKuZByCO9CtkgW+E7U7e5e4EKe99b911uXCeUCYud+
OHMj7+EXZUDPgJkdx++5e3Cjy5R6pX3z6bBe++r4vA83OnZhY7rpy3TwDWm3
+xjBjez+vH8k7ZUOGv+8XYbyudGpumdJg2/ToPfbW7+aKW7UuH74sXthKsz1
3b3vZ8GDRL5ke/Q4JsPmhbapNVsetMvtOq+cVjLoCa9IeznxoB62pqaibclQ
fkq38Io3D0p6f26b/HgS+L74W2adwoOeGpqr08ySgLfi/Av1fh4kp+TV5qJ/
B6TTtnzkOsWLRFtdhi1tEyB123UvaQNeJF514tom9QTgf9rJfcyCF72bChrl
kkqAxZfXtwc686LVqTWf85PxgJe7HH9H8aI3cQcDqfbxYH7W++u3Ll6U55Fe
ecP9NsRx9y0MneZDRcdowTSzWGBLlA36acyH5P7U+H6RigVPiZtkuhUfqv8R
KCY8FwPn9m1XNrjChxJeB/JAUAzIXfC71h3Hh/w8H1KVnkbDC2LHz0YGHxo5
IiW3e0MUrHoG/ynU50ePjNj4jLaFA+9Ay1cw50cG17araK2FgZgSz2ifDT+6
21N19xojDA7OR9evuTHPt7JlC7gZBl4OyX4n4/hRSNXhZP23obBi/GjdbCc/
orEFO5TeC4GFAz0ccscF0Dmiz/bJ2WBgTSat1OkIIGuOe6cTdgUDadlg5qyh
API5dGq2gC8Y9jwdarlxQQCdicg74dYSBFe2T4a2BQqg4yVvTtkcDoI50RWe
S4QAujNwcUf6/kCYXd0gmH9AEDk8Pr3xnY4/qLaEnhpFgojE9XzMbJc/xNxe
jKCcEERTd8rJAkL+oCDbwRVgKojMPrfbb7jvB56G3uvMvAWRReyrjm/FN4Hl
yZslvlpB9O5SyTG3t75As7vz1hWEEJusoPhu3xvgoLBOLFdTCH1xa3DQOHED
KtecTUZOC6EjwaNKpbQbYB6vMaBlJYQMKtgu3Cn1gixisXtLgBBq2lL6xHnu
OuwQ02vsaxRChdrW7UvXPCHLIbR/g5QwYl85IafQ4A7cPhc7pGSEUbnEVd8d
qe5wJeZE444dwmjpoyGLi5s7QDnfExUlYbSBTvrTIukOo6xxkebqwsjYxtav
LuwqbMxMOZpuK4yOgM0DW2s3SOkveCL2QBiVjWrsabrlAiwfI/Ik84XRDvNy
I9bjLnBxzSlTrkgYtV19YF/B6QL7JXdFHXomjAoKG5z9wy/DoGupg1mzMJpu
f6fjnegMFL4a8bQpYZTmFz/iRjhC3JHOKNFtIohHUmJf3QUHOF6fozQiK4Ls
Gqq7Xux1gN+HfIYzd4ogbV/bIEkuB7ioLCe7VVkEPReKPTH4yB6QTFjTLnUR
9MPpiL3oih1849dYVbcWQafmY2ey0i/A6Tc1Di53RZBurUSRo4QNsBsmCO7J
FkFl59q4eVetoZrhWL74QAQVWB1Nn+u3BukOUbYbRSKIfYtlwa1Ia/hbdz0z
qEYEHbqqfPP9mhUU5ygNpAyJoMBvix2tjPMg6Fp4tIlKQmp2Vx82TpiD3f1k
4deiJDR41U206b451A4EjX7eREINy3pKWrbmcEnVwpskTUJ2v5bujkybQTOP
QKn1PhLKHXW+SfluCt4PXLawGDOvt+B2bEXcBBivzebJ5iR0b6VvuW/GGGT5
NOtkzpNQZFbhqkyJMQy4SZiediChb3bjabuPGIMC9MRlXiehgITLRQ8djWBm
aA+LWgoJTal6fvToNQA1AfHuMxkkZBvt5GyQbQCJiDfjQhYJLSlZH7p7xQCO
5E3sj8onoZ6g0AwHYQPI8EhwfVtJQsH7+GjtBvqgJ7Q8emOIhHhPfUwX/3YW
6jUq656LkRFxXoki/EYXbMfTVG6Jk9H+QW4qitcF7pv/VelLkpHe1k9WLDq6
oFdxtPzbdjLinKipkm/WgZntXUVyB8movyf+g3jVKRAUmkjPNCYjtsCHAr61
2lBW2Cx62ZyMog9eP3DATxtMtPKSVc6T0aw624THUW24H+Cc8MaejIqmVRad
2k/AvqWVCJInGdnzCO/aP6YFlkN83iGJZGRW6t98XVKT+f0898MghYxCDcyT
u78ch3wS45pUBhn5OCmkJFcch4WTSW44h4xOyMxgX93jEFK/+dJqKRl1pD44
7htwjDn/e01cGGQ0pth2KnVNHf5cPr/PSJCCHit1/n5ziJk1B75GipAoaPQm
5UUF6Qi0sPqMd1Ip6KxvZd6XzwhikpOi1DdR0BEB/a1GGQjEG7omFHZS0HOF
GmEaG4LDFNVYPm0KqlvdVeNDqDH7d9tUiw4FTZBITnY31ICzwPhQ4FkKopdI
hnxQUoNuNffpnyYUxP1ih/6TR6pg6fBIZcaBgvbGqQgo31MBv+r1H/EtCop6
23yLO+cgTAXnqvmGU9D2/vilb3YHQeu0csL+aArS3zTJbrX9IAhPnT5cnEhB
GoVRQ11PD0CWQGhieg4F6aXvseto3Q/Yahl5NlDQWi6Hm7PgPljH1Zu64w8F
qfQWyiV+VwTOMA/agXVU9Jd3g1EQoQi8PPQEDQ4qag2LP/s1WpGZ/xZR5wSo
SDn5jpv8TkWQFZq5GbuJivZ2U4aRyx7Qpa/aLqpR0Z0QWblXXAqgn5Ix9u8I
FbXz6NwerdoNJqJwjv84FamaeQsvXdgNNhuCjbbpUtHOpb1ayXW74JqE4Alj
SypSLDdLjPCShwwZyV01N6kopYvfN468A7Lzmx+9DKQiqYUOVu12Ocjd7iDT
H0JFebcMj9YGyEHJjqLNX2OoyD9s6ljzwnZo3L2PLHGPiuy0JhKU38nCp/3a
PwMJKiro2zCs2CsN+7SuNmqz0FAIz/OmPYpSEK7INy/CTkNf8+zP3maRgpGN
DzYMcdHQ3V2XX158JQmB3wc8HIRoyCL4pIaPiyR0px2UCRanoWjC961I6RZw
+MoSVadKQwq3pb5L626G6teplcGIhhQP7QqMktoMgo2K0yc1aGhrjljYswUJ
eJZ04fDwSRr6++COleEpCWBBrd9WzGhoqGH2DR+POKTExxoq3KAh9Sfkqabc
DTDrKxv4w5eGFluf9eJzG4C5eCuu96chIT7La1epG2BKZZFLJ4yGTIdZ7b6G
iIHCtFH1pWQa2tCYG0G9Kgpt+8UlcsppyPuikdegAx1WR4o+Uhdo6ATv1o+/
Wsig4dwap7NCQ8c/2WT4RZIhem3ywK1VGlp/8D/3x2fIsFlsQ/gSKx1lvTF9
tDpCAk3j8O19ZDqytAn4t+OPCCQy7Bzj9tKRpqO7x39mwjBqFUBqPUhHbvdt
LQlZYZD5llH9T42O7mu4OUnMC0G1YD+v63E68t/4NaRQXgjGTx4t1DGmI4m+
uyF3KwRgV4v4F94bdPQruHvx2m9e8DI8lHj0PzriM3I96V7ACw1ThqreAXTU
8+2ukbUxLxiwRUd9CqcjmYhfFzie84APWtvZmkZHKoFZHTI3uaG1+vXlW7V0
dIjz+3ztfk4gaS9S6zAd7RXcIHx/gQMshgTrl5rpaGj9eopeMQfM/zgmeKGL
jnavfNvIK8sBtL3Pio+O0pG+oGxF5lZ2sGp+ZeQ9QUeGvgIG96bZoEB/9u/T
GTqi8SzymuWxgepVydNb5umI88GpF8s72SBk3eEfJot0tJhc3t/7jZVZ7U3v
xf1gvo+r36k25awgtvmaZusaHa298UjP9maF//v/Cf3//0//A3j2TpU=
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$2564#2"]& ], {}}, {{}, {}, {}, {}}}, {}, {}},
  AspectRatio->1,
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->FrontEndValueCache[{{Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.05, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.1, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.15, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.2, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.25, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-0.05, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-0.04, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-0.03, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-0.02, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-0.01, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.01, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.02, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.03, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.04, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.06, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.07, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.08, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.09, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.11, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.12, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.13, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.14, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.16, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.17, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.18, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.19, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.21, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.22, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.23, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.24, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.26, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.27, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.28, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.29, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.3, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}, {Automatic, {{-5., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-2.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {2.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {5., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-7.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-7., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-6.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-6., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-5.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-4.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-4., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-3.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-3., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-2., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-1.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-1., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-0.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {5.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {6., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {6.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {7., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {7.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}}],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-6, 6}, {0., 0.2820947316174615}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7987942040544863`*^9, 3.7987942511908092`*^9}, 
   3.798794281607254*^9, 3.7987943160750523`*^9, {3.798794415523993*^9, 
   3.798794432533453*^9}, {3.7987945030560226`*^9, 3.79879451703244*^9}, 
   3.79879454784879*^9, {3.798794583720263*^9, 3.798794591096019*^9}, {
   3.798794642839813*^9, 3.798794672717432*^9}, {3.798949446148425*^9, 
   3.798949453030553*^9}, {3.79894955583095*^9, 3.7989495684475307`*^9}, 
   3.801352874066107*^9},ExpressionUUID->"0c8259ad-bcc2-4acc-9173-\
3d069e75efec"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    FractionBox["1", 
     RowBox[{" ", 
      RowBox[{"dr", " ", 
       SuperscriptBox["\[Pi]", 
        RowBox[{"1", "/", "2"}]]}]}]], 
    RowBox[{"Exp", "[", 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["r", "2"], 
       SuperscriptBox["dr", "2"]]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", 
     RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Integrate", "[", 
  RowBox[{
   FractionBox[
    RowBox[{"p4", "[", "r", "]"}], "dr"], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", 
     RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7987942599756193`*^9, 3.798794343444854*^9}, {
  3.798794555812265*^9, 3.798794577681566*^9}, {3.798949466304927*^9, 
  3.798949468798851*^9}, {3.798949574570161*^9, 
  3.7989495783738327`*^9}},ExpressionUUID->"5c005e52-60e0-49a3-a45e-\
3f3fc506deea"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.7987942759319057`*^9, 3.798794310760825*^9}, 
   3.798794344904408*^9, {3.798794537467915*^9, 3.798794578085578*^9}, {
   3.7989494595978403`*^9, 3.798949470050269*^9}, 
   3.798949579396451*^9},ExpressionUUID->"ff5dc724-d7bf-4bb1-843f-\
c0340553b452"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.7987942759319057`*^9, 3.798794310760825*^9}, 
   3.798794344904408*^9, {3.798794537467915*^9, 3.798794578085578*^9}, {
   3.7989494595978403`*^9, 3.798949470050269*^9}, 
   3.798949580587111*^9},ExpressionUUID->"9605c9c3-0954-4436-b15a-\
6ce4f95fc655"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{
    RowBox[{"T", "=", "295"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"kb", "=", 
     RowBox[{"1.38065", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "16"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"diff", "=", 
     RowBox[{"0.5", 
      RowBox[{"(", 
       RowBox[{"1.17", "+", "1.33"}], ")"}], "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "5"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"diffA", "=", 
     RowBox[{
      RowBox[{"(", "1.17", ")"}], "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "5"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"diffB", "=", 
     RowBox[{
      RowBox[{"(", "1.33", ")"}], "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "5"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Mu]", "=", "0.01"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Q", "=", 
     RowBox[{"1.6", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "19"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eps", " ", "=", " ", 
     RowBox[{"692.96", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "21"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"aReal", "=", 
    FractionBox[
     RowBox[{"kb", " ", "T"}], 
     RowBox[{"diff", " ", "\[Mu]", " ", "6", " ", "\[Pi]"}]]}], 
   "\[IndentingNewLine]", 
   RowBox[{"aA", "=", 
    FractionBox[
     RowBox[{"kb", " ", "T"}], 
     RowBox[{"diffA", " ", "\[Mu]", " ", "6", " ", "\[Pi]"}]]}], 
   "\[IndentingNewLine]", 
   RowBox[{"aB", "=", 
    FractionBox[
     RowBox[{"kb", " ", "T"}], 
     RowBox[{"diffB", " ", "\[Mu]", " ", "6", " ", "\[Pi]"}]]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   FractionBox[
    RowBox[{"aA", "+", "aB"}], "2"], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{
  3.79538415571198*^9, {3.795388784602652*^9, 3.795388800606971*^9}, 
   3.7953897281657143`*^9, {3.795437361402136*^9, 3.79543737518946*^9}, 
   3.7954380146321573`*^9, {3.7954380602079782`*^9, 3.79543806042971*^9}, {
   3.795438135476789*^9, 3.795438171585094*^9}, {3.796063083196093*^9, 
   3.79606311172191*^9}, {3.7960633280507307`*^9, 3.796063349257904*^9}, {
   3.796063653452293*^9, 3.796063730170923*^9}, {3.796063919046013*^9, 
   3.796063927923332*^9}, {3.796064021284326*^9, 3.796064022860244*^9}, {
   3.796410090133016*^9, 3.7964100924155607`*^9}, 
   3.796576286091007*^9},ExpressionUUID->"0e701e1f-b650-4cf2-9da2-\
bc2cd367ade2"],

Cell[BoxData["1.728599874481292`*^-8"], "Output",
 CellChangeTimes->{{3.7960633286804743`*^9, 3.796063360600849*^9}, {
   3.796063722902204*^9, 3.796063730705326*^9}, 3.796064023669671*^9, 
   3.796065364444826*^9, 3.796066388422565*^9, {3.7964100724958878`*^9, 
   3.796410093733893*^9}, 3.7965760942779512`*^9, 3.796576293221582*^9, 
   3.796576383143303*^9, 3.7965769175398617`*^9, 3.7969342127710323`*^9, 
   3.797088908324885*^9, {3.797871897577567*^9, 3.7978719018535357`*^9}, {
   3.797890795907641*^9, 3.797890816209332*^9}, 3.799880095308782*^9, 
   3.801352930254127*^9},ExpressionUUID->"625347a4-183c-402b-88fd-\
5aaf11fd916b"],

Cell[BoxData["1.8467947376936884`*^-8"], "Output",
 CellChangeTimes->{{3.7960633286804743`*^9, 3.796063360600849*^9}, {
   3.796063722902204*^9, 3.796063730705326*^9}, 3.796064023669671*^9, 
   3.796065364444826*^9, 3.796066388422565*^9, {3.7964100724958878`*^9, 
   3.796410093733893*^9}, 3.7965760942779512`*^9, 3.796576293221582*^9, 
   3.796576383143303*^9, 3.7965769175398617`*^9, 3.7969342127710323`*^9, 
   3.797088908324885*^9, {3.797871897577567*^9, 3.7978719018535357`*^9}, {
   3.797890795907641*^9, 3.797890816209332*^9}, 3.799880095308782*^9, 
   3.8013529302574167`*^9},ExpressionUUID->"7471c47c-d131-48e9-ab7c-\
62c870ad4be1"],

Cell[BoxData["1.6246239421816656`*^-8"], "Output",
 CellChangeTimes->{{3.7960633286804743`*^9, 3.796063360600849*^9}, {
   3.796063722902204*^9, 3.796063730705326*^9}, 3.796064023669671*^9, 
   3.796065364444826*^9, 3.796066388422565*^9, {3.7964100724958878`*^9, 
   3.796410093733893*^9}, 3.7965760942779512`*^9, 3.796576293221582*^9, 
   3.796576383143303*^9, 3.7965769175398617`*^9, 3.7969342127710323`*^9, 
   3.797088908324885*^9, {3.797871897577567*^9, 3.7978719018535357`*^9}, {
   3.797890795907641*^9, 3.797890816209332*^9}, 3.799880095308782*^9, 
   3.801352930259882*^9},ExpressionUUID->"acd931fc-06a1-42b7-a579-\
7d248676d6d2"],

Cell[BoxData["1.735709339937677`*^-8"], "Output",
 CellChangeTimes->{{3.7960633286804743`*^9, 3.796063360600849*^9}, {
   3.796063722902204*^9, 3.796063730705326*^9}, 3.796064023669671*^9, 
   3.796065364444826*^9, 3.796066388422565*^9, {3.7964100724958878`*^9, 
   3.796410093733893*^9}, 3.7965760942779512`*^9, 3.796576293221582*^9, 
   3.796576383143303*^9, 3.7965769175398617`*^9, 3.7969342127710323`*^9, 
   3.797088908324885*^9, {3.797871897577567*^9, 3.7978719018535357`*^9}, {
   3.797890795907641*^9, 3.797890816209332*^9}, 3.799880095308782*^9, 
   3.801352930261877*^9},ExpressionUUID->"58903770-2851-4aae-98e2-\
0df823a24780"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"n", "=", 
  RowBox[{"4", "*", "5", "*", "2", "*", "6.02", "*", 
   SuperscriptBox["10", "19"]}]}], "\[IndentingNewLine]", 
 RowBox[{"radsA", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "/", 
     SuperscriptBox["n", 
      RowBox[{"1", "/", "3"}]]}], ")"}], "/", 
   "aReal"}]}], "\[IndentingNewLine]", 
 RowBox[{"radsB", "=", 
  RowBox[{"0.55", "*", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "/", 
      SuperscriptBox["n", 
       RowBox[{"1", "/", "3"}]]}], ")"}], "/", 
    "aReal"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"radsR", "=", 
  RowBox[{"4.326863", "*", 
   RowBox[{
    SuperscriptBox["10", 
     RowBox[{"-", "8"}]], "/", "aReal"}]}]}]}], "Input",
 CellChangeTimes->{{3.797094732110124*^9, 3.797094759247343*^9}, 
   3.797095028232499*^9, {3.797890880553698*^9, 3.797890898574484*^9}, {
   3.797890929967988*^9, 3.797890979213417*^9}, {3.797891157511507*^9, 
   3.79789119099641*^9}, 3.797891252848414*^9, {3.798060277574418*^9, 
   3.798060286547682*^9}, {3.798060342405575*^9, 
   3.7980603534216843`*^9}},ExpressionUUID->"819b1f63-68e9-43c2-9845-\
39bcb477d7c2"],

Cell[BoxData["2.4079999999999995`*^21"], "Output",
 CellChangeTimes->{{3.7970947387930307`*^9, 3.7970947596292973`*^9}, {
   3.7970950003654947`*^9, 3.797095029255348*^9}, 3.797871898894506*^9, {
   3.797890875049591*^9, 3.797890900870949*^9}, {3.7978909312307043`*^9, 
   3.797890979817583*^9}, {3.7978911580241537`*^9, 3.7978911920650043`*^9}, 
   3.797891253409403*^9, {3.798060279673319*^9, 3.7980602871415577`*^9}, 
   3.798060358060556*^9, 
   3.8013529339804773`*^9},ExpressionUUID->"09b5373e-2ba2-428a-ad52-\
4bda0c98444b"],

Cell[BoxData["4.3160522673318304`"], "Output",
 CellChangeTimes->{{3.7970947387930307`*^9, 3.7970947596292973`*^9}, {
   3.7970950003654947`*^9, 3.797095029255348*^9}, 3.797871898894506*^9, {
   3.797890875049591*^9, 3.797890900870949*^9}, {3.7978909312307043`*^9, 
   3.797890979817583*^9}, {3.7978911580241537`*^9, 3.7978911920650043`*^9}, 
   3.797891253409403*^9, {3.798060279673319*^9, 3.7980602871415577`*^9}, 
   3.798060358060556*^9, 
   3.801352933983419*^9},ExpressionUUID->"6bbc4860-c0a0-4a72-8681-\
7908c27e7663"],

Cell[BoxData["2.373828747032507`"], "Output",
 CellChangeTimes->{{3.7970947387930307`*^9, 3.7970947596292973`*^9}, {
   3.7970950003654947`*^9, 3.797095029255348*^9}, 3.797871898894506*^9, {
   3.797890875049591*^9, 3.797890900870949*^9}, {3.7978909312307043`*^9, 
   3.797890979817583*^9}, {3.7978911580241537`*^9, 3.7978911920650043`*^9}, 
   3.797891253409403*^9, {3.798060279673319*^9, 3.7980602871415577`*^9}, 
   3.798060358060556*^9, 
   3.8013529339859467`*^9},ExpressionUUID->"1e24d1c4-fe99-4937-8732-\
3b8e2908516e"],

Cell[BoxData["2.503102692459919`"], "Output",
 CellChangeTimes->{{3.7970947387930307`*^9, 3.7970947596292973`*^9}, {
   3.7970950003654947`*^9, 3.797095029255348*^9}, 3.797871898894506*^9, {
   3.797890875049591*^9, 3.797890900870949*^9}, {3.7978909312307043`*^9, 
   3.797890979817583*^9}, {3.7978911580241537`*^9, 3.7978911920650043`*^9}, 
   3.797891253409403*^9, {3.798060279673319*^9, 3.7980602871415577`*^9}, 
   3.798060358060556*^9, 
   3.8013529339884033`*^9},ExpressionUUID->"87d67356-b6c1-437f-9f9b-\
c9b8e96fc332"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"velRPY", "[", 
      RowBox[{"r_", ",", "a_", ",", "sep_"}], "]"}], ":=", " ", 
     RowBox[{
      RowBox[{"RPY", "[", 
       RowBox[{"r", ",", "a"}], "]"}], ".", 
      RowBox[{"(", 
       RowBox[{"coulomb", "[", "sep", "]"}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"velDry", "[", 
      RowBox[{"r_", ",", "a_", ",", "sep_"}], "]"}], ":=", " ", 
     RowBox[{
      RowBox[{"dryTensor", "[", 
       RowBox[{"r", ",", "a"}], "]"}], ".", 
      RowBox[{"coulomb", "[", "sep", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"velRPYscreened", "[", 
      RowBox[{"r_", ",", "a_", ",", "sep_"}], "]"}], ":=", " ", 
     RowBox[{
      RowBox[{"RPY", "[", 
       RowBox[{"r", ",", "a"}], "]"}], ".", 
      RowBox[{"(", 
       RowBox[{"coulombScreened", "[", "sep", "]"}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"velDryscreened", "[", 
      RowBox[{"r_", ",", "a_", ",", "sep_"}], "]"}], ":=", " ", 
     RowBox[{
      RowBox[{"dryTensor", "[", 
       RowBox[{"r", ",", "a"}], "]"}], ".", 
      RowBox[{"coulombScreened", "[", "sep", "]"}]}]}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.794848441148621*^9, 3.794848456722743*^9}, {
   3.795295892695034*^9, 3.7952958950765753`*^9}, {3.7953767761770477`*^9, 
   3.7953767807324038`*^9}, {3.7953827477401533`*^9, 3.795382750113657*^9}, {
   3.7953833123338013`*^9, 3.7953833150149307`*^9}, {3.795385145116187*^9, 
   3.7953851489941597`*^9}, {3.795387886107868*^9, 3.795387888607957*^9}, {
   3.795388111204349*^9, 3.795388153614376*^9}, {3.795388362870789*^9, 
   3.79538844639364*^9}, {3.79538848301091*^9, 3.7953884834250603`*^9}, {
   3.7953885646138973`*^9, 3.795388628799958*^9}, {3.79538867197752*^9, 
   3.795388688497711*^9}, {3.795388787886121*^9, 3.795388850756897*^9}, {
   3.795389606501566*^9, 3.795389612791342*^9}, {3.7953897842700577`*^9, 
   3.795389799239963*^9}, {3.795390114051002*^9, 3.795390189017824*^9}, {
   3.79543730082937*^9, 3.7954373014655743`*^9}, {3.795437334289097*^9, 
   3.795437420701749*^9}, 3.795437479127981*^9, {3.795438086909837*^9, 
   3.795438089795002*^9}, {3.795438491942518*^9, 3.795438507804068*^9}, {
   3.7954394727721233`*^9, 3.7954394770693407`*^9}, {3.795439525508762*^9, 
   3.795439527621703*^9}, 3.79543968527246*^9, {3.7954397381050587`*^9, 
   3.795439773950906*^9}, 3.795440316994691*^9, {3.7954408031731586`*^9, 
   3.795440810383215*^9}, 3.795440853296349*^9, {3.795440939190022*^9, 
   3.795440958611107*^9}, {3.7954410704813757`*^9, 3.7954410746280603`*^9}, {
   3.795443873436181*^9, 3.7954438837886868`*^9}, 3.795450248170415*^9, {
   3.7954508425052567`*^9, 3.795450851978662*^9}, 3.79545121763796*^9, {
   3.795454307537341*^9, 3.795454372799798*^9}, {3.795454477824563*^9, 
   3.7954544862550592`*^9}, {3.795455217063743*^9, 3.7954552448755627`*^9}, {
   3.7960619514210453`*^9, 3.7960620010369043`*^9}, {3.7960623654474087`*^9, 
   3.7960623694378147`*^9}, {3.796062425094118*^9, 3.7960624494394693`*^9}, {
   3.796063369707773*^9, 3.7960633769056683`*^9}, {3.7965766466335583`*^9, 
   3.796576647052322*^9}, {3.7965768723441668`*^9, 3.7965768776248198`*^9}, {
   3.796576923537752*^9, 
   3.79657692737043*^9}},ExpressionUUID->"01f04770-911b-4a17-a36f-\
5a4cb4e1cc5e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pa", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"velRPY", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}], ",", "aReal", ",", 
           RowBox[{
            RowBox[{"-", "aReal"}], 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "+", 
        RowBox[{
         RowBox[{"velDry", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", "aReal", ",", 
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"velRPY", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}], ",", 
           RowBox[{"1.3333", "aReal"}], ",", 
           RowBox[{
            RowBox[{"-", "aReal"}], 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "+", 
        RowBox[{
         RowBox[{"velDry", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", "aReal", ",", 
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"velRPY", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}], ",", 
           RowBox[{"2", "aReal"}], ",", 
           RowBox[{
            RowBox[{"-", "aReal"}], 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "+", 
        RowBox[{
         RowBox[{"velDry", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", "aReal", ",", 
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"velRPY", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}], ",", 
           RowBox[{"4", "aReal"}], ",", 
           RowBox[{
            RowBox[{"-", "aReal"}], 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "+", 
        RowBox[{
         RowBox[{"velDry", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", "aReal", ",", 
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"velDry", "[", 
         RowBox[{
          RowBox[{"aReal", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", "aReal", ",", 
          RowBox[{"aReal", 
           RowBox[{"{", 
            RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "\[IndentingNewLine]", ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "2.2", ",", "12"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pb1", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6.25", ",", "45"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6.25", ",", "85"}], "}"}]}], "}"}], "]"}], ",", "Dashed", 
      ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6.44", ",", "45"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6.44", ",", "85"}], "}"}]}], "}"}], "]"}], ",", "Dotted", 
      ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11.72", ",", "15"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"11.72", ",", "28"}], "}"}]}], "}"}], "]"}]}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pb2", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3.70", ",", "110"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3.70", ",", "245"}], "}"}]}], "}"}], "]"}], ",", "Dashed", 
      ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3.77", ",", "110"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3.77", ",", "245"}], "}"}]}], "}"}], "]"}], ",", "Dotted", 
      ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6.85", ",", "45"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6.85", ",", "80"}], "}"}]}], "}"}], "]"}]}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pb3", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2.5", ",", "110"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2.5", ",", "245"}], "}"}]}], "}"}], "]"}], ",", "Dashed", 
      ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2.3738", ",", "110"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2.3738", ",", "245"}], "}"}]}], "}"}], "]"}], ",", 
      "Dotted", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"4.3160", ",", "45"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4.3160", ",", "80"}], "}"}]}], "}"}], "]"}]}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"pa", ",", "pb1", ",", "pb3", ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7953893524843817`*^9, 3.795389357291842*^9}, {
   3.795390133765318*^9, 3.795390177487155*^9}, {3.795437431474225*^9, 
   3.795437442425853*^9}, {3.795438513349991*^9, 3.795438519528339*^9}, {
   3.7954392090792913`*^9, 3.795439210554183*^9}, {3.795439256539714*^9, 
   3.795439273245492*^9}, 3.795439674068614*^9, {3.795439788760703*^9, 
   3.795439807491435*^9}, {3.795439852000246*^9, 3.795439949031052*^9}, 
   3.7954399811236753`*^9, {3.79544008053447*^9, 3.795440113616047*^9}, {
   3.795440161780863*^9, 3.795440164979995*^9}, {3.795440252657115*^9, 
   3.795440261784911*^9}, {3.795440321586961*^9, 3.795440375196109*^9}, {
   3.7954404125794907`*^9, 3.795440413809696*^9}, 3.795440661640305*^9, {
   3.795441080950034*^9, 3.7954411578874483`*^9}, {3.7954501207038937`*^9, 
   3.795450134468205*^9}, {3.795450193444499*^9, 3.795450239667584*^9}, {
   3.795450439034914*^9, 3.795450446700489*^9}, {3.79545117902667*^9, 
   3.795451210820252*^9}, {3.795454385108265*^9, 3.795454414160511*^9}, {
   3.7954544976284723`*^9, 3.79545450160919*^9}, {3.7954547456196823`*^9, 
   3.795454820802327*^9}, {3.7954548662967663`*^9, 3.795454905142264*^9}, 
   3.795455134680066*^9, {3.7954553055131607`*^9, 3.795455318699383*^9}, {
   3.795455388466579*^9, 3.7954554474573812`*^9}, {3.7954556737589827`*^9, 
   3.7954557005093718`*^9}, {3.795455747420092*^9, 3.79545575154034*^9}, {
   3.7954560806431217`*^9, 3.795456120568675*^9}, {3.795466184461595*^9, 
   3.795466208736793*^9}, {3.795466306733971*^9, 3.795466339721538*^9}, {
   3.7954664043834343`*^9, 3.7954664145147753`*^9}, 3.795466451394512*^9, {
   3.795466502746365*^9, 3.7954665032717037`*^9}, {3.795466573421382*^9, 
   3.7954666810707893`*^9}, {3.7954669009333773`*^9, 3.795466907287138*^9}, {
   3.795467991332572*^9, 3.795468024559434*^9}, {3.7954857319501123`*^9, 
   3.795485732258526*^9}, {3.795485922363469*^9, 3.7954859457007093`*^9}, {
   3.795486482493431*^9, 3.7954864889640503`*^9}, {3.7957263615108023`*^9, 
   3.795726367742127*^9}, {3.795726398606073*^9, 3.7957264103980427`*^9}, 
   3.7960623847995787`*^9, {3.796062465054949*^9, 3.796062465750271*^9}, {
   3.796063414516108*^9, 3.796063481740735*^9}, {3.79607887358479*^9, 
   3.7960789084878283`*^9}, {3.7961697272738543`*^9, 3.796169729710219*^9}, {
   3.796576885906855*^9, 3.796576912650737*^9}, 3.796582074619267*^9, {
   3.797094782471747*^9, 3.7970948043174267`*^9}, {3.79709490273457*^9, 
   3.797094969372161*^9}, {3.797095044816072*^9, 3.7970952058521442`*^9}, 
   3.797095244456073*^9, {3.797095283115664*^9, 3.797095464408965*^9}, 
   3.7971199304556513`*^9, {3.797890917071165*^9, 3.797890920431819*^9}, {
   3.797890987325746*^9, 3.7978910180085297`*^9}, {3.798060383282301*^9, 
   3.798060416759038*^9}},ExpressionUUID->"d032b0ad-d8fb-4e56-8a3a-\
41d844cf3b5f"],

Cell[BoxData[
 GraphicsBox[{{{{{}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwtkHk01AkAxwfpWEeMmHGVcf2UhvXTJFd9qZlCRApFxIR2EhLVliORZNtK
djY2ZVFIBxLNpkOHpcm5E7WFTdRgI0cRZmdq9+33ve/7/Pd9n/dlhERtDJWn
UCieX/svWSf23MzJkUOYKPBygno0ihhz0h7kycGwSeNYtVI0tG7l+g5ckoPC
YtudY4rRmOipn15xQw7lh4zY7z5GodpmodMLoRwaDbUnLeujsKJX2KQl+bp3
zpf5PCIK9nbG4qxAeWzNDzqHO5Fw6u/QPmmkgGextGombzfKkiuKLzXPgny3
C73+CQ8vdeODyc2KcJoyektV5sHZY8ntqG2z8Zthxk+pZ3dCVZJOhvfNwWJJ
VOUfRWFwEAeIkk/MgzDLR3fo4Q6cUmz57EFXwkuZmUUhk4s1wdWcVXXKSB+/
wtpbGAzyQsp0AE8VNgWFn0bXbQdb9QPJHJ+P+KeJ2065BYLyX9Rgesiw9ju7
QHR1iV1ON6uh7RY1WqYegCUexQ5cvjpyOfrX2qy2YkHZljfr/agwTWYxR4/6
oew6R6/BXAPuIQNp3q990Fl/JFtvVAOw/8cs7eBm3E6aKpGvX4B7buYDxtqb
wDLjRsiyNfG7oo3AuWsjnAd1Y9oDtMB+nzsR1OIFitt8ZUcrGnwF09IHDz3h
WefVnzBJQ6daK6oEG+DV3ezn2UzHsnuJLTpD7vggXhlvm68NnHl6Tea+HouU
pD0zoToofP2sXiR2BaVp8tUGe110VFQ+NDnsgtgS0BPk9fBt/NGTNevWITU2
fs6DOj1slxsesl26Fuy/xjJ+ztFHOb191xNlDnK4Ak920EJkqLQ1C6hsXEgT
lB5lLUJJ+byqR5pr/v/PADe66TrC5auxqKndf1jBAO/ZnAKGxWoIevelzA4z
wIEDn/vucp1R6sKKC281AEXpkcEw3wmhDrpzq6wZUHgl9s/rASKLD35U4TPw
nL9PT8MeaA2eLC2TMuC26ciwiLEKMyXn5FcGG0LnbOWsixOOSFq1zViz0RCD
8kVTDY8d0BjCEb+wNMK+pwMi9i17hEtLFEoyjXC4a0L6zV07+A+YDd6fMQL1
jHm/5R1b0INb9zwONMbtGyN5Vn+uANOM/0hdaIzegV2l+iM2yAwXRfKsTSDr
8RyJodngnrVtTRnfBBXdGUv3+y7H6g132hwppuCMvL18PpOFzMmw4wKuKcIC
Ut2nepbBgv7DLyvrTAEmb1Ot4zIYpTfGqVgSKA3n1o5lWaMnlTXWkEkAHG+T
HgmJlx1ezclZBLoCJNoe0ySemUWW2vEJcJTGs2omSTQ0FoVczSZArLejZY+R
KF9AF53KI/DjfVdf334SSRenK32uEXjjuPvCsIiE/uP7cX0NBEKOD21MukJC
S6vT67yQwMiZ0auSEhJqOz8zfRoJ9PPeHDtYRGKWstW7+hYCp6Plavfnk3jv
XeBzpYNA3c39rANnSdT0ptrE9BGIpCfTMlNI3GTla5i/IzDR5hetlUzi+rG7
H3rFBDR1pWtzE0kUmE8Ub/6bQATVfO/l70lk7A2n244RSJvZUfUkikRqXcrH
0XECFq4yivduEom0X1tLPxHwqfQXdvJIxNS8SNeb+uo32N4+GkoiQuXTjvZp
AnFBFbQELomwIHWnkxICtXbCjrnBJLZXMPXXSgmo7pJR+YEktii4TslkBGIH
LBsZASS+AKa5OK0=
         "]]},
       Annotation[#, "Charting`Private`Tag$2802#1"]& ], 
      TagBox[
       {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAANYxxtJmZAUD+KPaUgMtyQKYhB4bB
nwFAuKMUvInBckAWt5xX6aUBQHxF8jSct3JA9uHH+jiyAUA+lijr3KNyQLY3
HkHYygFAODufGMx8ckA448rNFvwBQKRZdjFXMHJAOzok55NeAkBo/R4F0p1x
QEHo1hmOIwNAbV7UuR+QcECmUg54OioDQNElxYl9h3BADL1F1uYwA0DOxGtY
435wQNiRtJI/PgNAKj9SyMZtcEBuO5IL8VgDQEkMi9PrS3BAnI5N/VOOA0C/
pcvWpQlwQPg0xOAZ+QNAIVyXnS0Vb0CvgbGnpc4EQGZHaDIMQW1A4mT7z+DU
BEA9c+BLITRtQBRIRfgb2wRADvMLmkAnbUB4DtlIkucEQHKGG6edDW1AQpsA
6n4ABUAy5fdJ0NpsQNS0TyxYMgVAG+cjFQ53bEB0tRX7y04FQKaWIVAxP2xA
+oGSiw==
         "]], LineBox[CompressedData["
1:eJwtkH04FHYAx+85o5qXEnG4OC/1u8iqn27I2xc5EzkSS7i8k4Qse1qPZrlL
UivGebSljWpuFL0usbFeLtZzzrXwWAsLc3brKZQRulvbs+/zfJ/P830+/31t
E7O3pTAZDEbg2/5LFA53VMXoIp2XcV+wOhN+oY4t2XF66Dvb/KRUkAGjhWKa
NroI7Oei71gjafBUxT46fGIJ9Ditu20upOCUbvdsKEsfP3HWW/j2JWFzwvd8
H5kB+sWp/bGcRNCzornYDCPcyaqOK6mLR4DRC+r8cil07YQtB4eEYPyXZTig
aTke2SXEwIAqqFSxDOvPq27dFsfCMbTOM0lijKDJ/Z7xn++EaVP0cMiO5ZjL
ZHN1lDvQ1MhndzqZIPmiIvi21Yd40lFYxZ40QV/1mpBtDZFoKXgtZXaYotLi
hGAE28HjJmVqq1agfOhGBFOzDX5qq9zeWDNEPDXIGVWHgxG81MBrgznM+XkJ
V34NQ5gsfPzQjDl64nKO1QwJED6o2BGmYGHwaszkkGEoXqi8891rLODopEnv
2R0CG33N0/kUSwi7Zhd6tVvA6Jr5TeBhhYGJrcnXKoKwXwrWISYbwTafqSQ7
P4B4f/6i2zI2bm7FnV6PQAQMTZVUnl6Jyz+Pm0da8nE6qTksYJc1hs/5i2qs
A3C2qLn+CM8Gs628OS5n8///cTAcyfSY8fGHTVdvzHMdDmIs4877ufqjeeRj
kV4qB28KiiIe7/FDfRAvL03JgYUoONqs2hcpnlaLb7jYYs3aHCvmOJBVd/CV
ocQW29vcSuUAlAkz9U0aW6h0bAd11/pgXvoV0zvBDu0K755urRcKfOIcVsjt
8Pt95oF5uSfkiXxV/zp7RFUtudLQ5oE0jVRHWmYPJcttafvdTYj5k6tun7eH
274iX/c77mAlKPfdEzpgwkl269KgG5y5krvGDxxwc+KM0njaFWVpj7IyXFbB
96H1tQkrV7S5uLc2SVbBLkK2+YuY9+Ev+OGhF2M1UvL7daMlPJTNpB5rTnq7
tbWS5D824j3W8S+9Zath90lF1yg2wr5Ynme4jmBv9qTeL5UueCrmTXWWEZyx
iXcp0lI87gtXHC4nKBkYWz+1QNHDzarfJCEw2kOuC+coOuXfJl6sIijeyA92
n6a4bMp6dOprguVDRs2v1BQF5+euRV0iMGyqzBT3Uay815432kmgmPXaotdI
YWb2JLz6AYFgyqulsIFiWfqsc5ScIIRf2qCVUrxjsGGso5vglmWt8fw5imcR
tVENfQTS9puqmdMUrSNi19xRAouKluolRRTXeTUmTmMED0j38pMiisajP74Y
URFUNZosMjlMUev0d13kXwRXj1zItM6nKPkojeU+RaDe6cX1yKUQy0SvJl8S
OGyyK7+bTfGp+TfK+mmCZ4aO+SF7KXJb+4vZrwkCxtidu9IpMg2nk3vn3vp1
Mkd1CkXqLmPfkwsEgbPv6uclUcRfcV4ZqCGIfiNPZyRQROtsea3VEpguVvuf
EFL8A8WA7vM=
         "]]},
       Annotation[#, "Charting`Private`Tag$2802#2"]& ], 
      TagBox[
       {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwBUQOu/CFib1JlAgAAADQAAAACAAAANYxxtJmZAUAYyFDMUIR3QKYhB4bB
nwFAyG5QSE11d0AWt5xX6aUBQJwtNfpYZndA9uHH+jiyAUAe/XesnUh3QLY3
HkHYygFAxkMxDNoNd0A448rNFvwBQORgpzQNm3ZAOzok55NeAkCjNtnP1791
QKzPubi7ZAJA5k8jOZWydUAcZU+K42oCQJ6Evn1fpXVA/I96LTN3AkDAy4tV
Got1QLzl0HPSjwJAPOsDbidXdUA+kX0AEcECQFJ90Q6R8XRAQejWGY4jA0As
lTy3NS90QKZSDng6KgNAS+7V13IidEAMvUXW5jADQDzpttO8FXRA2JG0kj8+
A0CQ80gXd/xzQG47kgvxWANAnLED6oLKc0Ccjk39U44DQHqy5v/oaHNA+DTE
4Bn5A0BHutOqfq5yQK+BsaelzgRAEVTfZaBZcUDiZPvP4NQEQF74WfREUHFA
FEhF+BvbBECiFfOW8UZxQHgO2UiS5wRALw278mI0cUBCmwDqfgAFQA2MQP+k
D3FA1LRPLFgyBUBkm3htnsdwQPjn7bAKlgVAlDYIUik9cEBCTiq6b10GQLCn
cv63eW5A+cgLmItjBkCBvSVp0mpuQLBD7XWnaQZAx400iPhbbkAfObAx33UG
QNLBhbFnPm5A/CM2qU6OBkCG5X1X0ANuQLX5QZgtvwZAcwyQWsCQbUAopVl2
6yAHQJJiEcTJsmxADvyIMmfkB0D+tREfJhVrQLtLDJ0H6wdAmP0IMcoHa0Bo
m48HqPEHQMyF0uR4+mpAwTqW3Oj+B0BzsOsD9t9qQHR5o4ZqGQhAoWcJ4m2r
akDa9r3abU4IQPshk15KRGpApfHygnS4CEAin69fa31pQDznXNOBjAlA1Im2
RCILaEC1r/IHsZIJQPF+QEzZAGhALniIPOCYCUB9mI50l/ZnQCEJtKU+pQlA
xvGaDCniZ0AGKwt4+70JQMg2K6CguWdA0W65HHXvCUBRqH2c22lnQGb2FWZo
UgpAsCd2sFTPZkCPBc/4ThgLQIXJ15sIrWVARGG2Rj/FDECgkqiJ3oJjQDKe
g/pcag5AS1RMiKC1YUBFDu8yLfMPQLqsMvEVQ2BAmpmZmZn5D0CeYVubcT1g
QCDFdks=
         "]], LineBox[CompressedData["
1:eJwdjn001XcAh28uruNdbtzcK+++DJPfdb1fPohIKzdmXrbl/ToNebumDjmL
SnaaYVdepmgtNyqq1VHEjBunedsxjkmTl9yxYawYitWec57z/PsYRR8/EidH
o9Hc3/qu3HfQNSEZ09fkU5F471CdW4xYCyFF5lM7SiPAbAybOhi6Ex1t1pU3
vgtD4y1fTo+VNgobPedLpR9hvPt0OWdZG0HV/JpOhxA8zF2XyHUz0WRWe1p0
Jxg8i5jE7fJdyNzz3PZiRBC85tlpwx/rIGtt7tuzzkdAC9BQ5dvp4qfG6nBX
tgCBUsEfOWu6+ObSbF0SCYTg9/7QwH4WOKnUxfzPDmFJ5p7tXLsbWdY6CxEP
DsJAZWtyM04PfPbnB1L3BYDWt/b0sCsbEwoly8kD/siQgJUjxwHtDVu98oIf
8jOyGR1SDoJztq1TEvbDZ2KlsKxCH+Fm3Z7Knr6oiGkO9Dm6B8rhdqnX4YNL
Z5vrz/AMsKpQ0/2Mvw+0/zFEYu2kxt5wbxj0DUcs0g1RtCYZCRV4o3k6M08x
3hDjZiIZI88L9f48kXDQEFZK7TsLb3sizo2tdI9rBD5E5z03gOS6ky/VxEZg
pvMcLQTAYNRafeOWEa4KRRvE3wObkio59yhjJAs0XsjruSPX4xPTXb3GUJEo
6ibMuKE32lc2amsCufDfvh4YcoVwS0KXFJtggdE1Njvigog5i/n2TRMEpUU6
nRhyBitqMLXrU1PEZv+oEb7oBBsLcafWE1N0tPpJnOlOKBYOJR/jmsHS94Xb
YwtHtHGdWxrFZph6qjr+gdAB3odbf+HTzME2vK5Mr+GheC3+fHOMOe77nHxs
uWSP91lfVrpLzTFwzqhuwt8eJgW9IjVbAj/FPBPGZS4m83krPcUEUk3tZSaD
i7ERQf8XpQTqC7HWp+S5+NUiud5FTNA38v2ibAcXPb3Xom+UE2xXRjMevabQ
xGQNFV0mCGD+fCZphULu1Y27ITcJTMUVZbJnFPS72kUzPQQ34x6qetyjoKMz
Lqh+QuCiJfe8+Q4FzYR/bUJ6Cfb6tPG4TRTkVe1muwcI3FhKCZYNFP4KuhLS
MELQ80B9hl1LoWU63zFt5u1fWxZ79wUKP/Bqta1mCUI77ypUFVK4de7R0rSM
wH7aMUW/gMIVq9W6D/8kyLEukZrkUShMF7KcVwg0sgeTHE5QyJfmvVz+h+BN
lTikNZPCKd2awfpXBMXpJW1eGRTSWkYLOOsEJSkNKoLjFBLVXsUObxB0SvP+
Hk2kEH9Uy/Or1wR6lGpw1DEKkbdt9PdvEdyfM3aYF1IIox9Y394mWLW6VpYe
R+E/65Ggyg==
         "]]},
       Annotation[#, "Charting`Private`Tag$2802#3"]& ], 
      TagBox[
       {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwVjn80EwgAx/eD/WhuEq3JkKfe80hXSymJL1kR5kel1elKKHOEZddmqMjO
Q4hn5ubHXZ3seol2cio/UqFTplPXKSqJkLekeiI/dt3nvc/7/PuxORwXHEki
EAj+X/2/G3IS6kpKiOiryhC1uKfiog1V3lpBxHn2KcWsfSpYf5buHaskYqDj
YZA/KxVTrzq+bNIQgdxbrHW6FNQ7W3n0dhJBVzhVTKlSsOl1ZxdrjoiufJek
Q/PJ2OKycqTwexLkmX9dnNDKcLn7esPNCBIWIg8J1I0ycCIDsl5Hk6C2tXM/
fkmGubwkx/UnSKDdyfV1l8vQOPzweE8eCTzTkDvVbjK4nUshmLSSID17/n63
Jgkeo0/Mc23JCCwRteVUSXExmClxsSfD0bgnyUAhhVET78mbtWT8wi7Yn3tG
it5zdQXubmT8zOlx6g2T4tiWAsakgAx5mlmFh6UUpbn+87tyycjQl9uHFEsw
7XR3wHyGDD21OWi4+ARqTl+tqtQawLUu5pJRuxiDEbPdA48NcLnuN6bPdTHM
vHnTFn0GKOWmafMviyFhPvUuGDHA2o+uDp6FYniqCG9TCYaw0kte24eJ8bgu
YLWAa4ghPYZp+kRMj+hqFykMoQjU1FV4JsKTb38j7gAFYi7b6tobEWbuMZTZ
4RQ8WMx1LusXoXabTlwlpCBL9enU2R4RrDfXrnsppqA8/3OavFmEOduNv/Nz
KdCFrPF9qhDh2oyH0rGFgj2R6ogv3iLYVe77cXwFFWmhUu17TQKYc5nco0NU
dBa1HySWxuOmr1EZdZyKmJ1zNHJhPKJUeVT1JBXbI52WG2XFo9VF0T+6QMVx
kvluJ0k8EqUX5NHmNFyZX+HVvzsez6aansXyaeAr41enG8ejcvJDWmIDDU3S
aP2EaRxcR0Ifnc6hg8su3jFmG4trNR+oVwvo0IyNZ9mxYrFGkuk6oKSD07y1
NoEWCxt6XaVbJR0Op4aTbHQxoDgwJLNNdCgaOfSp+hj8few6RzxBR+Ng8qdo
vxgcmVp6JCp4ERDsWsxL/QF5ht3TfDYDDkFPisZnhVg4T7lBsmbg66lJ1IQQ
MXCT1a9igJFo2KQbFGKnrHrecj0DRMr9ZLNOISiT2SSdPwPz3/irtUohkvu9
jbLTGch4f8LgnbMQ0X/ctu54xwCnpbqiLDkKXmH1293bjDAkyWmnWB0Ftzz9
S2g0E85h0wJ+SwR4zAmu40djOO659YLUdxjPn4/45GsXw8w0VsNnhcGeX+Ua
XmSC9m+7mMqAgzCr2TfoJ1gCr2czF7J7Q1FzZTvnnoMp3qvv6Nen7kd/R5qS
M2mKbKuApKKzAtw4OaMmdZihbZiR01wTgg124TF65VLcPjfgOMLcA8+3FqJ/
QllIKCy3cNPsAsHX2GjrumXg3B3KHD4QjMC2oNGUz8vw72jGT3buQQh6oRUE
atlw/i5lvHdVICZG3JI3/2qOldlDi47t5cOasfBqNnI56ru8wjXVfiB0fe4L
2GKBsQWVrYrqi0Q12CkkDkLa986nlvvgTGIytbWNg1nLJh8TgTd4Lz9kKUos
0RLAn1GZ7EBJeEMg76AVeuJsNvpN81Aub7iUscEaSaJljzxfeKHrwVfmrFF2
MnwJd3wb/gPQ7yGu
         "]], LineBox[CompressedData["
1:eJwBsQJO/SFib1JlAgAAACoAAAACAAAAmpmZmZkBIED0Xy0hreNDQLjjdoMG
ZiBAbttn8S8AQ0CqSTV1Z9AgQNf8rtr5H0JAZTwbCLUzIUAm1ao/ylxBQG6n
evQNlSFACugwonypQEDQYfeqr/4hQAm1QSp45j9A+6ibAj5hIkDCOn5miKc+
QH8/XSQVzCJAjDyJjORiPUDMYkbn2C8jQDCUl4T2RTxAZ/6oA6iRI0CfsfhJ
Vj47QFvpKOq/+yNAWvMzeZ4wOkAYYdBxxF4kQAqj/877QjlALSiVwxHKJEA2
CLyfqU84QJFn025qMyVA0dY2bxNuN0C+Mzm7r5UlQKfQFJqopjZAQ0+80T0A
JkBu37WNmNk1QJH3Zom4YyZA9upRqusjNUAuGIuaPsUmQAry/vFcejRAI4jM
dQ0vJ0DAgAGwWMszQOGENfLIkSdA1joSIOQvM0Da1lHOgZMnQNMtB3Y+LTNA
1ChuqjqVJ0DrBHFZmSozQMjMpmKsmCdAXdYDyFAlM0CwFBjTj58nQERnzD/G
GjNAf6T6s1atJ0Av8kp3ywUzQB3Ev3XkyCdA1tbt8z3cMkAWFtxRnconQGIK
RKyp2TJAEGj4LVbMJ0BTri3tFdcyQAQMMebHzydA8LYiCPDRMkDsU6JWq9Yn
QNbNap6qxzJAu+OEN3LkJ0COVFcrObMyQLQ1oRMr5idA3YgfW62wMkCuh73v
4+cnQK0DHxEirjJAoiv2p1XrJ0DElC4PDakyQIpzZxg58idANH5+T+meMkCE
xYP08fMnQDnj7qxhnDJAfheg0Kr1J0B8dG2P2pkyQHK72Igc+SdAOIcB482U
MkBsDfVk1fonQPtezVNIkjJAZl8RQY78J0B+DxRJw48yQGCxLR1H/idAVuSw
wj6NMkBZA0r5//8nQP01f8C6ijJAfQIt1Q==
         "]]},
       Annotation[#, "Charting`Private`Tag$2802#4"]& ], 
      TagBox[
       {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwVjXk81AkDh8fQDMaZazByxU9ZbPFLxPRVkYhEWdYVk7MaRzMo5Wh0MLtE
iA5drnSgUo5s25aU11XRSrwlpJJEKuN8e/94Ps9/z6MbFOkeTKVQKLE/+b/J
P6JvFRSIYYP/ZPBYogAluvQj98+J4c+5sXCPaAFU75z57UOxGGaeUC83cgT4
3t80vfqGGJq6XdM6HQW4bbnErrtZDA6WOpUFSgKsHmhuVZ0Vw3qTni+VVw5h
jfXS4RP+VDgHyWfmDKXganttTf1OKixfLZY88zIFrOAt6QMRVLS2PUqqaE3B
bOZ+E/M4KpTgaTxdnYK7Qx17n2VS0egQV8s6mgJ21kGK4n0qtLyEVmnGKbB7
/0I9Q18chcs+LC44kIwSd7l46+XiUImt7NCOToZMg/2Ld7+KozRRkHojOBnd
Wbey17LFYfxuQTjjmgzummzGuJc4bijGumnoJeNMhsucR4Y4GCPcOFFOEqYs
Hr5RF/3sZcp1dzkkoiKlqrS4TQIGwbqanUMJeLtzpv1NpwTqGlRZhl0JUHa0
n9J8JYHa65JyRx8mIF7upWP2sATOb648yL+UgHWnKR8TKYsQcIJ3jhqUgM5b
W37xWrkIikaFvW39+zE1PFopnbcI1RIarfUj+7DOdXldpB8N+bm9eXkG8RA9
ZuQLOTQE+Kgo7GLGo3L9KL80nIZq+crNTox4aFtVrnjNp4FOsPuNxuMwq7/q
smsGDSZ+J82DG+JQLbLLN7lHQ9G5Lxkdv8XBqNg7dkSHjqSbf901yImF3Oyx
laGDdCjkn/8lx4iPemeZs/QROnw3TEX0svgIO51JLxuno1/neJCpIh/3rfN6
38/TYb0/231MxANv36UjEeqS+OFSIDP4Hx56vjf07HGVxMCnJ62Z0TwUj08c
4tVIYvmr+cPlD/bCZtj3ecofUljhv23qXXIMqism6FXZUsi6cEA0GRcD0/hj
Nm/ypXBy33W+VGQMdKVuFbOLpWC6auUje78Y0IwZ8TMNUtC6x9NgWMfgKbeW
xR+TwpEdg7YPJqMR8l0lJMxdGn1WN7b/zY1G5qL2KVcmA9wh9Xt1e6Mwf5FW
R9VmwKSDanhqVxR2g51w24AB9uJlWUmcKDglXJvTMmcg6tQ+X1+PKNDGhdRR
FwaOxnXp+ZlH4UCvo4xQwMDVi+GPPr2PRMTNf7SbPjMw41UvuP+Niw2Btx3W
Nsogx+Msbch0D1YWCqZ9I+TQuU9SeIkVAXu5sZUmX+UxJ1/bMXM5FH19w5uO
tylgIbbIWS0wGMtdS204uYqouf2A7niMA+UK77ebvRbjDaFt+mI8EBXXHViP
jZXQMnuzh8/dgd6mQ/mscSXonBw21wrwR12SqIzapAzrb6s7vKd9QBpxdi/k
q2BgS+LrS4PeWPdRM6bLVxUPEjufDBh6geIsL2O7Qg0jhmPtETxPuDVufX/w
hxpk/5X2GaVtx9b/tnm5tTFBhk+0D573wNgw+4DVBXUURnkoSHHcoc2Y758J
1oDb/k7lsW1bQWn98WrLGk3Y2dXy0ze5gVcG5kEqC8TYvyO2za5I5R2g329k
4dkV5vM+ExfYv55IzyvQglvFLhX5bGcUcGrc7AOWoEel8E6tmRMKj9SUHya1
UfrrMyuxVkdot3b5fBbXQd42njZfuBE1A7ECWogO7ty55q/Ad0D5JpIf2qED
TgDdN9zXHsE2mpLV5rrQDChMyArbAG7p/knZXF1IX+lLXZS2Hh2BP8or5nWR
+mngskvJOsyUnaayA/UQoyJxYucbOySt9Vuq0qIHMsFJOVLNDi1BDsPdZvqY
Epv8khQKhM6XiZdl6eMpwYVN+lr4fDD6eG9GH9+5KS3tbDaYgR3RD/2XIpah
ZnZc0xYmRrkPFJuXovjMhaIlE2uQFfqcG2FugJDXnrvVXlvjL3Or+opcA3zN
FdnnfbLC+i13n9pSDCEU2Ve9/LoaWT9C0mo4htjzOXubNHM1TJnCU+xGQ1R9
zFAPcraE/rEWvqwZgZjB0bmS+FXoTyUnHmcRuHFYqXy0gUTPi61tKScIpBmv
uPx3HYlOI265dS4Big3n95w7JB63lARdzSew9LbFM9sqEpXKzOeZ5wh8HuxX
LCgikVQ0fdPzGoGy0k1FUUISWg/v8QcfE1giaV950ZuEqmrv1rPNBJx0CjOE
niQUwqZMPFsI/DlVweR7kJCQWfGuqZ1AM9vSzMmFxCePi55XXhDw3Bm+YxYk
6gdSLWMGCay6irJkIxK3yAtKxu8IbPyHaswzIHH9aMPYwDCBOcouzzA9EheN
v5duHyGQeHdXiTuLRPreUKbVBIHg398amCmQSG0UTI5//dkPT3tPyJJIVDvf
Uf6NwLLPHu660iRi6ruPsUQEMjed0FCVILFb9tvOrmkCjuvL4hXFSIQEKNpl
zBLQEekclJ23wI4qE62N8wSKSlsJ6RkLeIs7iRYWfv7PJMbTpyzwP2laOuw=

         "]]},
       Annotation[#, 
        "Charting`Private`Tag$2802#5"]& ], {}}, {{}, {}, {}, {}, {}, {}, \
{}}}, {}, {}}, {LineBox[{{6.25, 45}, {6.25, 85}}], 
    {Dashing[{Small, Small}], LineBox[{{6.44, 45}, {6.44, 85}}]}, 
    {Dashing[{0, Small}], LineBox[{{11.72, 15}, {11.72, 28}}]}}, {
    LineBox[{{2.5, 110}, {2.5, 245}}], 
    {Dashing[{Small, Small}], LineBox[{{2.3738, 110}, {2.3738, 245}}]}, 
    {Dashing[{0, Small}], LineBox[{{4.316, 45}, {4.316, 80}}]}}},
  AspectRatio->1,
  Axes->False,
  AxesLabel->{None, None},
  AxesOrigin->{2.2000002000000003`, 18.35989071054196},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->FrontEndValueCache[{{Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {400., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {600., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-200., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-150., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-100., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-50., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {50., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {100., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {150., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {250., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {300., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {350., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {450., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {500., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {550., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {650., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {700., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {750., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {800., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}, {Automatic, {{2., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {4., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {6., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {8., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {10., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {12., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {5., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {5.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {6.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {7., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {7.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {8.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {10.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {11., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {11.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {12.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {13., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {13.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {14., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}}],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{1081., Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7954411581490593`*^9, {3.795450203502664*^9, 3.7954502402351313`*^9}, 
   3.7954503355407047`*^9, {3.795450442387916*^9, 3.795450446885694*^9}, {
   3.79545118584377*^9, 3.7954512218617496`*^9}, 3.79545441467348*^9, 
   3.7954545034126987`*^9, 3.795454611020303*^9, {3.795454746192417*^9, 
   3.795454750721257*^9}, 3.795454787565377*^9, 3.795454821348227*^9, {
   3.795454900241596*^9, 3.795454906167486*^9}, 3.795455135340473*^9, 
   3.7954553206214857`*^9, {3.7954553953939667`*^9, 3.795455448932311*^9}, 
   3.795455702416688*^9, 3.79545575173874*^9, {3.795456081271304*^9, 
   3.795456121437292*^9}, {3.7954661853737173`*^9, 3.7954662095329533`*^9}, {
   3.795466309011764*^9, 3.795466340178206*^9}, {3.795466409609831*^9, 
   3.795466415146912*^9}, 3.795466451999679*^9, {3.795466660700016*^9, 
   3.795466681706102*^9}, {3.795468006061858*^9, 3.795468026766418*^9}, 
   3.795485734539509*^9, {3.7954859277049513`*^9, 3.795485946461285*^9}, 
   3.795486489878192*^9, 3.795526595438374*^9, 3.795721938209066*^9, 
   3.795723590621361*^9, 3.795726368433424*^9, 3.795726413590282*^9, {
   3.7960623742668953`*^9, 3.796062385208411*^9}, {3.796062430945154*^9, 
   3.796062466606204*^9}, 3.796063158870463*^9, 3.79606339482472*^9, {
   3.796063433762128*^9, 3.7960634824477863`*^9}, 3.796066392124762*^9, 
   3.796078910083805*^9, 3.796169730087296*^9, {3.796410075919248*^9, 
   3.796410096398275*^9}, {3.7965769138126173`*^9, 3.796576932820874*^9}, 
   3.796582075869955*^9, 3.796934218386054*^9, 3.7970889123313026`*^9, 
   3.797094970600017*^9, {3.797095131461879*^9, 3.79709520636893*^9}, 
   3.7970952455327663`*^9, {3.797095284179985*^9, 3.797095464700495*^9}, 
   3.7971199308555107`*^9, {3.797871890223749*^9, 3.797871903681724*^9}, 
   3.797890800499832*^9, {3.79806039271255*^9, 3.798060417258122*^9}, {
   3.801352935866334*^9, 
   3.801352940376*^9}},ExpressionUUID->"20b84565-7222-4f2a-b7e5-7a968eeabfe4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pa", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"velRPYscreened", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}], ",", "aReal", ",", 
           RowBox[{
            RowBox[{"-", "aReal"}], 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "+", 
        RowBox[{
         RowBox[{"velDryscreened", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", "aReal", ",", 
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"velRPYscreened", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}], ",", 
           RowBox[{"1.3333", "aReal"}], ",", 
           RowBox[{
            RowBox[{"-", "aReal"}], 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "+", 
        RowBox[{
         RowBox[{"velDryscreened", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", "aReal", ",", 
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"velRPYscreened", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}], ",", 
           RowBox[{"2", "aReal"}], ",", 
           RowBox[{
            RowBox[{"-", "aReal"}], 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "+", 
        RowBox[{
         RowBox[{"velDryscreened", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", "aReal", ",", 
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"velRPYscreened", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}], ",", 
           RowBox[{"4", "aReal"}], ",", 
           RowBox[{
            RowBox[{"-", "aReal"}], 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "+", 
        RowBox[{
         RowBox[{"velDryscreened", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", "aReal", ",", 
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"velDryscreened", "[", 
         RowBox[{
          RowBox[{"aReal", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", "aReal", ",", 
          RowBox[{"aReal", 
           RowBox[{"{", 
            RowBox[{"r", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "\[IndentingNewLine]", ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "4", ",", "13"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pb", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Dashed", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6.85", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6.85", ",", "8"}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11.7", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"11.7", ",", "8"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"pa", ",", "pb", ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7965773328006287`*^9, 3.796577380482761*^9}, {
   3.796579340264179*^9, 3.796579341725725*^9}, {3.79658189620189*^9, 
   3.796581960407877*^9}, {3.796581992502535*^9, 3.796581995094335*^9}, 
   3.79658208162821*^9, {3.796583980776094*^9, 
   3.7965839851637583`*^9}},ExpressionUUID->"f6876cfc-8aa0-45be-8614-\
35ef189881d6"],

Cell[BoxData[
 GraphicsBox[{{{{{}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwd0ws0lGkYB/DJTrlVvm9mTDNj8H25fkSyWbnE36lsiNLqwhJyiS1ZlhbR
pkQl2mLtkoqtpaQSSkQluaSV7YbYVFqTy0xUbm229tt9znnPc37vOe/znPec
56E3R64NUeJwOP7s+S/vSPxqNodDQOSUedRQm0Z5w9ZTD5UIZN65kyiX0lCo
pdgWzyRgdnmk+xLr4NzKMA91Asfe7B+zZe15RbMxX0jgVnlTsbMWjQWjnUk2
ZgR0CtyDl4tpvAjyHYn2IeB6pbqzR0BDei4m1dmPwMUTqR9+ZL3x7SFtSQCB
7bo2J1ewvre7zq0+hMCTmOtbzvNp1B7XOaMRReDnIFfl73k0cjqfB5SmEZDX
Fbe/1aCxyi3kQX8lgfyvr77LVKOxW6vNeaKKgGlkrKEZ68rhxddmXSPgd6mk
vVWV7X+Ie9qonvUTszQua/nvp2LD2wgEf7YhJ0qZRrpHn0jRTyB1dNlRSy6N
Vk9//zEhiY2nie61/1BYudFbrhRPolp0KnP+awo7JquDn+0kMf0qTbNEQeG3
HMnTa7tI5G8wtl3EWulxT1tMCgnJWIOfg5xCneemi7LDJIauRgu9hihYugVF
txaROKgelxEhoyB1iJg68ojE/pcvU316KYzoJXNpCx5kTWHVpm0UwvfWHyp+
ycPY4jUm/cUUVOm/wkKK+KhrqK0ZSqDglWS7TN9XgPHhlYsT3CncnvddlITW
RNw2ZrmNmIKy822N+D5NUHlbrms062Lc0qW0K0eI7++nHjnmrwvVTWX5kT7z
8JXX2Yqbch20fOmWrkyKEOHaVF3zgw58Gj8OKt8WgTMYlFfD1wEvOTvfMVWM
+JOXDj88ro2YD37ucXYS+A4mVB1eqI3pCtW1A58kGBMWNZtclWID517TzZta
OPDI/X7EMin81Jts8mKkMK95l2Tfyd57FXDOWWuj9syq5j83ayHA90JjrUIb
a+rClq6bZOv+eqJ3ZoUORpRODZumSLAgsXhLVYwu3ORck+MCCTj/B4WosonO
5EYxvNSiJysFFI5+cTdi+rwYp2Nn9J/dQWG5+ezkAIjherPEU/cBhfapzDln
e0To9gqYaDGl8YffrsDEBBESVZRXzM2gsThnblY3T4SYY828R69o6FssedRV
MQ+73OMPWrnOh5VZ+MgNj3mIdrG2vVsyH+Wq0WdCFULU6muEv+DqYXo4zd49
WwiRbpdTVqgekqxEHalWQrRO1eQ21ushSCPUrKVXE6HSEmaBlj6kfQdavdM1
IfA/GGSeqA9P48D4XEtNiJJTpJc69CHo57VEvRDA/FbkD+1LDODd0B7rkC5A
Xl9M4PZsA+i5W2wLsRdgdFXqTqfXBqg8ZxaaP8rHxo79jmWrDfF4tW8Gv4AP
oeNve06WGMKqzGHou/V8ds7KI03mGEH4fOabNSp8FPzye/ZghBF86ndcsa/j
ocyFY8O0GKHWxDCgMI6HB2KDNK6JMQqtt7reXsiD650gr4B9xpBuMnUwUJAo
vXXBe7TXGMnrwqx1z5OgeoZUpGDQ4njLghfO7sEDWLfkMbi8ZE7fUxMSRcZu
Qr98BmtWuCpaGRKBu9aNvznO4PH6AeKqMYku5psKrUIGh0aWFh41JNG0O2th
ZDGDkXvqspXzSRSay4yElQyYUPHHajG7twfTRcFtDMbi7DZcUCEheP7T5NQ9
Bm9Wj4efUCbRblXQkfEHg9yTDdmZs0g4v6jMrnrIYEA32zKSS+LzJb2EejeD
RHl95iIOibkyC9VyGQNJsF1zzSSBVju7AecBBpbTOj6lEwT2HVnR3DPIQGVq
lHtinMC0vc++mQoGCXnrf01+R2Aoa+8M73cMmufIPriMECgazHiuGGNw2Plv
d/vXBAIdf7mxZ4JBUv9glbmCQNdQaVLpe/b9E8+H/GECWajydfrA4Pq3jSmz
hgh45NTbdUwzyH+r5vF+gICa/K5k60cGsRxqofwVgUanjvefPrH/t1MyfiYj
8C9+M39p
         "]]},
       Annotation[#, "Charting`Private`Tag$11430#1"]& ], 
      TagBox[
       {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwdzws01fkWB/CTvCry+x8Hx3Ecf2//HojyvHd8W3MxiBnSDZdBHlEj17MU
Si+F5jKkSTTGeBTCSJkGXeaGhjAeHcIVZjxDklcl5ty719prr8/aa6/13epH
Ql0CxFgsVpCo/zejYw/KsFgEP6tWfbRjqaPyP8d/6BYjKHV1iVMTeXbrRYsi
CQJB+1Tg4gYN/5tVQU7bCCLqymOyRXZ+qNCYrUig32pyd2ydxq753jjz3QQZ
dnYpnh9pHDWd58gaEnC61gb1RM6Lly4dNiIY/cT09uIaDWVZ8/5EM4LAsf6I
JJEld2SZCD8lMCyXOFn+gcaIn+frcA8CzzCXfS/f0eCXRF628SJoanpflyey
20KKKs+HoDk9si5A5PZzdQ4NAQR3nAM1pldp1OYI7siFEWglr349s0Ijs3fY
pzSRYGnPI9u+JRoHHAK6xqoIkpwmOh3f0Din0mazXE1g0hkd9n6eRtWrvTWS
NQQPox/HFYrMTxHP120gmAj729Daaxozz36ICm4jkHOva82bo5HsNMqdHSOo
2jNT0/2KRouzt/eiIgXPF44fn43RWFdv7hbnUXi3OCkbJLLRgv5nCqoUlE4r
3RQTOeubdUMTTQpGskLa5A8ax7pzxE4ZUAgw8Nx0Y5TGlkODBR9sKQw3/eiL
lzQ+c3OfEYuh0CPdH7y3j0b0yiP/l2co8GOc/97cS6Mgk/ffmngKGRNnX7iL
LPZ8oC3youg+4q8FcUIadc5flo//i4LmQqdHfY8oj4NfeEshhdTFkPNGnaJ/
PwlZTeuhYJKf/KL1VxqvNRPE1Q3Z+Pq7L34afUQj+EJDStHvbODt9bneTFE+
9T+CAgrlkT3Qyn97nIZrnMWnWp4c5MiubxiAxhOliDCeugIW7oVFJMjSkLJ5
IhczqoCPUlPH7CvVsGRkV9qXqYio1NRllqMatnxZkR3qoYTAw2u5xoMCPLV1
SJaiuHhsnk0G/imAR+P6lNQTLqIqfJKdJAVgJ2RkW11WBpmyftuSporID16O
pyx5CD458qZESxVr97e4TG7woLNN0OVdxsdhVntTfb0KHgwlH8m04MNrW5N5
ViQfK2Ydeww6VHDVNZdVYqqKVv+82W/+oQIfz7LG2llVLJGTZmXzPHjm3R6S
uC9Ac2dtnkY8D7tii45WR6qhvbhIIJDjgfX/orGgnKDuWa8M163hK1UcGuFs
Gds3d5SRH7Vp7G40Df2S5uNNlsqwry92Vuui0SfuKHeil4t+V5/lpzvVkbNb
Y/R6NBex0lLW26+pQ+2B9VZbOS4ibzWzeyZEe+ffv0quUEK8Y0zSPnsNCL1y
o6odlBBuZ2rRWqyBwzohkbemFVGrJRc8Iq6Jz8U62Q/TFMFV69ufHqgJkzv3
+JrGimhZ/flmY4Mm9mqNWKUOKiCQX8zsUtHCwVdnLe2uKoDjneSnH6sF1s4y
qQpDBXATLvJ/FGrh6NxPjXdfcqD/S+jZDjNtpCqZl9+4ykHWaKTviQxtCDgL
qgMWHMwfuHxm/5w2Tg1d6d75Wh5uwitWFZ/r4IRJb2ntbXkoWhWc/65YBzOJ
R2jjQ/IYb6oM3SGrCwudGRMdKXnkfvssYypEF5PvD7zSrmWjwo5lzjzVReLO
nMZbJ9noUtZOFN+hhwf+92Y79Nmw/9XP1eeSHvLzy5usZiiU/lLmPj+kB6d2
MxfbUgr0wLQ0HwzMxLqXbIMoTHfB9GkWg11ZRXFqOygU6jkoemUz0OgfrJFh
KPjGH1p6k8PgNMuP/V6XQh9z7L7K9wx6492kn2tTaDqXbhBaxEDycYFSijqF
7/XHdRWrGGy68KBhnUvBLSmZ69/GoE+GbbwsRYEzfH1ltZ2B/8XW6HFJCh37
coXXfmOguj2pSyhBwWakKqO6m0HsmExX9WYKxmZDZFs/A8GVifnTGwTbxw23
VI4zyNIeLpFYIWixtJy0mWTgktZxYmWJ4FKadfPAFIN2l9t2U4sEa3/xuCQx
yyDkq99s2hYIptMvbHJ/y6BHwdo7c46gcOra8Owig0r72eErswS+Vt/++/wy
A83NR06fmSHomy6NK33HYPVG0aLPNEE6qj33f2DwRUPE84NTBE6ZDZbCNQa7
pTe320wSbJ1p5R1fZ3BA/uCQ+QRB437hu40NBveu+kruHif4Ez30zGw=
         "]]},
       Annotation[#, "Charting`Private`Tag$11430#2"]& ], 
      TagBox[
       {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwd1Qk0VdsfB/Cb4aGifS4urotzDXHK0N9rMBRfT4lUUvoXkWSq1DMkTUql
EvGXsYgihaJSlCaVClFKRJZeUoZQolJS4u3+Z629zvqstc+e1v59j3ht4FJf
CR6PF03b73dY+LKJPB5Bj4v1nrrzLC7fD8hpkCAQObVG1VP3jd9vkSdNEJ0t
/6qB2mBpxrMdsgQtbxbueU7tk1aybvEEgtVO6iG/fbLt8ZhYgYA0DF3+3b9F
vzP1K6Hmedn+Hk8Q+MuoWpGgWLFR5/d8zleVKzIEBLVfn7nUUsf+MnIPUiP4
adbYVE39cK7dF1sRwS2h+7kKasnY1TEqWgT1ke1P71JbNYSJ34sJgmW759+k
3iGMv3Zbl2Bjdyf/CvUVrzynRH2CQ5Nc/3OBeiD/TpfvFIIs5bKcXGrDgRe7
zI0IPlrFbThB7T9rQEl+GoFj+NyDKdSndssWtpkSrAjwGDpMrSZv3hJlRhA+
M/NlGLWLi3PwKksCiaJSpwDqI8fXy5pYESQI1NU9qf+Ykj6zyZbAxSPr+lzq
v4Iv1561I8hZUBw3k3rXtRqfXQ4EO6w/3dCnHrT7majrRFDy8rG2LPUbb/f+
EDcCgx0yM8oLWYgKQg/aeRDYbN/++jz1ys+xGsI1BAqxj7rSqJ/sKXMs9yXw
PdAhH0R9K1Mzf1IwQcXF/Bol6qGOmdbtmwkavf5ZN1LAwtTQqelqGD1vtwT/
duqzNyKkVocTfOh3OHSROvVF25rCKIIIjyBvUNdrDg9FxBA4aE/l61DL+zHx
y+II3IYGdaWp9w/alP1IpN+P37qt6hyLYCZHzeEEgdGrje1zqRc6+tZ3lhBM
zezhdM6y2KNea/etlI6/UVpiOJ9FyfvpN/+4SbDnysiUJ9SiWKnT+uUEp6xP
BYdRf3ics2V9LYGPUXHb7TwWhxe/Ve3rpPttHLppksvituaCuF/dBK/W2735
cYbF54+Xxil8IGjra/SsoHaL39tr/JngYsv9DSupp9Sxt4JGCY4z6pVhp1nU
OHt6DgoYZA9FSKacYjEqrmqQEjI4Gbl/eDm16Wdje2UNBnOuPF0ioE5PHJ02
U4fBhVpjvZRsFhsaMiW2mTBQXXE+5HAWC7nl/5z5OZ/BvR9BE1edYGG/0vWD
xHYGVTe1o6LTWIQNXfd5vZNB2qGnUnOoz6QKX93czeCuo570wDEWEo0va0P3
M7BlEe9CXea8+mJXPIP86S4NKkfpehy9Q2pyGWiE/xkQlUzPy2rT94TnDGLl
TZzk41n06+yVEk/jIyNE51nlPhYb9U5p9pvy8b9P88o9qXsn3zcrm8FHwPj4
Rd/3sujipDe5WvKRk1pmaUDdahLdmGDHR/KSzLDICHq/LBNyJTz48GtZmqsf
zqJwWbZ9RzQfuefN2w22sFgfWR6b185HvjC+R8OP7l/csc43VxEFRXM+G9nQ
etllYavrroSsgIzeGUIWD1Q2BwvFyqisOxA6vlkLMnYPJm1/qwzrhQev9odp
4aupQ2FzqgCLZTYHvFDRgtzqooxANxVMQ2LTu0JNPJzveFiGUYX2sh9ubnaa
cKsY7ZF5oIqM6ZrXvrzWAH9vcob1QTWc2XS+2T9QA6E/PRZtsxRC2IC8OGkN
jBTLLe0eE6Io6eywd6IIK3hPKu/eVUe5b3XgUrEIHhMqzdNDRTiStfyV4TV1
RLtk8QpmaSBY1Cq8Y6eONe4XKm71aWCr8/zigldCuJ860SpdrAmfru6WtxuF
MAzP8y8N1UJB9VrP9WNq4P3/YbHp8oT83EtqcBkfMlSiROvY7L8lUelqOL1l
XOfZMBbuI6ZfThqrYcHdc85a9bQurncvWfFIFS0ua749nCrG66wXR4MCVBEu
KzNPIU4MB7lf9QrSqgg9XsV//k6M+J1qmep5Kti9aHvMjAXauL1sa+ZEWxWE
OMyyeHROG7OX5xWffCvALd1J699I6UD2+2kZpxgBVLWabZL8dLDGT3qSk6EA
Nd9vpFWU66Ccb+Bq3qQMP9E5zlBdF/blbc/XRipDyTPG2zhcF586Jf3NpypD
de9+0aUmXagaiYoSW5RgfC8w4qmZHjrdbRJe71dC+ttQr7+T9XBJXm5V6Ewl
DCw8uNPmox5WFMxJU3iviJVNh6yLnCZjUFfQ1p2uCIH1mX0nz01G/07HkBPO
iuiqvBw4RV4fGoZVSXWSisg69ji5Z5M+whgLK7nrfBQ58My5h/r4OFo8qyiU
j3o1vSipKQZw1Y07rWzIx4Jqb5c1BwyQXG6rUNTDoPDeBdeBVgP8dbTTq/Us
A/Zlr6wIHCT/nsD/w49Bbz1mPUznsK2hfdOYPoNcA0eBRwaHh3535vRNZuC1
e/nXT5kckuvK9F7qMWjmNhSrZ3OI7lGzKqW5ULknySQwj0P5PoUjQVo0V4y7
9AUlHPy5jqvvaM6sjDms6lPLwSJFxOuWZqDUljL0/QmHu5EtT5ulGDydkdUU
V0fn3xdcWi3JwO5NSXJpA4eWXeInBeMY/GnWSia0cBhUcFAL/kX/A13T5C53
cYjllejyvhLUWFp223Vz4M/oD/r8heBAwryqlz0cFt5ofd5Bc3BkttsB6T7a
P+ZZe/UAQW9S5DjXLxwekUqNFJqbuT1xbX2DHERp3vqH3hN4WR+7s+8bh2H1
HPudvQTNvYW7Coc5CLtHn3nR3E1CqbvNTw6ymQKL5e8IFqeWWzaNcGjVqbpu
30Uw/sMjYcAoh9OmCs6zaW5X2DQNj41xyI7oGTPpIPgXmlWdEw==
         "]]},
       Annotation[#, "Charting`Private`Tag$11430#3"]& ], 
      TagBox[
       {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwV1Xk0VWsfB3Bz48l+zjGd4xw7XUO8hlKElB+ZSpF5uKbIUKjMYyJuIXG5
SEWJMpSKcjWga663IhnjVQmZi+tepfn99cdee33W2mvtvb/P7/k+sp6Hrb0F
+Pj4MvH6eQ+PtVnNx0fBr4MrbURtabjV7F/cLUBBR4j7Yjr63cok3VJhCmJF
BIwZdjTsP1vtZ7GKAvvUdXPC9jRY1Yi35ktQoH3GIXHCgQaV+f6jOqoU6Phf
sgj4lQbfLfNijA0UjKn78frRRXHLK4Y1KHhuz7kCLjSwGTqDJ7UpsGZwR0Rd
aRBRPqfVt4MC5YZ4hYtuNLzxcpkLdqaAkl8TkbCPBu610BMmrhQkCCYrvUA7
LqTxOB4UdD7TKFT1pKEjvt680ZsC1abhoR50XYFMmWgQBQGmCyVi+2n4OKal
PxpCgZzirvR9aA0Vy76acAoifO30r6PL7x8TcouloPdv4DfwpiG3f9ij4iQF
VYLhks4+NHTJfPp4LJUCWRLmXoBm+JAMm9MUmNVmh79GJ/1rUP85i4J843Ex
D18agkgxe+cFfH9ylpyNHw0VjrWV3EsUhPGcltLQkxe7TeeLKYjLyStsRbup
CYWfKafgvsL6oE0HaNht7t31tpoCqZP88vwHaYiXbjf5cIeCvXxdNZro6pnN
tSK1FBjHDbz3Q3PThC4rNlLQsnLY9gl6r0uAlHYLBRVwMukzOkmlJ83sIQUZ
j/90Xe9Pw+zT4rAD7RSI2f0rGo9eW7BqOqoT1+9L2XQ52jYwxC21m4I+UAvu
QtcxdpheG6BgRmkulQ6g4ZTFiNS7txQUFZPP5egHMrtOf5vE9T4ubv1f9ML7
Kv41sxSwHvi6TqCdMxKm1RYoyF1UzaQDaUh3n3LTX6TAX0uvVgfdpG7VbblE
QaJL+3lrtHLn2roj3ykQUC9LjEe7FSZvSOAnOHfJaTnorCPzlzOFCPxngG1Z
jm4DR3bRMgIpi/JPa9GfqYbTt1YS0PkWLtSOVnujKNDMILAU1rc0hPasygjv
pgicjmJcnUHnJnycHmURUK4Zk/qEfmzl7v6vBIHoQ3Imwodo+C77sFuIQ+Bb
VLYGhdZYUDMT5xEYNPr6io32acqtk19L4LfOdbvXoc9lfd+g9QuBs7c7opXQ
HZ4+V0wUCMhz2vzV0QKbOtgOSgRE2jrozWgtQa10XxUCJWtunNmCPthdIBCp
TuD1m/U9OugLxcIRyRoE9jQL9umiu0ICZ/I0CRi2C1z4aRGjXvdybQJnKqdU
fj6vK7at595WAi+rYxK10IfGLps93k4g/25MkQa6qHp1/aABgZsbK1JV0X1J
oRtnjAisVn2mp4heYTd05YspATfLkns0Wk/eiLPanMDXngV+SfSRxWvpXAsC
YllhEgz05VaWoKoVAb5/3n/kR7/IiYnYZksg9KtM6SLmudpndGaPA4Ej5q1y
k2jQMvdwcyZQL34paABd1sfZecyDQMXcPzF30UMlx+szvAg89J3QLUFTEdMb
C30wT5UVT7PQkZL3OY0BBLYLP/X1Q1dMyGY8P0zAx2I8xAo9fCdFcCQYv9dC
1u7nfJk5Os0KRBFITpg4K4wO/3hv/+sYAgdk9w/N4HxeyeW8rI0joBfxjPsc
LdD7v/bQJAKHXz47m4eut3K7OZ5BIEP4Q7Y0enb+gWJzFgGtN379n3B/cH6n
Cy/mEBgbPcrtR0d2DP/ueJ7AfMhIZTpaw9wr+HEJ5tv3nLmA+9Fjunm6pJzA
NrHs6EfojBQ5r8QKAo9+5E0VoGcfvrXRu0WgLevP18boUiM/zRv1BEYsN+ul
Yj9wtwcuZfYQMKlT1nyLfbPrZfuRQ/04n3n6dhXoqFi1qV2DmE904W/B6L77
cwOCwwSmL8Sxv2JfZW4Jrg2bwTznFXhCaJGNEXFOAkyYfSYqOulFw+bO/g+a
wkyI7JsKK0R7HdY+zFzOBN7VzkUHdMP1T+5PGEwI3zhj2IJ9G60ca7CNzQTb
G1ayWdjPc78kCMluYELDH++9Bd1pCJAvkpnTYEJ+aJDFTez3aYVm7XpNJnQ7
8fY5o8eVhAOdtjJhJntc5AaeB6/UU3ozTZiQXP9unzmeFx1bM0sEXJkQlRnZ
5OaE621zyWwshQmFwhInZqyxL+yaPG+lMWH3j4iio+gy+9HY+AwmGPbqL61B
X3aSr+LmMEGo+YWVuhUN593L2XaFTBhxXP7Yx5KGVP+q6dYaJrx+sm9zlTkN
BxIb00pHmXB8QlL8zg6cJ4ZG0q1x/L/enpfyaPu8opj6KSbsrfur/Q9DGnZc
TzzYPccEPxdb+UADGnj9xmY/vjCB3jTYJK5Pw3Plx4IOYiwAK++N+ro06HR1
RYsYs8A0bnvBB3Xcb7Jjft4lLBiqlGwSY2Oe0Xv265Wz4BTrepqbFM5Dd407
q4IFaqkKd0olMY8TKfaNVSxoyLVT1ZbAPpxVM+LVs+A0SS63YuF83I2ie7tZ
oNdbvcWXgf1nKdpnxC8GpbxgW5of+/2o7g45FzF49ddtrRfjMtAiGRLEkRWH
p6aWdU0lMrDMpEU0akQc8nmmvoXuMrCosbPiRa4EfDGoHFgrKQMr3CrzDztL
gkrStsy/m3jwyNT81DIiBTUu5/mXH+GBc+v3qWUtUlBpqOISJM0DZkJ2vv4J
NkhWWfHfrONC6BfXPZFbOeBZo64o6smFr7dXWE/+4IBjjMXNH9+kwYGvo62h
QRomDbqWB56TBtdVbTrnQrnQ+Z5b36gnDSm2hXzXtvCgLFntUUkfBzxcbrTW
veNB25WJaqUIDrgUXXglfFsGGIk5r9tEOaASW+p7J5SGdoWqlnNX2eB11K9C
9BsNhovfz9/2YsP/Aawip6g=
         "]], LineBox[CompressedData["
1:eJwBIQPe/CFib1JlAgAAADEAAAACAAAATsHLKXgBIEAup0/2pmAZQKR1AeWp
diBAwDTOu53nGEBKwKpRH9IgQEm9T14QihhA2lRg9sgrIUAcrTxxQS8YQHwI
B0UOjSFAmtW20t/NF0B0m8cS1OchQDqpnsAmdBdAfk15ijVKIkDm7a9VPxQX
QHJJNzrLqiJAZYN84IO3FkC8JA9p4QQjQDgoGTRWYhZAGB/YQZNmI0DtKbry
bwcWQMr4upnFwSNANiAwCP6zFUBmHKopLBskQPU9PP6GYxVAFF+KYy58JEBw
3I4duQ0VQBiBhByx1iRAKU1BUBa/FEAuwm9/zzglQBTDB/9jaxRAmuJ0YW6U
JUDoD2wWsB4UQPBMhntB7iVA4Kl9ZdfUE0BY1og/sE8mQHF5/So+hhNAFj+l
gp+qJkDaqn6SSD4TQObGsm8qDSdAOlzMHs/xEkCgmMyU6W0nQORRR107qBJA
sEkAOSnIJ0C1T+uV62QSQNIZJYcEKihAO9cUDVsdEkBKyWNUYIUoQHRPpU7b
2xFArMKuWfDeKEBJntoL25wRQCDb6ggcQClA7iYwl9VZEUDq0kA3yJopQIM+
Pp2FHBFApihLFl2cKUCn7JN/dhsRQGF+VfXxnSlAk7cTeWcaEUDYKWqzG6Ep
QHvRibFJGBFAxoCTL2+nKUAGUhk4DxQRQKEu5icWtClAYTYPmp4LEUBYiosY
ZM0pQFEGoaPO+hBAFOCV9/jOKUD5Um9nwvkQQM81oNaN0ClA8Q0pQrb4EEBG
4bSUt9MpQKL1Vjye9hBAMzjeEAvaKUDUmGVDb/IQQA7mMAmy5ilAVXKWmhXq
EEDKOzvoRugpQJQYMMwK6RBAhZFFx9vpKUBbw5UUAOgQQPw8WoUF7SlA1Eq9
6erlEEDqk4MBWfMpQNkcRqXB4RBApumN4O30KUBT4wiNt+AQQGE/mL+C9ilA
7fWHi63fEEDY6qx9rPkpQJsis8yZ3RBAk0C3XEH7KUAtTlsPkNwQQE6WwTvW
/ClA5ei3aIbbEEAK7Msaa/4pQF/7xth82hBAxUHW+f//KUBWjoZfc9kQQBzV
UtI=
         "]]},
       Annotation[#, "Charting`Private`Tag$11430#4"]& ], 
      TagBox[
       {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwV13k8VPv/B/DIlls558yM7VjLNpOQsmXppSRLuldJEhG51S0pKU3FN0kL
CkW/qEQLhTbrJRWhUORSEnElZCdKdRW/jz/mMY/nnJkz78/2fr+Puk/AWj/R
GTNmtJLX9PuBI+tmz5hBwUJ0ylUzhkV22c7rDaIUIkPfpzUSD0ofX5ouTuFU
7UTViVgWWxNzt6/5jcLkdmH0xzgWzvm8isuyFCrscjgx8Sx0R96GmC2kkHtr
de7dRBbbTEa4cwwoFLYMhzklsbgWKpXVbkiu70nS7SdWmGPWfNKUwuad/uz8
yywkBEnGjSsoBHXWBUQks/jg6zEc6E5hNOHdQe51FkqZQSdsPSnM339ycyqx
22i0sqI3hbzEh4KFN1jUHn3kWOpHobNrttD6JoviKyq3ZPZSEDRd/eWRzuLC
23bvrJMUCigpHe9MFqsd/eq7cim49QxPJWWzOMrW2I4XUHD28i2bm8Mit3/J
Q4mHFFJbAp3DiJWixW5ol1Jwr1tS55PLYuDl9f07aigE6r/bKZfPImpNh/xg
FwVRL5WCVYUsHqs4nPnVQ2HOv2+CbxGPDj0QmTtA5k/SYq5UEQv3mLA+vVEK
9nkvH5cRC+rUivdMUhDPGbdeWMyi2tnL64ssjdVvxbZVPWYxqf68QUyRxtap
yAa5JywMR/XseMo0Mn4XqvkRJ52bNDCeT6O+zmDzT+K/Gq6IHtSnIWK547By
KYvk6+LBpwxpHB6O/eVDXL/Pv/+iEY2UBg+/dOKlXMvXheY0ghoO9ug+ZTFr
/fubE6toLNn3ulZQxsJC00ZxtiMN7VrD2G3Ee75mnlVaQ8P02yaL68RNCYeD
LV1oJOVd2iBXzuJWo6L9/7xpFB1NzBwlfp927FGMLw1Vc4U3WhUsqOC+RSl/
0oiz2D+0kfigXJFi6S4ac5JsxoqJ7dw2DogKaeSYlrgeeMbiwLfCrf8epjFW
orT4KvHNC4qtD0NpnJCI0HpOLPqmpSboOI03Zw67cJ+zeOS8+V53DLm+UqLl
OvHAyGPtsnM0RrUrQyqIFWNVU64m0Kj5FW/eTXywtj3W7RKNVxEO0pqVZH4d
fQOr02j8uvJF5CKxd19ZX9ptGtyt/0ZmE8ec1vANz6IR3Flu+JJ44HnXOots
Ggn++z78JGa32b6Uz6OhEmXUy6li4SCRbvO1gMaD6E5aQJxus93o7iMaM198
f76OuPFj5Z3IEhrGputdtxGLhfO1tpWR8fdFSx4i9intk1WrorGmT/j6MnGs
t2PMzxc0PpzQ+JxF/GQqU/JdLY1KyQTDYmIlK//vca9pJJbd02ya/v/Wmj27
39JQ3OPU1EksPKLX69BMw6rz/x6MEN9iY7Zot9Iwt5HKnpiOp2j43cx2GrOF
cs3i1SzE3f9Y295BI9bASiBDvOTH/eriLrJ+rV+uyRH7XKRXJPbQ6C/IsVEl
jjMJfLi/n0ZB8aiMFnFJY/3itUM09O7yxXWJh/YvztL7TNaDU6exiFiZF6/x
2xca8uaeAUbEq3O/XP40TsPJ2K7LlPjQuvW88h80mlslT5oT3x7NO5Pyk6zf
K2a9JXFTnKxEyBSNkYB/f7cillgUHLpRlMGano/B015S93bcSJzBVZ0LNdPf
9w0wDWCkGAx273S2ID43N/HTkDSDyKvNM5dOx3vnh9eLOQym4jd0GU/Hu9q9
KZ1iIKzbMG44He9A0R/HOQx2qf9hojcdbxRb5S3LQEYl75bOdLyCI9aWCgx2
z59wmEd8q+p9oYISA631F1RY4rfbLQ3HVRjMSf5vPmc6XqnkjHp1Bv/cu7RJ
ejre9Ml59zQYLJ85WDFjOl5br0tR2gz8m7b4jpP1Odf1hLNdwKDY2H9JP/Hw
/DAxdQMGfnHMvnriXZrXVIYNGYzGpmtXEPdplZk+MmJwdlCoUEDczRf332jO
YMF/4fkXibcu0DqpbcVg+FmczyniDt1VqV/BwEdw2imYuE3/9Js4Wwb9+W0f
1hJ7LMoY9rJnsMKbjl5G3Gz4YpbeagaNKY0HFkzvH6M5VtXODMZynsiIENea
x6WJepL5PRvrfp2cj9WW2SV1XgyelrdyI4mrrRqak30YuE2Kc/YQP7PmyZhv
J/EPnnxvRvxoVWLwvn0MAt/fvldOzutS+6I46wMM5O7oxN8k/tuhJVNGyMDL
8fGTCOJcJ+X2zFAG+1UrB1cQZ61Ltes8TdYj5tj9ApIvBOuf+mRHMxCN72o6
R3zL9eORozEMnhSddfQnvrFR84FSAoP7AatoNeJLXrcV1qcwKKxYxw8h+Sly
54O+inwGdPHyjzyS36T868XiCxnYTf7X1kXy4YndYyo+xQzENy5ekEd8bK/R
uslSBhOWWfnOxIeCCx8a1zB4f2PnjWMk3+4IL41O/8hg4bYB/fISFu1zDI9n
dzOI4ft5Hid2vXjt8KNe8nvto2UriFfcCf+rYZiBQn+YeQnJ98pvV9pNTZD5
FO37dI/Ui38E1TM3cDnw1tG+9BepJ3Z5Sye2yHHQcUcuSoX48bLM0V2KHDh9
UH/4z0MWmS7RH46pcfA2zq3ViDgidM2Tu7oc7LWSNflK6pdZff0hiZUc+BhZ
3/yjgMV9jxWBtB0Ht37Y13wn9U/rU84OJUcOSoJuWqQQc37Guxk6c6B/UHFs
II/0E5objDd7ciDa4fYihNTPVGHL57z9HJjp2kSFPCD1Rr1zu18aB87BiU7f
M8j8HHLaanGbg2Vm4QlxxAMN+V6cLA4ux0bYCYhrT5x2LX3AwajVws8bb5Pz
MKBno/yIA/GRANdsUu+V/haqvmngwMtk78NVpD/Q+12m0UaEi61V+haSV1i4
hCxdoeHBRYhI6re+aDIfXmOsqRcX7TvjZrsS6yzP+uLow0VxcHhkSRSLCQmV
tH3buVinOPL0fCTpZ2JFZpUFcfE2SWiw+BSLkeuVtVvOcCHIZta6hrOIrnZ1
v/qYC5mmseUGQhblcvv2KqrzMGRr3GDryyLEY6BfVYMHK1MRr3M+LIxT/f7U
1OZhzV7VgNYtZD8K3DYZLORhV3OCcqA3uZ+l5UpbMx7MZ88rTvBksd5XUiHQ
mQc2pMfm2QZynu9eKqkK48F7My+t1pGFpG25jLCDh7lfXmmfMWTx1dA+q+mC
LPaE/memMaWIWZvvXw5wl4O9872Jj6WKqFzlGCVJy8OccTnudlwR7hWTvZLl
8rgpfWN1go0imLD4y8tOKECkoDvU6KcCgiY8nQ6aK8Iw5yvHJF8BP3Nmre0h
93W9enK5/nYFbJhR+6yE7NPko5X1LQoK8PztmVlSkBJ01wwcvPZKHqddUmZk
miij41nHbYNQeXh73K0oHlSGua/wUOwieXhcS24Tz1FBj11hvkabHHSPpG8r
CFKFQL1NmxctBxfpwG+5XDXcph4PxC2Tw439Il23D6ihTFmw682ALBxKMpxV
69UQq5E5e+iqLJpdvMcrF6hj2GvRqe8usjgiJbly7hl1SNt/brYSk0XQpefM
60/qWKyHvLOFPIQ6CSONHObhXfAmPb8dPATamyx9kTEPfTavpWNZHoo1ZHZ8
EJuPreFaqi8auJBXbbI+/+d8nD9k2dJ7govq70WJFaXzkbw76jQHXPyplMHX
ZTUQu2pLyKkJ8olXpK/eEQ2kfnjkbpDNgXzYcaUHjRqwPB6T8Hg3B3pPA/73
ylQT5Q8Spv7W4iCpI2jL7nhNtNKt8WGdDEZWnzhsPaSJDu2muNgbJG82nlp2
/3ct0j+M/XDyZiC77OaxqxlaENfUSE4hdaX7WXaAYI427gzOa2hoI33fxZfx
vf7aeC6yeMQrmcZ9+xlm/EptrOCflrcmfVq9guZJMYEOeN1rvSw0aDhU+bp4
R+jAPcIhe0cfhayndzeOtOngtFCZn5FNQa2lT0oJfBTvGjIxDabQVw+TyiQ+
JC+1ROaDQpqOo6znZT5GfH6gYhmFLaHrv36+wse73b6zXltRaOL/lcOm8pEy
U/6fzxYUnh09rx+QzkdRf6e5nhnpw/W6tWVz+ZDyYEMzFpG+PTJKfmsNH44q
nnfuz6PAbU/49r2WDyv93oxSdQqvjFIaz9TxsSo9uahejYLth9z4ggY+8n3D
qK8qFBabtlG/NfNxT0PywlKWwtxug1nZ3XzItrGSVRwK1ebmPbY9fAzdK9Rq
YShExK183tLLh5F+gNsgTeGnhXuE+CAfK0uVRmmKjPd8uMjGMT5axn0mN80m
4+090z74hQ/9H8l3d5Pnpi3LLj45Ns7HsaLePWHSZLx9WSFZP/jYO5W2IF2K
wnkUeFhPkHhXymkUSVJYc6HUvPEnH0m1cXo1EhSkB14o7pwk83mE59hOnssq
rBt/TE3xMU8vVTgmRuH/AUqg1Ug=
         "]]},
       Annotation[#, 
        "Charting`Private`Tag$11430#5"]& ], {}}, {{}, {}, {}, {}, {}, {}, \
{}}}, {}, {}}, 
   {Dashing[{Small, Small}], LineBox[{{6.85, 4}, {6.85, 8}}], 
    LineBox[{{11.7, 4}, {11.7, 8}}]}},
  AspectRatio->1,
  Axes->False,
  AxesLabel->{None, None},
  AxesOrigin->{4.000000183673469, 4.004835033857974},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->FrontEndValueCache[{{Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{4., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {5., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {6., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {7., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {8., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {3., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3.2, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3.4, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3.6, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3.8, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4.2, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4.4, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4.6, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4.8, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {5.2, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {5.4, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {5.6, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {5.8, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {6.2, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {6.4, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {6.6, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {6.8, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {7.2, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {7.4, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {7.6, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {7.8, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {8.2, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {8.4, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {8.6, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {8.8, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}, {Automatic, {{4., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {6., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {8., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {10., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {12., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {2., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {5., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {5.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {6.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {7., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {7.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {8.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {10.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {11., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {11.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {12.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {13., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {13.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {14., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}}],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{1076., Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.796577358697112*^9, 3.796577381346644*^9}, 
   3.796579342235571*^9, {3.796581908192465*^9, 3.796581961003076*^9}, 
   3.796581996089633*^9, 3.796582082915079*^9, 3.7965839870702047`*^9, 
   3.7969342313471813`*^9},ExpressionUUID->"53c2e2c8-2faa-4d07-afff-\
4a318d06e4cd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.795466235120871*^9, 3.7954662922920732`*^9}, {
   3.795466395787315*^9, 3.795466395870882*^9}, 3.7957219211468153`*^9, 
   3.795721959900278*^9, {3.795722158028605*^9, 3.7957221580835114`*^9}, {
   3.7957222409334583`*^9, 3.795722244443843*^9}, {3.795726182551302*^9, 
   3.795726187259431*^9}, {3.795726426311853*^9, 3.795726426756589*^9}, {
   3.79606314836199*^9, 3.79606314879263*^9}, {3.796064614080881*^9, 
   3.796064675430255*^9}, {3.7960661738180227`*^9, 3.7960661766791677`*^9}, {
   3.796066236782495*^9, 3.796066237407016*^9}, {3.7960734430591288`*^9, 
   3.796073443193181*^9}, {3.7960788845060253`*^9, 3.796078885591303*^9}, 
   3.796169752498315*^9, {3.7962248441279182`*^9, 3.7962248456479197`*^9}, {
   3.7964101088990927`*^9, 
   3.796410113351358*^9}},ExpressionUUID->"c8c73273-277d-4576-ac54-\
ca331a4a2e70"],

Cell[BoxData["6.412822331303493`"], "Output",
 CellChangeTimes->{{3.795466278408251*^9, 3.795466292810142*^9}, 
   3.7954663967073793`*^9, 3.795526598694192*^9, {3.795721921459943*^9, 
   3.795721960266642*^9}, 3.795722160394712*^9, 3.795722244569537*^9, 
   3.7957235930176773`*^9, 3.795726187386964*^9, 3.795726426963215*^9, 
   3.796063150116065*^9, 3.796064053393458*^9, {3.7960646152174997`*^9, 
   3.7960646229282427`*^9}, {3.796064659465721*^9, 3.796064677269281*^9}, 
   3.796066183792952*^9, 3.7960662381261883`*^9, 3.796066373614126*^9, 
   3.796073444073915*^9, 3.796078806537018*^9, 3.796078886325564*^9, 
   3.796169753058156*^9, 3.796224846320161*^9, {3.796410079726494*^9, 
   3.796410097986863*^9}},ExpressionUUID->"2f5fecab-4499-4e08-9f7c-\
b6df74ff9b91"],

Cell[BoxData["7.289789487721066`"], "Output",
 CellChangeTimes->{{3.795466278408251*^9, 3.795466292810142*^9}, 
   3.7954663967073793`*^9, 3.795526598694192*^9, {3.795721921459943*^9, 
   3.795721960266642*^9}, 3.795722160394712*^9, 3.795722244569537*^9, 
   3.7957235930176773`*^9, 3.795726187386964*^9, 3.795726426963215*^9, 
   3.796063150116065*^9, 3.796064053393458*^9, {3.7960646152174997`*^9, 
   3.7960646229282427`*^9}, {3.796064659465721*^9, 3.796064677269281*^9}, 
   3.796066183792952*^9, 3.7960662381261883`*^9, 3.796066373614126*^9, 
   3.796073444073915*^9, 3.796078806537018*^9, 3.796078886325564*^9, 
   3.796169753058156*^9, 3.796224846320161*^9, {3.796410079726494*^9, 
   3.796410097988413*^9}},ExpressionUUID->"e4d9ea5f-c8d0-4826-bd9d-\
9fc4f809b1d6"],

Cell[BoxData["6.85130590951228`"], "Output",
 CellChangeTimes->{{3.795466278408251*^9, 3.795466292810142*^9}, 
   3.7954663967073793`*^9, 3.795526598694192*^9, {3.795721921459943*^9, 
   3.795721960266642*^9}, 3.795722160394712*^9, 3.795722244569537*^9, 
   3.7957235930176773`*^9, 3.795726187386964*^9, 3.795726426963215*^9, 
   3.796063150116065*^9, 3.796064053393458*^9, {3.7960646152174997`*^9, 
   3.7960646229282427`*^9}, {3.796064659465721*^9, 3.796064677269281*^9}, 
   3.796066183792952*^9, 3.7960662381261883`*^9, 3.796066373614126*^9, 
   3.796073444073915*^9, 3.796078806537018*^9, 3.796078886325564*^9, 
   3.796169753058156*^9, 3.796224846320161*^9, {3.796410079726494*^9, 
   3.7964100979897833`*^9}},ExpressionUUID->"5bad50e6-045f-48ff-939e-\
91faf383d8b6"],

Cell[BoxData["6.85130590951228`"], "Output",
 CellChangeTimes->{{3.795466278408251*^9, 3.795466292810142*^9}, 
   3.7954663967073793`*^9, 3.795526598694192*^9, {3.795721921459943*^9, 
   3.795721960266642*^9}, 3.795722160394712*^9, 3.795722244569537*^9, 
   3.7957235930176773`*^9, 3.795726187386964*^9, 3.795726426963215*^9, 
   3.796063150116065*^9, 3.796064053393458*^9, {3.7960646152174997`*^9, 
   3.7960646229282427`*^9}, {3.796064659465721*^9, 3.796064677269281*^9}, 
   3.796066183792952*^9, 3.7960662381261883`*^9, 3.796066373614126*^9, 
   3.796073444073915*^9, 3.796078806537018*^9, 3.796078886325564*^9, 
   3.796169753058156*^9, 3.796224846320161*^9, {3.796410079726494*^9, 
   3.796410097991172*^9}},ExpressionUUID->"132ecb42-50ce-4ad4-97fe-\
403d9e2baf57"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{"2", "*", "6.02", "*", 
    SuperscriptBox["10", "19"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"radsA", "=", 
  RowBox[{"(", 
   RowBox[{"1", "/", 
    SuperscriptBox["n", 
     RowBox[{"1", "/", "3"}]]}], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{"radsB", "=", 
  RowBox[{"0.55", "*", "radsA"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"radsR", "=", 
   RowBox[{"1.08", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "7"}]]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rads", "=", 
   RowBox[{"0.55", "radsM"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pointsZero", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"93.8", ",", 
       RowBox[{"8.03", "/", "9.46"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"46.9", ",", 
       RowBox[{"8.13", "/", "9.46"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"23.5", ",", 
       RowBox[{"8.37", "/", "9.46"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11.75", ",", 
       RowBox[{"8.68", "/", "9.46"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.88", ",", 
       RowBox[{"8.99", "/", "9.46"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pointsWeak", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"93.8", ",", 
       RowBox[{"7.77", "/", "8.98"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"46.9", ",", 
       RowBox[{"7.85", "/", "8.98"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pointsTheory", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"100", ",", 
      RowBox[{"7.76", "/", "8.98"}]}], "}"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pointsStrong", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"93.8", ",", 
       RowBox[{"8.37", "/", "9.43"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"46.9", ",", 
       RowBox[{"8.41", "/", "9.43"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pc", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"{", 
     RowBox[{"pointsZero", ",", "pointsWeak", ",", "pointsTheory"}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pd", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"velRPY", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"radsA", ",", "0", ",", "0"}], "}"}], ",", 
            FractionBox[
             RowBox[{"kb", " ", "T"}], 
             RowBox[{"0.5", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 FractionBox["per", "100"], " ", "diffA"}], "+", 
                RowBox[{"0.881", 
                 FractionBox["per", "100"], " ", "diffB"}]}], ")"}], " ", "6",
               " ", "\[Mu]", " ", "\[Pi]"}]], ",", 
            RowBox[{"-", 
             RowBox[{"{", 
              RowBox[{"radsA", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"velDry", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aReal", ",", 
            RowBox[{"{", 
             RowBox[{"radsA", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"velDry", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aReal", ",", 
           RowBox[{"{", 
            RowBox[{"radsA", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ")"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"per", ",", "0", ",", "100"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pe", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"velRPY", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"radsB", ",", "0", ",", "0"}], "}"}], ",", 
            FractionBox[
             RowBox[{"kb", " ", "T"}], 
             RowBox[{"0.5", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 FractionBox["per", "100"], " ", "diffA"}], "+", 
                RowBox[{"0.881", 
                 FractionBox["per", "100"], " ", "diffB"}]}], ")"}], " ", "6",
               " ", "\[Mu]", " ", "\[Pi]"}]], ",", 
            RowBox[{"-", 
             RowBox[{"{", 
              RowBox[{"radsB", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"velDry", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aReal", ",", 
            RowBox[{"{", 
             RowBox[{"radsB", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"velDry", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aReal", ",", 
           RowBox[{"{", 
            RowBox[{"radsB", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ")"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"per", ",", "0", ",", "100"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pf", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"velRPY", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"radsR", ",", "0", ",", "0"}], "}"}], ",", 
            FractionBox[
             RowBox[{"kb", " ", "T"}], 
             RowBox[{"0.5", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 FractionBox["per", "100"], " ", "diffA"}], "+", 
                RowBox[{"0.881", 
                 FractionBox["per", "100"], " ", "diffB"}]}], ")"}], " ", "6",
               " ", "\[Mu]", " ", "\[Pi]"}]], ",", 
            RowBox[{"-", 
             RowBox[{"{", 
              RowBox[{"radsR", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"velDry", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aReal", ",", 
            RowBox[{"{", 
             RowBox[{"radsR", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"velDry", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aReal", ",", 
           RowBox[{"{", 
            RowBox[{"radsR", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ")"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"per", ",", "0", ",", "100"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"pc", ",", "pd", ",", "pe", ",", "pf", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.79546692594565*^9, 3.7954669301934967`*^9}, {
   3.795467958427726*^9, 3.795467959804871*^9}, {3.795468105902011*^9, 
   3.795468150443831*^9}, {3.795468203035039*^9, 3.7954682038309526`*^9}, {
   3.7954682598550797`*^9, 3.795468275167655*^9}, {3.7954683477031507`*^9, 
   3.795468358203227*^9}, {3.79546849808111*^9, 3.7954685432371073`*^9}, {
   3.7954734419544907`*^9, 3.795473478235105*^9}, 3.7954787277675133`*^9, {
   3.795483369484173*^9, 3.795483383464479*^9}, {3.795483451434395*^9, 
   3.7954834754188147`*^9}, {3.795483838403268*^9, 3.795483871514594*^9}, {
   3.795483906491706*^9, 3.795483968762866*^9}, {3.795484995551609*^9, 
   3.795484995790255*^9}, {3.795485615269601*^9, 3.7954856234554253`*^9}, {
   3.79548565596909*^9, 3.79548566608121*^9}, {3.795485784782711*^9, 
   3.795485801706326*^9}, {3.795485833349161*^9, 3.79548590773246*^9}, {
   3.7954859865744677`*^9, 3.795486015164646*^9}, {3.795487652764914*^9, 
   3.795487663427245*^9}, {3.7954882744219503`*^9, 3.7954882825092363`*^9}, {
   3.795490543751265*^9, 3.7954905446622868`*^9}, 3.79549065906363*^9, {
   3.795525373232114*^9, 3.7955253733026743`*^9}, 3.795526573949006*^9, {
   3.7955279097300034`*^9, 3.7955279267464657`*^9}, {3.795721986843306*^9, 
   3.795722002028328*^9}, 3.795722060004589*^9, {3.795722171448406*^9, 
   3.7957221884139833`*^9}, {3.796063221185252*^9, 3.796063263849927*^9}, {
   3.7960640836706657`*^9, 3.7960640894933233`*^9}, {3.796064142748485*^9, 
   3.7960641533843603`*^9}, {3.7960642510945053`*^9, 
   3.7960642757171507`*^9}, {3.796064490479924*^9, 3.796064559022524*^9}, 
   3.796064857901977*^9, {3.7960656938601503`*^9, 3.796065724667068*^9}, 
   3.7960657654868298`*^9, {3.796066106564364*^9, 3.796066116509926*^9}, {
   3.7960661470064096`*^9, 3.796066181742818*^9}, {3.796073407788962*^9, 
   3.7960734328336678`*^9}, {3.79607346409226*^9, 3.796073474747649*^9}, {
   3.796073512027666*^9, 3.796073545266136*^9}, {3.796073587316017*^9, 
   3.79607364663081*^9}, {3.7964101154157953`*^9, 3.7964101161888027`*^9}, {
   3.796576033386381*^9, 3.796576037137266*^9}, {3.796576131655704*^9, 
   3.796576131801805*^9}, {3.796582655572741*^9, 3.796582704798719*^9}, {
   3.796582748817013*^9, 3.796582775694188*^9}, {3.796602734662724*^9, 
   3.7966028002985888`*^9}, 3.796778739975506*^9, {3.7968297187560368`*^9, 
   3.796829735401576*^9}, {3.7968788620755787`*^9, 3.796878869847769*^9}, {
   3.796934273094637*^9, 3.796934363724361*^9}, {3.796934450101306*^9, 
   3.7969345084607162`*^9}, {3.796934540990073*^9, 3.796934561871448*^9}, {
   3.7970889373632317`*^9, 3.797088941072207*^9}, {3.797090054791428*^9, 
   3.7970900560529957`*^9}, {3.80202568328258*^9, 3.802025700481498*^9}, {
   3.802025766225442*^9, 3.802025788600885*^9}, {3.8020258400290823`*^9, 
   3.80202584313413*^9}},ExpressionUUID->"bf175313-0955-4bb6-a8d3-\
b28a92420051"],

Cell[BoxData["2.025152990770552`*^-7"], "Output",
 CellChangeTimes->{
  3.795466931447448*^9, 3.7954681199374523`*^9, 3.795468151905547*^9, 
   3.795468276406033*^9, {3.795468348847394*^9, 3.7954683583438997`*^9}, {
   3.795468528495655*^9, 3.795468544052593*^9}, 3.795473479670281*^9, 
   3.795478728587532*^9, {3.79548345437006*^9, 3.795483476134385*^9}, 
   3.795483871752944*^9, 3.795483913025771*^9, 3.795483969625618*^9, 
   3.7954849963769007`*^9, 3.795485667489429*^9, 3.79548580394928*^9, {
   3.795485835207779*^9, 3.795485908356154*^9}, {3.795485988383563*^9, 
   3.795486015308505*^9}, 3.7954876644338713`*^9, 3.7954882830876303`*^9, 
   3.795490545254098*^9, 3.795490659707164*^9, 3.7955253741483088`*^9, {
   3.795526574852322*^9, 3.795526599753208*^9}, {3.7955279121330976`*^9, 
   3.795527927394071*^9}, 3.795722005746777*^9, 3.795722060618435*^9, 
   3.7957222034323463`*^9, 3.795723595175893*^9, 3.796063166407894*^9, 
   3.796063212591196*^9, 3.796063265382625*^9, 3.7960641625789757`*^9, 
   3.796064276519648*^9, 3.796064493699926*^9, 3.7960645626001463`*^9, 
   3.796064875125659*^9, 3.796065728352829*^9, 3.796066186075223*^9, {
   3.796073437693001*^9, 3.7960734506191483`*^9}, 3.7960735468491096`*^9, {
   3.796073638972612*^9, 3.7960736473871*^9}, 3.79607880895251*^9, {
   3.796410104207896*^9, 3.7964101221858377`*^9}, 3.796576040672636*^9, 
   3.796576132894553*^9, {3.7965826993761883`*^9, 3.796582706013481*^9}, {
   3.7965827506466618`*^9, 3.7965827768494463`*^9}, {3.796602716969714*^9, 
   3.7966027359452753`*^9}, 3.7966028029423113`*^9, 3.796778740583888*^9, {
   3.79682972095653*^9, 3.7968297457051573`*^9}, 3.796878871521686*^9, 
   3.796934238901895*^9, {3.796934317169407*^9, 3.796934351860714*^9}, 
   3.796934510042247*^9, {3.796934550873735*^9, 3.7969345621100883`*^9}, {
   3.79708893070888*^9, 3.797088941882749*^9}, 3.7970900585981407`*^9, 
   3.797094718609107*^9, 3.797871917763609*^9, 3.799880107879156*^9, 
   3.802025670853566*^9, 3.802025793901915*^9, 
   3.802025845517043*^9},ExpressionUUID->"a1824e62-89cf-4f9b-8008-\
70786e1cfd3f"],

Cell[BoxData["1.1138341449238038`*^-7"], "Output",
 CellChangeTimes->{
  3.795466931447448*^9, 3.7954681199374523`*^9, 3.795468151905547*^9, 
   3.795468276406033*^9, {3.795468348847394*^9, 3.7954683583438997`*^9}, {
   3.795468528495655*^9, 3.795468544052593*^9}, 3.795473479670281*^9, 
   3.795478728587532*^9, {3.79548345437006*^9, 3.795483476134385*^9}, 
   3.795483871752944*^9, 3.795483913025771*^9, 3.795483969625618*^9, 
   3.7954849963769007`*^9, 3.795485667489429*^9, 3.79548580394928*^9, {
   3.795485835207779*^9, 3.795485908356154*^9}, {3.795485988383563*^9, 
   3.795486015308505*^9}, 3.7954876644338713`*^9, 3.7954882830876303`*^9, 
   3.795490545254098*^9, 3.795490659707164*^9, 3.7955253741483088`*^9, {
   3.795526574852322*^9, 3.795526599753208*^9}, {3.7955279121330976`*^9, 
   3.795527927394071*^9}, 3.795722005746777*^9, 3.795722060618435*^9, 
   3.7957222034323463`*^9, 3.795723595175893*^9, 3.796063166407894*^9, 
   3.796063212591196*^9, 3.796063265382625*^9, 3.7960641625789757`*^9, 
   3.796064276519648*^9, 3.796064493699926*^9, 3.7960645626001463`*^9, 
   3.796064875125659*^9, 3.796065728352829*^9, 3.796066186075223*^9, {
   3.796073437693001*^9, 3.7960734506191483`*^9}, 3.7960735468491096`*^9, {
   3.796073638972612*^9, 3.7960736473871*^9}, 3.79607880895251*^9, {
   3.796410104207896*^9, 3.7964101221858377`*^9}, 3.796576040672636*^9, 
   3.796576132894553*^9, {3.7965826993761883`*^9, 3.796582706013481*^9}, {
   3.7965827506466618`*^9, 3.7965827768494463`*^9}, {3.796602716969714*^9, 
   3.7966027359452753`*^9}, 3.7966028029423113`*^9, 3.796778740583888*^9, {
   3.79682972095653*^9, 3.7968297457051573`*^9}, 3.796878871521686*^9, 
   3.796934238901895*^9, {3.796934317169407*^9, 3.796934351860714*^9}, 
   3.796934510042247*^9, {3.796934550873735*^9, 3.7969345621100883`*^9}, {
   3.79708893070888*^9, 3.797088941882749*^9}, 3.7970900585981407`*^9, 
   3.797094718609107*^9, 3.797871917763609*^9, 3.799880107879156*^9, 
   3.802025670853566*^9, 3.802025793901915*^9, 
   3.802025845518539*^9},ExpressionUUID->"9c945bb7-b6dd-44e8-926d-\
22379186352f"],

Cell[BoxData["1.08`*^-7"], "Output",
 CellChangeTimes->{
  3.795466931447448*^9, 3.7954681199374523`*^9, 3.795468151905547*^9, 
   3.795468276406033*^9, {3.795468348847394*^9, 3.7954683583438997`*^9}, {
   3.795468528495655*^9, 3.795468544052593*^9}, 3.795473479670281*^9, 
   3.795478728587532*^9, {3.79548345437006*^9, 3.795483476134385*^9}, 
   3.795483871752944*^9, 3.795483913025771*^9, 3.795483969625618*^9, 
   3.7954849963769007`*^9, 3.795485667489429*^9, 3.79548580394928*^9, {
   3.795485835207779*^9, 3.795485908356154*^9}, {3.795485988383563*^9, 
   3.795486015308505*^9}, 3.7954876644338713`*^9, 3.7954882830876303`*^9, 
   3.795490545254098*^9, 3.795490659707164*^9, 3.7955253741483088`*^9, {
   3.795526574852322*^9, 3.795526599753208*^9}, {3.7955279121330976`*^9, 
   3.795527927394071*^9}, 3.795722005746777*^9, 3.795722060618435*^9, 
   3.7957222034323463`*^9, 3.795723595175893*^9, 3.796063166407894*^9, 
   3.796063212591196*^9, 3.796063265382625*^9, 3.7960641625789757`*^9, 
   3.796064276519648*^9, 3.796064493699926*^9, 3.7960645626001463`*^9, 
   3.796064875125659*^9, 3.796065728352829*^9, 3.796066186075223*^9, {
   3.796073437693001*^9, 3.7960734506191483`*^9}, 3.7960735468491096`*^9, {
   3.796073638972612*^9, 3.7960736473871*^9}, 3.79607880895251*^9, {
   3.796410104207896*^9, 3.7964101221858377`*^9}, 3.796576040672636*^9, 
   3.796576132894553*^9, {3.7965826993761883`*^9, 3.796582706013481*^9}, {
   3.7965827506466618`*^9, 3.7965827768494463`*^9}, {3.796602716969714*^9, 
   3.7966027359452753`*^9}, 3.7966028029423113`*^9, 3.796778740583888*^9, {
   3.79682972095653*^9, 3.7968297457051573`*^9}, 3.796878871521686*^9, 
   3.796934238901895*^9, {3.796934317169407*^9, 3.796934351860714*^9}, 
   3.796934510042247*^9, {3.796934550873735*^9, 3.7969345621100883`*^9}, {
   3.79708893070888*^9, 3.797088941882749*^9}, 3.7970900585981407`*^9, 
   3.797094718609107*^9, 3.797871917763609*^9, 3.799880107879156*^9, 
   3.802025670853566*^9, 3.802025793901915*^9, 
   3.8020258455199013`*^9},ExpressionUUID->"dc92ba48-7618-40d8-bc85-\
12dbb7423c12"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{93.8, 0.8488372093023254}, {46.9, 0.8594080338266384}, {23.5,
        0.8847780126849892}, {11.75, 0.9175475687103593}, {5.88, 
       0.9503171247357293}}]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{93.8, 0.8652561247216034}, {46.9, 0.8741648106904231}}]}, 
     {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{100., 0.8641425389755011}, {100., 
       0.8641425389755011}}]}, {}}, {}, {}, {}, {}}, {{{{}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwB0QIu/SFib1JlAgAAACwAAAACAAAAIo/9o54ewT7Usbz1///vP7cIKR9t
aJ8/MQA23qX97z/BeK6kKGivP358WIlM++8/xjBxZwZovz/q/pgnnPbvP8iM
0kj1Z88/ECsIhETt7z/JOoO57GffP4ggn7y52u8/ypHbcehn7z8wgK8sNrbv
P0q9B07mZ/8/VBJaCHdv7z/NDTYJBF0QQERh3lmE4O4/Qo9FwKdPGEADBSd6
82fuP2Uv+g0xDSBAkka1Ptr97T9NKWXxFkckQLGOqGlPmO0/stR9dck4KEDd
WZGYQ0btP6iFZGLiSShA/zbZAPtE7T+eNktP+1ooQLHR5U+zQ+0/ipgYKS19
KEDNP02iJkHtP2Ncs9yQwShA3/5UGBg87T8U5OhDWEopQHEISEkmMu0/dvNT
EudbKkA8Sby+7x7tPzsSKq8EfyxAfoHd9zb77D/OAVrJzY8sQGBMBwAt+uw/
YPGJ45agLEBgr57mI/nsP4TQ6RcpwixAvT0WTxT37D/OjqmATQUtQOR7KI3/
8uw/YAspUpaLLUDpfdm9/+rsP4QEKPUnmC5AzZht8abb7D8W9FcP8aguQH9n
Sse42uw/qOOHKbq5LkBOzpR7y9nsP83C511M2y5ASGRyf/PX7D8WgafGcB4v
QKuxUPRN1Ow/qf0mmLmkL0Ao0pmSLM3sP2f7kp2lWDBA+ileoZC/7D+UTuzD
eWAwQO1qT2HMvuw/wKFF6k1oMECJh8niCL7sPxhI+Db2dzBAuVNYKoS87D/I
lF3QRpcwQAQ44MuDuew/KS4oA+jVMEAzMJlYp7PsP+tgvWgqUzFABt+vmH+o
7D8YtBaP/loxQAyVvInTp+w/RAdwtdJiMUC8JlI8KKfsP5ytIgJ7cjFAE90X
5tOl7D9M+oeby5ExQKiVDUw0o+w/rZNSzmzQMUBzNqJhGZ7sPxDcCRh2MTJA
dVjZC5CW7D8sFlfa
         "]], LineBox[CompressedData["
1:eJwV03k41NsfB/ChaNFiK5HqJrophTFjhJzPiDFUGFm+uCSJQZmxL8naYmuR
lCK/RN20WlOpRIubiCtSaZNb0feUayyDknt+f5znPK/nPOc5z+dz3p/lviKn
nbIMBiOVrP/vzTFZ159wmeBz7vRL11yM7sOVYD1XJgza13h05GCkWCsuLvVm
grdzRS+LuOz6uHKJiAmlP1PTx7IxkuQpSPKymdA1WDmWfgSjqGD9spROJswb
rlfqyMAoXjFaz9XLCK41+aMfyRg1Z5j5Pd9pBAtv3OwMJ14ixyhwDDEC/ifv
Jd+SMLo3nqawKdEIOvkvansSMWL0nv6Kioyg2Z6n+nwvRqnV9y7qfjIC5/aF
zM5YjDI85HUmd7Hgfp5CrkMYRhYGc0b7I1jgbvS1ozcUo0E55cYX8eR8em12
DDFVviSwLIsFZgaGicVijHRmsq/uuMICTly56lQIqb96B7uJZoHerQtpzcEY
jSrWW58MYkNr5vTW2p0YXfr8eOG+MDZEyHQKvIm97jR/EcexoXlynrkM8cOA
l+l2GWxIFG+z4vthlH1voGWylA22aJ5qty9GeruWuvr1s0FaMa6v4oPRjsY9
/oZCY7gRZZP9xAMjP/OV9qMiY/h0ODQtlti/vI1dG20M0sGcdl1iYb6OnPVB
Y1gGY16Z7hiFiFqLqQvG0ObbZ+VEYRSntqIn8R9j2CyrPfTdBaNjAU2ez3w4
sDiVOewjwOj4m4iNOUIOdFWfjtMgzhUsW0OJOVD1UMGmwxGjPLOIiZ5EDhR5
nijjExfOX3pqpJAD0bTDHZYDqb8m9IXmWw5877QXqm/BqH6GuiDY3QTeXdxc
p2yL0efidXavtpuA/9sUlVY+RnPAaqNNkAk8OPPwaiYxFSNir9hjAs6ov0KO
eKDvkXp3gQkoJTiO/OSRPDSFfbT7YAKe+aGzxqwwis1qDl8dsB4+HF0nt5SL
kaFS0on+CFPY/ubpAzVTjG7P7FrVGG8KDTLdBz6vx8iSsa62ZJ8p8N9WRlYT
Ow90v9923BR2Zg91biWOauHovqg0BYdspfxjJhjdSR+obZCYwoKEQYVFHIz4
stt68sVmcDydacJlYeQztEHPfpc5uL/8qjRNH6O5yoy2jghz6JV8kX+5jrxv
0BDuudccVObu07pKrBrCqxUeNoeprx+a3Yj/6rO3Sy0zB1Vs2H9tLUYG77YJ
bw6bg7+/obqfHsn3k+QSrb0bYLVxy5p+XYyKCh9pSg9ZgJN49gEXHYwK/tDr
cjlhAfI/nicZEedp5GRXFVoAqyHxpBLx4RM+8mHXLcBz9/RFz7TJ/x/+MYDb
LMBxfowvn9gpwfDBRxUECh1m0yxXYDTd+0zgs1MI3I43XuUvx6jysGl3uxNA
oGp2/5klGPnmz5O77QpgEVf3KZVY+eLHdUUeAMlvM4cDicX1GSkiX4CRyhpb
Y2K94de6c8IAWt6J2lo1MSpx3xNjnQ1ws8sG5ImPa99ZcLMVwPDra1aSBkYR
tzc4ntnMhXKqd+Z5NYyqPRplXzlygVUa4nyIeHTCsVrVhQuW1q7lkcSxZn4a
WV5cWHRjtJBHnHAn45+4EC4InP606V+I0cF7XTHUUS7M3Oxz35D4dENokUoH
F17wRt4/U8Worum8JN3TEnKDt58yVsYo0Gb93UBqI6RdVrf8Npf096JhdXCQ
FaydruwrnUXmdehusjjaGt7Z3u0qlid5vhQZJQzjgVejaadkGplv3rG8lBQb
WNzxdEaADEYyDq8/HkniQ2lPj0gwRSMG94bM2VhbEPQyrydP0ihNTbql/aAd
/BWw7PcHP2gk9tjRIE3dBCruthKHCRr1JLP8UO5mmKW8eE3fGI1Uc069Ti/a
Ak+VQxdfkdLoguLq2MZ8e1jNBLVzozSqD1tm/ftlB6iZEv0qGKFR4W9nNTc4
OwLHpOhV3TCN7sZPMIRtjvB8WFo7PkSj5Ztm/FzhJgBmGM+WTVzVqpv5qkMA
qsmTkYckNMp6/MvgNy8nSIwP2P95kEY54f1BPm+coHv/+/VuxPELls7Xct8K
csmsrZ3/0qhUV64p4sNWyI0TLdhKLD8so17v7Qx2AfSRjwM0+tOgPKHwizO0
WamnhBLr+l6yn9ztAvGrhktmE3fb3qpwoV1ApO3EK/9Oo/biuLUo3BXkz499
diUeqxSYa0lcoYveuHwm8dTNsOoDIW7Q/sWguu4bjTYZ8KzjR9zgUJSDYhRx
o5d+YHA4BVlvS/PYxMo7hLVnIinIb8xPZhF7C4vmtkVT8K3zZZAR8WiYSgUr
noLkISMLQ2LtNOnE5D4KNlkG9+kRJ1XUZR09QcGhjsd22sSmMxzLqm9RYBoU
y1MhPjAnXbavloKBlAITZeK/lRqcNe5R8Cp6xholYqEmazyhgQK3o1WK84lP
Gi6y5D+l4FyV8P1s4mHPD89fv6HAq0orQ5YYtquvnPuegtiqmiQZ4kx/pxjU
Q8H45LFoBrFW6EPNkk8USGZp+v/CNBIcuLhz93cKWgSRvAnigsyemv/9S0FD
33o0Ttx3VGN2u4SC9mlWJmPESflZ14ylFIj9Vq0ZJW4++4gROE6Bfqyszgix
2oVfTvk/KBCWLV82TOx7mXO+ZZLcH9yvPkR8rUwsnZqiYKWOvqqE+D8PtPV0

         "]]},
       Annotation[#, 
        "Charting`Private`Tag$9487#1"]& ], {}}, {{}, {}, {}}}, {}, {}}, \
{{{{}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwB0QEu/iFib1JlAgAAABwAAAACAAAAIo/9o54ewT7Qsbz1///vP7cIKR9t
aJ8/CAtosqX97z/BeK6kKGivP+2jI9pL++8/xjBxZwZovz+1lMtqmfbvP8iM
0kj1Z88/SXLekDnt7z/JOoO57GffP3wdEPCN2u8/ypHbcehn7z8VNKP6hrXv
P0q9B07mZ/8/B2KIQLps7z/NDTYJBF0QQHt+kH2g1O4/Qo9FwKdPGECaEOus
tE3uP2Uv+g0xDSBAtdjmZhbQ7T9NKWXxFkckQFGa1yhGT+0/stR9dck4KEBu
ESmHDd7sPzsSKq8EfyxAfWS7j/pq7D9n+5KdpVgwQDa3mGS4Aew/b8bnM69N
MkCP4ZKzbabrP4paBiX9bDRALK6pJ/RK6z9jx3tmMWg2QMCl6QCe/Oo/wQcZ
UWtZOECnQ418cLbqPzERgJbpdDpADUe0BbVx6j9g8z0sTmw8QFabKcOHOOo/
oZ7FHPeNPkACRYU7IwLqP7OOOtvSUkBAVERiOmrU6T9imw4FulZAQHBAsg3O
0+k/EqjiLqFaQECwytVKMtPpP3DBioJvYkBAlYmXAvzR6T8s9NopDHJAQASx
BWiUz+k/qZYGL2WNQEC7rT/7bcvpP3UX2EQ=
         "]], LineBox[CompressedData["
1:eJwVzn801Xccx/HLTljjlNi5Y34U046yTWdWS5z3+yrE5d7rRj5jVMS5l+NH
FK4co0nhFuvHNvMj2ooo+XXNj3A4pMPMj7GWnI2iPt91uvk1N7dhn/3xOs/z
+O+1LSxOGqHL4/Fc2f6v/myf9uJVxLAahwdO/RycbHWVlPgIsKbVdPFsLQeq
oD7dRxIBDutmpWjucrCslahMAwQYOSSMlDMr9h03V4YI8OgBkUJUw0H6vdyZ
1FgBrraZJ1je5uBcx8MUUiDABVskv1Zw8EP3iXKTMQHOh9oHKa5x0Nl/YyEn
2A3RcU01lc+B3HNvu5zsx9pnadaWSRwUV+5SRUcdwGJDl8/EoRx8s9ieGZ/s
jso7Ql0/bw6eVZ1KkiV4ID9T3WDrzEGPx6Xvz5zxRG/tboPfd3CgI554kp9x
EIcMXjwWWXHAEzTplCm80DNuc3K0CQfn+Rrf0XPeyH/L+corAw7ig8K7NV8L
0SO4Mu5zHgfTmU7H4aoP7vQfeNOroWB6uXAip9wXL2Z1egfNUbi5eYeir0iE
WgOfiPf/ptCVYO3+YbUYm+4HG2ufUijdWmbh6i/BXLO3px/8SaE9TcuTDUtw
PrHQzGaCwjah/r+2gX6o0EsiZ8cpNA7Z5z0a80Nx8R9lV0YoKO+vOW4NkWKb
w9C+W4MULidyUUcnpRj4ae+SsJ9C2rtWm2y+OIST4ysfQx+FW/Yb+k9OHcLy
mYoQxx4Keks6Zl2h/tiguGSk7KJQ4ViXXvrcHzfe3ps700HBPqxKtBoTgMYx
RzxS71F47NVSH/AiAEu6Xloea6Uw+mPqR5B4GMXq02pBM4XXDX4uNguHsc7O
NkXWRGG9OUGVHRuI45o7DqpGCkJHD/e0fwIR1PwcbT2FvpBP5NGJBAd7S42S
6yhsCZe1lZwiOP8wKCOeOVRWbjScTFBzYWJJzrycYFLvlEYwP8Tm6ZfMH5zX
aFezCFo86RpzY86o71QWfEuwbnvjO5uYnfUltaoWgnPhxj2VtRSyDXN0aRvB
CJFR7HXmEeNuf/MOgmW2LWbFzDILp5X0boJf2Vsl5TN/t+s9t4MDBF1fGe5P
Yl4KnvptYpLgyvXXDgeY8ZjZdqO/CKrnq+ddmfMipSkwTTClaUPzHmabEz0W
P82yfz5VXjuZ/bIrI2LUBEujKjK2MBfnTf98bY5grF261JCZFphvHF0gyG9c
ttNjzihS1uzWEJzlDYys3KXwS1kvT75CsKLQrmqRmX9zTVr0huDpNuusl8xh
1XtuDK4S9B1rPvKcuaY2XrO+TlAsnXOZZv4P7LLkrA==
         "]]},
       Annotation[#, 
        "Charting`Private`Tag$9534#1"]& ], {}}, {{}, {}, {}}}, {}, {}}, \
{{{{}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwBkQFu/iFib1JlAgAAABgAAAACAAAAIo/9o54ewT7Qsbz1///vP7cIKR9t
aJ8/EbXHsKX97z/BeK6kKGivP21ootNL++8/xjBxZwZovz9w38ZQmfbvP8iM
0kj1Z88/qQ7MKDnt7z/JOoO57GffP+xxx0+M2u8/ypHbcehn7z+pS4J5gLXv
P0q9B07mZ/8/CUwIPKBs7z/NDTYJBF0QQKoQfXsv1O4/Qo9FwKdPGEAuA7k6
u0zuP2Uv+g0xDSBAEoTQbmPO7T9NKWXxFkckQMFhn/6PTO0/stR9dck4KEAF
khAQL9rsPzsSKq8EfyxAEQNPr59l7D9n+5KdpVgwQPQyYQis+us/b8bnM69N
MkCpQ9Bkl53rP4paBiX9bDRAPdyuzfI/6z9jx3tmMWg2QFGILpZf7+o/wQcZ
UWtZOECeWArRzKbqPzERgJbpdDpA/EG5Vj5f6j9g8z0sTmw8QKkgFFo4I+o/
oZ7FHPeNPkD3id/sgunpP7OOOtvSUkBA8KFK3Ey46T8V5NKYRRJBQO22TtCk
mek/BSG8hg==
         "]], LineBox[CompressedData["
1:eJwVx31Q03UcwPHhlUvNJ8JDaRmM0vDiNmi3NJHPxyGgATLGw77ESTjBNiZC
oCA41xwKAiMFH+LJOY8HEYqIeAzRE/GhaTFo1500U8r0+5POQzQWKtC3P973
vpeXKl2RMofH40lZ/z/L/0RyusdG9B8JOK2t4OCStX6iKEGGo6u4noA0DjSh
6/o0JAi70uJqp+Qc1DT6dWhTN2G0LeiOQ8pB2dO+gxk5wRgp8dc89uTgQdPe
bHVmCC5dUFUmWszBQEh5hdEYius7qxfsnKHgEjnyx1HDZowfMtNz4xR4Gztd
LLlbMP1JJXbep3DE3RkxXPgxtu+3eUtvU8j4ZEe/Mz8Ms5PmNzcMUhg9KEmG
k+GoHZ4sUV2j4Ha8cqTobASeKbWdD7xIoWHJmtzr1Vuxqy69L7mLwuXMt4NX
N0eiGxqwuZWC2dMi2BAjxwO5N0RTTRT6dM95apscr+za//T3egpeYfyX3soo
NNojOgctFNoHfUpu26PQ72eH+EANBdO1GbHnNgVa/xYYxRUUjmdxqUkOBX52
6FH3Fyco6JatXCyMj8ZP3aWwuozCeZ9XrXvuRWOtdm3hrVIKc5+5rLicGIMp
fNe6B8UUzom/05sfxiA3sTZwupCCj6pp63RaLNo3CF9THqbw25aettixWFQs
arDOy6cwXJvnC1lxOPeDL8c7DBT+/T4qQDgRh7FUVN6ipzDbndlRsFuJjXfd
XId0FMLEIcG6f5QYnlOaP5ZH4fo2kUabRbC4VpIty6XgukPde3ovwV0mech6
5kT12YW2HIKlfyYslzBPZr7RJtERrFwW2P8u8ztHnM+nDxG84vOW7zxmQ9sl
07FTBE8Jvk607aPwEV/e2tFDsEYf8X4Sc8HrRXNoL8Fy8yvr4pmHlvbHeFwk
uLL4ZKiCWS2QTOn7CZq9ZambmL/yWy7bfJOg66L2q+8xP0u498uIg+Ckl8b+
JIcCbl+xauFdgm7W3TOPmEt2KvbBKEH7naA195mFnw8I6v4iKPshvvBX5qiC
xpS0xwT1e4TKXuaaktGuM+ME8+rLjrYz02Me84cnCKp8b/74DbOh2tQidRIc
u1AVZGG+ZbnK00wR7DaK8iuZ3RtmFNUvCN540zRQzqxq/rD+p2mCjoff8k3M
La0ZztlZgvzQqvDDzP8BVsimkg==
         "]]},
       Annotation[#, 
        "Charting`Private`Tag$9581#1"]& ], {}}, {{}, {}, {}}}, {}, {}}},
  AspectRatio->1,
  Axes->False,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.8437632135306553},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{909., Automatic},
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.795466931447448*^9, 3.7954681199374523`*^9, 3.795468151905547*^9, 
   3.795468276406033*^9, {3.795468348847394*^9, 3.7954683583438997`*^9}, {
   3.795468528495655*^9, 3.795468544052593*^9}, 3.795473479670281*^9, 
   3.795478728587532*^9, {3.79548345437006*^9, 3.795483476134385*^9}, 
   3.795483871752944*^9, 3.795483913025771*^9, 3.795483969625618*^9, 
   3.7954849963769007`*^9, 3.795485667489429*^9, 3.79548580394928*^9, {
   3.795485835207779*^9, 3.795485908356154*^9}, {3.795485988383563*^9, 
   3.795486015308505*^9}, 3.7954876644338713`*^9, 3.7954882830876303`*^9, 
   3.795490545254098*^9, 3.795490659707164*^9, 3.7955253741483088`*^9, {
   3.795526574852322*^9, 3.795526599753208*^9}, {3.7955279121330976`*^9, 
   3.795527927394071*^9}, 3.795722005746777*^9, 3.795722060618435*^9, 
   3.7957222034323463`*^9, 3.795723595175893*^9, 3.796063166407894*^9, 
   3.796063212591196*^9, 3.796063265382625*^9, 3.7960641625789757`*^9, 
   3.796064276519648*^9, 3.796064493699926*^9, 3.7960645626001463`*^9, 
   3.796064875125659*^9, 3.796065728352829*^9, 3.796066186075223*^9, {
   3.796073437693001*^9, 3.7960734506191483`*^9}, 3.7960735468491096`*^9, {
   3.796073638972612*^9, 3.7960736473871*^9}, 3.79607880895251*^9, {
   3.796410104207896*^9, 3.7964101221858377`*^9}, 3.796576040672636*^9, 
   3.796576132894553*^9, {3.7965826993761883`*^9, 3.796582706013481*^9}, {
   3.7965827506466618`*^9, 3.7965827768494463`*^9}, {3.796602716969714*^9, 
   3.7966027359452753`*^9}, 3.7966028029423113`*^9, 3.796778740583888*^9, {
   3.79682972095653*^9, 3.7968297457051573`*^9}, 3.796878871521686*^9, 
   3.796934238901895*^9, {3.796934317169407*^9, 3.796934351860714*^9}, 
   3.796934510042247*^9, {3.796934550873735*^9, 3.7969345621100883`*^9}, {
   3.79708893070888*^9, 3.797088941882749*^9}, 3.7970900585981407`*^9, 
   3.797094718609107*^9, 3.797871917763609*^9, 3.799880107879156*^9, 
   3.802025670853566*^9, 3.802025793901915*^9, 
   3.80202584561031*^9},ExpressionUUID->"0c37ff2b-2d73-4ba1-8b30-\
8ad677396d41"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7954679422449913`*^9, 3.795467949157428*^9}, {
  3.795468392969067*^9, 3.7954684555915728`*^9}, {3.795468486807898*^9, 
  3.795468495270746*^9}},ExpressionUUID->"a5105be1-dbfa-4d45-b7da-\
5395e6a3c4ce"],

Cell[BoxData["0.8488372093023254`"], "Output",
 CellChangeTimes->{
  3.7954679496234922`*^9},ExpressionUUID->"c47db334-3481-4bc2-b226-\
49eb8cb585a9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.79606624992634*^9, 3.7960662551902323`*^9}, {
  3.796072942432693*^9, 
  3.796072947681584*^9}},ExpressionUUID->"756a22b0-7d77-42ed-a112-\
e833156332e7"],

Cell[BoxData["6.85130590951228`"], "Output",
 CellChangeTimes->{
  3.796072943042725*^9},ExpressionUUID->"c74109fa-0098-4a1f-9b9e-\
f4df11a3c81c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{"5", "*", "2", "*", "6.02", "*", 
    SuperscriptBox["10", "19"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"radsA", "=", 
  RowBox[{"(", 
   RowBox[{"1", "/", 
    SuperscriptBox["n", 
     RowBox[{"1", "/", "3"}]]}], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{"radsB", "=", 
  RowBox[{"0.55", "*", "radsA"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"radsR", "=", 
   RowBox[{"6.39", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "8"}]]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pointsZero", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5.88", ",", 
       RowBox[{"4.4", "/", "4.7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11.75", ",", 
       RowBox[{"4.21", "/", "4.70"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"23.5", ",", 
       RowBox[{"3.95", "/", "4.70"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"46.9", ",", 
       RowBox[{"3.63", "/", "4.70"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"93.8", ",", 
       RowBox[{"3.54", "/", "4.70"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pc", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"{", "pointsZero", "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pd", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"velRPY", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"radsA", ",", "0", ",", "0"}], "}"}], ",", 
            FractionBox[
             RowBox[{"kb", " ", "T"}], 
             RowBox[{
              FractionBox["per", "100"], " ", "diffA", " ", "6", " ", "\[Mu]",
               " ", "\[Pi]"}]], ",", 
            RowBox[{"-", 
             RowBox[{"{", 
              RowBox[{"radsA", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"velDry", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aReal", ",", 
            RowBox[{"{", 
             RowBox[{"radsA", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"velDry", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", "aReal", ",", 
           RowBox[{"{", 
            RowBox[{"radsA", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ")"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"per", ",", "0", ",", "100"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pe", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"velRPY", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"radsB", ",", "0", ",", "0"}], "}"}], ",", 
            FractionBox[
             RowBox[{"kb", " ", "T"}], 
             RowBox[{"0.5", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 FractionBox["per", "100"], " ", "diffA"}], "+", 
                RowBox[{"0.881", 
                 FractionBox["per", "100"], " ", "diffB"}]}], ")"}], " ", "6",
               " ", "\[Mu]", " ", "\[Pi]"}]], ",", 
            RowBox[{"-", 
             RowBox[{"{", 
              RowBox[{"radsB", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"velDry", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aReal", ",", 
            RowBox[{"{", 
             RowBox[{"radsB", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"velDry", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aReal", ",", 
           RowBox[{"{", 
            RowBox[{"radsB", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ")"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"per", ",", "0", ",", "100"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pf", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"velRPY", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"radsR", ",", "0", ",", "0"}], "}"}], ",", 
            FractionBox[
             RowBox[{"kb", " ", "T"}], 
             RowBox[{"0.5", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 FractionBox["per", "100"], " ", "diffA"}], "+", 
                RowBox[{"0.881", 
                 FractionBox["per", "100"], " ", "diffB"}]}], ")"}], " ", "6",
               " ", "\[Mu]", " ", "\[Pi]"}]], ",", 
            RowBox[{"-", 
             RowBox[{"{", 
              RowBox[{"radsR", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"velDry", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aReal", ",", 
            RowBox[{"{", 
             RowBox[{"radsR", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"velDry", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aReal", ",", 
           RowBox[{"{", 
            RowBox[{"radsR", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ")"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"per", ",", "0", ",", "100"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"pc", ",", "pd", ",", "pe", ",", "pf", ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"Axes", "->", "False"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.795484937934853*^9, {3.7954855492536087`*^9, 3.79548559624098*^9}, {
   3.795722235686719*^9, 3.7957222865718393`*^9}, {3.795723574040934*^9, 
   3.7957235797861423`*^9}, {3.795723629165276*^9, 3.7957236393464727`*^9}, {
   3.795726088054748*^9, 3.795726159445827*^9}, 3.795726300814219*^9, 
   3.795727209277835*^9, {3.795727240578865*^9, 3.795727240665269*^9}, {
   3.7958256609472303`*^9, 3.795825664247794*^9}, {3.795827688006019*^9, 
   3.7958277036386423`*^9}, {3.79587405565604*^9, 3.795874056029595*^9}, {
   3.7958741184663973`*^9, 3.795874124941731*^9}, 3.795874628370688*^9, {
   3.7958820033772783`*^9, 3.795882008349715*^9}, {3.7958844972459087`*^9, 
   3.7958845101595087`*^9}, {3.795891415563179*^9, 3.795891421807781*^9}, {
   3.795905242127041*^9, 3.7959052422904987`*^9}, {3.795905341679208*^9, 
   3.7959053427370567`*^9}, 3.795958646536868*^9, 3.795958686416255*^9, 
   3.7960559583622026`*^9, {3.796066206078662*^9, 3.796066226542035*^9}, {
   3.796066261063079*^9, 3.796066326173416*^9}, {3.796072928533545*^9, 
   3.7960729789769497`*^9}, {3.79607331641862*^9, 3.7960733988093367`*^9}, {
   3.79622486491496*^9, 3.796224893745957*^9}, {3.796410055519586*^9, 
   3.796410061284452*^9}, {3.79641013193999*^9, 3.796410138481398*^9}, 
   3.796410383501691*^9, {3.79660274395603*^9, 3.796602748146254*^9}, {
   3.796602846882168*^9, 3.7966028632190647`*^9}, {3.796602911258479*^9, 
   3.796603011763035*^9}, {3.796603093623706*^9, 3.796603094347002*^9}, {
   3.796934625152673*^9, 3.796934736164299*^9}, {3.797088960527691*^9, 
   3.797088961031466*^9}, {3.797090003624618*^9, 3.797090043413762*^9}, 
   3.797103191316407*^9, 
   3.7978719275807323`*^9},ExpressionUUID->"87a64c14-5dad-4b90-8daf-\
7ebea607e729"],

Cell[BoxData["1.1843166535215862`*^-7"], "Output",
 CellChangeTimes->{
  3.796603013293898*^9, 3.796603095867119*^9, {3.796934627208404*^9, 
   3.796934641824312*^9}, {3.7969347139654083`*^9, 3.796934737234611*^9}, 
   3.797088964283329*^9, {3.797090031319097*^9, 3.7970900439752207`*^9}, 
   3.797094991269308*^9, {3.797871924120324*^9, 
   3.7978719284627666`*^9}},ExpressionUUID->"e1e64834-5935-4abe-bc4a-\
6b73105fadd4"],

Cell[BoxData["6.513741594368725`*^-8"], "Output",
 CellChangeTimes->{
  3.796603013293898*^9, 3.796603095867119*^9, {3.796934627208404*^9, 
   3.796934641824312*^9}, {3.7969347139654083`*^9, 3.796934737234611*^9}, 
   3.797088964283329*^9, {3.797090031319097*^9, 3.7970900439752207`*^9}, 
   3.797094991269308*^9, {3.797871924120324*^9, 
   3.797871928466989*^9}},ExpressionUUID->"6f739307-1797-436f-b860-\
6b738c255619"],

Cell[BoxData["6.39`*^-8"], "Output",
 CellChangeTimes->{
  3.796603013293898*^9, 3.796603095867119*^9, {3.796934627208404*^9, 
   3.796934641824312*^9}, {3.7969347139654083`*^9, 3.796934737234611*^9}, 
   3.797088964283329*^9, {3.797090031319097*^9, 3.7970900439752207`*^9}, 
   3.797094991269308*^9, {3.797871924120324*^9, 
   3.7978719284683247`*^9}},ExpressionUUID->"bd557c66-17a7-41f3-bd11-\
a1fcae8a5acf"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{5.88, 0.9361702127659576}, {11.75, 0.8957446808510638}, {
       23.5, 0.8404255319148937}, {46.9, 0.7723404255319148}, {93.8, 
       0.7531914893617021}}]}, {}}, {}, {}, {}, {}}, {{{{}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwBMQLO/SFib1JlAgAAACIAAAACAAAAIo/9o54ewT61or71///vP7cIKR9t
aJ8/nhKpJ6b97z/BeK6kKGivPycWP8tM++8/xjBxZwZovz8Z2G1nm/bvP8iM
0kj1Z88/ckfW8z3t7z/JOoO57GffPxPU0lyY2u8/ypHbcehn7z/wpHpvorXv
P0q9B07mZ/8/LyWFlwtt7z/NDTYJBF0QQJyDZW7B1e4/Qo9FwKdPGEDsFzyf
B1DuP2Uv+g0xDSBAU435gP7T7T9NKWXxFkckQCczNHpbVe0/stR9dck4KEAb
rWNkmebsPzsSKq8EfyxA/gjlPKp27D9n+5KdpVgwQFAQeyH3EOw/b8bnM69N
MkAxZekma7nrP4paBiX9bDRAISmb9ndi6z9jx3tmMWg2QLRR2LvKGOs/wQcZ
UWtZOEDdU5A2l9fqPzERgJbpdDpAhzwFHreY6j9g8z0sTmw8QLIdMcluZeo/
DRIA0NR0PEAfWqMmoGTqP7owwnNbfTxAToMfCtJj6j8Ubka7aI48QPSbNWM3
Yuo/yOhOSoOwPEBY5thdCF/qPzDeX2i49DxAhd/7dMNY6j8AyYGkIn09QG9j
syqeTOo/oZ7FHPeNPkCHseiz5TXqP5xcLNdVlj5A6uwQvTs16j+YGpORtJ4+
QCOiZ0eSNOo/jpZgBnKvPkAWeqDfQDPqP3qO++/s0D5ACOA/HqQw6j9SfjHD
4hM/QBCENdSCK+o/MO8hQ9cnP0CWanCyASrqP1wTARo=
         "]], 
        LineBox[CompressedData["
1:eJwVzX801Xccx/FLk06FpRw/kzBFWXS0Gtr7fbl+q67L5Ytx6qL5MT/TULd7
UKPimB9NbVe5lgg7flxu8yNEpLGmSVtu8qulPjeVlXUjsc/+eJ3nefz12iyI
50WoslgsDt3/nckpl1vtATwuL269vVUBjXn2D4d4iAJPkypnLQUIxJpqrf6I
LYpb4V2aCtC+OvVpWRDi4/aKE0Cd0HU2M16A2DRT2+uooYDtc3LLtUmI+izn
Kw5rFFAeeDzVpQARO0f8PdUVcM78uk7zIKLkhIND1TKB5Na93IvebAwWr1IG
/0NAFtSnOsJlo23auPOTWQJvF7iyDXw28uvKn8ZRpzmEG+SGsFHJq9x58hUB
0fWzfx+LY+PRXQfv1L0gkN3xVyqTz8YufsYdPQWBH7sTy9YPs1E7OXNgy2MC
nf1XXp8JdsKOVEW65Z8Eotw+b49inLHm60e10hsESq7aymKiOdiQpTf46GcC
BW/aMxJSXDBKZD24q4TAdPXRbyKTXHGgTre6LY9Aj2vhhcxMNzSevz/8PoOA
ygH51Hfp7ugwvajISSHAYl9TkaR5IO7JakmLI3BaV7lvKNsTJ0yabrZHEEgI
CutWnvRC+brGxWOhBCYz7MLhe2+U7SyJTwwgsKHoB/mZsn2YZz3R7+RDoOJj
q7Q+8X7cFujUoelNoCtpk8uWmgPY/uUD3zeuBC6ZSIz2+nGxucJgvtSJQLtw
gRV5l4vRutIXnV8Q2OylvmgW4IP6UnfHZ/YEmgYtc0aGffAToeFY6W4CubeW
bExCeOi80eBVsB2BoiMk+uAoD1fkmx3OsyUg1DHWMg30xaGekZcrdhCoslTr
T57wxTr1qJsp2wmsnFPR7wr1w8s3fuVxrAhU2jSILj31Q03Dn3ZrbiVgKaje
/yGWj+euWZitsSDw0KNFyn/Ox7zwPomXOYGhy8es4Yg/9opn9LJNCbxr9HE0
fe2P1RysXDQhsNycJMuKC8DRoG6Vwk0EvGxcXYT/BqCf5szezcYE+kJ2RMUc
YbB8WhI7ZkRAOyyy7eJRBqWbPN89oA6NLNO4m8Kgd0nMqXvUb5PWS+2EDCJH
p+w2tflp5cKHUwz+fmHuuZQ6XdqZm1/MoNpXcX3Z1Pbq3HpZC4MLvMaCndRZ
a8+oPmujf6NhntbUf6zr9jPoYDDeQfjRVupII7t5UTeDnWlTwo3U5231nNwH
GHTTShGtop4LnrgnH2XwvhqvZ8yQAB7St9AYZ3BJxCkaoc45zEuFSQa3zRSH
DVObJvYYlT9hcLwhcFU/tU/W1YjYlwx2HfIQyKhLciZ/KZ1lsHTW2rGe+lm+
weqh1wxWno/TraFOF+fWfqZkkMtRHZJQ/ybpZUXNM/gt369BTK1bscQTv2dw
dTGrsJhaULP7yp0PDNrkrkwuoK6tT1AuLzMo6ogIyKX+D0tICI4=
         "]]},
       Annotation[#, 
        "Charting`Private`Tag$2813#1"]& ], {}}, {{}, {}, {}}}, {}, {}}, \
{{{{}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwBQQK+/SFib1JlAgAAACMAAAACAAAAIo/9o54ewT7Qsbz1///vP7cIKR9t
aJ8/zmEtnKX97z/BeK6kKGivP7iCOoFL++8/xjBxZwZovz9HFyoHmPbvP8iM
0kj1Z88/ZYteAjTt7z/JOoO57GffP5CfHLZ32u8/ypHbcehn7z+jd+0SLrXv
P0q9B07mZ/8/wubhoVZr7z/NDTYJBF0QQEqUjdiXzu4/Qo9FwKdPGECiXv4i
Y0DuP2Uv+g0xDSBAbFyPDd247T9NKWXxFkckQMgbAwI2Ku0/stR9dck4KEAg
CdVpK6nsPzsSKq8EfyxAYyDh0Mgh7D9n+5KdpVgwQK6dbJphoes/b8bnM69N
MkDSYQ98oy3rP4paBiX9bDRANwvRWoe06j9jx3tmMWg2QM8A9EqYR+o/wQcZ
UWtZOEAjZyqQrODpPzERgJbpdDpAzIeloVZ16T9g8z0sTmw8QMhbgc9AFek/
oZ7FHPeNPkC+7L8vibHoP7OOOtvSUkBAhTG8cCFU6D90uj1QnUxBQHSYOB4H
Aeg/v8ql8olbQkDIA8ZLRKvnP2lHOb1pWENA1AyiN1Nf5z+cqDG1a2pEQND4
avGCEec/kfO9gXB3RUBSLbaGpMnmP+aqdXZockZA38oaFaSK5j/ERpKYgoJH
QLjRONy+SuY/AU/a4o+ASEB5VwVfOxPmPwBBtgGgeUlAcFF+QrHg5T+IF/dN
0odKQM5Uvpo2ruU/cFpjwveDS0Cp8L1PMIPlPyNidee9UExAY4UZxiVj5T8H
Oguw
         "]], LineBox[CompressedData["
1:eJwVx30s1HEcwPHDUkJ5XB5unqeodM1TRN8PYh7Kw3Xcl0ao7DznLqMmydrp
ULNUhjzmKaU4NWGdojymULbyMOz3Faq1Tuex0K8/3nvvZRyZyD4vz2Aw9tP9
/7VGu+Y5fAKOKmjm/4iYRVr5hWOiipMwfscyfM56FtWoWV7qKfaFRcsF8lhr
Fr3mG7rvfeQHlVP2LorLBJUalTOdOf7Qf6XIT22CoJdp6wzekD90u8TFvH9D
kLHP9r+m3ABIMmivkjQQ9OyDRc6XTwFQrly3S7mIoNzuTZZRKBvaJlO1+UKC
8gULMeETbOjd9BCXJROUpm2w2yT4FITv9x09E0XQQ4tt/RenT8GR5GcSbS5B
ijI53ddhHMgP87Ka9iKoltWUXjrHgeMhN0uKnAiyiKz33YgPhGhDb+8sFkHj
Xq3iwO+BYNqtnqFkTtDIg8sHkSAISqs/347XJ2i1OcDJZDEIRG1MNysNgrZe
8J8LE7jgPDrS16BEkA/Lwz1tiQucalKwQ46gntBD0bECDHvGhVYpaxTSOMtr
L0nGMGhrHRdEO4xXoTqUguFbV5PYlvYyX1Nsk4ZhclgnRLZKIbMbK+sb1zGU
8uw0+LQzxB25efcwZHdIzRJXKOS43b/xeSuGbmmXJHGJQkIVkfx8OwYV4VM1
f9rD6p0cPQkG68adsSzaPKbNWnonBtGggoNURqGCwzqungMY3OobHAS0Zaen
P45NYFg+4DmQ+ptCEKFrrjqFoa2ltzKYdk4UOxXNYEi4Jcp0pG2S9IZZNYuh
4vKrkL+LFAoQ1p2P/4nBQlMcn0H7fs5MS9kvDE6tlDCC9nye3s6RRQxZmcfq
XGlnFOc+sVvBkCt/TmEb7XflbxnRaxiCN/c5f5VSaE/NJrv4D4bUWuWrPbQj
H9lXD25guGuq1FdH+0njhZWtLQxlhQb62bT/AR6mVRg=
         "]]},
       Annotation[#, 
        "Charting`Private`Tag$2856#1"]& ], {}}, {{}, {}, {}}}, {}, {}}, \
{{{{}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAIo/9o54ewT7Qsbz1///vP7cIKR9t
aJ8/lh2Vm6X97z/BeK6kKGivPzp82X5L++8/xjBxZwZovz8WEqb9l/bvP8iM
0kj1Z88/GqBO3DPt7z/JOoO57GffP2VF3R132u8/ypHbcehn7z/xtPCxK7Xv
P0q9B07mZ/8/7yfwHU1r7z/NDTYJBF0QQH5b9YNuzu4/Qo9FwKdPGEDx6SPo
B0DuP2Uv+g0xDSBA1tzE+D247T9NKWXxFkckQPpqhyE4Ke0/stR9dck4KECE
lq4rwafsPzsSKq8EfyxAuwwActMf7D9n+5KdpVgwQM2/1rHNnus/b8bnM69N
MkDkG0sXaCrrP4paBiX9bDRAUMYJ94Cw6j9jx3tmMWg2QEhA21DAQuo/wQcZ
UWtZOEAlRBxN9NrpPzERgJbpdDpA7/YZ8ZVu6T9g8z0sTmw8QB+Dipp1Dek/
oZ7FHPeNPkBakD+Dh6joP7OOOtvSUkBAqh3MJdlJ6D90uj1QnUxBQFtXKbp6
9ec/v8ql8olbQkCDmA0fQ57nP2lHOb1pWENAqqcNIeJQ5z+cqDG1a2pEQMlo
c25tAec/kfO9gXB3RUAujLM53LfmP+aqdXZockZASWZdfjJ35j/ERpKYgoJH
QBkfY7dqNeY/AU/a4o+ASEDv0pyIEPzlPwBBtgGgeUlAn3FFFabH5T+IF/dN
0odKQK14ki4Nk+U/cFpjwveDS0C1YYgD+WXlP+GBNGQ/lUxAT4CAU3s55T++
iCMfMd1MQOaNey+GLuU/cu8WOg==
         "]], LineBox[CompressedData["
1:eJwVzn8s1HEcx/HrWtqMpfTDj5vfuzrzsxBN93lPIyLcuTufGIWx4xLdJf0Q
WpK6W7MxtnD5rbKZlOnyK7+yJSNJc9mw75eoEXby69z16Y/Xnnv897KNT+Mn
MhkMhiPZ/7K+07+i5kIg9EKGNsR5DtWbON4eLAuF8yt56xarNOqRWvsfbwwD
F1FiSc0ojZQ2layzgnBoVicZOLTSqDNrmyEeDQeK1ZVzv5xGtsH7tfaRPNir
fGJyOI9Gb0c48slxHtQHOPV5ptFI8VHnZhPDh9Gbp+plUTQqki2mXJniQ5+p
q2d1II2yjlgdsLsUAVxFju1dbxq95Oz7dGMmAnQStk/QCRoZaPaY98QKQH+Z
ExdsQaMGt9fZyp8CKGnhlvga0YgT/yp0N1UIHZaGTlI9hX4EqVqEv4VQLa0J
E2ooNFZzxxnJRDCVEfLIbJFCm294vnZrItAVujAvTlNI/07amn8tEv4YM6uC
JygU7Bbgn7UeCW3zkij7YQoNxrgmS2QYzIzV7tYDFDqUIG6vyMDAdRvP1vZT
KFZcZTyaiWHCn/1tkviv1LTFIwvD0nR/RTGxQ8HG9m4ehvXAp0pD4tyWbkVh
CQZUnhK92UuhM/vDm1tVGFI2ohvVHyiUb/SYudCOwXlklaUi/nKwV2DRhaHO
IbO0lFjM8tjK7sVQ9Oxcg4C41N3ML3AIgwtX7j7STSFN9MxX9RQGpfDo8kAX
hSDOnG08jcHroeNSLbE8iX8LzWIotNRqHhDbXe9n1c5h2GEPWfkR8/JfJKYu
Y2A09aq7OilULp9te76CQaSXWCuJFwotDMfWMBS7vr96jzi3TNHktUH+M31s
fYk/Vw4wkrcwnCxKKLAkPlav45ftYPCeZm9ud1AovvF03fAuhvmZnHQ1cVNz
+oZej0FfJFlVEf8DgeNNwQ==
         "]]},
       Annotation[#, 
        "Charting`Private`Tag$2899#1"]& ], {}}, {{}, {}, {}}}, {}, {}}},
  AspectRatio->1,
  Axes->False,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.7440425531914893},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.796603013293898*^9, 3.796603095867119*^9, {3.796934627208404*^9, 
   3.796934641824312*^9}, {3.7969347139654083`*^9, 3.796934737234611*^9}, 
   3.797088964283329*^9, {3.797090031319097*^9, 3.7970900439752207`*^9}, 
   3.797094991269308*^9, {3.797871924120324*^9, 
   3.7978719285687323`*^9}},ExpressionUUID->"617952f2-90ba-4b81-abc9-\
81a21db632bd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{"20", "*", "2", "*", "6.02", "*", 
    SuperscriptBox["10", "19"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"radsA", "=", 
  RowBox[{"(", 
   RowBox[{"1", "/", 
    SuperscriptBox["n", 
     RowBox[{"1", "/", "3"}]]}], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{"radsB", "=", 
  RowBox[{"0.55", "*", "radsA"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"radsR", "=", 
   RowBox[{"4.326863", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "8"}]]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pointsZero", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"11.75", ",", 
       RowBox[{"1.67", "/", "1.85"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"23.5", ",", 
       RowBox[{"1.48", "/", "1.85"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"46.9", ",", 
       RowBox[{"1.28", "/", "1.85"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"93.8", ",", 
       RowBox[{"1.16", "/", "1.85"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pointsTheory", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"100", ",", 
      RowBox[{"1.14", "/", "1.85"}]}], "}"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pc", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"{", 
     RowBox[{"pointsZero", ",", "pointsTheory"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pd", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"velRPY", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"radsA", ",", "0", ",", "0"}], "}"}], ",", 
            FractionBox[
             RowBox[{"kb", " ", "T"}], 
             RowBox[{
              FractionBox["per", "100"], " ", "diffA", " ", "6", " ", "\[Mu]",
               " ", "\[Pi]"}]], ",", 
            RowBox[{"-", 
             RowBox[{"{", 
              RowBox[{"radsA", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"velDry", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aReal", ",", 
            RowBox[{"{", 
             RowBox[{"radsA", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"velDry", "[", 
          RowBox[{
           RowBox[{"aReal", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", "aReal", ",", 
           RowBox[{"{", 
            RowBox[{"radsA", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ")"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"per", ",", "0", ",", "100"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pe", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"velRPY", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"radsB", ",", "0", ",", "0"}], "}"}], ",", 
            FractionBox[
             RowBox[{"kb", " ", "T"}], 
             RowBox[{"0.5", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 FractionBox["per", "100"], " ", "diffA"}], "+", 
                RowBox[{"0.881", 
                 FractionBox["per", "100"], " ", "diffB"}]}], ")"}], " ", "6",
               " ", "\[Mu]", " ", "\[Pi]"}]], ",", 
            RowBox[{"-", 
             RowBox[{"{", 
              RowBox[{"radsB", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"velDry", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aReal", ",", 
            RowBox[{"{", 
             RowBox[{"radsB", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"velDry", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aReal", ",", 
           RowBox[{"{", 
            RowBox[{"radsB", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ")"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"per", ",", "0", ",", "100"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pf", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"velRPY", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"radsR", ",", "0", ",", "0"}], "}"}], ",", 
            FractionBox[
             RowBox[{"kb", " ", "T"}], 
             RowBox[{"0.5", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 FractionBox["per", "100"], " ", "diffA"}], "+", 
                RowBox[{"0.881", 
                 FractionBox["per", "100"], " ", "diffB"}]}], ")"}], " ", "6",
               " ", "\[Mu]", " ", "\[Pi]"}]], ",", 
            RowBox[{"-", 
             RowBox[{"{", 
              RowBox[{"radsR", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"velDry", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aReal", ",", 
            RowBox[{"{", 
             RowBox[{"radsR", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"velDry", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aReal", ",", 
           RowBox[{"{", 
            RowBox[{"radsR", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ")"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"per", ",", "0", ",", "100"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"pc", ",", "pd", ",", "pe", ",", "pf", ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"Axes", "->", "False"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.797255618295362*^9, 3.797255710382516*^9}, {
   3.7973811732300777`*^9, 3.797381201594322*^9}, {3.797871954034402*^9, 
   3.7978719738319807`*^9}, {3.7978720076874647`*^9, 3.797872008802434*^9}, {
   3.798079061804298*^9, 3.798079079119652*^9}, 3.798079112107511*^9, {
   3.802025980847451*^9, 3.8020259884004707`*^9}, {3.802026199143488*^9, 
   3.8020262051344213`*^9}, {3.802026238774282*^9, 
   3.802026270150619*^9}},ExpressionUUID->"4e4e5cf2-ce8e-4c2b-a3e0-\
5974cf6a77ed"],

Cell[BoxData["7.460727407564498`*^-8"], "Output",
 CellChangeTimes->{{3.7972556188129597`*^9, 3.797255641173596*^9}, 
   3.797255710573831*^9, 3.797381203429862*^9, 3.79787193586613*^9, 
   3.797871978422558*^9, 3.797872010131536*^9, 3.798079114894218*^9, {
   3.802026264453041*^9, 
   3.8020262708784037`*^9}},ExpressionUUID->"ed3b9539-f3ff-4b2e-91a5-\
27f391b80a9b"],

Cell[BoxData["4.1034000741604744`*^-8"], "Output",
 CellChangeTimes->{{3.7972556188129597`*^9, 3.797255641173596*^9}, 
   3.797255710573831*^9, 3.797381203429862*^9, 3.79787193586613*^9, 
   3.797871978422558*^9, 3.797872010131536*^9, 3.798079114894218*^9, {
   3.802026264453041*^9, 
   3.802026270879772*^9}},ExpressionUUID->"9ac43c4e-f7d9-489a-8954-\
f4ab38996aa0"],

Cell[BoxData["4.326863`*^-8"], "Output",
 CellChangeTimes->{{3.7972556188129597`*^9, 3.797255641173596*^9}, 
   3.797255710573831*^9, 3.797381203429862*^9, 3.79787193586613*^9, 
   3.797871978422558*^9, 3.797872010131536*^9, 3.798079114894218*^9, {
   3.802026264453041*^9, 
   3.80202627088097*^9}},ExpressionUUID->"246cd682-81eb-4607-a19b-\
42dfa174960d"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{11.75, 0.9027027027027025}, {23.5, 0.7999999999999998}, {
       46.9, 0.6918918918918918}, {93.8, 0.6270270270270268}}]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{100., 0.616216216216216}, {100., 
       0.616216216216216}}]}, {}}, {}, {}, {}, {}}, {{{{}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwBEQLu/SFib1JlAgAAACAAAAACAAAAIo/9o54ewT6zor71///vP7cIKR9t
aJ8/M1ygEqb97z/BeK6kKGivP1mrHXdM++8/xjBxZwZovz+dCusWmvbvP8iM
0kj1Z88/+8zQsTjt7z/JOoO57GffPxdhyFSD2u8/ypHbcehn7z/CxmdPTrXv
P0q9B07mZ/8/9odnF7tr7z/NDTYJBF0QQJ4d8NQL0O4/Qo9FwKdPGEDPOCNk
bUPuP2Uv+g0xDSBAQjXRywS+7T9NKWXxFkckQM6ijHBJMu0/stR9dck4KEAY
T3khj7TsPzsSKq8EfyxAFAIH5Wcx7D9n+5KdpVgwQGPqA0vOtes/b8bnM69N
MkCj9hFqH0frP4paBiX9bDRAnGyShSHU6j9jx3tmMWg2QJ8NI4GAbeo/wQcZ
UWtZOEAh8iBtUQ3qPzERgJbpdDpARpU2Leqp6T9g8z0sTmw8QDNf6svQUek/
oZ7FHPeNPkBamntwZPfoP7OOOtvSUkBATxvdkMGj6D90uj1QnUxBQMLqwwBX
Wug/v8ql8olbQkCxItGWtg/oP2lHOb1pWENAbkGfCMHO5z+cqDG1a2pEQHTv
Y9t7jec/kfO9gXB3RUDi9zSilFLnP+aqdXZockZAf9Z/eEEg5z/ERpKYgoJH
QBWGIBa97uY/AU/a4o+ASEApwairPsXmP6eoK5/TvEhANBwRyhK85j+u8faZ

         "]], LineBox[CompressedData["
1:eJwVz2kwFGAcx/FNYSo76RQpS9dIbtPOGHn+GYwjx7JrH0TOWozIOmvbDnKt
kUTHqC0j22GcZXKMDLMyodo2XjimrJln6RiVUetaenrxm+98Xv7MY1KC4nUY
DIYN3f/qan4kauVeUJ3hrhztUKNCI42fssAHPGuSy/XEapQaFturyfUF27MJ
mctRaqS66hSHKk+C9BvTbcRdjXbcujdWVO0HKyN7G02OqpHM8EhOf5U/CPNk
Ih8jNepJM/M4XBcAXeWrygkdNZKyHpke5wZCbYe+4MZvgrpESwyBIhBSLsU7
b5kiyNxXf2U/nwPWM93pTUqCXn6wlIwOcyDCcPNKaR9BJW9W7VgRQTBcoQuX
2wi6JfyaGDVBfdrK1LueINHOfVssQoOB6bgBmdUQ9MxSdyB9MhhyXU/cnL1L
kN78OuOeSC5wLOTvWWUEPbFrFkunubAqORjjVUCQZcxzf20yD3YtsQ1dLhM0
7t3ewvvOA21zh55rNkHKmgvWSBgCn0sDpq3OE7TwguNiMRcC6Q5Slk4SQWtt
aa355/jAlsiK+fEE+dp5eoj+8GF7qN/FitME9UfYJiQJMYR3sJyLwgjaFivo
fJCBoVTaFyekjhRUMxVZGJbKfCsjqP+mbW9xEmF4azen70B9oFCzpM3DwMhN
cRwPJehKS3dJ2W0MY50h1TbUzvqBTa3tGOqTEgdG+QTlGxTpzHRiCCs/Wi+n
/ri1l2vyGsM1ZmllI7XA1GlR3ItBrnc46zr1Hfvdbl6DGFSnci7ZU8+HT34a
m8Cwh00qikMIgmjjQ8wvGHr2NCoyqCVngrKRCkOmYmFrNLXFebnpY4LBbXp9
LZuak/80PnkWw5Cs14DwCLovUb16+AuD+xQ3XUE9U2aySTmHIU7MV3VSX6kq
aTimwbDRXjZYTj30qI+RsEj/Zcx6iamNZKtBVcsYfmY9HEygjqlj177TYigO
fBXMo25oStWsrWF4beykAup/Uz5iaA==
         "]]},
       Annotation[#, 
        "Charting`Private`Tag$10248#1"]& ], {}}, {{}, {}, {}}}, {}, {}}, \
{{{{}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwBUQOu/CFib1JlAgAAADQAAAACAAAAIo/9o54ewT7Nsbz1///vP7cIKR9t
aJ8/z2iXkKX97z/BeK6kKGivP89o41JL++8/xjBxZwZovz/PQ89Nl/bvP8iM
0kj1Z88/zGX2HDHt7z/JOoO57GffP8JZgiBs2u8/ypHbcehn7z+QAZG8/7Tv
P0q9B07mZ/8/vVCJSJ1q7z/NDTYJBF0QQIUh8sZyy+4/Qo9FwKdPGED+qcQV
cjnuP2Uv+g0xDSBA0SBEVsKs7T9NKWXxFkckQPLhdcjkFu0/stR9dck4KECq
Sw5Zm43sPzsSKq8EfyxAYsfhs6L76z9n+5KdpVgwQK2WV1srb+s/b8bnM69N
MkCQPR7Tru7qP4paBiX9bDRAWnxFkSBm6j9jx3tmMWg2QGrJC/4+6ek/wQcZ
UWtZOEBl1xB0QnHpPzERgJbpdDpAx8eKx83x6D9g8z0sTmw8QOhVmoNwfeg/
oZ7FHPeNPkBhzW1bGQLoP7OOOtvSUkBAhtz+dNeL5z90uj1QnUxBQABXCRUU
IOc/v8ql8olbQkDDcvvd863mP2lHOb1pWENAzGJ4QwRG5j+cqDG1a2pEQBfu
KKI22OU/kfO9gXB3RUAEjOwHQ2/lP+aqdXZockZAX7dpeeYP5T/ERpKYgoJH
QCov26RJq+Q/AU/a4o+ASECY3N2X9U/kPwBBtgGgeUlADu2iCd/44z+IF/dN
0odKQLy/CxEineM/cFpjwveDS0Ct4UBXGErjP+GBNGQ/lUxAC/8rqeby4j8U
k5naiaFNQP75pMcioOI/phAqecebTkDymxIAeVXiP8FyH0Unq09AkBz1lUQH
4j+eIKAcPVRQQKYeZzncwOE/vXz6AGjQUEBAs5yQRX7hPyFLB/wjV1FAV870
sb044T+0zymL2dRRQB0jEcRs+uA/jMb+MCBdUkDXdii8qLngP5Nz6Wpg3FJA
+B1lPs1/4D98FR4PIllTQNJtz7iISeA/qSkFynTgU0CzXX85axHgPwb0ARnB
XlRAhomo8UC/3z+nMLF+nudUQKluiNj2WN8/KWKqTv1tVUDx4fN1O/reP9tJ
ubJV61VAZgeDwfKm3j/So3otP3NWQNtg/KEwUt4/WPtnaod6VkAQf6e+z03e
PwAmmek=
         "]], LineBox[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAiKJIUJx+VkB4UKJYXUveP/+4crWG
bldAZsC6WzLE3T9LMEZFfPVXQBlBScwIf90/x10vaWtzWEAy71qBfULdPxJj
aLuddVhA4MS9bndB3T9eaKEN0HdYQMo1sqJxQN0/9nITsjR8WEBdperdZj7d
PySI9/r9hFhAbVvXnlQ63T+Asr+MkJZYQNESsjQ9Mt0/OgdQsLW5WECypEMD
QiLdP4YMiQLou1hA2kagkkQh3T/REcJUGr5YQBOYeWVHIN0/aBw0+X7CWEDH
gkLVTR7dP5cxGEJIy1hAmmiR2l0a3T/0W+DT2txYQCt+ZWeKEt0/QGEZJg3f
WEBR1GkjkRHdP4tmUng/4VhA7YlwIZgQ3T8iccQcpOVYQIfrJ+OmDt0/UYao
ZW3uWEC8r7R6xwrdP5yL4bef8FhAYOBBRNAJ3T/okBoK0vJYQLQqGE/ZCN0/
gJuMrjb3WEDpKkQo7AbdP8ygxQBp+VhAQwls9vUF3T8Xpv5Sm/tYQDdSgQUA
Bd0/Yqs3pc39WEAlM21VCgTdP66wcPf//1hAeOMY5hQD3T8fEsN9
         "]]},
       Annotation[#, 
        "Charting`Private`Tag$10295#1"]& ], {}}, {{}, {}, {}}}, {}, {}}, \
{{{{}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwBIQPe/CFib1JlAgAAADEAAAACAAAAIo/9o54ewT7Nsbz1///vP7cIKR9t
aJ8/imKqkaX97z/BeK6kKGivPwI9L1dL++8/xjBxZwZovz8mb/5el/bvP8iM
0kj1Z88/OsiyYTHt7z/JOoO57GffP5pNczNt2u8/ypHbcehn7z8ypVMIBLXv
P0q9B07mZ/8/yIeRd65q7z/NDTYJBF0QQDDbRGq9y+4/Qo9FwKdPGECMrurV
FjruP2Uv+g0xDSBASGiAnuGt7T9NKWXxFkckQEQ+U0GvGO0/stR9dck4KECe
7iSEKZDsPzsSKq8EfyxAjtqjHiz/6z9n+5KdpVgwQMMsKhPTc+s/b8bnM69N
MkBRNlYAhfTqP4paBiX9bDRAZlDeVGVt6j9jx3tmMWg2QIjOGT/+8ek/wQcZ
UWtZOEBVDHi9lnvpPzERgJbpdDpA7JeDl//96D9g8z0sTmw8QCvPKaCDi+g/
oZ7FHPeNPkBZ18kiXRLoP7OOOtvSUkBALBtNEmme5z90uj1QnUxBQNPU7Pru
NOc/v8ql8olbQkDM0if4b8XmP2lHOb1pWENAlotZxhhg5j+cqDG1a2pEQFRA
Y2FC9eU/kfO9gXB3RUA+N+v0X4/lP+aqdXZockZAY/uyawMz5T/ERpKYgoJH
QCowWQfO0eQ/AU/a4o+ASED62vX+y3nkPwBBtgGgeUlAihl+4Bgm5D+IF/dN
0odKQL6ljSMvzuM/cFpjwveDS0ABJR0V237jP+GBNGQ/lUxAWQ1NwdUr4z8U
k5naiaFNQNGZnkZS3eI/phAqecebTkDzGJT+wpbiP8FyH0Unq09ASxQjVChN
4j+eIKAcPVRQQGZD2Y8vC+I/vXz6AGjQUEDLmLcLFM3hPyFLB/wjV1FA1+XK
7I6M4T+0zymL2dRRQOLQaXgOU+E/jMb+MCBdUkDPMjNjqRfhP5Nz6Wpg3FJA
nNfnTPbi4D98FR4PIllTQIjtX4jiseA/qSkFynTgU0AY9wKojH/gPwb0ARnB
XlRAAva80kpT4D+nMLF+nudUQEach3VMJuA/Fvu7ZzpRVUDaQRhwsAXgPxGg
d9A=
         "]], LineBox[CompressedData["
1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAARqKcTU9VVUC4YBU9dwTgP9tJubJV
61VAEEJVZ6qy3z/So3otP3NWQK8AcH5Gat8/+LNRPCLyVkAq8wtVLSvfP/+4
crWGbldAnjAVVirx3j9LMEZFfPVXQJEtlsYstt4/x10vaWtzWECwLm4AiYLe
PxJjaLuddVhA/gL/eKmB3j9eaKEN0HdYQKl+wC3KgN4/9nITsjR8WEDRDH9L
DH/ePySI9/r9hFhAvAeQVZN73j+Asr+MkJZYQCQUTZGsdN4/OgdQsLW5WECv
EYITC2feP4YMiQLou1hAKekF6TJm3j/REcJUGr5YQDKDGfhaZd4/aBw0+X7C
WEDAT57Cq2PeP5cxGEJIy1hAInvkBlBg3j/0W+DT2txYQIoWsjqjWd4/QGEZ
Jg3fWEBxMLKfzljeP4tmUng/4VhA5GD/PPpX3j8iccQcpOVYQOGQMSBSVt4/
UYaoZW3uWECe58qGBFPeP5yL4bef8FhAgzIJrDFS3j/okBoK0vJYQNKN9ghf
Ud4/gJuMrjb3WEB6F5Bpuk/eP8ygxQBp+VhARiwVbehO3j8Xpv5Sm/tYQFMe
+6cWTt4/Yqs3pc39WEBPdi4aRU3eP66wcPf//1hAc8Wbw3NM3j8T/NtZ
         "]]},
       Annotation[#, 
        "Charting`Private`Tag$10342#1"]& ], {}}, {{}, {}, {}}}, {}, {}}},
  AspectRatio->1,
  Axes->False,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.6018918918918917},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7972556188129597`*^9, 3.797255641173596*^9}, 
   3.797255710573831*^9, 3.797381203429862*^9, 3.79787193586613*^9, 
   3.797871978422558*^9, 3.797872010131536*^9, 3.798079114894218*^9, {
   3.802026264453041*^9, 
   3.802026270966045*^9}},ExpressionUUID->"6124660b-be8f-4fe5-8179-\
5d012fc579e2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox["Q", 
   RowBox[{"kb", " ", "T"}]], 
  SuperscriptBox["10", "14"], "0.96", "*", 
  SuperscriptBox["10", 
   RowBox[{"-", "7"}]]}]], "Input",
 CellChangeTimes->{{3.795967155644162*^9, 3.795967173983405*^9}, {
  3.795967206216413*^9, 
  3.795967225258101*^9}},ExpressionUUID->"ad6553a0-5094-4ae3-81cc-\
adc4ce282804"],

Cell[BoxData["37.712524253191965`"], "Output",
 CellChangeTimes->{{3.795967157620612*^9, 3.7959671771743183`*^9}, 
   3.795967226050581*^9},ExpressionUUID->"13dae64a-82c1-4ebe-91c3-\
c052f1ca303d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Q", " ", 
  SuperscriptBox["10", "14"]}]], "Input",
 CellChangeTimes->{{3.7960619180749903`*^9, 
  3.7960619251230097`*^9}},ExpressionUUID->"f5740f72-1404-46b6-bd66-\
b85d922bfcd9"],

Cell[BoxData["0.000016000000000000003`"], "Output",
 CellChangeTimes->{
  3.7960619263728123`*^9},ExpressionUUID->"93be6312-16ff-4e12-bd04-\
942e7ea329db"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"velRPY", "[", 
   RowBox[{
    RowBox[{"aReal", 
     RowBox[{"{", 
      RowBox[{"10", ",", "0", ",", "0"}], "}"}]}], ",", "aReal", ",", 
    RowBox[{
     RowBox[{"-", "aReal"}], 
     RowBox[{"{", 
      RowBox[{"10", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"velRPY", "[", 
   RowBox[{
    RowBox[{"aReal", 
     RowBox[{"{", 
      RowBox[{"0.000001", ",", "0", ",", "0"}], "}"}]}], ",", "aReal", ",", 
    RowBox[{"aReal", 
     RowBox[{"{", 
      RowBox[{"10", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"velField", "[", 
   RowBox[{
    RowBox[{"aReal", 
     RowBox[{"{", 
      RowBox[{"0.000001", ",", "0", ",", "0"}], "}"}]}], ",", "aReal", ",", 
    RowBox[{"aReal", 
     RowBox[{"{", 
      RowBox[{"10", ",", "0", ",", "0"}], "}"}]}]}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7960620886690474`*^9, 3.796062106829049*^9}, {
  3.796062162518054*^9, 3.7960621783646383`*^9}, {3.796062285623178*^9, 
  3.796062293805007*^9}},ExpressionUUID->"0e37b51c-bfce-4079-9346-\
d27ca18358e6"],

Cell[BoxData[
 RowBox[{"-", "3.6893613611554765`"}]], "Output",
 CellChangeTimes->{3.7960621791904583`*^9, 
  3.7960622976143293`*^9},ExpressionUUID->"10c1146f-0e58-48f5-af81-\
d74cf6656182"],

Cell[BoxData["24.760809861746456`"], "Output",
 CellChangeTimes->{3.7960621791904583`*^9, 
  3.796062297615835*^9},ExpressionUUID->"966c5130-54ae-417d-8c03-\
fc9d44fd9186"],

Cell[BoxData["4596.213031567667`"], "Output",
 CellChangeTimes->{3.7960621791904583`*^9, 
  3.796062297617158*^9},ExpressionUUID->"88b728cf-90be-486a-92d4-\
d6f3c7b52221"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"kb", " ", "T"}], 
      RowBox[{"0.5", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          FractionBox["per", "100"], " ", "diffA"}], "+", 
         RowBox[{"0.881", 
          FractionBox["per", "100"], " ", "diffB"}]}], ")"}], " ", "6", " ", 
       "\[Mu]", " ", "\[Pi]"}]], ",", 
     RowBox[{"0.5", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"kb", " ", "T"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["per", "100"], " ", "diffA"}], ")"}], " ", "6", " ", 
          "\[Mu]", " ", "\[Pi]"}]], "+", 
        FractionBox[
         RowBox[{"kb", " ", "T"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"0.881", 
            FractionBox["per", "100"], " ", "diffB"}], ")"}], " ", "6", " ", 
          "\[Mu]", " ", "\[Pi]"}]]}], ")"}]}], ",", 
     RowBox[{"(", 
      FractionBox[
       RowBox[{"kb", " ", "T"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["per", "100"], " ", "diffA"}], ")"}], " ", "6", " ", 
        "\[Mu]", " ", "\[Pi]"}]], ")"}], ",", 
     RowBox[{"(", 
      FractionBox[
       RowBox[{"kb", " ", "T"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["per", "100"], " ", "diffB"}], ")"}], " ", "6", " ", 
        "\[Mu]", " ", "\[Pi]"}]], ")"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"per", ",", "20", ",", "100"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.796064296300811*^9, 3.796064349716505*^9}, {
   3.796064446455246*^9, 3.796064447118477*^9}, 3.7960648971236353`*^9, {
   3.796065330644438*^9, 3.796065337059252*^9}, {3.7960653879616337`*^9, 
   3.796065399484703*^9}},ExpressionUUID->"6ddf124f-5778-46b4-9a44-\
da38cf945762"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVxXs0lHkYAGC16jibDopa5FKr0KhoRw07vV5mC+Pu+4YfMsu4lpBhNtHJ
5eyE7UxIhFYWsbYSEsrGFjYi5JLEbJLoUCSSa+zuH895tgtCnf3WysjI2P3n
/9cb+arLyDAxtXMk80VjJDDlulWs1jOxOUHnmnJtJPgMmiumyDOxHH6T0JWR
8ECitU5blYlx7+THXhdGQtR4/6TZfiZ+GDbgmCREwocCp/oYXyZqqLrnN3Mj
oW+L2bHVZiYyuMXK9LNT8MeyavVKqjHyh+oCYO4nmDUOu9J2+CDuPyPI22st
gn6HiF1/SlkYmJqj3/I+HDxOt7BKgkxRxV+ZnvhLCGLF+rTQbWyMM7S0s8oN
A6tEv3THskN4LzuyQ1J6Em4HXx9c42+G4RYanDFJKHga5fUNJCHaf5SLWZoJ
hj3bGpSPOJujjUS87njWCeisNRZlMiywt0pt0IMTBA8dVvSiPltg+PvYAze1
jkPssZPa/FoOXj4lSBZ9cww2m37H3p3+A/KOWr4kSoEwvWhzQ8w/jHJC9qfk
vQFQKKyEx6wjmGVd6/aS6w+6wmYVBQVLfHpYP6s62g9mvY3wTa8lOsnmx+c3
+cJluXcX8kqtsNTtlYyRki+IcxcNJ09b4/f6Obp9YT5gOeE+t4PHxaIh1qeF
DgH01fuucTewwUy3S2OLpgKoTGzka8/a4GduGlG46w3+60Sv2tttcWr8nidj
vzf4CKMr5bPtsGqCLlW77wX7Ahjttt726Dy/UdbN3gs6NhlsEJk44NmQiozJ
mh+B7/rQLmONI8YNMA6tTPOhTkZFbzTEEUPzNjlp7eTD+pBDOgf7HZFVFHRR
z88TIroVWxzACQtXWQ3imqNge0k+XnrdCem/3+t+9fVR4NpVDBsqOqPuryYX
757wgH0tewPOhTtjU2v86OYX7nA2v2vZYdAZr8oHzN03c4cZ4Xb2EIdCNUZb
a1WVG3RdzZSMllGoEKGv4abnBs/raxIrttCY613OkhYTaLxeXhgXRWPjt2np
JYYE1Cef9jSM0jhTZVYjqHCFTP0rJW02PHTyWjkyZeEKMQ8kmTb3eJjh2Ubd
bnMBO3VeYYuOC8Y71NGrfBcwD2nyUEpywYbPA53hSzzI3SbQeTLrghq6N1Pc
03ig0/B7hr2HK/6S53M33ZgHKXvqd3fVuWJ2q8vaCikN/jOynY93E0TgWsfE
0CAon9ZOSiZY3Bm17ziDhhPx1DI3laB+krJ0Xp8GEXXnuXwawbCpmNoEPRoS
Z0UXUjIIfom7qlm0k4ZbJgtLl3MI3neoIyNaNCw8XO0tukFwSr0sP1iZhpQu
eUljE0EDFpoVfqEguyA48Nxjgi2nPU6aLlNQENHOsWolmKv5pqdjkYKqLSmL
re0ElQaUWEtzFEjdNwd2PyNY/6TEj56mQHdYlfN6mOCEWgCt+JYCwztRmtdG
CCaLzaqLRygwFQ8s+L0luPWf57bmbyiw1c0pGxsneMBLQzF8iAJhkLbmx48E
ObUds30DFJxhxy3cniF4PjZ6QthPgXjj656IWYLjWalbN76gILO04Pz8PMFb
7K61Fr0U5MfKBtQsEhT9/LZB2kPBDSc/izPLBDfksqtPdVNwZ8cjDVghqDnz
SLqpi4K6mV0Lq6sEbcejmbeeUvAvgTY3Bw==
       "]]},
     Annotation[#, "Charting`Private`Tag$29401#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVjn0w1Akch7dOppPCiTnH1ebIa6Fbl6Svr1Vsa1n8dvmxbHlZlNewEhWa
W6dpdOtIWyrF6cQphcgd5aVkO9KSkEYRSbUdRtpdce6PzzzzzPPPZ1NovK9g
JYVC8Vze/1S3CzekUGh4SaMmfag9FWire/UY6jQsuFCRrdeUCmEjLtpiTRo+
4o3Ec+tS4V7uxlVUAxr6XGqWjpWlQtrUkNx5Gw2nntz/wfGXVPhY6tOaEU5D
laQzs5OZCgP6zgeWHtLw2N7Xcs7Tw3BtwaB+Mc8eVd5fOzrPp8Cc/aGirj3b
8ZiSGW6zVwhD7OTNfw074LZ/tV5K3ycB74jUoSraESuG25Y+3E0EkXZrfryR
E9KLS+WM4kPAyBGc8a7ehRVTLlGnbyTArdiKkRURzhjkoBk+lRsPwXZXBp6f
RCxge+UtzMbCFqO29W6+LmidKVgTfS4GnjTZCyVWdGTkNQ8EuUZDC3vRPO0T
HfnjdaZVGw9C5oEEKr/JFW3ctghTvj0Auo4/Olme2Y1seXljgE4UzCg9KkX8
PXjhYNZD8dZIKEusg04HN6T6vTAdYUaAWeJDPS0td5zPeBnckC6AuRA7fN3v
ju8Yk1jaEQ5nV787feUGA0HjcoOdTjiIipW28iN70bL12uDAoTBw/xA4b8xl
Yrln+mXl41AYaA1fEWjtgYnCE2KVYyjU5bTzqXMeqF4kU2o1hEDEKuHL7m4W
kk42KqttIRCWmF6ned4TP5nnMQz/3g82kVbdrBAv7LELPhfgtR8ef2O9RriD
jawSuPOxcR/w/Vs8C1d446i7mFya4UMzRc98Is4bGXMGAqopH9TjdplsH/LG
RYczxRaCYEju1ZaywQdZRgxpdmMQsAo0TwxX+OC6kkpzNY0gYHrWjNlq+6I+
jcy9E8MDG+nWyOwkX7Q4HDC8fjAQjpfIFtgjvlhQ0vKmyTkQZhM3Ob1yJXBR
26W+/nYAyC5Jcieql/2u6KtA8wB41tqYU6PPwZ/Zx797UU5Ce8XNsqw0Diol
uknXbUkwlPf0tU0s98nd+WE1/iCxKKrq8uCi9YcvhtN0f8i4lyvxuMPFseAi
k5ouP/A05JZJTfyQ9WfhJso+P3CJ6+DpnPTDPplJUbKKC8VGoSb/zPmhUc9O
P14+F0za/ij04vmjqEqSVmjPBfGWVktZsz+WTwe31AxzIGJW7UmnJYnGn1Vq
mRkcCL05Qz35K4n3L1tOHrTiQMwJYoGZR2KacX2BwoIDQqL2mWY+iQNcvZQc
cw7kzAlPiwtJdBAZPLtqyoHrOxSqsxdJdCpT05nYyAFFy1L/1UoSNRJyA+PW
c0As08xt7yBxWM76VPaFgPOlsVHZnSTyf+KZ7VwgoDS525XxiMS3o/2nepQE
3NYXKx91k+hVOyVXzRMwHKgb1fuUxNFxXyPuDAFmYwauo2Mk5qwp09B5Q4Bt
bdqG38dJZJ5LiL02ToCj6LlC8IbENr2FlfTXBLDMLla/nSKRNmn2IOkVAYnR
1A3T0yReVFytHHxOwFGnLMWtWRIz5XtKk4YIEK0d7UueI5Gxk921dpAAyY3S
U58/k+jGTGmg9xNQkqkW2agkcUh6/MiLPgIqfQT0owskrqN2xKT2ElBr/OB7
WFz+V737N10ZAc2zmxVLSyROjr9/e72HgP8AZhA9jQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$29401#2"]& ], 
    TagBox[
     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVx3881HccwPHTD+vx6LZMeKxRURbJj9JdSXp7IxEu7r5f7hN1y+/k93Ht
kk3FFeuh9KicJTWkGm6Kk5Ulvx5y1JU7+b0US2MPWtmVkx9rf7wer8fTLCSe
F76AwWBwPvX/dTeFGTMYLBxOkFVmKcTAWqI29NRlYYf0qHtTgxhCB130cpgs
1BQIa3TuiaE+e/Vi0xUsdNbLXZddKoaUsb4JZ3sWyrczq/44LYY3xdzGtLBP
5jwqDPYVQ4+Rc9R8KwtbDGx7u3q/g19mVtTMnWOjzHhgrfTjYdCwE/Mfu2/F
OqbjFJsjgj7f5HW1Aw44W8vKOftPEgQdaXOQRTti+S5KcaRJCBK9xvPxJk7I
b1lvdqUoETwzwy/63dqBZoX6O+9UJkBlbOmgToQzRuVXmA6dj4f9mwp7+rMQ
LRXKluvaWLAxaTLYxXPBurLYavWVGOi4zxblbXDF/kplR4ZnNDT4zlmmvHfF
/eKUfwvMD8GxqARTwX03nHWyS2WvjILljpudrC7uxMotHXMjhgfh3bR3mUTg
jl4FRZaT9pFQIqwGhcMudMjWiIx8I8BC2Gq4bJkHTkgzjrWmhYMmeBP+2eWB
kZwy+lx7GEiX/H2msMITqyLsvWcNwkBydXrjxJHdWGbgsfukKBQ8xgM/rPH3
whxbo6QsdQj0NIbpBFp742YJhx0HIVCd2Sww1Xjjkw/agajaYIhYLHqhVPqg
onzoxxh2MIQKj1YzL3Hwfd6iDPcHB8AucoPSJ3gPBtl26cdzD8ATfeulom2+
2Dt+Wfum/lsQ8Bs4uTp+qJqVtfZOCaCOYWg5EueH7a1Nr9RWAtCN22G+tc8P
09+YqH47tB+S1XptvsBFhbtXjebBPvC5wDwxUMpFDae+irtsH3hxqoY36vHQ
8fA8GU0MArs228iTSTzc0lFZa/k8EH4oUs34DvKwrkbnoXxnIEwKzZxeulFo
TQWUX6jdC6oredkjtyg8XaJcamKzF7ob72VWGdEoT+DqnpIRaC69XXI8hcbo
QItrLmwCxhNPO5tGaGxOstUfrOFD3vp82WNvfxx8dzOA78GHtPrsPO+7/rjZ
6qX9QlUAcIz9S9rMAzDt9Q7cHhoALnEPg77MCsAYtcPI5Xl/uGoSYv5IE4CJ
Q25v46X+YN50I3dPEB/X3pXv/WmbP+TYNFqp6vgYkz7ztOQFDRGTizoUVgSl
D0yTD6TTEHL7nWnWWYK5HYKE7XY0xJygZrzOEbyhq9+tsKFBRMm7mecJlo/9
LCTWNGRqRGdycj/5kLnn4fU0/LpN+1FaQJAnk0TL19KgbZjvul5GkB7pynL8
ioYcFTO7+SFB8eqsrlgdGi4Vxx48qSDYeVPbuIBBQ3Gy0s2znaAZ9+WQdI6C
O0Y50+1Kgt87j/3e+JGCgcDlB9XPCBp+drvn6/cUWAyvcBsaJjg3c7akc4yC
jfKUVddeEfROJs0xoxQ4Svq14a8JRieNGS7+iwIfi4Jbo2ME+V8gd8srCoTR
pqveviVYkSGxyB+kINXpuLZykqDdZGw/6zkFks+HOpM1BFNd2xqUAxTkVRSf
npoiyB6t+mZhHwVFxxZF3psmOD29obigh4Iybrhr6gxB55BxnkM3BfI1LSth
juDN9HGW+hkFdZPrtPPzBJ+1mO2O66TgP0tyQOA=
       "]]},
     Annotation[#, "Charting`Private`Tag$29401#3"]& ], 
    TagBox[
     {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVz3k41HkcwPGxj6NnUyZKj4fcGylHGTmWj09NIWPiOzP4NePIuFdGNJM1
KbSZHZWwidlaFaKN5IjoIESOZNdRekrHprQdS/JMRZZt/3g/r7/fJsIETuQ3
NBqN/bX/VV8foU+jMTBv1MrRql8CjEVDK7zUGSi+buTG7ZJA+NNN9FxNBrIa
GEfTWyXQmm2kZqzHwJ9FF5Wv6iQgffNwwn0DA/t0YmWvCyUwWUra0yIYyNZ+
Yl8vlMADXffYhW4GHoGxIPYXMVyY02ucz3NAk0NbsNdRDEqHxFN3tzri3gEj
qW1zEjz0Fa++PuqELkHCROnhRBCk9DpVxbkgTjraFGXshkx6+/EEA1e8nT/7
8RuNBPCSR57wq3HDv5n5c293xkNdfMVTlSh3TLbMuifsioPg9cUPHmUh0rsH
wzNCfgBrg1vLPTib0NxWPyXaOhYGmh0kirWbkd5CyjxoMdDmO28p/bgZHW2q
pPsXoiA9drdxSDMTtSrLbTtXRoGOi72r1Ykt2Di0+6aZXSR8mGVVZoZsxdRr
+4P3x0RAWVID9Dh5oGFdium3Z8PBIql7hZaWJ4aWW8gvvhaCMmw9vrjviaPb
hsVmLCEULnp7rLjaC6sH3nnKKsIg88ys3UTKNsTgUV8wDAPPf/ifTP29cUrL
yKElZyc8aI9Q4a9joY1l5/wvmjuhQd4RYqxkYZt6pGXphlCIUpM86+/3QevP
bskvPUIgPGlfg+ZJNg5b73qhmhwMttFr+33CtiOZUlKdDUHwh/a6xRJnX7R6
V75abVIAIYFt7AIVP1ycZqGh4i6AFtoKy3GRH97oatToyOKDusjN3PGhH/Zs
vPp957MdIB6i9/oCQSb/vG629w7wydc8OFpB8FDoYZ011RR4sy+P2dE5GBri
F11jToFtr020bA8Hn5SEGV4pCYQDJYNzvk85KGoNW9KkHwjTSSaufzG5mCA5
sqBbGgCDpxXZ4zVcXC5zXdr+XQCMtF+TX9bl4U/ls9ayBn/oqKgty5DyMLXR
ubuJ5Q/6E38O3xrn4dKqqtq4xzxQrDlVdZflj/Kyqux4KQ/SWrMVrKv+uNWk
snujDg/Y+v5lveYB2OZlktNey4VNoi7BsqwAVJWNWBrzuXDGQGjepwzA8Jyj
afvmOWB+63zBdkEgjomOj0xUciDXut1qsCUQlUWnmy8FcyBqWnWgx4rC941N
I8WLOSCs/WCclUPhrEDk8lsbgV0HuXPeeRT+PnJhZWArAQm3fkTzOIWmZpFm
2jcJyJWSY7kFFF7wsr8tv0HgkvPMl8IiCos9Vzr92Ehgpm3hfnklhQ023I7Q
KgK5g5rZHV0UBkzddya/EjhZGh8j66HQv+/90DIFgVJxP9PrDoU2fX6nBgsI
XNHNnb3TT2Fhy41aXj6BUb5OzNA9CunnHOf4OQQsxvSYz8co1FQLWkjIJGBX
LzU895JC0TZBrP0hAi6Zj2YiX1Go+FeD9ukgAR+LoprXbyhcNc68fCCdQFKc
seHUFIVvS9zscvcRSHXNmKmbpvCx29l5npRA5pLnw2IlhbsmI2b0UggoqkuP
fP5MobbB5J5zewmUpKtGX5v9+vuseDpWQqCSRG5OnaOwaXveGVsxgXrT26tg
nsLyZfXJyiQCLdOrZxYWKOSN0FKvJxL4D15yKr0=
       "]]},
     Annotation[#, "Charting`Private`Tag$29401#4"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{20, 1.6246239687061384`*^-8},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{592., Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{20, 100}, {1.6246239687061384`*^-8, 9.233972934674734*^-8}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.796064304592358*^9, 3.796064350477334*^9}, 
   3.796064447782652*^9, 3.796064898766204*^9, 3.79606533786642*^9, 
   3.7960653911057663`*^9, 
   3.796065421786578*^9},ExpressionUUID->"fac11c71-e1b3-4948-a839-\
259f4dc7d153"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{"5", "*", "6.02", "*", 
    SuperscriptBox["10", "19"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"(", 
  RowBox[{"1", "/", 
   SuperscriptBox["n", 
    RowBox[{"1", "/", "3"}]]}], ")"}], "\[IndentingNewLine]", 
 RowBox[{"0.55", 
  RowBox[{"(", 
   RowBox[{"1", "/", 
    SuperscriptBox["n", 
     RowBox[{"1", "/", "3"}]]}], ")"}]}]}], "Input",
 CellChangeTimes->{{3.796835690363132*^9, 3.796835701260256*^9}, {
  3.796919563449493*^9, 3.7969195635847073`*^9}, {3.7969256038938837`*^9, 
  3.796925605491891*^9}, {3.796930927735186*^9, 3.796930930074564*^9}, {
  3.796987805854949*^9, 
  3.79698780634216*^9}},ExpressionUUID->"c752966c-a787-4041-879c-\
54789bf0e7d0"],

Cell[BoxData["1.4921454815128996`*^-7"], "Output",
 CellChangeTimes->{3.796835703424716*^9, 3.796918915675439*^9, 
  3.796919563789214*^9, 3.796925630174718*^9, 3.796930935464509*^9, 
  3.796987806950651*^9},ExpressionUUID->"b111b0a6-0ba2-46b3-9314-\
176f9d97b8b1"],

Cell[BoxData["8.206800148320949`*^-8"], "Output",
 CellChangeTimes->{3.796835703424716*^9, 3.796918915675439*^9, 
  3.796919563789214*^9, 3.796925630174718*^9, 3.796930935464509*^9, 
  3.796987806953311*^9},ExpressionUUID->"7a7b9e6c-be6a-4422-9f7f-\
521d327c2ac1"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"dataA", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
    "\"\</home/drladiges/kumonga/projects/FHDeX/exec/NN_test4/\
nearestNeighbour\>\"", ",", "\"\<Table\>\""}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7968355957873907`*^9, 3.796835629899378*^9}, {
  3.7970899641194563`*^9, 3.797089966461773*^9}, {3.7978919065969143`*^9, 
  3.797891912010537*^9}},ExpressionUUID->"965095cf-a56a-4d17-9b5d-\
b8b35d4e8676"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mean", "[", 
  RowBox[{"dataA", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"-", "3"}], ";;", 
     RowBox[{"-", "1"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7968356130676947`*^9, 3.7968356418517437`*^9}, {
   3.796835958012512*^9, 3.796835974326148*^9}, {3.7968786752021*^9, 
   3.796878675703583*^9}, 3.796918927146285*^9, 3.7969257019019957`*^9, {
   3.796930618645526*^9, 3.7969306187870083`*^9}, 3.7969344256300173`*^9, 
   3.7969405486827707`*^9, 3.796987886647481*^9, {3.797089985727289*^9, 
   3.797089985812766*^9}, 3.797913315338581*^9, {3.797956657392906*^9, 
   3.797956657520865*^9}, {3.7980602214919157`*^9, 
   3.798060235269641*^9}},ExpressionUUID->"9aebba94-1afb-410a-879f-\
3fca4a8f077f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "5.893750000000001`*^-8", ",", "4.57637`*^-8", ",", 
   "4.578886666666666`*^-8", ",", "5.9205600000000006`*^-8", ",", 
   "4.326863333333333`*^-8"}], "}"}]], "Output",
 CellChangeTimes->{{3.797089976121996*^9, 3.797089986450068*^9}, {
   3.797913315853341*^9, 3.7979133188729563`*^9}, {3.797956642852415*^9, 
   3.7979566583355618`*^9}, 3.797978173904263*^9, 3.7980601725481863`*^9, {
   3.798060217187078*^9, 
   3.798060235792964*^9}},ExpressionUUID->"b08e4f56-4c0e-428c-b6f2-\
5b854bbda39c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ListPlot", "[", 
  RowBox[{"dataA", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"dataA", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"dataA", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"dataA", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"dataA", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.79683573058753*^9, 3.796835784779255*^9}, {
  3.796921779475582*^9, 
  3.796921783628339*^9}},ExpressionUUID->"9342b5b7-f1c7-417f-8c06-\
e2ff7e148b08"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., 5.31325*^-8}, {2., 5.59262*^-8}, {3., 5.6944*^-8}, {4., 
      5.76546*^-8}, {5., 5.83368*^-8}, {6., 5.82673*^-8}, {7., 5.86391*^-8}, {
      8., 5.87037*^-8}, {9., 5.87275*^-8}, {10., 5.89288*^-8}, {11., 
      5.91562*^-8}}]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., 5.283131500000001*^-8},
  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->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 11.}, {5.31325*^-8, 5.91562*^-8}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.796835739176032*^9, 3.796835784966365*^9}, 
   3.7968787089689093`*^9, 3.796919554423628*^9, 3.7969217843592567`*^9, 
   3.796925707138935*^9, 3.796929165724762*^9, {3.796930244919484*^9, 
   3.796930254138953*^9}, 3.796930607244747*^9, 3.79693437967859*^9, 
   3.796940558910675*^9, 3.796942252461581*^9, 3.796987835473833*^9, 
   3.7970899783894444`*^9, 3.797913321655682*^9, 3.797956646616048*^9, 
   3.797976166509856*^9, 3.797978169267733*^9, 3.7980002532365427`*^9, 
   3.79806017472323*^9},ExpressionUUID->"8f1db0a7-162d-46ee-813d-\
471cacf6aff9"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., 4.79331*^-8}, {2., 4.61832*^-8}, {3., 4.5663*^-8}, {4., 
      4.54644*^-8}, {5., 4.57475*^-8}, {6., 4.56361*^-8}, {7., 4.57632*^-8}, {
      8., 4.58693*^-8}, {9., 4.57622*^-8}, {10., 4.58139*^-8}, {11., 
      4.5715*^-8}}]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., 4.53874275*^-8},
  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->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 11.}, {4.54644*^-8, 4.700385000000001*^-8}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.796835739176032*^9, 3.796835784966365*^9}, 
   3.7968787089689093`*^9, 3.796919554423628*^9, 3.7969217843592567`*^9, 
   3.796925707138935*^9, 3.796929165724762*^9, {3.796930244919484*^9, 
   3.796930254138953*^9}, 3.796930607244747*^9, 3.79693437967859*^9, 
   3.796940558910675*^9, 3.796942252461581*^9, 3.796987835473833*^9, 
   3.7970899783894444`*^9, 3.797913321655682*^9, 3.797956646616048*^9, 
   3.797976166509856*^9, 3.797978169267733*^9, 3.7980002532365427`*^9, 
   3.798060174773425*^9},ExpressionUUID->"0f5b2039-d4a9-402a-ba05-\
e8014f4d1ec1"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., 4.83573*^-8}, {2., 4.65116*^-8}, {3., 4.58823*^-8}, {4., 
      4.56952*^-8}, {5., 4.57113*^-8}, {6., 4.5687*^-8}, {7., 4.58621*^-8}, {
      8., 4.57791*^-8}, {9., 4.58148*^-8}, {10., 4.57714*^-8}, {11., 
      4.57804*^-8}}]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., 4.5553485*^-8},
  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->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 11.}, {4.5687*^-8, 4.83573*^-8}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.796835739176032*^9, 3.796835784966365*^9}, 
   3.7968787089689093`*^9, 3.796919554423628*^9, 3.7969217843592567`*^9, 
   3.796925707138935*^9, 3.796929165724762*^9, {3.796930244919484*^9, 
   3.796930254138953*^9}, 3.796930607244747*^9, 3.79693437967859*^9, 
   3.796940558910675*^9, 3.796942252461581*^9, 3.796987835473833*^9, 
   3.7970899783894444`*^9, 3.797913321655682*^9, 3.797956646616048*^9, 
   3.797976166509856*^9, 3.797978169267733*^9, 3.7980002532365427`*^9, 
   3.7980601748121243`*^9},ExpressionUUID->"b83c5590-0709-4caa-9b79-\
8c03c926f582"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., 5.3761*^-8}, {2., 5.65424*^-8}, {3., 5.76018*^-8}, {4., 
      5.80336*^-8}, {5., 5.81627*^-8}, {6., 5.8418*^-8}, {7., 5.84276*^-8}, {
      8., 5.89475*^-8}, {9., 5.91684*^-8}, {10., 5.92082*^-8}, {11., 
      5.92402*^-8}}]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., 5.348704000000001*^-8},
  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->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 11.}, {5.3761*^-8, 5.92402*^-8}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.796835739176032*^9, 3.796835784966365*^9}, 
   3.7968787089689093`*^9, 3.796919554423628*^9, 3.7969217843592567`*^9, 
   3.796925707138935*^9, 3.796929165724762*^9, {3.796930244919484*^9, 
   3.796930254138953*^9}, 3.796930607244747*^9, 3.79693437967859*^9, 
   3.796940558910675*^9, 3.796942252461581*^9, 3.796987835473833*^9, 
   3.7970899783894444`*^9, 3.797913321655682*^9, 3.797956646616048*^9, 
   3.797976166509856*^9, 3.797978169267733*^9, 3.7980002532365427`*^9, 
   3.7980601748440866`*^9},ExpressionUUID->"b8b12bec-9762-4445-94de-\
dce796720f69"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., 4.22519*^-8}, {2., 4.27529*^-8}, {3., 4.28483*^-8}, {4., 
      4.28851*^-8}, {5., 4.31145*^-8}, {6., 4.3049*^-8}, {7., 4.31174*^-8}, {
      8., 4.32291*^-8}, {9., 4.33032*^-8}, {10., 4.32656*^-8}, {11., 
      4.32371*^-8}}]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., 4.219933500000001*^-8},
  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->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 11.}, {4.22519*^-8, 4.33032*^-8}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.796835739176032*^9, 3.796835784966365*^9}, 
   3.7968787089689093`*^9, 3.796919554423628*^9, 3.7969217843592567`*^9, 
   3.796925707138935*^9, 3.796929165724762*^9, {3.796930244919484*^9, 
   3.796930254138953*^9}, 3.796930607244747*^9, 3.79693437967859*^9, 
   3.796940558910675*^9, 3.796942252461581*^9, 3.796987835473833*^9, 
   3.7970899783894444`*^9, 3.797913321655682*^9, 3.797956646616048*^9, 
   3.797976166509856*^9, 3.797978169267733*^9, 3.7980002532365427`*^9, 
   3.798060174879595*^9},ExpressionUUID->"8c71dcf6-e106-4024-b271-\
ed2739761559"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{"20", "*", "2", "*", "6.02", "*", 
    SuperscriptBox["10", "19"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"radsA", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "/", 
     SuperscriptBox["n", 
      RowBox[{"1", "/", "3"}]]}], ")"}], "/", 
   "aReal"}]}], "\[IndentingNewLine]", 
 RowBox[{"radsB", "=", 
  RowBox[{"0.55", "*", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "/", 
      SuperscriptBox["n", 
       RowBox[{"1", "/", "3"}]]}], ")"}], "/", "aReal"}]}]}]}], "Input",
 CellChangeTimes->{{3.797119860330675*^9, 3.797119885603601*^9}, {
  3.797120011140594*^9, 
  3.797120016730693*^9}},ExpressionUUID->"3d4effac-2c43-480d-b491-\
296367098ee8"],

Cell[BoxData["4.3160522673318304`"], "Output",
 CellChangeTimes->{{3.7971198657650557`*^9, 3.797119886125627*^9}, {
  3.7971200113717957`*^9, 
  3.797120017653349*^9}},ExpressionUUID->"82856275-2094-4077-b234-\
534ffdb7a797"],

Cell[BoxData["2.373828747032507`"], "Output",
 CellChangeTimes->{{3.7971198657650557`*^9, 3.797119886125627*^9}, {
  3.7971200113717957`*^9, 
  3.797120017657168*^9}},ExpressionUUID->"cfcead5a-a627-4f48-91df-\
d2e85ebf14d2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Needs", "[", "\"\<ErrorBarPlots`\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points001err", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"93.8", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1010", "-", "1000"}], ")"}], "/", "1000"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1010", "+", "0006", "-", "1000"}], ")"}], "/", 
         "1000"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"46.9", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1002", "-", "1000"}], ")"}], "/", "1000"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1002", "+", "0007", "-", "1000"}], ")"}], "/", 
         "1000"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"23.5", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1020", "-", "1000"}], ")"}], "/", "1000"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1020", "+", "0007", "-", "1000"}], ")"}], "/", 
         "1000"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"11.75", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1013", "-", "1000"}], ")"}], "/", "1000"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1013", "+", "0002", "-", "1000"}], ")"}], "/", 
         "1000"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"5.88", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1038", "-", "1000"}], ")"}], "/", "1000"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1038", "+", "0008", "-", "1000"}], ")"}], "/", 
         "1000"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1086", "-", "1000"}], ")"}], "/", "1000"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1086", "+", "0006", "-", "1000"}], ")"}], "/", 
         "1000"}]}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points001", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"93.8", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1010", "-", "1000"}], ")"}], "/", "1000"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"46.9", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1002", "-", "1000"}], ")"}], "/", "1000"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"23.5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1020", "-", "1000"}], ")"}], "/", "1000"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"11.75", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1013", "-", "1000"}], ")"}], "/", "1000"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"5.88", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1038", "-", "1000"}], ")"}], "/", "1000"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1086", "-", "1000"}], ")"}], "/", "1000"}]}], "}"}]}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"points001Plot", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"points001", "[", 
       RowBox[{"[", "ii", "]"}], "]"}], ",", 
      RowBox[{"ErrorBar", "[", 
       RowBox[{"-", 
        RowBox[{"points001err", "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "points001", "]"}]}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points01", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"93.8", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"8.03", "-", "7.76"}], ")"}], "/", "7.76"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"46.9", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"8.13", "-", "7.76"}], ")"}], "/", "7.76"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"23.5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"8.37", "-", "7.76"}], ")"}], "/", "7.76"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11.75", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"8.68", "-", "7.76"}], ")"}], "/", "7.76"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.88", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"8.99", "-", "7.76"}], ")"}], "/", "7.76"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"9.46", "-", "7.76"}], ")"}], "/", "7.76"}]}], "}"}]}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points01err", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"93.8", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.03", "-", "7.76"}], ")"}], "/", "7.76"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.03", "+", "0.04", "-", "7.76"}], ")"}], "/", 
         "7.76"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"46.9", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.13", "-", "7.76"}], ")"}], "/", "7.76"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.13", "+", "0.03", "-", "7.76"}], ")"}], "/", 
         "7.76"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"23.5", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.37", "-", "7.76"}], ")"}], "/", "7.76"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.37", "+", "0.07", "-", "7.76"}], ")"}], "/", 
         "7.76"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"11.75", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.68", "-", "7.76"}], ")"}], "/", "7.76"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.68", "+", "0.09", "-", "7.76"}], ")"}], "/", 
         "7.76"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"5.88", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.99", "-", "7.76"}], ")"}], "/", "7.76"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.99", "+", "0.09", "-", "7.76"}], ")"}], "/", 
         "7.76"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"9.46", "-", "7.76"}], ")"}], "/", "7.76"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"9.46", "+", "0.04", "-", "7.76"}], ")"}], "/", 
         "7.76"}]}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points01Plot", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"points01", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], ",", 
       RowBox[{"ErrorBar", "[", 
        RowBox[{"-", 
         RowBox[{"points01err", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", 
       RowBox[{"Length", "[", "points01", "]"}]}], "}"}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points01w", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"93.8", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"7.77", "-", "7.76"}], ")"}], "/", "7.76"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"46.9", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"7.85", "-", "7.76"}], ")"}], "/", "7.76"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"23.5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"7.85", "-", "7.76"}], ")"}], "/", "7.76"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11.75", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"8.31", "-", "7.76"}], ")"}], "/", "7.76"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.88", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"8.71", "-", "7.76"}], ")"}], "/", "7.76"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"8.98", "-", "7.76"}], ")"}], "/", "7.76"}]}], "}"}]}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points01werr", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"93.8", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"7.77", "-", "7.76"}], ")"}], "/", "7.76"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"7.77", "+", "0.02", "-", "7.76"}], ")"}], "/", 
         "7.76"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"46.9", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"7.85", "-", "7.76"}], ")"}], "/", "7.76"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"7.85", "+", "0.03", "-", "7.76"}], ")"}], "/", 
         "7.76"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"23.5", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"7.85", "-", "7.76"}], ")"}], "/", "7.76"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"7.85", "+", "0.02", "-", "7.76"}], ")"}], "/", 
         "7.76"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"11.75", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.31", "-", "7.76"}], ")"}], "/", "7.76"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.31", "+", "0.02", "-", "7.76"}], ")"}], "/", 
         "7.76"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"5.88", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.71", "-", "7.76"}], ")"}], "/", "7.76"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.71", "+", "0.02", "-", "7.76"}], ")"}], "/", 
         "7.76"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.98", "-", "7.76"}], ")"}], "/", "7.76"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.98", "+", "0.02", "-", "7.76"}], ")"}], "/", 
         "7.76"}]}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points01wPlot", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"points01w", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], ",", 
       RowBox[{"ErrorBar", "[", 
        RowBox[{"-", 
         RowBox[{"points01werr", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", 
       RowBox[{"Length", "[", "points01w", "]"}]}], "}"}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points01s", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"93.8", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"8.37", "-", "8.50"}], ")"}], "/", "8.50"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"46.9", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"8.41", "-", "8.50"}], ")"}], "/", "8.50"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"23.5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"8.51", "-", "8.50"}], ")"}], "/", "8.50"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11.75", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"8.70", "-", "8.50"}], ")"}], "/", "8.50"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.88", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"8.94", "-", "8.50"}], ")"}], "/", "8.50"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"9.43", "-", "8.50"}], ")"}], "/", "8.50"}]}], "}"}]}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points01serr", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"93.8", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.37", "-", "8.50"}], ")"}], "/", "8.50"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.37", "+", "0.02", "-", "8.50"}], ")"}], "/", 
         "8.50"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"46.9", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.41", "-", "8.50"}], ")"}], "/", "8.50"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.41", "+", "0.03", "-", "8.50"}], ")"}], "/", 
         "8.50"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"23.5", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.51", "-", "8.50"}], ")"}], "/", "8.50"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.51", "+", "0.02", "-", "8.50"}], ")"}], "/", 
         "8.50"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"11.75", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.51", "-", "8.50"}], ")"}], "/", "8.50"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.51", "+", "0.02", "-", "8.50"}], ")"}], "/", 
         "8.50"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"5.88", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.70", "-", "8.50"}], ")"}], "/", "8.50"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.70", "+", "0.02", "-", "8.50"}], ")"}], "/", 
         "8.50"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.94", "-", "8.50"}], ")"}], "/", "8.50"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"8.94", "+", "0.02", "-", "8.50"}], ")"}], "/", 
         "8.50"}]}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points01sPlot", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"points01s", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], ",", 
       RowBox[{"ErrorBar", "[", 
        RowBox[{"-", 
         RowBox[{"points01serr", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", 
       RowBox[{"Length", "[", "points01s", "]"}]}], "}"}]}], "]"}]}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points05", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"4.7", "-", "3.34"}], ")"}], "/", "3.34"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"5.88", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"4.4", "-", "3.34"}], ")"}], "/", "3.34"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"11.75", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"4.21", "-", "3.34"}], ")"}], "/", "3.34"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"23.5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"3.95", "-", "3.34"}], ")"}], "/", "3.34"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"46.9", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"3.63", "-", "3.34"}], ")"}], "/", "3.34"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"93.8", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"3.54", "-", "3.34"}], ")"}], "/", "3.34"}]}], "}"}]}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points05err", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"4.7", "-", "3.34"}], ")"}], "/", "3.34"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"4.7", "+", "0.02", "-", "3.34"}], ")"}], "/", "3.34"}]}]}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.88", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"4.4", "-", "3.34"}], ")"}], "/", "3.34"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"4.4", "+", "0.2", "-", "3.34"}], ")"}], "/", "3.34"}]}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"11.75", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"4.21", "-", "3.34"}], ")"}], "/", "3.34"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"4.21", "+", "0.03", "-", "3.34"}], ")"}], "/", 
         "3.34"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"23.5", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"3.95", "-", "3.34"}], ")"}], "/", "3.34"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"3.95", "+", "0.02", "-", "3.34"}], ")"}], "/", 
         "3.34"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"46.9", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"3.63", "-", "3.34"}], ")"}], "/", "3.34"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"3.63", "+", "0.02", "-", "3.34"}], ")"}], "/", 
         "3.34"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"93.8", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"3.54", "-", "3.34"}], ")"}], "/", "3.34"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"3.54", "+", "0.05", "-", "3.34"}], ")"}], "/", 
         "3.34"}]}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points05Plot", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"points05", "[", 
        RowBox[{"[", "ii", "]"}], "]"}], ",", 
       RowBox[{"ErrorBar", "[", 
        RowBox[{"-", 
         RowBox[{"points05err", "[", 
          RowBox[{"[", 
           RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", 
       RowBox[{"Length", "[", "points05", "]"}]}], "}"}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points20", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1.85", "-", "1.14"}], ")"}], "/", "1.14"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.88", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1.7", "-", "1.14"}], ")"}], "/", "1.14"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11.75", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1.67", "-", "1.14"}], ")"}], "/", "1.14"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"23.5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1.48", "-", "1.14"}], ")"}], "/", "1.14"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"46.9", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1.28", "-", "1.14"}], ")"}], "/", "1.14"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"93.8", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1.16", "-", "1.14"}], ")"}], "/", "1.14"}]}], "}"}]}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"points20err", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1.85", "-", "1.14"}], ")"}], "/", "1.14"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1.85", "+", "0.02", "-", "1.14"}], ")"}], "/", 
         "1.14"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"5.88", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1.7", "-", "1.14"}], ")"}], "/", "1.14"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1.7", "+", "0.1", "-", "1.14"}], ")"}], "/", "1.14"}]}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"11.75", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1.67", "-", "1.14"}], ")"}], "/", "1.14"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1.67", "+", "0.03", "-", "1.14"}], ")"}], "/", 
         "1.14"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"23.5", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1.48", "-", "1.14"}], ")"}], "/", "1.14"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1.48", "+", "0.03", "-", "1.14"}], ")"}], "/", 
         "1.14"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"46.9", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1.28", "-", "1.14"}], ")"}], "/", "1.14"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1.28", "+", "0.02", "-", "1.14"}], ")"}], "/", 
         "1.14"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"93.8", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1.16", "-", "1.14"}], ")"}], "/", "1.14"}]}], "}"}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1.16", "+", "0.03", "-", "1.14"}], ")"}], "/", "1.14"}]}]}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"points20Plot", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"points20", "[", 
       RowBox[{"[", "ii", "]"}], "]"}], ",", 
      RowBox[{"ErrorBar", "[", 
       RowBox[{"-", 
        RowBox[{"points20err", "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "2"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"ii", ",", "1", ",", 
      RowBox[{"Length", "[", "points20", "]"}]}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "points001", ",", "points01", ",", "points05Plot", ",", "points20"}], 
    "}"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.798528275757555*^9, 3.798528413842147*^9}, {
   3.798528445273882*^9, 3.798528507277948*^9}, {3.7985294349994507`*^9, 
   3.798529475504538*^9}, {3.798529527336103*^9, 3.798529530161529*^9}, {
   3.7985295887722397`*^9, 3.7985298201161957`*^9}, {3.798529876577104*^9, 
   3.79852995906645*^9}, {3.798530008674429*^9, 3.798530018125181*^9}, {
   3.798530049683454*^9, 3.7985301517518797`*^9}, {3.7985319858440113`*^9, 
   3.798532024928029*^9}, {3.798791460155945*^9, 3.798791641966556*^9}, {
   3.798791680302104*^9, 3.7987917836185703`*^9}, {3.798791856233266*^9, 
   3.7987918849528522`*^9}, {3.7987919239039803`*^9, 
   3.7987920263797913`*^9}, {3.798792060458433*^9, 3.798792067274151*^9}, {
   3.7987921176745167`*^9, 3.798792153482074*^9}, {3.798792184366724*^9, 
   3.798792202983591*^9}, {3.7987922861752462`*^9, 3.798792511745873*^9}, {
   3.798792559045183*^9, 3.7987926030870943`*^9}, {3.798792655686418*^9, 
   3.798792798570594*^9}, {3.798792856406226*^9, 3.798793012291629*^9}, {
   3.799204816507834*^9, 3.799204833740521*^9}, {3.7992048770289373`*^9, 
   3.79920490039708*^9}, {3.7992050613314457`*^9, 3.799205245618636*^9}, {
   3.799205332033366*^9, 3.799205436151924*^9}, {3.799205468449813*^9, 
   3.799205468706204*^9}, {3.799205504531743*^9, 3.7992055543385973`*^9}, {
   3.7992055913463078`*^9, 3.799205712927964*^9}, {3.799359423054841*^9, 
   3.79935951107047*^9}, 
   3.799880129041535*^9},ExpressionUUID->"f8870b11-d401-4f0e-a6f0-\
979bdc65b2fd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"93.8`", ",", 
       FractionBox["1", "100"]}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", 
      FractionBox["3", "500"], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"46.9`", ",", 
       FractionBox["1", "500"]}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", 
      FractionBox["7", "1000"], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"23.5`", ",", 
       FractionBox["1", "50"]}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", 
      FractionBox["7", "1000"], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"11.75`", ",", 
       FractionBox["13", "1000"]}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", 
      FractionBox["1", "500"], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5.88`", ",", 
       FractionBox["19", "500"]}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", 
      FractionBox["1", "125"], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       FractionBox["43", "500"]}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", 
      FractionBox["3", "500"], "]"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.798791730203649*^9, 3.798791742079934*^9}, 
   3.798792028795422*^9, 3.798792068473984*^9, {3.7987921178689117`*^9, 
   3.798792154480482*^9}, {3.798792506573193*^9, 3.798792512214305*^9}, 
   3.798792603947703*^9, 3.798792800575406*^9, 3.798792863864299*^9, 
   3.798792982571086*^9, 3.7987930125992603`*^9, 3.799204835572825*^9, 
   3.799205247039*^9, 3.799205718662221*^9, 3.799359513645947*^9, 
   3.7998801384019527`*^9},ExpressionUUID->"ce5452b1-73db-4e91-aeed-\
87bd7ee90e71"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"93.8`", ",", "0.034793814432989636`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.0051546391752576234`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"46.9`", ",", "0.04768041237113416`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.003865979381443216`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"23.5`", ",", "0.07860824742268034`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.009020618556701068`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"11.75`", ",", "0.11855670103092784`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.01159793814432987`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5.88`", ",", "0.15850515463917533`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.011597938144329883`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0.21907216494845377`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.00515463917525763`", "]"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.798791730203649*^9, 3.798791742079934*^9}, 
   3.798792028795422*^9, 3.798792068473984*^9, {3.7987921178689117`*^9, 
   3.798792154480482*^9}, {3.798792506573193*^9, 3.798792512214305*^9}, 
   3.798792603947703*^9, 3.798792800575406*^9, 3.798792863864299*^9, 
   3.798792982571086*^9, 3.7987930125992603`*^9, 3.799204835572825*^9, 
   3.799205247039*^9, 3.799205718662221*^9, 3.799359513645947*^9, 
   3.799880138408577*^9},ExpressionUUID->"73374375-0ed2-43aa-9ff5-\
99f9794485bf"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"93.8`", ",", "0.0012886597938144056`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.0025773195876288117`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"46.9`", ",", "0.01159793814432988`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.003865979381443332`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"23.5`", ",", "0.01159793814432988`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.0025773195876288117`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"11.75`", ",", "0.07087628865979391`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.002577319587628815`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5.88`", ",", "0.12242268041237128`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.0025773195876288013`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0.15721649484536093`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.0025773195876288013`", "]"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.798791730203649*^9, 3.798791742079934*^9}, 
   3.798792028795422*^9, 3.798792068473984*^9, {3.7987921178689117`*^9, 
   3.798792154480482*^9}, {3.798792506573193*^9, 3.798792512214305*^9}, 
   3.798792603947703*^9, 3.798792800575406*^9, 3.798792863864299*^9, 
   3.798792982571086*^9, 3.7987930125992603`*^9, 3.799204835572825*^9, 
   3.799205247039*^9, 3.799205718662221*^9, 3.799359513645947*^9, 
   3.799880138409966*^9},ExpressionUUID->"39fb6872-a656-4526-8776-\
6d04766c4e92"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"93.8`", ",", 
       RowBox[{"-", "0.015294117647058915`"}]}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.002352941176470537`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"46.9`", ",", 
       RowBox[{"-", "0.010588235294117631`"}]}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.003529411764705808`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"23.5`", ",", "0.001176470588235269`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.0023529411764705377`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"11.75`", ",", "0.0235294117647058`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.0023529411764705377`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5.88`", ",", "0.05176470588235288`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.002352941176470537`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0.10941176470588232`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.002352941176470544`", "]"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.798791730203649*^9, 3.798791742079934*^9}, 
   3.798792028795422*^9, 3.798792068473984*^9, {3.7987921178689117`*^9, 
   3.798792154480482*^9}, {3.798792506573193*^9, 3.798792512214305*^9}, 
   3.798792603947703*^9, 3.798792800575406*^9, 3.798792863864299*^9, 
   3.798792982571086*^9, 3.7987930125992603`*^9, 3.799204835572825*^9, 
   3.799205247039*^9, 3.799205718662221*^9, 3.799359513645947*^9, 
   3.799880138431219*^9},ExpressionUUID->"bcf1d280-31f0-4765-bebb-\
58387dcc9095"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0.4071856287425151`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.0059880239520956335`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5.88`", ",", "0.317365269461078`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.05988023952095817`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"11.75`", ",", "0.2604790419161677`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.008982035928143783`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"23.5`", ",", "0.18263473053892226`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.005988023952095828`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"46.9`", ",", "0.08682634730538924`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.005988023952095814`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"93.8`", ",", "0.05988023952095814`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.014970059880239472`", "]"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.798791730203649*^9, 3.798791742079934*^9}, 
   3.798792028795422*^9, 3.798792068473984*^9, {3.7987921178689117`*^9, 
   3.798792154480482*^9}, {3.798792506573193*^9, 3.798792512214305*^9}, 
   3.798792603947703*^9, 3.798792800575406*^9, 3.798792863864299*^9, 
   3.798792982571086*^9, 3.7987930125992603`*^9, 3.799204835572825*^9, 
   3.799205247039*^9, 3.799205718662221*^9, 3.799359513645947*^9, 
   3.79988013843301*^9},ExpressionUUID->"eaff2e39-49a8-4f04-855d-\
28c516487188"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0.6228070175438598`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.01754385964912286`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5.88`", ",", "0.4912280701754387`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.08771929824561409`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"11.75`", ",", "0.46491228070175444`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.026315789473684237`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"23.5`", ",", "0.2982456140350878`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.026315789473684237`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"46.9`", ",", "0.12280701754385977`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.01754385964912282`", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"93.8`", ",", "0.017543859649122823`"}], "}"}], ",", 
     RowBox[{"ErrorBar", "[", "0.026315789473684233`", "]"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.798791730203649*^9, 3.798791742079934*^9}, 
   3.798792028795422*^9, 3.798792068473984*^9, {3.7987921178689117`*^9, 
   3.798792154480482*^9}, {3.798792506573193*^9, 3.798792512214305*^9}, 
   3.798792603947703*^9, 3.798792800575406*^9, 3.798792863864299*^9, 
   3.798792982571086*^9, 3.7987930125992603`*^9, 3.799204835572825*^9, 
   3.799205247039*^9, 3.799205718662221*^9, 3.799359513645947*^9, 
   3.799880138435158*^9},ExpressionUUID->"b77b9c4a-5588-419b-bc12-\
422c87e9f4ba"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     LineBox[{{93.8, 0.01}, {46.9, 0.002}, {23.5, 0.02}, {11.75, 0.013}, {
      5.88, 0.038}, {0., 0.086}}]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     LineBox[{{93.8, 0.034793814432989636`}, {46.9, 0.04768041237113416}, {
      23.5, 0.07860824742268034}, {11.75, 0.11855670103092784`}, {5.88, 
      0.15850515463917533`}, {0., 0.21907216494845377`}}]}, {}, 
    {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     LineBox[{{0., 0.6228070175438598}, {5.88, 0.4912280701754387}, {11.75, 
      0.46491228070175444`}, {23.5, 0.2982456140350878}, {46.9, 
      0.12280701754385977`}, {93.8, 
      0.017543859649122823`}}]}}, {}, {}, {}, {}},
  AspectRatio->1,
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 93.8}, {0, 0.6228070175438598}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.798791730203649*^9, 3.798791742079934*^9}, 
   3.798792028795422*^9, 3.798792068473984*^9, {3.7987921178689117`*^9, 
   3.798792154480482*^9}, {3.798792506573193*^9, 3.798792512214305*^9}, 
   3.798792603947703*^9, 3.798792800575406*^9, 3.798792863864299*^9, 
   3.798792982571086*^9, 3.7987930125992603`*^9, 3.799204835572825*^9, 
   3.799205247039*^9, 3.799205718662221*^9, 3.799359513645947*^9, 
   3.7998801384777727`*^9},ExpressionUUID->"072b160d-aa91-4ac3-bca5-\
34ae0407496f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ErrorListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "points001Plot", ",", "points01Plot", ",", "points01wPlot", ",", 
     "points01sPlot", ",", "points05Plot", ",", "points20Plot"}], "}"}], ",", 
   
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7987920846727962`*^9, 3.798792087450345*^9}, {
  3.7987921578552647`*^9, 3.7987921597809267`*^9}, {3.7987925224344597`*^9, 
  3.7987925395742826`*^9}, {3.7987928078023367`*^9, 3.798792810626235*^9}, {
  3.798793018252775*^9, 3.798793021442568*^9}, {3.799205256186718*^9, 
  3.799205258092881*^9}, {3.799205723565742*^9, 
  3.799205726856738*^9}},ExpressionUUID->"679c5b7f-701a-4f06-994c-\
9185c2ad68e3"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     LineBox[{{93.8, 0.01}, {46.9, 0.002}, {23.5, 0.02}, {11.75, 0.013}, {
      5.88, 0.038}, {0., 
      0.086}}], {{LineBox[{{93.8, 0.016}, {93.8, 0.004}}], 
       LineBox[{
        Offset[{1.5, 0}, {93.8, 0.016}], Offset[{-1.5, 0}, {93.8, 0.016}]}], 
       LineBox[{
        Offset[{1.5, 0}, {93.8, 0.004}], 
         Offset[{-1.5, 0}, {93.8, 0.004}]}]}, {
       LineBox[{{46.9, 0.009000000000000001}, {46.9, -0.005}}], 
       LineBox[{
        Offset[{1.5, 0}, {46.9, 0.009000000000000001}], 
         Offset[{-1.5, 0}, {46.9, 0.009000000000000001}]}], 
       LineBox[{
        Offset[{1.5, 0}, {46.9, -0.005}], 
         Offset[{-1.5, 0}, {46.9, -0.005}]}]}, {
       LineBox[{{23.5, 0.027}, {23.5, 0.013000000000000001`}}], 
       LineBox[{
        Offset[{1.5, 0}, {23.5, 0.027}], Offset[{-1.5, 0}, {23.5, 0.027}]}], 
       LineBox[{
        Offset[{1.5, 0}, {23.5, 0.013000000000000001`}], 
         Offset[{-1.5, 0}, {23.5, 0.013000000000000001`}]}]}, {
       LineBox[{{11.75, 0.015}, {11.75, 0.011}}], 
       LineBox[{
        Offset[{1.5, 0}, {11.75, 0.015}], Offset[{-1.5, 0}, {11.75, 0.015}]}],
        LineBox[{
        Offset[{1.5, 0}, {11.75, 0.011}], 
         Offset[{-1.5, 0}, {11.75, 0.011}]}]}, {
       LineBox[{{5.88, 0.046}, {5.88, 0.03}}], 
       LineBox[{
        Offset[{1.5, 0}, {5.88, 0.046}], Offset[{-1.5, 0}, {5.88, 0.046}]}], 
       LineBox[{
        Offset[{1.5, 0}, {5.88, 0.03}], Offset[{-1.5, 0}, {5.88, 0.03}]}]}, {
       LineBox[{{0., 0.092}, {0., 0.07999999999999999}}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 0.092}], Offset[{-1.5, 0}, {0., 0.092}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 0.07999999999999999}], 
         Offset[{-1.5, 0}, {0., 0.07999999999999999}]}]}}}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     LineBox[{{93.8, 0.034793814432989636`}, {46.9, 0.04768041237113416}, {
      23.5, 0.07860824742268034}, {11.75, 0.11855670103092784`}, {5.88, 
      0.15850515463917533`}, {0., 
      0.21907216494845377`}}], {{
       LineBox[{{93.8, 0.03994845360824726}, {93.8, 0.029639175257732013`}}], 
       LineBox[{
        Offset[{1.5, 0}, {93.8, 0.03994845360824726}], 
         Offset[{-1.5, 0}, {93.8, 0.03994845360824726}]}], 
       LineBox[{
        Offset[{1.5, 0}, {93.8, 0.029639175257732013`}], 
         Offset[{-1.5, 0}, {93.8, 0.029639175257732013`}]}]}, {
       LineBox[{{46.9, 0.05154639175257737}, {46.9, 0.04381443298969094}}], 
       LineBox[{
        Offset[{1.5, 0}, {46.9, 0.05154639175257737}], 
         Offset[{-1.5, 0}, {46.9, 0.05154639175257737}]}], 
       LineBox[{
        Offset[{1.5, 0}, {46.9, 0.04381443298969094}], 
         Offset[{-1.5, 0}, {46.9, 0.04381443298969094}]}]}, {
       LineBox[{{23.5, 0.08762886597938141}, {23.5, 0.06958762886597927}}], 
       LineBox[{
        Offset[{1.5, 0}, {23.5, 0.08762886597938141}], 
         Offset[{-1.5, 0}, {23.5, 0.08762886597938141}]}], 
       LineBox[{
        Offset[{1.5, 0}, {23.5, 0.06958762886597927}], 
         Offset[{-1.5, 0}, {23.5, 0.06958762886597927}]}]}, {
       LineBox[{{11.75, 0.1301546391752577}, {11.75, 0.10695876288659797`}}], 
       LineBox[{
        Offset[{1.5, 0}, {11.75, 0.1301546391752577}], 
         Offset[{-1.5, 0}, {11.75, 0.1301546391752577}]}], 
       LineBox[{
        Offset[{1.5, 0}, {11.75, 0.10695876288659797`}], 
         Offset[{-1.5, 0}, {11.75, 0.10695876288659797`}]}]}, {
       LineBox[{{5.88, 0.17010309278350522`}, {5.88, 0.14690721649484545`}}], 
       LineBox[{
        Offset[{1.5, 0}, {5.88, 0.17010309278350522`}], 
         Offset[{-1.5, 0}, {5.88, 0.17010309278350522`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {5.88, 0.14690721649484545`}], 
         Offset[{-1.5, 0}, {5.88, 0.14690721649484545`}]}]}, {
       LineBox[{{0., 0.2242268041237114}, {0., 0.21391752577319614`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 0.2242268041237114}], 
         Offset[{-1.5, 0}, {0., 0.2242268041237114}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 0.21391752577319614`}], 
         Offset[{-1.5, 0}, {0., 0.21391752577319614`}]}]}}}, 
    {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     LineBox[{{93.8, 0.0012886597938144056`}, {46.9, 0.01159793814432988}, {
      23.5, 0.01159793814432988}, {11.75, 0.07087628865979391}, {5.88, 
      0.12242268041237128`}, {0., 
      0.15721649484536093`}}], {{
       LineBox[{{93.8, 0.0038659793814432176`}, {
        93.8, -0.001288659793814406}}], 
       LineBox[{
        Offset[{1.5, 0}, {93.8, 0.0038659793814432176`}], 
         Offset[{-1.5, 0}, {93.8, 0.0038659793814432176`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {93.8, -0.001288659793814406}], 
         Offset[{-1.5, 0}, {93.8, -0.001288659793814406}]}]}, {
       LineBox[{{46.9, 0.015463917525773212`}, {46.9, 0.007731958762886548}}],
        LineBox[{
        Offset[{1.5, 0}, {46.9, 0.015463917525773212`}], 
         Offset[{-1.5, 0}, {46.9, 0.015463917525773212`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {46.9, 0.007731958762886548}], 
         Offset[{-1.5, 0}, {46.9, 0.007731958762886548}]}]}, {
       LineBox[{{23.5, 0.014175257731958692`}, {23.5, 0.009020618556701068}}],
        LineBox[{
        Offset[{1.5, 0}, {23.5, 0.014175257731958692`}], 
         Offset[{-1.5, 0}, {23.5, 0.014175257731958692`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {23.5, 0.009020618556701068}], 
         Offset[{-1.5, 0}, {23.5, 0.009020618556701068}]}]}, {
       LineBox[{{11.75, 0.07345360824742272}, {11.75, 0.0682989690721651}}], 
       LineBox[{
        Offset[{1.5, 0}, {11.75, 0.07345360824742272}], 
         Offset[{-1.5, 0}, {11.75, 0.07345360824742272}]}], 
       LineBox[{
        Offset[{1.5, 0}, {11.75, 0.0682989690721651}], 
         Offset[{-1.5, 0}, {11.75, 0.0682989690721651}]}]}, {
       LineBox[{{5.88, 0.12500000000000008`}, {5.88, 0.11984536082474248`}}], 
       LineBox[{
        Offset[{1.5, 0}, {5.88, 0.12500000000000008`}], 
         Offset[{-1.5, 0}, {5.88, 0.12500000000000008`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {5.88, 0.11984536082474248`}], 
         Offset[{-1.5, 0}, {5.88, 0.11984536082474248`}]}]}, {
       LineBox[{{0., 0.15979381443298973`}, {0., 0.15463917525773213`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 0.15979381443298973`}], 
         Offset[{-1.5, 0}, {0., 0.15979381443298973`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 0.15463917525773213`}], 
         Offset[{-1.5, 0}, {0., 0.15463917525773213`}]}]}}}, 
    {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     LineBox[{{93.8, -0.015294117647058915`}, {
      46.9, -0.010588235294117631`}, {23.5, 0.001176470588235269}, {11.75, 
      0.0235294117647058}, {5.88, 0.05176470588235288}, {0., 
      0.10941176470588232`}}], {{
       LineBox[{{93.8, -0.012941176470588378`}, {
        93.8, -0.017647058823529453`}}], 
       LineBox[{
        Offset[{1.5, 0}, {93.8, -0.012941176470588378`}], 
         Offset[{-1.5, 0}, {93.8, -0.012941176470588378`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {93.8, -0.017647058823529453`}], 
         Offset[{-1.5, 0}, {93.8, -0.017647058823529453`}]}]}, {
       LineBox[{{46.9, -0.007058823529411823}, {46.9, -0.01411764705882344}}],
        LineBox[{
        Offset[{1.5, 0}, {46.9, -0.007058823529411823}], 
         Offset[{-1.5, 0}, {46.9, -0.007058823529411823}]}], 
       LineBox[{
        Offset[{1.5, 0}, {46.9, -0.01411764705882344}], 
         Offset[{-1.5, 0}, {46.9, -0.01411764705882344}]}]}, {
       LineBox[{{23.5, 0.003529411764705807}, {
        23.5, -0.0011764705882352686`}}], 
       LineBox[{
        Offset[{1.5, 0}, {23.5, 0.003529411764705807}], 
         Offset[{-1.5, 0}, {23.5, 0.003529411764705807}]}], 
       LineBox[{
        Offset[{1.5, 0}, {23.5, -0.0011764705882352686`}], 
         Offset[{-1.5, 0}, {23.5, -0.0011764705882352686`}]}]}, {
       LineBox[{{11.75, 0.025882352941176336`}, {11.75, 
        0.021176470588235262`}}], 
       LineBox[{
        Offset[{1.5, 0}, {11.75, 0.025882352941176336`}], 
         Offset[{-1.5, 0}, {11.75, 0.025882352941176336`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {11.75, 0.021176470588235262`}], 
         Offset[{-1.5, 0}, {11.75, 0.021176470588235262`}]}]}, {
       LineBox[{{5.88, 0.054117647058823416`}, {5.88, 0.04941176470588234}}], 
       LineBox[{
        Offset[{1.5, 0}, {5.88, 0.054117647058823416`}], 
         Offset[{-1.5, 0}, {5.88, 0.054117647058823416`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {5.88, 0.04941176470588234}], 
         Offset[{-1.5, 0}, {5.88, 0.04941176470588234}]}]}, {
       LineBox[{{0., 0.11176470588235286`}, {0., 0.10705882352941178`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 0.11176470588235286`}], 
         Offset[{-1.5, 0}, {0., 0.11176470588235286`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 0.10705882352941178`}], 
         Offset[{-1.5, 0}, {0., 0.10705882352941178`}]}]}}}, 
    {RGBColor[0.528488, 0.470624, 0.701351], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     LineBox[{{0., 0.4071856287425151}, {5.88, 0.317365269461078}, {11.75, 
      0.2604790419161677}, {23.5, 0.18263473053892226`}, {46.9, 
      0.08682634730538924}, {93.8, 
      0.05988023952095814}}], {{
       LineBox[{{0., 0.41317365269461076`}, {0., 0.4011976047904195}}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 0.41317365269461076`}], 
         Offset[{-1.5, 0}, {0., 0.41317365269461076`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 0.4011976047904195}], 
         Offset[{-1.5, 0}, {0., 0.4011976047904195}]}]}, {
       LineBox[{{5.88, 0.3772455089820362}, {5.88, 0.25748502994011985`}}], 
       LineBox[{
        Offset[{1.5, 0}, {5.88, 0.3772455089820362}], 
         Offset[{-1.5, 0}, {5.88, 0.3772455089820362}]}], 
       LineBox[{
        Offset[{1.5, 0}, {5.88, 0.25748502994011985`}], 
         Offset[{-1.5, 0}, {5.88, 0.25748502994011985`}]}]}, {
       LineBox[{{11.75, 0.2694610778443115}, {11.75, 0.25149700598802394`}}], 
       LineBox[{
        Offset[{1.5, 0}, {11.75, 0.2694610778443115}], 
         Offset[{-1.5, 0}, {11.75, 0.2694610778443115}]}], 
       LineBox[{
        Offset[{1.5, 0}, {11.75, 0.25149700598802394`}], 
         Offset[{-1.5, 0}, {11.75, 0.25149700598802394`}]}]}, {
       LineBox[{{23.5, 0.1886227544910181}, {23.5, 0.17664670658682644`}}], 
       LineBox[{
        Offset[{1.5, 0}, {23.5, 0.1886227544910181}], 
         Offset[{-1.5, 0}, {23.5, 0.1886227544910181}]}], 
       LineBox[{
        Offset[{1.5, 0}, {23.5, 0.17664670658682644`}], 
         Offset[{-1.5, 0}, {23.5, 0.17664670658682644`}]}]}, {
       LineBox[{{46.9, 0.09281437125748505}, {46.9, 0.08083832335329343}}], 
       LineBox[{
        Offset[{1.5, 0}, {46.9, 0.09281437125748505}], 
         Offset[{-1.5, 0}, {46.9, 0.09281437125748505}]}], 
       LineBox[{
        Offset[{1.5, 0}, {46.9, 0.08083832335329343}], 
         Offset[{-1.5, 0}, {46.9, 0.08083832335329343}]}]}, {
       LineBox[{{93.8, 0.07485029940119761}, {93.8, 0.04491017964071867}}], 
       LineBox[{
        Offset[{1.5, 0}, {93.8, 0.07485029940119761}], 
         Offset[{-1.5, 0}, {93.8, 0.07485029940119761}]}], 
       LineBox[{
        Offset[{1.5, 0}, {93.8, 0.04491017964071867}], 
         Offset[{-1.5, 0}, {93.8, 0.04491017964071867}]}]}}}, 
    {RGBColor[0.772079, 0.431554, 0.102387], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     LineBox[{{0., 0.6228070175438598}, {5.88, 0.4912280701754387}, {11.75, 
      0.46491228070175444`}, {23.5, 0.2982456140350878}, {46.9, 
      0.12280701754385977`}, {93.8, 
      0.017543859649122823`}}], {{
       LineBox[{{0., 0.6403508771929827}, {0., 0.605263157894737}}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 0.6403508771929827}], 
         Offset[{-1.5, 0}, {0., 0.6403508771929827}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 0.605263157894737}], 
         Offset[{-1.5, 0}, {0., 0.605263157894737}]}]}, {
       LineBox[{{5.88, 0.5789473684210528}, {5.88, 0.4035087719298246}}], 
       LineBox[{
        Offset[{1.5, 0}, {5.88, 0.5789473684210528}], 
         Offset[{-1.5, 0}, {5.88, 0.5789473684210528}]}], 
       LineBox[{
        Offset[{1.5, 0}, {5.88, 0.4035087719298246}], 
         Offset[{-1.5, 0}, {5.88, 0.4035087719298246}]}]}, {
       LineBox[{{11.75, 0.4912280701754387}, {11.75, 0.4385964912280702}}], 
       LineBox[{
        Offset[{1.5, 0}, {11.75, 0.4912280701754387}], 
         Offset[{-1.5, 0}, {11.75, 0.4912280701754387}]}], 
       LineBox[{
        Offset[{1.5, 0}, {11.75, 0.4385964912280702}], 
         Offset[{-1.5, 0}, {11.75, 0.4385964912280702}]}]}, {
       LineBox[{{23.5, 0.32456140350877205`}, {23.5, 0.2719298245614036}}], 
       LineBox[{
        Offset[{1.5, 0}, {23.5, 0.32456140350877205`}], 
         Offset[{-1.5, 0}, {23.5, 0.32456140350877205`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {23.5, 0.2719298245614036}], 
         Offset[{-1.5, 0}, {23.5, 0.2719298245614036}]}]}, {
       LineBox[{{46.9, 0.1403508771929826}, {46.9, 0.10526315789473695`}}], 
       LineBox[{
        Offset[{1.5, 0}, {46.9, 0.1403508771929826}], 
         Offset[{-1.5, 0}, {46.9, 0.1403508771929826}]}], 
       LineBox[{
        Offset[{1.5, 0}, {46.9, 0.10526315789473695`}], 
         Offset[{-1.5, 0}, {46.9, 0.10526315789473695`}]}]}, {
       LineBox[{{93.8, 0.04385964912280706}, {93.8, -0.00877192982456141}}], 
       LineBox[{
        Offset[{1.5, 0}, {93.8, 0.04385964912280706}], 
         Offset[{-1.5, 0}, {93.8, 0.04385964912280706}]}], 
       LineBox[{
        Offset[{1.5, 0}, {93.8, -0.00877192982456141}], 
         Offset[{-1.5, 0}, {
          93.8, -0.00877192982456141}]}]}}}}, {}, {}, {}, {}},
  AspectRatio->1,
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 93.8}, {-0.015294117647058915`, 0.6228070175438598}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.798792088502432*^9, 3.798792160971469*^9, {3.798792534502318*^9, 
   3.798792540120996*^9}, 3.7987926069694157`*^9, 3.798792811561532*^9, 
   3.798792867547998*^9, 3.798793022126152*^9, 3.799205258728284*^9, 
   3.799205727727229*^9, 3.799359518720402*^9, 
   3.799880145991082*^9},ExpressionUUID->"152ebe53-5708-4558-8255-\
6950096082a2"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.817156755143058*^9, 
  3.817156761794764*^9}},ExpressionUUID->"94e6b184-d1e0-420c-b0ad-\
6cd2321cca9f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dims", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"13.06", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}], ",", 
     RowBox[{"13.06", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}], ",", 
     RowBox[{"6.53", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"domainParts", "=", "87"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wallPartsX", " ", "=", " ", "40"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wallPartsZ", " ", "=", " ", "20"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"wallTotal", " ", "=", " ", 
    RowBox[{"wallPartsX", "*", "wallPartsZ"}]}], ";"}], " ", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xCell", "=", 
   RowBox[{
    RowBox[{"dims", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "/", "wallPartsX"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"zCell", " ", "=", 
    RowBox[{
     RowBox[{"dims", "[", 
      RowBox[{"[", "3", "]"}], "]"}], "/", "wallPartsZ"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wallPosBottom", " ", "=", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"xCell", "/", "2"}], "+", 
          RowBox[{"xCell", "*", "ii"}]}], ",", 
         RowBox[{"0.25", "*", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"xCell", "/", "2"}], "+", 
          RowBox[{"zCell", "*", "jj"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "0", ",", 
         RowBox[{"wallPartsX", "-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "0", ",", 
         RowBox[{"wallPartsZ", "-", "1"}]}], "}"}]}], "]"}], ",", "1"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wallPosTop", " ", "=", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"xCell", "/", "2"}], "+", 
          RowBox[{"xCell", "*", "ii"}]}], ",", 
         RowBox[{"0.75", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"xCell", "/", "2"}], "+", 
          RowBox[{"zCell", "*", "jj"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "0", ",", 
         RowBox[{"wallPartsX", "-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "0", ",", 
         RowBox[{"wallPartsZ", "-", "1"}]}], "}"}]}], "]"}], ",", "1"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"wallPos", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"wallPosBottom", ",", "wallPosTop"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"images", "=", "0"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wallPosPeriodic", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"xCell", "/", "2"}], "+", 
                RowBox[{"xCell", "*", "ii"}], "+", 
                RowBox[{"oo", "*", 
                 RowBox[{"dims", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
               RowBox[{
                RowBox[{"0.25", "*", 
                 RowBox[{"dims", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], "+", 
                RowBox[{"qq", "*", 
                 RowBox[{"dims", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
               RowBox[{
                RowBox[{"xCell", "/", "2"}], "+", 
                RowBox[{"zCell", "*", "jj"}], "+", 
                RowBox[{"pp", "*", 
                 RowBox[{"dims", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"ii", ",", "0", ",", 
               RowBox[{"wallPartsX", "-", "1"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"jj", ",", "0", ",", 
               RowBox[{"wallPartsZ", "-", "1"}]}], "}"}]}], "]"}], ",", "1"}],
           "]"}], ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"xCell", "/", "2"}], "+", 
                RowBox[{"xCell", "*", "ii"}], "+", 
                RowBox[{"oo", "*", 
                 RowBox[{"dims", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
               RowBox[{
                RowBox[{"0.75", "*", 
                 RowBox[{"dims", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], "+", 
                RowBox[{"qq", "*", 
                 RowBox[{"dims", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
               RowBox[{
                RowBox[{"xCell", "/", "2"}], "+", 
                RowBox[{"zCell", "*", "jj"}], "+", 
                RowBox[{"pp", "*", 
                 RowBox[{"dims", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"ii", ",", "0", ",", 
               RowBox[{"wallPartsX", "-", "1"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"jj", ",", "0", ",", 
               RowBox[{"wallPartsZ", "-", "1"}]}], "}"}]}], "]"}], ",", "1"}],
           "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"oo", ",", 
         RowBox[{"-", "images"}], ",", "images"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"pp", ",", 
         RowBox[{"-", "images"}], ",", "images"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"qq", ",", 
         RowBox[{"-", "images"}], ",", "images"}], "}"}]}], "]"}], ",", "2"}],
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.817158691623445*^9, 3.817158746070777*^9}, {
   3.81716176473615*^9, 3.8171617698488398`*^9}, {3.817163619502919*^9, 
   3.8171636415428057`*^9}, 3.817237942139113*^9, {3.817238744300962*^9, 
   3.817238769335444*^9}, {3.817238985940447*^9, 3.817238991637054*^9}, {
   3.817239029108602*^9, 3.8172390323326178`*^9}, {3.817239133716083*^9, 
   3.817239135497883*^9}, {3.8172392664200983`*^9, 3.817239269939678*^9}, {
   3.817240476654889*^9, 3.817240476820068*^9}, {3.817240627943235*^9, 
   3.817240687867805*^9}, {3.817240894055255*^9, 3.8172409189134083`*^9}, {
   3.8172410667436733`*^9, 3.81724110287994*^9}, {3.817241175399753*^9, 
   3.8172412039090967`*^9}, {3.817241239991764*^9, 3.817241262653493*^9}, {
   3.81724153211867*^9, 3.817241549365718*^9}, {3.817241930563591*^9, 
   3.817241996644265*^9}, {3.8172421484985533`*^9, 3.8172422040816717`*^9}, 
   3.817242271400934*^9, {3.817242437297591*^9, 3.8172424676016207`*^9}, {
   3.81724262583664*^9, 3.817242721873115*^9}, {3.817245097291119*^9, 
   3.817245103830822*^9}, 3.817251039422736*^9, {3.817251069434564*^9, 
   3.817251075291667*^9}, {3.817251141157585*^9, 3.817251162925603*^9}, {
   3.817252415328395*^9, 3.817252429325293*^9}, {3.8172532199110937`*^9, 
   3.817253275528976*^9}, {3.817253676216805*^9, 3.817253775755609*^9}, {
   3.8172550675136213`*^9, 3.817255073430175*^9}, {3.8175110723346453`*^9, 
   3.817511128536455*^9}, {3.817512698231511*^9, 3.817512701349061*^9}, {
   3.817687296202463*^9, 3.817687310682706*^9}, {3.8176875788066053`*^9, 
   3.81768760963505*^9}, {3.817689159998848*^9, 3.817689180845702*^9}, 
   3.817693884493325*^9, 3.8176939307753563`*^9, {3.817693978496244*^9, 
   3.817694002390808*^9}, {3.8177033828710403`*^9, 3.817703411952711*^9}, 
   3.8177034506578503`*^9, 3.817703628683703*^9, 3.8177037656284857`*^9, 
   3.817704496772478*^9, {3.817704566148119*^9, 3.817704594348297*^9}, 
   3.817704810096219*^9, 3.8177049683430223`*^9, {3.817747353145566*^9, 
   3.817747361345871*^9}, {3.817747444811233*^9, 3.81774745177188*^9}, {
   3.817748178947921*^9, 3.8177482582246847`*^9}, 3.817748301072219*^9, {
   3.817748405914242*^9, 3.817748427989107*^9}, 3.8177487896969137`*^9, {
   3.817748974555908*^9, 3.8177489988188133`*^9}, {3.817749808905253*^9, 
   3.817749820415954*^9}, {3.817750624571438*^9, 3.817750633769271*^9}, 
   3.817750701193509*^9, {3.817750767233403*^9, 3.8177507843070087`*^9}, {
   3.817751870557898*^9, 3.817751874901413*^9}, {3.817752794359766*^9, 
   3.817752823236484*^9}, {3.817754129549371*^9, 3.817754184996584*^9}, {
   3.817756119671001*^9, 3.817756139014655*^9}, 3.81775639012181*^9, {
   3.8177585576010227`*^9, 3.8177585647892227`*^9}, {3.81777373945512*^9, 
   3.817773771438716*^9}, {3.8177738555770617`*^9, 3.817773885353774*^9}, 
   3.817774010890329*^9, 3.817774378983499*^9, {3.8177753042524767`*^9, 
   3.8177753415515213`*^9}, {3.8177753782656937`*^9, 3.817775393271494*^9}, {
   3.8177763615089293`*^9, 3.817776418454378*^9}, 3.817776499030601*^9, {
   3.817789451515293*^9, 3.817789461456751*^9}, 3.818012456744444*^9, {
   3.818012772836103*^9, 3.818012799385622*^9}, {3.818012838292931*^9, 
   3.818012860842819*^9}, 3.818013401376576*^9, {3.818013699500783*^9, 
   3.818013709995826*^9}, {3.818015048801936*^9, 3.8180151460285473`*^9}, {
   3.8180152238913927`*^9, 3.81801523777081*^9}, {3.81801527167313*^9, 
   3.8180152937375937`*^9}, {3.8180153752195673`*^9, 
   3.8180153843627453`*^9}, {3.8180154193704023`*^9, 3.818015450505671*^9}, {
   3.8180155295801163`*^9, 3.818015538451195*^9}, {3.81801557200856*^9, 
   3.8180157067805433`*^9}},ExpressionUUID->"c098a64f-0897-475a-ac97-\
6eab54027598"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"dims", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"16", "*", "104.48", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}], ",", 
     RowBox[{"52.24", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}], ",", 
     RowBox[{"52.24", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"count", " ", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", "*", "4096"}], ")"}], "/", "8"}]}], "\[IndentingNewLine]", 
 RowBox[{"sep", "=", 
  RowBox[{
   RowBox[{"dims", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "/", "count"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"images", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"wallPos", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"sep", "/", "2"}], "+", 
         RowBox[{"ii", "*", "sep"}]}], ",", 
        RowBox[{"0.5", 
         RowBox[{"dims", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], ",", 
        RowBox[{"0.5", 
         RowBox[{"dims", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "0", ",", 
        RowBox[{"count", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"wallPos", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"0.5", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{"0.5", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{"0.5", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"0.375", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{"0.5", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{"0.5", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"0.625", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{"0.5", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{"0.5", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}], "}"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wallPosPeriodic", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"wallPos", "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"wallPos", "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"wallPos", "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "3"}], "]"}], "]"}], "+", 
        RowBox[{"qq", "*", 
         RowBox[{"dims", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"qq", ",", 
       RowBox[{"-", "images"}], ",", "images"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", 
       RowBox[{"Length", "[", "wallPos", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "wallPosPeriodic", 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.818015711577345*^9, 3.818015847843038*^9}, {
   3.818015951029182*^9, 3.8180159606431227`*^9}, 3.818016011638138*^9, {
   3.818016159868739*^9, 3.818016160172567*^9}, {3.818016196599753*^9, 
   3.818016217440721*^9}, {3.8180163566176453`*^9, 3.818016445994245*^9}, {
   3.818016955856577*^9, 3.818017052477318*^9}, {3.818017106616527*^9, 
   3.818017177409067*^9}, {3.8180189018712883`*^9, 3.818018913186603*^9}, {
   3.818021467814789*^9, 3.8180214788696404`*^9}, {3.8180221819397984`*^9, 
   3.818022347047216*^9}, {3.818022676665546*^9, 3.818022698451288*^9}, {
   3.818022743530909*^9, 3.818022747038191*^9}, {3.8180230523313217`*^9, 
   3.8180230599145393`*^9}},ExpressionUUID->"e6b0f50c-bf34-488d-86bd-\
d0cc3dc8fdaf"],

Cell[BoxData["1024"], "Output",
 CellChangeTimes->{{3.818017038273909*^9, 3.8180170531511183`*^9}, {
   3.818017108432458*^9, 3.818017135953046*^9}, 3.818017178011478*^9, 
   3.818018915574347*^9, {3.8180214745209913`*^9, 3.818021479094881*^9}, {
   3.81802224969748*^9, 3.818022266493135*^9}, {3.8180223078342648`*^9, 
   3.818022347546095*^9}, {3.818022681951923*^9, 3.81802269940821*^9}, 
   3.818022748885211*^9, 
   3.818023060663208*^9},ExpressionUUID->"e0bb0dc9-3be9-42fe-b9a9-\
481a9139c9be"],

Cell[BoxData["1.6325`*^-7"], "Output",
 CellChangeTimes->{{3.818017038273909*^9, 3.8180170531511183`*^9}, {
   3.818017108432458*^9, 3.818017135953046*^9}, 3.818017178011478*^9, 
   3.818018915574347*^9, {3.8180214745209913`*^9, 3.818021479094881*^9}, {
   3.81802224969748*^9, 3.818022266493135*^9}, {3.8180223078342648`*^9, 
   3.818022347546095*^9}, {3.818022681951923*^9, 3.81802269940821*^9}, 
   3.818022748885211*^9, 
   3.81802306066602*^9},ExpressionUUID->"57a40e42-c73c-4688-8b8f-\
f42d52dd2ff1"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.818017038273909*^9, 3.8180170531511183`*^9}, {
   3.818017108432458*^9, 3.818017135953046*^9}, 3.818017178011478*^9, 
   3.818018915574347*^9, {3.8180214745209913`*^9, 3.818021479094881*^9}, {
   3.81802224969748*^9, 3.818022266493135*^9}, {3.8180223078342648`*^9, 
   3.818022347546095*^9}, {3.818022681951923*^9, 3.81802269940821*^9}, 
   3.818022748885211*^9, 
   3.818023060668478*^9},ExpressionUUID->"2715c8c9-2512-4acc-bda4-\
b2505a225747"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"dims", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"3.265", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}], ",", 
     RowBox[{"52.24", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}], ",", 
     RowBox[{"52.24", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"count", " ", "=", 
  RowBox[{"16", "/", "8"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sep", "=", 
   RowBox[{
    RowBox[{"dims", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "/", "count"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wallPos", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"sep", "/", "2"}], "+", 
        RowBox[{"ii", "*", "sep"}]}], ",", 
       RowBox[{"0.5", 
        RowBox[{"dims", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], ",", 
       RowBox[{"0.5", 
        RowBox[{"dims", "[", 
         RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "0", ",", 
       RowBox[{"count", "-", "1"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"wallPos", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"0.5", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{"0.5", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{"0.5", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"0.375", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{"0.5", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{"0.5", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"0.625", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{"0.5", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{"0.5", 
          RowBox[{"dims", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}], "}"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wallPosPeriodic", "=", 
   RowBox[{"{", "wallPos", "}"}]}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8180165449951572`*^9, 3.8180165488348703`*^9}, {
  3.818016586000618*^9, 3.818016637411524*^9}, {3.81802164062886*^9, 
  3.818021669487423*^9}},ExpressionUUID->"ff1fcc17-c69e-48ba-aa64-\
15cf1b0a3cf0"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{
  3.818016637951138*^9, {3.818021665020714*^9, 
   3.818021669596468*^9}},ExpressionUUID->"0ae1dc6f-6236-4182-a387-\
ed232089e853"],

Cell[BoxData["1.6325`*^-7"], "Output",
 CellChangeTimes->{
  3.818016637951138*^9, {3.818021665020714*^9, 
   3.818021669598823*^9}},ExpressionUUID->"654c4dc9-d354-4d09-a38d-\
0785e5c8ed9d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"8.1625`*^-8", ",", "2.612`*^-6", ",", "2.612`*^-6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.4487500000000003`*^-7", ",", "2.612`*^-6", ",", "2.612`*^-6"}],
     "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.818016637951138*^9, {3.818021665020714*^9, 
   3.818021669600978*^9}},ExpressionUUID->"68cead55-a558-4793-ae83-\
241144c6c59e"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"aa", "=", 
   RowBox[{"2.561", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "8"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Mu]", "=", 
   RowBox[{"0.9", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "2"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"mob", "=", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"ArrayFlatten", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"wallPos", "[", 
                RowBox[{"[", "jj", "]"}], "]"}], "-", 
               RowBox[{"wallPosPeriodic", "[", 
                RowBox[{"[", 
                 RowBox[{"pp", ",", "ii"}], "]"}], "]"}]}], "\[Equal]", 
              RowBox[{"{", 
               RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
             RowBox[{"dryTensor", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aa"}], "]"}], 
             ",", 
             RowBox[{"RPY", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"wallPos", "[", 
                 RowBox[{"[", "jj", "]"}], "]"}], "-", 
                RowBox[{"wallPosPeriodic", "[", 
                 RowBox[{"[", 
                  RowBox[{"pp", ",", "ii"}], "]"}], "]"}]}], ",", "aa"}], 
              "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "1", ",", 
             RowBox[{"Length", "[", "wallPos", "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"jj", ",", "1", ",", 
           RowBox[{"Length", "[", "wallPos", "]"}]}], "}"}]}], "]"}], "]"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"pp", ",", "1", ",", 
        RowBox[{"Length", "[", "wallPosPeriodic", "]"}]}], "}"}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"mobGL", "=", 
     RowBox[{"ArrayFlatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"RPY", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"wallPosBottom", "[", 
              RowBox[{"[", "jj", "]"}], "]"}], "-", 
             RowBox[{"wallPosBottomGL", "[", 
              RowBox[{"[", "ii", "]"}], "]"}]}], ",", "aa"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", 
            RowBox[{"Length", "[", "wallPosBottomGL", "]"}]}], "}"}]}], "]"}],
         ",", 
        RowBox[{"{", 
         RowBox[{"jj", ",", "1", ",", 
          RowBox[{"Length", "[", "wallPosBottom", "]"}]}], "}"}]}], "]"}], 
      "]"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.817160236880678*^9, 3.81716049505766*^9}, {
   3.8171605355912523`*^9, 3.817160657078827*^9}, {3.8171608148561087`*^9, 
   3.817160817777607*^9}, {3.817161240925706*^9, 3.817161249615939*^9}, {
   3.817161284882181*^9, 3.8171613002433033`*^9}, {3.817161407146744*^9, 
   3.817161454418017*^9}, {3.8171614897573977`*^9, 3.817161536555785*^9}, {
   3.8171616944639874`*^9, 3.817161711003834*^9}, {3.817161788332652*^9, 
   3.817161792754787*^9}, {3.817162241491104*^9, 3.8171622771246033`*^9}, 
   3.81716234487815*^9, {3.817163540592741*^9, 3.817163544228245*^9}, {
   3.817237559417294*^9, 3.817237620741982*^9}, {3.8172376592573843`*^9, 
   3.817237667473299*^9}, {3.81724188373976*^9, 3.817241920735812*^9}, {
   3.817243529892096*^9, 3.817243582334447*^9}, {3.8172510607153683`*^9, 
   3.81725106408097*^9}, {3.817252021592023*^9, 3.817252043970859*^9}, {
   3.817255123597302*^9, 3.81725512583224*^9}, {3.81725528791152*^9, 
   3.817255332656682*^9}, {3.817255508355769*^9, 3.817255512585108*^9}, {
   3.817255944219598*^9, 3.817255981601328*^9}, {3.817511133302342*^9, 
   3.817511134644952*^9}, {3.8175114433647614`*^9, 3.817511461948839*^9}, {
   3.817511732108326*^9, 3.8175117338032093`*^9}, {3.817511768331245*^9, 
   3.81751178968355*^9}, {3.817512948888399*^9, 3.817512972190259*^9}, {
   3.817513010518094*^9, 3.817513053879016*^9}, 3.817513240775119*^9, 
   3.817513277433599*^9, {3.817513399762741*^9, 3.817513400331276*^9}, 
   3.817513820889306*^9, {3.8175140242267313`*^9, 3.817514029097464*^9}, {
   3.817514414294407*^9, 3.817514419452465*^9}, {3.8176683940089493`*^9, 
   3.817668424191484*^9}, {3.817694014275025*^9, 3.817694038656548*^9}, {
   3.817704010547372*^9, 3.817704012905168*^9}, {3.817704449395027*^9, 
   3.8177044716149187`*^9}, {3.817756479069722*^9, 3.817756480156831*^9}, {
   3.817756532300809*^9, 3.8177565415418587`*^9}, 3.817756609488625*^9, {
   3.817756647204054*^9, 3.817756671660553*^9}, {3.817756724879723*^9, 
   3.817756730270277*^9}, {3.8177582912300673`*^9, 3.817758322422839*^9}, 
   3.817758575490288*^9, {3.81776001487354*^9, 3.81776001539841*^9}, {
   3.817760108517746*^9, 3.8177601119193897`*^9}, {3.817760172855839*^9, 
   3.8177601823498783`*^9}, {3.817774040237547*^9, 3.817774057436961*^9}, 
   3.817774307516317*^9, {3.817774384606495*^9, 3.817774411659034*^9}, {
   3.818013452864005*^9, 
   3.818013452981762*^9}},ExpressionUUID->"2de01374-e14d-4241-b4ab-\
7bae6f665229"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Length", "[", 
  RowBox[{"mob", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "force", 
  "]"}], "\[IndentingNewLine]", "count"}], "Input",
 CellChangeTimes->{{3.818015302894497*^9, 3.8180153061144*^9}, {
  3.818018971492506*^9, 
  3.818019007605612*^9}},ExpressionUUID->"8cffc019-7e73-43bd-a1c1-\
2bf924583a1d"],

Cell[BoxData["192"], "Output",
 CellChangeTimes->{{3.81801898624702*^9, 
  3.818019027137744*^9}},ExpressionUUID->"eceb52ef-613a-44a8-8686-\
a94a1bc7c9aa"],

Cell[BoxData["192"], "Output",
 CellChangeTimes->{{3.81801898624702*^9, 
  3.818019027140339*^9}},ExpressionUUID->"3a4256b2-0b70-425c-908e-\
e8da7ed2461b"],

Cell[BoxData["64"], "Output",
 CellChangeTimes->{{3.81801898624702*^9, 
  3.818019027144971*^9}},ExpressionUUID->"8ef4d2de-7c2c-4e31-a0e2-\
75fe4246f1a1"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"mobInv", "=", 
   RowBox[{"Inverse", "[", "matC", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.817261202635455*^9, 3.8172612112337303`*^9}, {
  3.818091819110577*^9, 3.8180918200518103`*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"d58ff800-1521-4f14-a947-3e8e70710b73"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"q", "=", 
   RowBox[{"1.6", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "19"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "=", 
   RowBox[{"10", "*", 
    SuperscriptBox["10", "12"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"force", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"q", "*", "f"}], ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", "count"}], "}"}]}], "]"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8177765286360064`*^9, 3.8177766264456043`*^9}, {
   3.817776660388939*^9, 3.8177766671257477`*^9}, 3.8177892735156612`*^9, 
   3.8180164679328403`*^9, {3.818017374924921*^9, 3.818017405251215*^9}, {
   3.8180190217414722`*^9, 
   3.818019030105125*^9}},ExpressionUUID->"3666413b-a8c4-4df9-b0bd-\
964c371fabb5"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"vel", "=", 
   RowBox[{"mob", ".", "force"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"vel", "[", 
  RowBox[{"[", 
   RowBox[{
    RowBox[{"2", "*", "256", "*", "3"}], "-", "2"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"vel", "[", 
  RowBox[{"[", 
   RowBox[{
    RowBox[{"2", "*", "256", "*", "3"}], "-", "2"}], "]"}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.817261280971016*^9, 3.817261290961693*^9}, {
  3.8172615566024847`*^9, 3.8172616302905893`*^9}, {3.817511626680393*^9, 
  3.817511636934593*^9}, {3.817515566635003*^9, 3.8175155684794292`*^9}, {
  3.8176701941787024`*^9, 3.817670220873138*^9}, {3.8177766337185173`*^9, 
  3.817776654500567*^9}, {3.8177790630552473`*^9, 3.817779073596784*^9}, {
  3.8177791221384077`*^9, 3.817779137992592*^9}, {3.818017428373733*^9, 
  3.818017468577395*^9}, {3.818017563454974*^9, 3.818017573308152*^9}, {
  3.8180189306938334`*^9, 3.8180189322337217`*^9}, {3.8180214912692957`*^9, 
  3.818021493018852*^9}, {3.818022722946602*^9, 3.818022732568894*^9}, {
  3.818022769617288*^9, 3.818022772663375*^9}, {3.81802314134866*^9, 
  3.8180231438271427`*^9}},ExpressionUUID->"259d5a32-e115-4ca8-a2e1-\
89cb8d4a76f5"],

Cell[BoxData["1546.110007271214`"], "Output",
 CellChangeTimes->{{3.8172615589551992`*^9, 3.817261631114471*^9}, 
   3.817513338360043*^9, 3.817513392545567*^9, 3.817513812873043*^9, 
   3.817514003806971*^9, 3.8175144049132967`*^9, 3.817515503024826*^9, 
   3.817669061986902*^9, {3.8176702071540337`*^9, 3.8176702222924232`*^9}, 
   3.817689195885076*^9, {3.817704512973907*^9, 3.817704518611875*^9}, 
   3.817748311423629*^9, {3.81777665521136*^9, 3.8177766691842318`*^9}, 
   3.8177790744025373`*^9, {3.817779128125721*^9, 3.817779138592347*^9}, 
   3.817789276526075*^9, 3.81778947983934*^9, 3.818011129129306*^9, 
   3.818016475133648*^9, 3.8180174153875923`*^9, {3.818017446142256*^9, 
   3.818017469063982*^9}, {3.818017564236802*^9, 3.8180175742210207`*^9}, 
   3.818018937319315*^9, 3.818019032313664*^9, 3.818021496264769*^9, {
   3.818022726092128*^9, 3.818022733119731*^9}, 3.818022773730316*^9, 
   3.818023144968486*^9},ExpressionUUID->"d7593d5e-8364-40f8-9f9e-\
5ffbde019dce"],

Cell[BoxData["1546.110007271214`"], "Output",
 CellChangeTimes->{{3.8172615589551992`*^9, 3.817261631114471*^9}, 
   3.817513338360043*^9, 3.817513392545567*^9, 3.817513812873043*^9, 
   3.817514003806971*^9, 3.8175144049132967`*^9, 3.817515503024826*^9, 
   3.817669061986902*^9, {3.8176702071540337`*^9, 3.8176702222924232`*^9}, 
   3.817689195885076*^9, {3.817704512973907*^9, 3.817704518611875*^9}, 
   3.817748311423629*^9, {3.81777665521136*^9, 3.8177766691842318`*^9}, 
   3.8177790744025373`*^9, {3.817779128125721*^9, 3.817779138592347*^9}, 
   3.817789276526075*^9, 3.81778947983934*^9, 3.818011129129306*^9, 
   3.818016475133648*^9, 3.8180174153875923`*^9, {3.818017446142256*^9, 
   3.818017469063982*^9}, {3.818017564236802*^9, 3.8180175742210207`*^9}, 
   3.818018937319315*^9, 3.818019032313664*^9, 3.818021496264769*^9, {
   3.818022726092128*^9, 3.818022733119731*^9}, 3.818022773730316*^9, 
   3.818023144970537*^9},ExpressionUUID->"6ffdb52c-3b5b-4526-89c5-\
f74a9b4bbc2d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"matC", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{
  3.818024848465891*^9, {3.82984207113211*^9, 3.829842078885841*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"10a18b55-52bc-4761-aefc-66ad7333f5bc"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"4.79163698157121`*^8", "0.114208245140617`", "0.0153085195488529`", 
      "4.15771640068018`*^7", "0.142423649429332`", "0.015395197857444`", 
      "6.19847697131861`*^7", "0.135043429096932`", "0.0144683833296853`", 
      "4.73389602153711`*^7", "0.140089836842037`", "0.0154747521948693`", 
      "2.09862887779837`*^7", "0.980536470488016`", "0.0257079897083819`", 
      "2.09014758556183`*^7", "0.980283362008624`", "0.0252753609765972`", 
      "2.12758749964161`*^7", "0.978886750428455`", "0.0261627356889446`", 
      "2.11600827583824`*^7", "0.975899644041011`", "0.0252828090596161`"},
     {
      RowBox[{"-", "0.0017028319707606`"}], "4.2799329152127`*^8", 
      RowBox[{"-", "0.0230234648552141`"}], 
      RowBox[{"-", "0.00478695824480724`"}], 
      RowBox[{"-", "7.50339646035394`*^6"}], "0.00454119403161712`", 
      RowBox[{"-", "3.76218167730258`*^-9"}], 
      RowBox[{"-", "7.50339646156879`*^6"}], "0.00332633865976106`", 
      "0.0090075914383192`", 
      RowBox[{"-", "9.60102632492712`*^6"}], 
      RowBox[{"-", "0.00248743410072905`"}], 
      RowBox[{"-", "0.00446259962103568`"}], "378982.648442608`", 
      RowBox[{"-", "0.00156644845716869`"}], "0.000582075506219581`", 
      RowBox[{"-", "25303.1908047622`"}], 
      RowBox[{"-", "0.00242279195268225`"}], 
      RowBox[{"-", "2.71231925808024`*^-9"}], 
      RowBox[{"-", "25303.1926115622`"}], 
      RowBox[{"-", "0.00056391718088733`"}], 
      RowBox[{"-", "0.00475999744116962`"}], 
      RowBox[{"-", "325752.347473862`"}], 
      RowBox[{"-", "0.0019886202415762`"}]},
     {"0.00011754719162127`", 
      RowBox[{"-", "0.0153085318597732`"}], "4.79163709972866`*^8", 
      "805.271638624075`", 
      RowBox[{"-", "0.0144636667134748`"}], "6.1985545274778`*^7", 
      "775.696635181553`", 
      RowBox[{"-", "0.0153906439745768`"}], "4.15779691268122`*^7", 
      "805.270625454286`", 
      RowBox[{"-", "0.0154700416675446`"}], "4.73397653492353`*^7", 
      "767.495882685392`", 
      RowBox[{"-", "0.059341800136945`"}], "2.09870552402448`*^7", 
      "1039.09772863723`", 
      RowBox[{"-", "0.0556769957395495`"}], "2.12767902530342`*^7", 
      "915.422022773329`", 
      RowBox[{"-", "0.0557719567966899`"}], "2.0902514789471`*^7", 
      "1039.09186819537`", 
      RowBox[{"-", "0.0555335102757191`"}], "2.11611216937336`*^7"},
     {"4.15779573466266`*^7", "0.142410634423623`", "0.015377960954595`", 
      "4.79162904806065`*^8", "0.114208314145799`", "0.0153255880941288`", 
      "4.73389897956178`*^7", "0.140107207986127`", "0.0154944980230951`", 
      "6.19847401280289`*^7", "0.13502935140815`", "0.0144532893101257`", 
      "2.09017483345245`*^7", "0.980777694147697`", "0.025311033346848`", 
      "2.0986016314305`*^7", "0.980066147309852`", "0.0256712390498055`", 
      "2.11602064334854`*^7", "0.975439879624897`", "0.0252476125304195`", 
      "2.1275751323678`*^7", "0.979366760427059`", "0.0261983244226607`"},
     {"0.00242971013433646`", 
      RowBox[{"-", "7.50339646035197`*^6"}], "0.00453816193234502`", 
      "0.000728337006876245`", "4.27993291521281`*^8", 
      RowBox[{"-", "0.0230335660235141`"}], "0.00237331732006396`", 
      RowBox[{"-", "9.60102632492718`*^6"}], 
      RowBox[{"-", "0.00248736993374621`"}], 
      RowBox[{"-", "0.00494899856033726`"}], 
      RowBox[{"-", "7.50339646156578`*^6"}], "0.00332436802190728`", 
      "0.00613622504031852`", 
      RowBox[{"-", "25303.1907957497`"}], 
      RowBox[{"-", "0.00242356063989035`"}], "0.0034174688198334`", 
      "378982.64844502`", 
      RowBox[{"-", "0.00156767485978548`"}], "0.000195113936705127`", 
      RowBox[{"-", "325752.347470433`"}], 
      RowBox[{"-", "0.00198763419755466`"}], "0.000760438328150315`", 
      RowBox[{"-", "25303.1925993428`"}], 
      RowBox[{"-", "0.000565849987964384`"}]},
     {"0.000184020469362167`", 
      RowBox[{"-", "0.0144532864875089`"}], "6.19855452747919`*^7", 
      "805.27360096846`", 
      RowBox[{"-", "0.0153208877454745`"}], "4.79163709972859`*^8", 
      "775.67105628393`", 
      RowBox[{"-", "0.0154899527124996`"}], "4.73397653492182`*^7", 
      "805.283320705532`", 
      RowBox[{"-", "0.0153732463219143`"}], "4.15779691268295`*^7", 
      "767.484242186246`", 
      RowBox[{"-", "0.0557237285981955`"}], "2.12767902529641`*^7", 
      "1039.10112034756`", 
      RowBox[{"-", "0.0592724994640257`"}], "2.09870552403148`*^7", 
      "915.422856909012`", 
      RowBox[{"-", "0.0554792190231446`"}], "2.11611216938026`*^7", 
      "1039.0939439852`", 
      RowBox[{"-", "0.055804528131933`"}], "2.09025147894008`*^7"},
     {"6.19855334919786`*^7", "0.135034002209444`", "0.0144532864299975`", 
      "4.73389602153509`*^7", "0.140107039218737`", "0.0154944879403374`", 
      "4.79162934416011`*^8", "0.114208482402319`", "0.0153255939148949`", 
      "4.15771640068218`*^7", "0.1424059867251`", "0.0153779669531247`", 
      "2.12760237955573`*^7", "0.979374152244443`", "0.0261983249067195`", 
      "2.11600827583922`*^7", "0.975436531976218`", "0.0252476119417903`", 
      "2.09861399828236`*^7", "0.980069494889328`", "0.0256712381311662`", 
      "2.09014758556085`*^7", "0.980770302041456`", "0.0253110309253683`"},
     {"0.00145741410972278`", 
      RowBox[{"-", "7.50339646156576`*^6"}], "0.00332437614864034`", 
      "0.00899746475091945`", 
      RowBox[{"-", "9.60102632492718`*^6"}], 
      RowBox[{"-", "0.00248737589691927`"}], 
      RowBox[{"-", "0.00237331735843327`"}], "4.27993291521281`*^8", 
      RowBox[{"-", "0.0230335695960093`"}], 
      RowBox[{"-", "0.00477682596107343`"}], 
      RowBox[{"-", "7.503396460352`*^6"}], "0.00453815936083402`", 
      "0.0000764290531307665`", 
      RowBox[{"-", "25303.1925993426`"}], 
      RowBox[{"-", "0.00056584911446933`"}], 
      RowBox[{"-", "0.00475905660016096`"}], 
      RowBox[{"-", "325752.347470434`"}], 
      RowBox[{"-", "0.00198763343950858`"}], 
      RowBox[{"-", "0.000195119927035137`"}], "378982.64844502`", 
      RowBox[{"-", "0.00156767454374318`"}], "0.000581134921972648`", 
      RowBox[{"-", "25303.1907957498`"}], 
      RowBox[{"-", "0.00242356071776584`"}]},
     {
      RowBox[{"-", "0.000422861209131042`"}], 
      RowBox[{"-", "0.0153779605545115`"}], "4.15779691268298`*^7", 
      "805.270604215045`", 
      RowBox[{"-", "0.0154897809616195`"}], "4.73397653492182`*^7", 
      "775.693707415507`", 
      RowBox[{"-", "0.0153210533826496`"}], "4.79163709972862`*^8", 
      "805.271659869828`", 
      RowBox[{"-", "0.014448570672883`"}], "6.1985545274792`*^7", 
      "767.488811895272`", 
      RowBox[{"-", "0.0558119212669972`"}], "2.0902514789401`*^7", 
      "1039.09186868235`", 
      RowBox[{"-", "0.0554758734876799`"}], "2.11611216938027`*^7", 
      "915.425194809372`", 
      RowBox[{"-", "0.0592758448357031`"}], "2.09870552403149`*^7", 
      "1039.0977281479`", 
      RowBox[{"-", "0.0557163355511534`"}], "2.12767902529641`*^7"},
     {"4.73397535722372`*^7", "0.140094484803864`", "0.0154747584726209`", 
      "6.19847401280087`*^7", "0.135043262881581`", "0.0144683856921262`", 
      "4.1577193586838`*^7", "0.142423816574571`", "0.0153951849596012`", 
      "4.79162904806083`*^8", "0.114203589153476`", "0.0153085097190342`", 
      "2.116035524648`*^7", "0.975907035901663`", "0.0252828052382433`", 
      "2.12757513236878`*^7", "0.978883402665453`", "0.0261627357249771`", 
      "2.09015995277805`*^7", "0.9802867096721`", "0.0252753593049609`", 
      "2.09860163142951`*^7", "0.980529078327852`", "0.0257079927225966`"},
     {
      RowBox[{"-", "0.00237178112743663`"}], 
      RowBox[{"-", "9.60102632492711`*^6"}], 
      RowBox[{"-", "0.0024874397740291`"}], 
      RowBox[{"-", "0.00495912795398112`"}], 
      RowBox[{"-", "7.50339646156881`*^6"}], "0.0033263498091145`", 
      RowBox[{"-", "9.83838788215508`*^-9"}], 
      RowBox[{"-", "7.50339646035396`*^6"}], "0.00454119445308265`", 
      "0.000738461523724254`", "4.27993291521272`*^8", 
      RowBox[{"-", "0.0230234636619571`"}], 
      RowBox[{"-", "0.00148858917050276`"}], 
      RowBox[{"-", "325752.347473862`"}], 
      RowBox[{"-", "0.0019886240492113`"}], "0.000761378925872691`", 
      RowBox[{"-", "25303.1926115623`"}], 
      RowBox[{"-", "0.000563915526711867`"}], 
      RowBox[{"-", "4.13260892173639`*^-9"}], 
      RowBox[{"-", "25303.1908047622`"}], 
      RowBox[{"-", "0.00242279321998495`"}], "0.00341652551883698`", 
      "378982.648442611`", 
      RowBox[{"-", "0.00156644973215947`"}]},
     {"0.000244527315956589`", 
      RowBox[{"-", "0.0154747564741697`"}], "4.73397653492353`*^7", 
      "805.283299466732`", 
      RowBox[{"-", "0.0153904728359979`"}], "4.1577969126812`*^7", 
      "775.682397615353`", 
      RowBox[{"-", "0.0144638341347658`"}], "6.19855452747781`*^7", 
      "805.273622196146`", 
      RowBox[{"-", "0.0153038245625794`"}], "4.79163709972865`*^8", 
      "767.494131900879`", 
      RowBox[{"-", "0.0555409034234451`"}], "2.11611216937336`*^7", 
      "1039.09394447702`", 
      RowBox[{"-", "0.0557686115342406`"}], "2.09025147894709`*^7", 
      "915.426066141344`", 
      RowBox[{"-", "0.0556803412359557`"}], "2.12767902530342`*^7", 
      "1039.10111985764`", 
      RowBox[{"-", "0.0593344072368431`"}], "2.09870552402447`*^7"},
     {"2.09870433675688`*^7", "0.261335339428811`", 
      RowBox[{"-", "0.01531369431245`"}], "2.09017105112345`*^7", 
      "0.261434106011986`", 
      RowBox[{"-", "0.0159597185943954`"}], "2.12760159278479`*^7", 
      "0.261694976647306`", 
      RowBox[{"-", "0.0151815100165943`"}], "2.11603174167093`*^7", 
      "0.261966207249262`", 
      RowBox[{"-", "0.0161378445408201`"}], "4.79162942587861`*^8", 
      "0.902738418168155`", 
      RowBox[{"-", "0.0244891823967919`"}], "4.15769294187372`*^7", 
      "0.851557614205973`", 
      RowBox[{"-", "0.0253274356414153`"}], "6.19846286820577`*^7", 
      "0.82765598100886`", 
      RowBox[{"-", "0.0249825578887624`"}], "4.73387256323224`*^7", 
      "0.846964497324421`", 
      RowBox[{"-", "0.0255380899553828`"}]},
     {"0.000363213791995776`", "378982.649787292`", 
      RowBox[{"-", "0.00217467781817504`"}], "0.000664019038030261`", 
      RowBox[{"-", "25303.1912559932`"}], 
      RowBox[{"-", "0.00279527991185091`"}], 
      RowBox[{"-", "4.28278923436665`*^-9"}], 
      RowBox[{"-", "25303.1902040267`"}], 
      RowBox[{"-", "0.00174331274392259`"}], 
      RowBox[{"-", "0.00279567607921294`"}], 
      RowBox[{"-", "325752.347250666`"}], 
      RowBox[{"-", "0.00337054777724788`"}], "0.00250132123619551`", 
      "4.27993291423857`*^8", 
      RowBox[{"-", "0.00673573162202956`"}], 
      RowBox[{"-", "0.00587913322609523`"}], 
      RowBox[{"-", "7.50339645249033`*^6"}], "0.00480488971296111`", 
      RowBox[{"-", "3.33704175403682`*^-9"}], 
      RowBox[{"-", "7.50339646394726`*^6"}], "0.00305334946538238`", 
      "0.000614463745229443`", 
      RowBox[{"-", "9.60102630507481`*^6"}], 
      RowBox[{"-", "0.00401222747864693`"}]},
     {
      RowBox[{"-", "0.000428437029281831`"}], "0.0153136953644761`", 
      "2.09870551443481`*^7", "804.4425908772`", "0.0151862245026706`", 
      "2.12767901567423`*^7", "774.490589257175`", "0.0159642632571035`", 
      "2.09025146924109`*^7", "804.437597390441`", "0.0161425569368667`", 
      "2.11611215967122`*^7", "766.615838171318`", "0.0299604805913987`", 
      "4.79163710028537`*^8", "1039.87591396045`", "0.024782700715889`", 
      "6.1985545347224`*^7", "916.727765505795`", "0.0260883151334212`", 
      "4.15779691971979`*^7", "1039.84896441477`", "0.0238663490893174`", 
      "4.73397654187168`*^7"},
     {"2.09025029162745`*^7", "0.261298812731628`", 
      RowBox[{"-", "0.0159436083103233`"}], "2.09862509681095`*^7", 
      "0.261473281066664`", 
      RowBox[{"-", "0.0153302466197419`"}], "2.11603473619985`*^7", 
      "0.262106794796033`", 
      RowBox[{"-", "0.0161551720655504`"}], "2.12759859807817`*^7", 
      "0.261554061814355`", 
      RowBox[{"-", "0.015165887041458`"}], "4.1577201780548`*^7", 
      "0.851928525490109`", 
      RowBox[{"-", "0.0253653771268461`"}], "4.79162670211719`*^8", 
      "0.902296632084472`", 
      RowBox[{"-", "0.024451001714624`"}], "4.73388487577295`*^7", 
      "0.84660556098072`", 
      RowBox[{"-", "0.0255020315979948`"}], "6.19845055548007`*^7", 
      "0.827995988676207`", 
      RowBox[{"-", "0.0250198585519712`"}]},
     {"0.0000711517987994625`", 
      RowBox[{"-", "25303.1912607288`"}], 
      RowBox[{"-", "0.00278851000837221`"}], "0.00138905677372847`", 
      "378982.649784136`", 
      RowBox[{"-", "0.00217152346429117`"}], 
      RowBox[{"-", "0.000507769571733263`"}], 
      RowBox[{"-", "325752.347255192`"}], 
      RowBox[{"-", "0.00336602204935588`"}], "0.000742573272713543`", 
      RowBox[{"-", "25303.1902108016`"}], 
      RowBox[{"-", "0.00173857810899847`"}], 
      RowBox[{"-", "0.00576167816952733`"}], 
      RowBox[{"-", "7.50339645247209`*^6"}], "0.00480883685642475`", 
      "0.0105969755750266`", "4.27993291423954`*^8", 
      RowBox[{"-", "0.00676741434290307`"}], 
      RowBox[{"-", "0.0069749056949675`"}], 
      RowBox[{"-", "9.60102630507695`*^6"}], 
      RowBox[{"-", "0.00400835385019604`"}], 
      RowBox[{"-", "0.00533232449774079`"}], 
      RowBox[{"-", "7.503396463935`*^6"}], "0.00305139262356136`"},
     {
      RowBox[{"-", "0.000248254433930922`"}], "0.0151658817045401`", 
      "2.1276790156883`*^7", "804.442668337671`", "0.0153349634217186`", 
      "2.09870551442054`*^7", "774.491779823105`", "0.0161597190195515`", 
      "2.11611215965718`*^7", "804.436947417739`", "0.0159483199360615`", 
      "2.09025146925507`*^7", "766.617509760507`", "0.0248095527737462`", 
      "6.19855453472911`*^7", "1039.85655821416`", "0.0299288585229078`", 
      "4.79163710028501`*^8", "916.707462338827`", "0.0238283368097427`", 
      "4.73397654186626`*^7", "1039.85644583811`", "0.0261215607776677`", 
      "4.15779691972552`*^7"},
     {"2.12767783801582`*^7", "0.261558709547177`", 
      RowBox[{"-", "0.0151658846290246`"}], "2.11603174167308`*^7", 
      "0.262106623890457`", 
      RowBox[{"-", "0.016155167883334`"}], "2.09862809138989`*^7", 
      "0.261473451850701`", 
      RowBox[{"-", "0.0153302475748794`"}], "2.09017105112129`*^7", 
      "0.26129416532822`", 
      RowBox[{"-", "0.0159436091692213`"}], "6.19847779244387`*^7", 
      "0.828003382950669`", 
      RowBox[{"-", "0.0250198579371101`"}], "4.73387256323219`*^7", 
      "0.846602208770506`", 
      RowBox[{"-", "0.0255020335209153`"}], "4.79162793379609`*^8", 
      "0.902300002155243`", 
      RowBox[{"-", "0.0244509995827684`"}], "4.15769294187375`*^7", 
      "0.851921131787336`", 
      RowBox[{"-", "0.025365376973582`"}]},
     {
      RowBox[{"-", "0.000383618043198197`"}], 
      RowBox[{"-", "25303.1902108014`"}], 
      RowBox[{"-", "0.00173857999142157`"}], 
      RowBox[{"-", "0.00280607767831498`"}], 
      RowBox[{"-", "325752.347255192`"}], 
      RowBox[{"-", "0.00336602154183652`"}], "0.00050775958290572`", 
      "378982.649784136`", 
      RowBox[{"-", "0.0021715238723452`"}], "0.00067442070761814`", 
      RowBox[{"-", "25303.1912607289`"}], 
      RowBox[{"-", "0.00278850886878956`"}], 
      RowBox[{"-", "0.000979286328698592`"}], 
      RowBox[{"-", "7.50339646393497`*^6"}], "0.0030513896664317`", 
      "0.000615457370237493`", 
      RowBox[{"-", "9.60102630507695`*^6"}], 
      RowBox[{"-", "0.00400835664966337`"}], "0.00697489902813686`", 
      "4.27993291423954`*^8", 
      RowBox[{"-", "0.00676742425275734`"}], 
      RowBox[{"-", "0.00588011553994505`"}], 
      RowBox[{"-", "7.50339645247211`*^6"}], "0.00480883228529283`"},
     {"0.000402424537169099`", "0.0159436058487969`", "2.09025146925508`*^7", 
      "804.437617864387`", "0.0161598891093284`", "2.11611215965718`*^7", 
      "774.496679936617`", "0.0153347934170895`", "2.09870551442056`*^7", 
      "804.442570405052`", "0.0151705956902219`", "2.12767901568831`*^7", 
      "766.62503427928`", "0.0261141789455621`", "4.15779691972555`*^7", 
      "1039.84895464696`", "0.0238316864906238`", "4.73397654186627`*^7", 
      "916.731597697057`", "0.0299255095233093`", "4.79163710028504`*^8", 
      "1039.87592374074`", "0.0248169337540673`", "6.19855453472911`*^7"},
     {"2.11611098205101`*^7", "0.261970854910526`", 
      RowBox[{"-", "0.0161378433103047`"}], "2.12759859808032`*^7", 
      "0.261694805870217`", 
      RowBox[{"-", "0.0151815102742591`"}], "2.09017404556811`*^7", 
      "0.261434276828826`", 
      RowBox[{"-", "0.0159597201573574`"}], "2.09862509680879`*^7", 
      "0.261330691925767`", 
      RowBox[{"-", "0.0153136938534556`"}], "4.73389979993047`*^7", 
      "0.846971890749487`", 
      RowBox[{"-", "0.0255380841890656`"}], "6.19845055548002`*^7", 
      "0.827652628446174`", 
      RowBox[{"-", "0.0249825566887267`"}], "4.15770525439734`*^7", 
      "0.851560967066376`", 
      RowBox[{"-", "0.0253274338940059`"}], "4.79162670211717`*^8", 
      "0.902731020563806`", 
      RowBox[{"-", "0.024489181341778`"}]},
     {
      RowBox[{"-", "0.0000839909656562554`"}], 
      RowBox[{"-", "325752.347250665`"}], 
      RowBox[{"-", "0.00337054870230702`"}], "0.000732172923321173`", 
      RowBox[{"-", "25303.1902040267`"}], 
      RowBox[{"-", "0.00174331435286135`"}], 
      RowBox[{"-", "9.62345225730132`*^-9"}], 
      RowBox[{"-", "25303.1912559931`"}], 
      RowBox[{"-", "0.00279528148936237`"}], "0.00139946238624233`", 
      "378982.649787295`", 
      RowBox[{"-", "0.00217467633757451`"}], "0.00417301750340471`", 
      RowBox[{"-", "9.60102630507481`*^6"}], 
      RowBox[{"-", "0.00401223268350037`"}], 
      RowBox[{"-", "0.00533134267987645`"}], 
      RowBox[{"-", "7.50339646394728`*^6"}], "0.00305335802259776`", 
      RowBox[{"-", "5.22505416711283`*^-9"}], 
      RowBox[{"-", "7.50339645249035`*^6"}], "0.00480489985155863`", 
      "0.0105959855718538`", "4.27993291423858`*^8", 
      RowBox[{"-", "0.00673571293737041`"}]},
     {"0.000223712287159561`", "0.0161378429364802`", "2.11611215967122`*^7", 
      "804.436967888808`", "0.015964433403969`", "2.09025146924108`*^7", 
      "774.4981637988`", "0.0151860544700568`", "2.12767901567423`*^7", 
      "804.442647866107`", "0.0153184096418073`", "2.09870551443481`*^7", 
      "766.623818406602`", "0.0238589672879215`", "4.73397654187169`*^7", 
      "1039.85643605573`", "0.026091663079157`", "4.15779691971978`*^7", 
      "916.725264155967`", "0.0247793522383972`", "6.19855453472241`*^7", 
      "1039.85656796178`", "0.029967864502396`", "4.79163710028535`*^8"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8298420799561243`*^9, 3.8298458246790733`*^9},
 CellLabel->
  "Out[133]//MatrixForm=",ExpressionUUID->"51cea92b-20f6-4df6-bd6c-\
ee7bcd3c232a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mobInv", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8298458796909657`*^9, 3.829845882527598*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"8b10d87f-910f-435c-a685-7ab75477dca2"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2.1555922528632417`*^-9", 
      RowBox[{"-", "2.930217966617979`*^-19"}], 
      RowBox[{"-", "3.579389540061862`*^-20"}], 
      RowBox[{"-", "1.322346987701388`*^-10"}], 
      RowBox[{"-", "4.401859293700656`*^-19"}], 
      RowBox[{"-", "3.613572035396609`*^-20"}], 
      RowBox[{"-", "2.4192206641415844`*^-10"}], 
      RowBox[{"-", "4.0755162505016405`*^-19"}], 
      RowBox[{"-", "3.115705430763484`*^-20"}], 
      RowBox[{"-", "1.6534974515451184`*^-10"}], 
      RowBox[{"-", "4.284988846913745`*^-19"}], 
      RowBox[{"-", "3.668436250712339`*^-20"}], 
      RowBox[{"-", "5.346359744377196`*^-11"}], 
      RowBox[{"-", "3.470628215826213`*^-18"}], 
      RowBox[{"-", "7.010887720113142`*^-20"}], 
      RowBox[{"-", "5.306027104217165`*^-11"}], 
      RowBox[{"-", "3.470790305423943`*^-18"}], 
      RowBox[{"-", "6.788117284156747`*^-20"}], 
      RowBox[{"-", "5.5169897125328255`*^-11"}], 
      RowBox[{"-", "3.4619377092643716`*^-18"}], 
      RowBox[{"-", "7.264377879437381`*^-20"}], 
      RowBox[{"-", "5.459304467689392`*^-11"}], 
      RowBox[{"-", "3.4452213953692`*^-18"}], 
      RowBox[{"-", "6.782756376176748`*^-20"}]},
     {"9.396279786572097`*^-21", "2.3392039930912924`*^-9", 
      "1.1693093594501326`*^-19", "2.722974643823296`*^-20", 
      "4.291897513476743`*^-11", 
      RowBox[{"-", "3.4525514925266677`*^-20"}], 
      RowBox[{"-", "1.1130347534521065`*^-21"}], "4.2918975141105505`*^-11", 
      RowBox[{"-", "2.2931880351940613`*^-20"}], 
      RowBox[{"-", "4.9015303455879235`*^-20"}], "5.397643675441174`*^-11", 
      "7.705079499366935`*^-21", "2.0810648313545424`*^-20", 
      RowBox[{"-", "1.9823852046325576`*^-12"}], "3.624496800501055`*^-21", 
      RowBox[{"-", "6.553490421037453`*^-21"}], "1.3417084117611416`*^-13", 
      "8.353955736616355`*^-21", 
      RowBox[{"-", "3.417817266129583`*^-21"}], "1.3417085050511439`*^-13", 
      RowBox[{"-", "1.5250486249478455`*^-21"}], "2.2360186446670722`*^-20", 
      "1.6979181433210778`*^-12", "6.294651057121321`*^-21"},
     {"8.829533682954792`*^-16", "7.005810029174406`*^-20", 
      "2.155593099873136`*^-9", 
      RowBox[{"-", "1.692920021088822`*^-15"}], "6.542014165584923`*^-20", 
      RowBox[{"-", "2.419237835603958`*^-10"}], 
      RowBox[{"-", "1.7213132308279373`*^-15"}], "7.029376080154073`*^-20", 
      RowBox[{"-", "1.322363892729681`*^-10"}], 
      RowBox[{"-", "1.7291951996191694`*^-15"}], "7.072684145848137`*^-20", 
      RowBox[{"-", "1.653514714662288`*^-10"}], 
      RowBox[{"-", "1.3922289847580705`*^-15"}], "2.5548012263454803`*^-19", 
      RowBox[{"-", "5.346498497409461`*^-11"}], 
      RowBox[{"-", "2.2474743179545083`*^-15"}], "2.354105944999763`*^-19", 
      RowBox[{"-", "5.517178559927193`*^-11"}], 
      RowBox[{"-", "1.8893872904660584`*^-15"}], "2.3681826538094474`*^-19", 
      RowBox[{"-", "5.3062517470018456`*^-11"}], 
      RowBox[{"-", "2.255949515290615`*^-15"}], "2.352959787030009`*^-19", 
      RowBox[{"-", "5.459529964673483`*^-11"}]},
     {
      RowBox[{"-", "1.3223723646931277`*^-10"}], 
      RowBox[{"-", "4.401985305868341`*^-19"}], 
      RowBox[{"-", "3.606055231623448`*^-20"}], "2.155594790613821`*^-9", 
      RowBox[{"-", "2.9293985692759156`*^-19"}], 
      RowBox[{"-", "3.5866016180711405`*^-20"}], 
      RowBox[{"-", "1.653497543559153`*^-10"}], 
      RowBox[{"-", "4.2849776784916514`*^-19"}], 
      RowBox[{"-", "3.676985460681553`*^-20"}], 
      RowBox[{"-", "2.419220572006692`*^-10"}], 
      RowBox[{"-", "4.07565504079714`*^-19"}], 
      RowBox[{"-", "3.1092092964456304`*^-20"}], 
      RowBox[{"-", "5.3061129973355655`*^-11"}], 
      RowBox[{"-", "3.472468653379731`*^-18"}], 
      RowBox[{"-", "6.80364666508662`*^-20"}], 
      RowBox[{"-", "5.346273858214083`*^-11"}], 
      RowBox[{"-", "3.469089178186962`*^-18"}], 
      RowBox[{"-", "6.994753512268171`*^-20"}], 
      RowBox[{"-", "5.459341114877946`*^-11"}], 
      RowBox[{"-", "3.4437166901757475`*^-18"}], 
      RowBox[{"-", "6.76746309971235`*^-20"}], 
      RowBox[{"-", "5.516953065390511`*^-11"}], 
      RowBox[{"-", "3.463562459212006`*^-18"}], 
      RowBox[{"-", "7.279784485866235`*^-20"}]},
     {
      RowBox[{"-", "1.1095557050608253`*^-20"}], "4.291897513475589`*^-11", 
      RowBox[{"-", "3.451768978203059`*^-20"}], 
      RowBox[{"-", "3.641175636970594`*^-21"}], "2.3392039930912316`*^-9", 
      "1.1697879470480389`*^-19", 
      RowBox[{"-", "1.0240357554889812`*^-20"}], "5.397643675440957`*^-11", 
      "7.69929054483374`*^-21", "2.799589437609832`*^-20", 
      "4.291897514108835`*^-11", 
      RowBox[{"-", "2.2927142088349948`*^-20"}], 
      RowBox[{"-", "2.892207812003726`*^-20"}], "1.341708411238261`*^-13", 
      "8.355066957086396`*^-21", 
      RowBox[{"-", "1.4330838681822332`*^-20"}], 
      RowBox[{"-", "1.9823852046460966`*^-12"}], "3.627620276956659`*^-21", 
      "4.003864341952089`*^-21", "1.6979181433013034`*^-12", 
      "6.286033863498584`*^-21", "5.739556832088075`*^-22", 
      "1.3417085043603756`*^-13", 
      RowBox[{"-", "1.5172275914731372`*^-21"}]},
     {"8.829431100255273`*^-16", "6.537463159403395`*^-20", 
      RowBox[{"-", "2.419237835603742`*^-10"}], 
      RowBox[{"-", "1.6929345115398185`*^-15"}], "7.011527831802316`*^-20", 
      "2.1555930998730817`*^-9", 
      RowBox[{"-", "1.7211760228094652`*^-15"}], "7.081338595813353`*^-20", 
      RowBox[{"-", "1.653514714662263`*^-10"}], 
      RowBox[{"-", "1.7292685224846802`*^-15"}], "7.022186206256548`*^-20", 
      RowBox[{"-", "1.3223638927296624`*^-10"}], 
      RowBox[{"-", "1.3921682644318093`*^-15"}], "2.3557667511347925`*^-19", 
      RowBox[{"-", "5.517178559897569`*^-11"}], 
      RowBox[{"-", "2.2474954619379867`*^-15"}], "2.5518189738310946`*^-19", 
      RowBox[{"-", "5.346498497438958`*^-11"}], 
      RowBox[{"-", "1.8893976438882026`*^-15"}], "2.3505375694049387`*^-19", 
      RowBox[{"-", "5.459529964702343`*^-11"}], 
      RowBox[{"-", "2.2559641434192112`*^-15"}], "2.3693304734759917`*^-19", 
      RowBox[{"-", "5.3062517469722506`*^-11"}]},
     {
      RowBox[{"-", "2.419246307362264`*^-10"}], 
      RowBox[{"-", "4.0758049732047845`*^-19"}], 
      RowBox[{"-", "3.109207515195783`*^-20"}], 
      RowBox[{"-", "1.653497808724093`*^-10"}], 
      RowBox[{"-", "4.284972027477475`*^-19"}], 
      RowBox[{"-", "3.676979672070782`*^-20"}], "2.15559481701243`*^-9", 
      RowBox[{"-", "2.9294041993710544`*^-19"}], 
      RowBox[{"-", "3.58660503955623`*^-20"}], 
      RowBox[{"-", "1.32234663024134`*^-10"}], 
      RowBox[{"-", "4.401835523401007`*^-19"}], 
      RowBox[{"-", "3.6060588782515306`*^-20"}], 
      RowBox[{"-", "5.517039808979323`*^-11"}], 
      RowBox[{"-", "3.4635859599438254`*^-18"}], 
      RowBox[{"-", "7.279784503713772`*^-20"}], 
      RowBox[{"-", "5.4593053203890024`*^-11"}], 
      RowBox[{"-", "3.4437059763478737`*^-18"}], 
      RowBox[{"-", "6.767463566141046`*^-20"}], 
      RowBox[{"-", "5.346309648822045`*^-11"}], 
      RowBox[{"-", "3.4690998908985634`*^-18"}], 
      RowBox[{"-", "6.994752529235831`*^-20"}], 
      RowBox[{"-", "5.306026250246874`*^-11"}], 
      RowBox[{"-", "3.4724451502325795`*^-18"}], 
      RowBox[{"-", "6.803645918452776`*^-20"}]},
     {
      RowBox[{"-", "8.173886252501721`*^-21"}], "4.291897514108844`*^-11", 
      RowBox[{"-", "2.292718785494024`*^-20"}], 
      RowBox[{"-", "4.820763437019876`*^-20"}], "5.3976436754409555`*^-11", 
      "7.699321786451914`*^-21", "1.3936703102610938`*^-20", 
      "2.3392039930912316`*^-9", "1.1697881205757922`*^-19", 
      "2.806289285012737`*^-20", "4.291897513475585`*^-11", 
      RowBox[{"-", "3.451767696737084`*^-20"}], 
      RowBox[{"-", "1.4873483102559076`*^-21"}], "1.34170850436037`*^-13", 
      RowBox[{"-", "1.5172317803380719`*^-21"}], "2.4102294954119992`*^-20", 
      "1.6979181433013085`*^-12", "6.286029858091085`*^-21", 
      RowBox[{"-", "1.0423396308838975`*^-22"}], 
      RowBox[{"-", "1.9823852046460975`*^-12"}], "3.627619019797632`*^-21", 
      RowBox[{"-", "5.108517356570436`*^-21"}], "1.3417084112382621`*^-13", 
      "8.355067427140984`*^-21"},
     {"8.829538155142112`*^-16", "7.023705984238884`*^-20", 
      RowBox[{"-", "1.3223638927296635`*^-10"}], 
      RowBox[{"-", "1.69291449064249`*^-15"}], "7.081280569697778`*^-20", 
      RowBox[{"-", "1.653514714662262`*^-10"}], 
      RowBox[{"-", "1.7212978902389657`*^-15"}], "7.011582522508595`*^-20", 
      "2.1555930998730685`*^-9", 
      RowBox[{"-", "1.7292044234062943`*^-15"}], "6.535942189735089`*^-20", 
      RowBox[{"-", "2.4192378356037355`*^-10"}], 
      RowBox[{"-", "1.3921908266864074`*^-15"}], "2.3695655977189466`*^-19", 
      RowBox[{"-", "5.3062517469722564`*^-11"}], 
      RowBox[{"-", "2.247445075877032`*^-15"}], "2.3504304713277846`*^-19", 
      RowBox[{"-", "5.4595299647023794`*^-11"}], 
      RowBox[{"-", "1.8894073806416304`*^-15"}], "2.5519260635926374`*^-19", 
      RowBox[{"-", "5.346498497438913`*^-11"}], 
      RowBox[{"-", "2.2559826647818736`*^-15"}], "2.3555316322908745`*^-19", 
      RowBox[{"-", "5.5171785598975555`*^-11"}]},
     {
      RowBox[{"-", "1.653523186743038`*^-10"}], 
      RowBox[{"-", "4.2851386331148277`*^-19"}], 
      RowBox[{"-", "3.668439699809332`*^-20"}], 
      RowBox[{"-", "2.4192209292626193`*^-10"}], 
      RowBox[{"-", "4.075510725701973`*^-19"}], 
      RowBox[{"-", "3.115706756249504`*^-20"}], 
      RowBox[{"-", "1.3223467222887465`*^-10"}], 
      RowBox[{"-", "4.401864851979565`*^-19"}], 
      RowBox[{"-", "3.613566112312202`*^-20"}], "2.1555948263534353`*^-9", 
      RowBox[{"-", "2.9300677435300756`*^-19"}], 
      RowBox[{"-", "3.579385517113325`*^-20"}], 
      RowBox[{"-", "5.45939121884793`*^-11"}], 
      RowBox[{"-", "3.4452448964796943`*^-18"}], 
      RowBox[{"-", "6.782754108636555`*^-20"}], 
      RowBox[{"-", "5.5169539183716446`*^-11"}], 
      RowBox[{"-", "3.461926994994202`*^-18"}], 
      RowBox[{"-", "7.264378929162773`*^-20"}], 
      RowBox[{"-", "5.3060628958184776`*^-11"}], 
      RowBox[{"-", "3.4708010187910076`*^-18"}], 
      RowBox[{"-", "6.788115879785037`*^-20"}], 
      RowBox[{"-", "5.3462730043334914`*^-11"}], 
      RowBox[{"-", "3.470604712579852`*^-18"}], 
      RowBox[{"-", "7.010890078080328`*^-20"}]},
     {"1.0911544506103004`*^-20", "5.3976436754411694`*^-11", 
      "7.705113462433281`*^-21", "2.4712095750417038`*^-20", 
      "4.29189751411054`*^-11", 
      RowBox[{"-", "2.2931939598123987`*^-20"}], 
      RowBox[{"-", "2.662015317066224`*^-21"}], "4.2918975134767337`*^-11", 
      RowBox[{"-", "3.4525513337346574`*^-20"}], 
      RowBox[{"-", "7.205627398736174`*^-21"}], "2.339203993091281`*^-9", 
      "1.1693093108422418`*^-19", "8.176279017890566`*^-21", 
      "1.6979181433210736`*^-12", "6.2946710442588345`*^-21", 
      RowBox[{"-", "3.1684981681619503`*^-21"}], "1.3417085050511403`*^-13", 
      RowBox[{"-", "1.525059265139418`*^-21"}], 
      RowBox[{"-", "3.509754275636956`*^-22"}], "1.3417084117611315`*^-13", 
      "8.353962133575466`*^-21", 
      RowBox[{"-", "1.7733198383808357`*^-20"}], 
      RowBox[{"-", "1.9823852046325592`*^-12"}], "3.6245020839956254`*^-21"},
     {"8.829499701571029`*^-16", "7.074204447329045`*^-20", 
      RowBox[{"-", "1.6535147146622878`*^-10"}], 
      RowBox[{"-", "1.692981917901696`*^-15"}], "7.02931853042344`*^-20", 
      RowBox[{"-", "1.3223638927296865`*^-10"}], 
      RowBox[{"-", "1.721230011029056`*^-15"}], "6.542069965768057`*^-20", 
      RowBox[{"-", "2.419237835603951`*^-10"}], 
      RowBox[{"-", "1.729210019935533`*^-15"}], "7.004293875261228`*^-20", 
      "2.15559309987314`*^-9", 
      RowBox[{"-", "1.392214524599504`*^-15"}], "2.3531949128171653`*^-19", 
      RowBox[{"-", "5.459529964673461`*^-11"}], 
      RowBox[{"-", "2.24745157994853`*^-15"}], "2.36807557150415`*^-19", 
      RowBox[{"-", "5.3062517470018565`*^-11"}], 
      RowBox[{"-", "1.889406409450957`*^-15"}], "2.3542130423673152`*^-19", 
      RowBox[{"-", "5.5171785599271705`*^-11"}], 
      RowBox[{"-", "2.2559961876297446`*^-15"}], "2.554566115485127`*^-19", 
      RowBox[{"-", "5.3464984974094723`*^-11"}]},
     {
      RowBox[{"-", "5.346583122048674`*^-11"}], 
      RowBox[{"-", "9.751457748179457`*^-19"}], "3.442693194653683`*^-20", 
      RowBox[{"-", "5.3060829969604334`*^-11"}], 
      RowBox[{"-", "9.755125964144196`*^-19"}], "3.785202038761378`*^-20", 
      RowBox[{"-", "5.517007335264764`*^-11"}], 
      RowBox[{"-", "9.773871333805788`*^-19"}], "3.366511170643828`*^-20", 
      RowBox[{"-", "5.4593576499294385`*^-11"}], 
      RowBox[{"-", "9.790839840828147`*^-19"}], "3.886481348230026`*^-20", 
      "2.155594490407137`*^-9", 
      RowBox[{"-", "3.156071382387758`*^-18"}], "6.50461198577656`*^-20", 
      RowBox[{"-", "1.322341404271348`*^-10"}], 
      RowBox[{"-", "2.8841573967255323`*^-18"}], "6.96334530473913`*^-20", 
      RowBox[{"-", "2.4192189028991695`*^-10"}], 
      RowBox[{"-", "2.7433898072543705`*^-18"}], "6.777447948925043`*^-20", 
      RowBox[{"-", "1.6534921401873006`*^-10"}], 
      RowBox[{"-", "2.8542471451780706`*^-18"}], "7.068601144638672`*^-20"},
     {
      RowBox[{"-", "2.9767671414703553`*^-21"}], 
      RowBox[{"-", "1.9823852124550035`*^-12"}], "7.691686430694929`*^-21", 
      RowBox[{"-", "5.083287345197824`*^-21"}], "1.3417084271077666`*^-13", 
      "1.1287885432392919`*^-20", 
      RowBox[{"-", "7.329365204288577`*^-22"}], "1.3417083711057946`*^-13", 
      "5.407609524224902`*^-21", "1.4000951589683492`*^-20", 
      "1.6979181413553202`*^-12", "1.4458542006020197`*^-20", 
      RowBox[{"-", "1.4252411427139802`*^-20"}], "2.33920399361875`*^-9", 
      "3.4358506103182853`*^-20", "3.013929018800999`*^-20", 
      "4.2918975108220565`*^-11", 
      RowBox[{"-", "2.8821391531469724`*^-20"}], 
      RowBox[{"-", "8.472604910445905`*^-22"}], "4.2918975168045356`*^-11", 
      RowBox[{"-", "1.8841342365214476`*^-20"}], 
      RowBox[{"-", "5.862610146203276`*^-21"}], "5.397643666948057`*^-11", 
      "1.9478202144418595`*^-20"},
     {"8.82164168205659`*^-16", 
      RowBox[{"-", "6.912982610033159`*^-20"}], 
      RowBox[{"-", "5.3464984729677587`*^-11"}], 
      RowBox[{"-", "1.6901885765119083`*^-15"}], 
      RowBox[{"-", "6.84447492557186`*^-20"}], 
      RowBox[{"-", "5.5171785352941965`*^-11"}], 
      RowBox[{"-", "1.7167939583230962`*^-15"}], 
      RowBox[{"-", "7.234974220004099`*^-20"}], 
      RowBox[{"-", "5.3062517220112827`*^-11"}], 
      RowBox[{"-", "1.7263774284289722`*^-15"}], 
      RowBox[{"-", "7.337791893671482`*^-20"}], 
      RowBox[{"-", "5.4595299396636856`*^-11"}], 
      RowBox[{"-", "1.3880301166268006`*^-15"}], 
      RowBox[{"-", "1.5551967187264246`*^-19"}], "2.155593099763796`*^-9", 
      RowBox[{"-", "2.250333372634824`*^-15"}], 
      RowBox[{"-", "1.2693995468490074`*^-19"}], 
      RowBox[{"-", "2.4192378376599825`*^-10"}], 
      RowBox[{"-", "1.89480821524118`*^-15"}], 
      RowBox[{"-", "1.3537529552864496`*^-19"}], 
      RowBox[{"-", "1.322363894604177`*^-10"}], 
      RowBox[{"-", "2.258821111315887`*^-15"}], 
      RowBox[{"-", "1.22857893584227`*^-19"}], 
      RowBox[{"-", "1.6535147165118197`*^-10"}]},
     {
      RowBox[{"-", "5.306336371566985`*^-11"}], 
      RowBox[{"-", "9.750137627743817`*^-19"}], "3.7781322763870004`*^-20", 
      RowBox[{"-", "5.34632975047719`*^-11"}], 
      RowBox[{"-", "9.756591583425871`*^-19"}], "3.449838237185873`*^-20", 
      RowBox[{"-", "5.459358736736204`*^-11"}], 
      RowBox[{"-", "9.79600989180245`*^-19"}], "3.8940211812302814`*^-20", 
      RowBox[{"-", "5.517006247521703`*^-11"}], 
      RowBox[{"-", "9.768691825088483`*^-19"}], "3.3596647727498205`*^-20", 
      RowBox[{"-", "1.3223499894543556`*^-10"}], 
      RowBox[{"-", "2.885277093959276`*^-18"}], "6.979751169920139`*^-20", 
      "2.155595348991896`*^-9", 
      RowBox[{"-", "3.1545572442358263`*^-18"}], "6.487980797302853`*^-20", 
      RowBox[{"-", "1.6534957819865544`*^-10"}], 
      RowBox[{"-", "2.853154761187762`*^-18"}], "7.053149443575946`*^-20", 
      RowBox[{"-", "2.419215261203627`*^-10"}], 
      RowBox[{"-", "2.7443502819824813`*^-18"}], "6.79339864507507`*^-20"},
     {
      RowBox[{"-", "8.83022151124766`*^-22"}], "1.341708427383766`*^-13", 
      "1.1255504450273428`*^-20", 
      RowBox[{"-", "7.543721087765808`*^-21"}], 
      RowBox[{"-", "1.9823852124361165`*^-12"}], "7.680093587548881`*^-21", 
      "2.399953725136901`*^-21", "1.697918141380441`*^-12", 
      "1.443913227685575`*^-20", 
      RowBox[{"-", "3.947830121025487`*^-21"}], "1.341708371487871`*^-13", 
      "5.3865579575203516`*^-21", "2.610731095314772`*^-20", 
      "4.291897510811771`*^-11", 
      RowBox[{"-", "2.885870859366538`*^-20"}], 
      RowBox[{"-", "5.959509067586639`*^-20"}], "2.3392039936182192`*^-9", 
      "3.452366377267971`*^-20", "3.375751348223421`*^-20", 
      "5.397643666946827`*^-11", "1.9453302831615648`*^-20", 
      "2.8334254635878386`*^-20", "4.291897516797365`*^-11", 
      RowBox[{"-", "1.883843469210808`*^-20"}]},
     {"8.82159716928923`*^-16", 
      RowBox[{"-", "6.836393830349042`*^-20"}], 
      RowBox[{"-", "5.5171785353468704`*^-11"}], 
      RowBox[{"-", "1.690192794949621`*^-15"}], 
      RowBox[{"-", "6.921610675572193`*^-20"}], 
      RowBox[{"-", "5.346498472913335`*^-11"}], 
      RowBox[{"-", "1.7168041504073629`*^-15"}], 
      RowBox[{"-", "7.345240652150382`*^-20"}], 
      RowBox[{"-", "5.4595299396104236`*^-11"}], 
      RowBox[{"-", "1.7263776350415202`*^-15"}], 
      RowBox[{"-", "7.228235056767554`*^-20"}], 
      RowBox[{"-", "5.306251722063543`*^-11"}], 
      RowBox[{"-", "1.3880536048511263`*^-15"}], 
      RowBox[{"-", "1.2706614136037513`*^-19"}], 
      RowBox[{"-", "2.419237837662982`*^-10"}], 
      RowBox[{"-", "2.250237164186128`*^-15"}], 
      RowBox[{"-", "1.5536554104981992`*^-19"}], "2.1555930997639542`*^-9", 
      RowBox[{"-", "1.8947071217625224`*^-15"}], 
      RowBox[{"-", "1.2269150816056347`*^-19"}], 
      RowBox[{"-", "1.6535147165092337`*^-10"}], 
      RowBox[{"-", "2.2588752849719854`*^-15"}], 
      RowBox[{"-", "1.3551374704266163`*^-19"}], 
      RowBox[{"-", "1.3223638946066684`*^-10"}]},
     {
      RowBox[{"-", "5.517263184115714`*^-11"}], 
      RowBox[{"-", "9.768841634359037`*^-19"}], "3.359664092829913`*^-20", 
      RowBox[{"-", "5.459361214940386`*^-11"}], 
      RowBox[{"-", "9.796004161019658`*^-19"}], "3.8940197592706594`*^-20", 
      RowBox[{"-", "5.34632727168711`*^-11"}], 
      RowBox[{"-", "9.756597305980557`*^-19"}], "3.4498383904078836`*^-20", 
      RowBox[{"-", "5.306079431162976`*^-11"}], 
      RowBox[{"-", "9.749987834563335`*^-19"}], "3.778132509441981`*^-20", 
      RowBox[{"-", "2.4192239320500587`*^-10"}], 
      RowBox[{"-", "2.7443737940263128`*^-18"}], "6.793398992535749`*^-20", 
      RowBox[{"-", "1.653492225623103`*^-10"}], 
      RowBox[{"-", "2.8531440352563347`*^-18"}], "7.053149699902298`*^-20", 
      "2.1555949931649395`*^-9", 
      RowBox[{"-", "3.1545680689184`*^-18"}], "6.487980593440507`*^-20", 
      RowBox[{"-", "1.322341318594983`*^-10"}], 
      RowBox[{"-", "2.8852535869761776`*^-18"}], "6.979750467338375`*^-20"},
     {"1.6848367724923578`*^-21", "1.3417083714878693`*^-13", 
      "5.3865659886429204`*^-21", "1.4433649342170236`*^-20", 
      "1.697918141380441`*^-12", "1.4439126233139386`*^-20", 
      RowBox[{"-", "3.503114798331743`*^-21"}], 
      RowBox[{"-", "1.9823852124361173`*^-12"}], "7.680093463001962`*^-21", 
      RowBox[{"-", "4.833658495364718`*^-21"}], "1.3417084273837622`*^-13", 
      "1.1255494931322262`*^-20", "6.5491257956601954`*^-21", 
      "4.2918975167973585`*^-11", 
      RowBox[{"-", "1.88384242533612`*^-20"}], 
      RowBox[{"-", "4.524085953540832`*^-21"}], "5.3976436669468265`*^-11", 
      "1.945330893779326`*^-20", 
      RowBox[{"-", "3.671091688916646`*^-20"}], "2.3392039936182197`*^-9", 
      "3.452370887893833`*^-20", "3.1075266347252304`*^-20", 
      "4.291897510811773`*^-11", 
      RowBox[{"-", "2.8858695816363253`*^-20"}]},
     {"8.821653639724576`*^-16", 
      RowBox[{"-", "7.226715313872298`*^-20"}], 
      RowBox[{"-", "5.306251722063523`*^-11"}], 
      RowBox[{"-", "1.6901582642710102`*^-15"}], 
      RowBox[{"-", "7.345297620769121`*^-20"}], 
      RowBox[{"-", "5.459529939610421`*^-11"}], 
      RowBox[{"-", "1.7168214062541955`*^-15"}], 
      RowBox[{"-", "6.921553727770343`*^-20"}], 
      RowBox[{"-", "5.346498472913328`*^-11"}], 
      RowBox[{"-", "1.726400176689606`*^-15"}], 
      RowBox[{"-", "6.837913494628148`*^-20"}], 
      RowBox[{"-", "5.5171785353468776`*^-11"}], 
      RowBox[{"-", "1.388069730547179`*^-15"}], 
      RowBox[{"-", "1.3549028281252068`*^-19"}], 
      RowBox[{"-", "1.3223638946066637`*^-10"}], 
      RowBox[{"-", "2.250180742841691`*^-15"}], 
      RowBox[{"-", "1.2270223667642896`*^-19"}], 
      RowBox[{"-", "1.6535147165092365`*^-10"}], 
      RowBox[{"-", "1.8948204341340964`*^-15"}], 
      RowBox[{"-", "1.5535481558892214`*^-19"}], "2.1555930997639406`*^-9", 
      RowBox[{"-", "2.258963774767904`*^-15"}], 
      RowBox[{"-", "1.2708959975906942`*^-19"}], 
      RowBox[{"-", "2.419237837662977`*^-10"}]},
     {
      RowBox[{"-", "5.459614589279884`*^-11"}], 
      RowBox[{"-", "9.790989647728055`*^-19"}], "3.8864811707023207`*^-20", 
      RowBox[{"-", "5.5170098129815477`*^-11"}], 
      RowBox[{"-", "9.773865610278053`*^-19"}], "3.366511989280035`*^-20", 
      RowBox[{"-", "5.306080517933468`*^-11"}], 
      RowBox[{"-", "9.755131690232488`*^-19"}], "3.785202394512986`*^-20", 
      RowBox[{"-", "5.3463261850232486`*^-11"}], 
      RowBox[{"-", "9.751307951355606`*^-19"}], "3.442692658040394`*^-20", 
      RowBox[{"-", "1.6535008112087553`*^-10"}], 
      RowBox[{"-", "2.8542706515562846`*^-18"}], "7.06859909484932`*^-20", 
      RowBox[{"-", "2.4192153467531263`*^-10"}], 
      RowBox[{"-", "2.7433790802760016`*^-18"}], "6.777446888064538`*^-20", 
      RowBox[{"-", "1.3223449604889302`*^-10"}], 
      RowBox[{"-", "2.8841681293084786`*^-18"}], "6.963345598460038`*^-20", 
      "2.1555953575502338`*^-9", 
      RowBox[{"-", "3.156047853269567`*^-18"}], "6.504611127919052`*^-20"},
     {"2.345534761379481`*^-21", "1.6979181413553194`*^-12", 
      "1.4458550338119397`*^-20", 
      RowBox[{"-", "1.7027780915251803`*^-21"}], "1.3417083711057895`*^-13", 
      "5.407620641376638`*^-21", "1.8052302651811972`*^-21", 
      "1.3417084271077563`*^-13", "1.1287897324993466`*^-20", 
      RowBox[{"-", "5.365870623545961`*^-21"}], 
      RowBox[{"-", "1.982385212455005`*^-12"}], "7.691680752033186`*^-21", 
      RowBox[{"-", "1.8052683438928286`*^-20"}], "5.397643666948058`*^-11", 
      "1.9478245149863622`*^-20", "3.394180359747761`*^-20", 
      "4.291897516804536`*^-11", 
      RowBox[{"-", "1.8841378890455754`*^-20"}], "3.756058054017461`*^-21", 
      "4.291897510822058`*^-11", 
      RowBox[{"-", "2.882142915693465`*^-20"}], 
      RowBox[{"-", "5.356730212659354`*^-20"}], "2.3392039936187445`*^-9", 
      "3.435841708106888`*^-20"},
     {"8.821643271220286`*^-16", 
      RowBox[{"-", "7.33627221525338`*^-20"}], 
      RowBox[{"-", "5.4595299396636966`*^-11"}], 
      RowBox[{"-", "1.6901570278853802`*^-15"}], 
      RowBox[{"-", "7.23503123584192`*^-20"}], 
      RowBox[{"-", "5.306251722011309`*^-11"}], 
      RowBox[{"-", "1.7168318740433728`*^-15"}], 
      RowBox[{"-", "6.84441797701326`*^-20"}], 
      RowBox[{"-", "5.5171785352941674`*^-11"}], 
      RowBox[{"-", "1.7264030623602196`*^-15"}], 
      RowBox[{"-", "6.914502446590881`*^-20"}], 
      RowBox[{"-", "5.3464984729677994`*^-11"}], 
      RowBox[{"-", "1.388072623601794`*^-15"}], 
      RowBox[{"-", "1.2283443032957181`*^-19"}], 
      RowBox[{"-", "1.653514716511823`*^-10"}], 
      RowBox[{"-", "2.2502321104981727`*^-15"}], 
      RowBox[{"-", "1.3538601506322827`*^-19"}], 
      RowBox[{"-", "1.3223638946041881`*^-10"}], 
      RowBox[{"-", "1.8947901014552142`*^-15"}], 
      RowBox[{"-", "1.269292324569543`*^-19"}], 
      RowBox[{"-", "2.4192378376599825`*^-10"}], 
      RowBox[{"-", "2.2588625901608382`*^-15"}], 
      RowBox[{"-", "1.5554314693537183`*^-19"}], "2.1555930997638045`*^-9"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.829845883208804*^9},
 CellLabel->
  "Out[135]//MatrixForm=",ExpressionUUID->"81975c0a-eaab-4dfb-9f97-\
0090228f4020"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"dims", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"2", "*", "104.48", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}], ",", 
     RowBox[{"52.24", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}], ",", 
     RowBox[{"52.24", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"wallPos", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"0.25", "*", 
       RowBox[{"dims", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", 
      RowBox[{"0.5", "*", 
       RowBox[{"dims", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], ",", 
      RowBox[{"0.5", "*", 
       RowBox[{"dims", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"0.75", "*", 
       RowBox[{"dims", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", 
      RowBox[{"0.5", "*", 
       RowBox[{"dims", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], ",", 
      RowBox[{"0.5", "*", 
       RowBox[{"dims", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.8180138509425163`*^9, 3.8180138538055563`*^9}, {
  3.818014524108705*^9, 3.818014618654788*^9}, {3.818021564556641*^9, 
  3.8180215651442337`*^9}},ExpressionUUID->"b50cfd92-6291-4895-a9e4-\
1e8f73e83f2f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"3.265`*^-7", ",", "6.53`*^-7", ",", "3.265`*^-7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9.795000000000001`*^-7", ",", "6.53`*^-7", ",", "3.265`*^-7"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.818013853961824*^9, 
  3.81801461975107*^9},ExpressionUUID->"5b86f1c1-bae8-4050-840d-20554091857c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"file", "=", "\"\</home/drladiges/matrixInv.dat\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"BinaryWrite", "[", 
  RowBox[{"file", ",", 
   RowBox[{"Flatten", "[", "mobInv", "]"}], ",", " ", "\"\<Real64\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Close", "[", "file", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.817516046719449*^9, 3.817516080147997*^9}, {
   3.817516119840392*^9, 3.817516136164956*^9}, {3.817516572746729*^9, 
   3.817516576315771*^9}, {3.817516617132045*^9, 3.817516638400445*^9}, {
   3.817516755221303*^9, 3.817516759203134*^9}, {3.8175168114481907`*^9, 
   3.8175168372171097`*^9}, 3.817691390481483*^9, {3.817691424296784*^9, 
   3.817691476599312*^9}, {3.817704686241446*^9, 3.8177046950173903`*^9}, {
   3.817704738785904*^9, 3.817704743406225*^9}, {3.817705171157072*^9, 
   3.817705184971483*^9}, 3.8277155565217743`*^9},
 CellLabel->"In[17]:=",ExpressionUUID->"5830ddbc-44b1-453c-a815-b416e501828b"],

Cell[BoxData["\<\"/home/drladiges/matrixInv.dat\"\>"], "Output",
 CellChangeTimes->{
  3.8175162738193398`*^9, {3.817516578666127*^9, 3.817516643413093*^9}, 
   3.817516785448629*^9, {3.817516873458383*^9, 3.817516881448369*^9}, 
   3.817669242110606*^9, 3.8176911018507633`*^9, {3.817691273639086*^9, 
   3.8176913018252068`*^9}, {3.8176913910421877`*^9, 3.817691409687214*^9}, {
   3.817691464010386*^9, 3.8176914783414087`*^9}, {3.817704615457119*^9, 
   3.817704698294832*^9}, 3.81770486633116*^9, 3.817705195317815*^9, {
   3.817747375877943*^9, 3.817747390926011*^9}, 3.817747891607901*^9, 
   3.81774846493504*^9, 3.8177502209229307`*^9, 3.817750648532372*^9, 
   3.8177530198381577`*^9, 3.817754224368059*^9, 3.817758583346138*^9, 
   3.817775840097383*^9, 3.818012887767858*^9, 3.818021678920792*^9, 
   3.818091841642518*^9, 3.81869786784509*^9, 3.8255188247166853`*^9, 
   3.825519307533969*^9, 3.82552016482537*^9, 3.825522533133284*^9, 
   3.8255246932446833`*^9, 3.825528815651205*^9, 3.827715562182939*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"69adbc6b-d13b-4f72-9912-43c3f5daec3c"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"posList", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"wallPos", "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"wallPos", "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"wallPos", "[", 
        RowBox[{"[", 
         RowBox[{"ii", ",", "3"}], "]"}], "]"}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", 
       RowBox[{"Length", "[", "wallPos", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "file", "=", 
   "\"\</home/drladiges/gigan/projects/FHDeX/exec/immersedIons/particles.dat\>\
\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"file", ",", "posList"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8177503135853643`*^9, 3.817750418687578*^9}, 
   3.817754222928564*^9, 3.817775846946271*^9, 
   3.817778010786056*^9},ExpressionUUID->"9610bf37-6df6-4b49-821f-\
368c76d6e4af"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dryTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "aa"}], "]"}]], "Input",
 CellChangeTimes->{{3.818029081846089*^9, 
  3.8180290883400908`*^9}},ExpressionUUID->"41f9fb3c-a859-4e59-b6e6-\
0dabe2e9b90b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2.3016897781811982`*^8", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "2.3016897781811982`*^8", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.`", ",", "2.3016897781811982`*^8"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.8180290887911797`*^9},ExpressionUUID->"9eeb385e-ec7d-4c80-a87d-\
d6037c04f380"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"file", "=", "\"\<../../exec/immersedIons/matOut\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"matList", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Import", "[", 
       RowBox[{"file", ",", "\"\<Table\>\""}], "]"}], "]"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.818033000745964*^9, 3.818033105946555*^9}, {
   3.818041151586039*^9, 3.818041158175214*^9}, {3.827602357655594*^9, 
   3.827602358119602*^9}, 3.8276046948113947`*^9, {3.827616327394863*^9, 
   3.827616330866678*^9}, {3.828706434719533*^9, 3.828706437598249*^9}, {
   3.8298416542421007`*^9, 3.829841660459742*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"544437ea-45d5-465a-912e-f424e6909e2d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"sz", "=", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"Length", "[", "matList", "]"}], ")"}], 
   RowBox[{"1", "/", "2"}]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"mf", "[", 
    RowBox[{"i_", ",", "j_"}], "]"}], ":=", 
   RowBox[{"matList", "[", 
    RowBox[{"[", 
     RowBox[{"j", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"i", "-", "1"}], ")"}], "sz"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"matC", "=", 
   RowBox[{"Array", "[", 
    RowBox[{"mf", ",", 
     RowBox[{"{", 
      RowBox[{"sz", ",", "sz"}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.818091142933486*^9, 3.818091144205379*^9}, {
   3.8180911848536386`*^9, 3.818091234997986*^9}, {3.8180913528956003`*^9, 
   3.818091479687332*^9}, {3.81809155515522*^9, 3.818091564761221*^9}, {
   3.818091605326541*^9, 3.8180916529944487`*^9}, {3.8186973249688177`*^9, 
   3.8186973400539637`*^9}, {3.825518736984089*^9, 3.8255187375354*^9}, 
   3.825522771266285*^9, {3.825522808968956*^9, 3.825522809383088*^9}, {
   3.825524916532587*^9, 3.82552491715421*^9}, {3.827435282350459*^9, 
   3.8274352871060343`*^9}, {3.827628626190641*^9, 3.8276286274306927`*^9}, {
   3.827714669677149*^9, 3.827714684201728*^9}, {3.827714721581711*^9, 
   3.827714721582814*^9}, {3.829841664364274*^9, 3.829841682627582*^9}, {
   3.829841728381095*^9, 3.8298417393483562`*^9}, 3.829845818907035*^9},
 CellLabel->
  "In[130]:=",ExpressionUUID->"c7b347b2-2166-4dde-8443-ff1b31b25565"],

Cell[BoxData["24"], "Output",
 CellChangeTimes->{{3.818091198903366*^9, 3.818091245404368*^9}, 
   3.818091389393351*^9, 3.818091480529614*^9, {3.8180915586720877`*^9, 
   3.81809157205322*^9}, {3.818091609198394*^9, 3.818091634267975*^9}, 
   3.818091706505197*^9, 3.818697225287984*^9, 3.818697341271716*^9, 
   3.825518739844185*^9, 3.8255192981193333`*^9, 3.825520159627042*^9, 
   3.825522513503017*^9, 3.8255246622475033`*^9, 3.825528389858137*^9, 
   3.827715121799242*^9, 3.827715414527238*^9, 3.82984167687081*^9, 
   3.8298417399077997`*^9, {3.829845813685938*^9, 3.829845819466074*^9}},
 CellLabel->
  "Out[130]=",ExpressionUUID->"8b8055aa-ce6b-4b6e-b4c4-f4f4c1bd10b8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["mobInv"], "Input",
 CellChangeTimes->{{3.818092483139399*^9, 
  3.8180924858897142`*^9}},ExpressionUUID->"a094da19-64e0-4a4b-b143-\
58db11623ee2"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "6.132923761956996`*^-8", ",", "6.749754724673717`*^-12", ",", 
             "8.911001127713702`*^-12", ",", 
             RowBox[{"-", "1.8577565059691768`*^-8"}], ",", 
             "6.6987948322040774`*^-12", ",", 
             RowBox[{"-", "2.0644000404086015`*^-10"}], ",", 
             "4.981000022597663`*^-9", ",", "6.793087347004343`*^-12", ",", 
             "2.0934225419271702`*^-10", ",", 
             TemplateBox[{"4782"},
              "OutputSizeLimit`Skeleton"], ",", "1.6644273484016591`*^-13", 
             ",", "6.793274314147725`*^-12", ",", 
             RowBox[{"-", "1.786426922506475`*^-14"}], ",", 
             "2.8564388704318123`*^-13", ",", "6.698197460502032`*^-12", ",", 
             "1.976043207963727`*^-14", ",", "2.387219345930124`*^-13", ",", 
             "6.750575167394331`*^-12", ",", 
             RowBox[{"-", "2.048983285759584`*^-14"}]}], "}"}], ",", 
           RowBox[{"{", 
            TemplateBox[{"1"},
             "OutputSizeLimit`Skeleton"], "}"}], ",", 
           TemplateBox[{"4796"},
            "OutputSizeLimit`Skeleton"], ",", 
           RowBox[{"{", 
            TemplateBox[{"1"},
             "OutputSizeLimit`Skeleton"], "}"}], ",", 
           RowBox[{"{", 
            TemplateBox[{"1"},
             "OutputSizeLimit`Skeleton"], "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{61., {2., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLText",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{54., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{54., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 597, 16587044426447702982, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{61., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{61., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 597, 16587044426447702982, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{46., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{46., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 597, 16587044426447702982, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{83., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{83., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[16587044426447702982 === $SessionID, 
   Out[597], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{
  3.818092536284492*^9},ExpressionUUID->"f34039bc-2df7-4c3c-9ccf-\
869788d2bf6a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ii", "=", "1999"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"jj", "=", "2000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"matC", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", 
        RowBox[{"(", 
         RowBox[{"ii", "-", "1"}], ")"}]}], "+", "1"}], ";;", 
      RowBox[{
       RowBox[{"3", 
        RowBox[{"(", 
         RowBox[{"jj", "-", "1"}], ")"}]}], "+", "3"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"3", 
        RowBox[{"(", 
         RowBox[{"ii", "-", "1"}], ")"}]}], "+", "1"}], ";;", 
      RowBox[{
       RowBox[{"3", 
        RowBox[{"(", 
         RowBox[{"jj", "-", "1"}], ")"}]}], "+", "3"}]}]}], "]"}], "]"}], "//",
   "MatrixForm"}]}], "Input",
 CellChangeTimes->{
  3.818041955128611*^9, 3.818043717944707*^9, {3.827628664422327*^9, 
   3.8276287665575438`*^9}, {3.827715045786364*^9, 3.8277150485866747`*^9}, {
   3.827715176828825*^9, 3.8277151769388027`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"6a693279-b72a-4103-a7ea-c3eacce011b0"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2.25360724456871`*^8", "58.8403647031082`", 
      RowBox[{"-", "6647.7245624713`"}], "7.04408263259443`*^7", 
      "56.9915466795246`", 
      RowBox[{"-", "103090.479224049`"}]},
     {"58.8101247775485`", "2.05390645970908`*^8", "69.6016211948008`", 
      "56.9556486788497`", "4.91246586362087`*^7", "559334.256107716`"},
     {
      RowBox[{"-", "6647.71241759141`"}], "69.6192920282074`", 
      "2.36323469509488`*^8", "101353.425503594`", 
      RowBox[{"-", "559749.094613647`"}], "1.29921314908032`*^8"},
     {"7.04408263190763`*^7", "56.9929790161`", "101353.45957382`", 
      "2.25980524207803`*^8", "58.8465028164901`", 
      RowBox[{"-", "4626.14419382069`"}]},
     {"56.9555514549902`", "4.91246586373628`*^7", 
      RowBox[{"-", "559749.10429086`"}], "58.8177420291468`", 
      "2.06016239254546`*^8", "51.8351748445129`"},
     {
      RowBox[{"-", "103090.468651843`"}], "559334.263687555`", 
      "1.29921314910618`*^8", 
      RowBox[{"-", "4626.16860463336`"}], "51.8520449332027`", 
      "2.35862668704705`*^8"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.827715416893022*^9},
 CellLabel->
  "Out[9]//MatrixForm=",ExpressionUUID->"6fdee925-4801-4095-a078-\
30e21d45f3f6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ii", "=", "1601"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"jj", "=", "1602"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mobInv", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", 
        RowBox[{"(", 
         RowBox[{"ii", "-", "1"}], ")"}]}], "+", "1"}], ";;", 
      RowBox[{
       RowBox[{"3", 
        RowBox[{"(", 
         RowBox[{"jj", "-", "1"}], ")"}]}], "+", "3"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"3", 
        RowBox[{"(", 
         RowBox[{"ii", "-", "1"}], ")"}]}], "+", "1"}], ";;", 
      RowBox[{
       RowBox[{"3", 
        RowBox[{"(", 
         RowBox[{"jj", "-", "1"}], ")"}]}], "+", "3"}]}]}], "]"}], "]"}], "//",
   "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.8186971983320227`*^9, 3.818697204763528*^9}, {
  3.827715058407489*^9, 3.8277150754663267`*^9}, {3.827715178468082*^9, 
  3.827715178901617*^9}, {3.827715533683405*^9, 3.827715535890669*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"90874d2e-772e-4e4c-8c97-c2af60390a5f"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1.212904911092885`*^-8", "9.254562651844139`*^-12", 
      "8.252615600462964`*^-13", "1.0262572471730543`*^-9", 
      RowBox[{"-", "3.958580662693996`*^-12"}], 
      RowBox[{"-", "8.369515960809995`*^-12"}]},
     {"9.254559596672903`*^-12", "2.3604817085793214`*^-8", 
      "9.257300956581057`*^-12", 
      RowBox[{"-", "5.24651377089382`*^-12"}], "3.5314932256938924`*^-9", 
      RowBox[{"-", "3.2851613258525844`*^-9"}]},
     {"8.252615585918591`*^-13", "9.257299273014138`*^-12", 
      "1.2123811192319995`*^-8", "9.146993017917228`*^-12", 
      "3.1672275099665334`*^-9", 
      RowBox[{"-", "3.861401459035949`*^-9"}]},
     {"1.0262572470294359`*^-9", 
      RowBox[{"-", "5.246513689972519`*^-12"}], "9.146993226699183`*^-12", 
      "1.2120304375906482`*^-8", "1.1314101162093731`*^-11", 
      "1.2389853492324532`*^-12"},
     {
      RowBox[{"-", "3.958580316509926`*^-12"}], "3.5314932236452986`*^-9", 
      "3.167227510013667`*^-9", "1.1314098636659629`*^-11", 
      "2.3166876441691374`*^-8", 
      RowBox[{"-", "3.165172919288607`*^-11"}]},
     {
      RowBox[{"-", "8.369515413151384`*^-12"}], 
      RowBox[{"-", "3.2851613272101127`*^-9"}], 
      RowBox[{"-", "3.8614014591110855`*^-9"}], "1.2389855440834013`*^-12", 
      RowBox[{"-", "3.1651730818497735`*^-11"}], "1.2076913235558127`*^-8"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.81869722539734*^9, 3.818697388605275*^9, 
  3.825518764662918*^9, 3.827715473312039*^9, 3.827715537645726*^9},
 CellLabel->
  "Out[16]//MatrixForm=",ExpressionUUID->"828dc4db-dad5-4326-8a96-\
e0859d084384"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nvel", "=", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"6", " ", "\[Pi]", " ", "\[Mu]", " ", "aa"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"wetData", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0.5", ",", 
      RowBox[{"4.33862196", "*", 
       RowBox[{
        SuperscriptBox["10", "8"], "/", "nvel"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"3.89776", "*", 
       RowBox[{
        SuperscriptBox["10", "8"], "/", "nvel"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", 
      RowBox[{"2.84369221", "*", 
       RowBox[{
        SuperscriptBox["10", "8"], "/", "nvel"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"4", ",", 
      RowBox[{"1.590170803003", "*", 
       RowBox[{
        SuperscriptBox["10", "8"], "/", "nvel"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"8", ",", 
      RowBox[{"7.861751236889063", "*", 
       RowBox[{
        SuperscriptBox["10", "7"], "/", "nvel"}]}]}], "}"}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"dampData", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0.5", ",", 
      RowBox[{"2.188555567623945", "*", 
       RowBox[{
        SuperscriptBox["10", "8"], "/", "nvel"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"2.128614660916317", "*", 
       RowBox[{
        SuperscriptBox["10", "8"], "/", "nvel"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", 
      RowBox[{"1.9114440124419", "*", 
       RowBox[{
        SuperscriptBox["10", "8"], "/", "nvel"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"4", ",", 
      RowBox[{"1.386998898093581", "*", 
       RowBox[{
        SuperscriptBox["10", "8"], "/", "nvel"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"8", ",", 
      RowBox[{"7.6350224810953", "*", 
       RowBox[{
        SuperscriptBox["10", "7"], "/", "nvel"}]}]}], "}"}]}], 
   "}"}]}]}], "Input",
 CellChangeTimes->{{3.819046652817678*^9, 3.8190466744503403`*^9}, {
   3.81904934447829*^9, 3.819049373650415*^9}, {3.819049426627007*^9, 
   3.81904943000248*^9}, 3.819049592784356*^9, {3.8190510817751913`*^9, 
   3.819051098106022*^9}, {3.819051826767949*^9, 3.8190518420646553`*^9}, {
   3.819051956461193*^9, 3.819051960940736*^9}, {3.8191348325537148`*^9, 
   3.819134871752469*^9}, {3.819145854266967*^9, 3.819145857662869*^9}, {
   3.819146355756446*^9, 3.8191463598685226`*^9}, 3.819146391764782*^9, 
   3.819146510940117*^9, 3.819146558299418*^9, 3.8191465960455093`*^9, 
   3.819146704714888*^9},ExpressionUUID->"dcbfa9d3-10a6-4728-a8ed-\
1a1872ca7152"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "0.95081811353191`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0.8542022891987892`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0.6232011195042189`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "0.3484892707971346`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "0.1722919293045762`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8190493745539637`*^9, 3.819049594788608*^9, 
  3.819051098526038*^9, 3.8190518431028214`*^9, 3.81905196170126*^9, 
  3.819134872512957*^9, 3.819146458779963*^9, 3.819146559859857*^9, 
  3.819146706947068*^9, 
  3.819146832860435*^9},ExpressionUUID->"ac0e9012-62c7-4c47-8489-\
c544e3eeafe8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "0.4796265485568966`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0.4664903729775108`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0.4188969693113968`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "0.3039637211803023`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "0.16732312100888264`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8190493745539637`*^9, 3.819049594788608*^9, 
  3.819051098526038*^9, 3.8190518431028214`*^9, 3.81905196170126*^9, 
  3.819134872512957*^9, 3.819146458779963*^9, 3.819146559859857*^9, 
  3.819146706947068*^9, 
  3.819146832862352*^9},ExpressionUUID->"780e21d5-487a-4ec4-90de-\
b8c3d68aaa54"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"m1", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Red", ",", 
      RowBox[{"Circle", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m2", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Red", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.5"}], ",", 
           RowBox[{"-", "0.5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.5", ",", 
           RowBox[{"-", "0.5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.5", ",", "0.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.5"}], ",", 
           RowBox[{"-", "0.5"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m3", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Black", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.5"}], ",", 
           RowBox[{"-", "0.5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.5", ",", 
           RowBox[{"-", "0.5"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m4", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Black", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"-", "0.5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.5"}], ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.5", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"-", "0.5"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ss", "=", "0.03"}], ";"}]}], "Input",ExpressionUUID->"ead999cd-\
31e6-46a3-a0df-2fd080428ee8"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"aa", "=", 
   RowBox[{"1.29182", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "8"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"paa", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"RPY", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"x", " ", "aa"}], ",", "0", ",", "0"}], "}"}], ",", 
             "aa"}], "]"}], ".", 
           RowBox[{"{", 
            RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], ")"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], 
        RowBox[{"(", 
         RowBox[{"6", " ", "\[Pi]", " ", "\[Mu]", " ", "aa"}], ")"}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"RPY", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"x", " ", "aa"}], ",", "0", ",", "0"}], "}"}], ",", 
             RowBox[{"2", "aa"}]}], "]"}], ".", 
           RowBox[{"{", 
            RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], ")"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], 
        RowBox[{"(", 
         RowBox[{"6", " ", "\[Pi]", " ", "\[Mu]", " ", "aa"}], ")"}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"RPY", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"x", " ", "aa"}], ",", "0", ",", "0"}], "}"}], ",", 
             RowBox[{"1.33333", "aa"}]}], "]"}], ".", 
           RowBox[{"{", 
            RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], ")"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], 
        RowBox[{"(", 
         RowBox[{"6", " ", "\[Pi]", " ", "\[Mu]", " ", "aa"}], ")"}]}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "Black", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pbb", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"wetData", ",", "dampData"}], "}"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"m1", ",", "ss"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"m3", ",", "ss"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "Black"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"paa", ",", "pbb", ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.81897108079814*^9, 3.818971098723852*^9}, {
   3.818971157530387*^9, 3.818971343046297*^9}, {3.818971787347748*^9, 
   3.8189717936748962`*^9}, {3.819046439722245*^9, 3.81904645899599*^9}, {
   3.819046494230847*^9, 3.819046571132143*^9}, {3.81904938043864*^9, 
   3.819049401122796*^9}, {3.819051989494688*^9, 3.819051995149006*^9}, {
   3.81905202774927*^9, 3.819052035773369*^9}, 3.819052075469302*^9, {
   3.8191464032115993`*^9, 3.81914643575781*^9}, {3.819146720123536*^9, 
   3.819146749290061*^9}, {3.819146816210449*^9, 3.819146825483795*^9}, {
   3.819146873830841*^9, 3.8191468933697433`*^9}, {3.819147069691017*^9, 
   3.81914708579366*^9}},ExpressionUUID->"74931777-9971-4644-a1dd-\
9fee5ca27882"],

Cell[BoxData[
 GraphicsBox[{{{{{}, {}, 
      TagBox[
       {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
        LineBox[{{2.0408163265306121`*^-7, 0.9999999617346939}, {
         0.003067179205596267, 0.9994249038989506}, {0.006134154329559881, 
         0.9988498460632075}, {0.01226810457748711, 0.997699730391721}, {
         0.02453600507334157, 0.9953994990487485}, {0.04907180606505048, 
         0.9907990363628031}, {0.09814340804846831, 0.9815981109909122}, {
         0.19628661201530398`, 0.9631962602471306}, {0.40908357085458646`, 
         0.9232968304647651}, {0.6077788357015209, 0.8860414683059649}, {
         0.8025764881887605, 0.8495169084646074}, {1.013884691581611, 
         0.8098966203284478}, {1.2110912009821138`, 0.7729203998158537}, {
         1.4248082612882276`, 0.7328484510084573}, {1.6346277092346464`, 
         0.6935073045185036}, {1.8303454631887173`, 0.6568102256521156}, {
         1.996811224489796, 0.6255978954081632}}], LineBox[CompressedData["
1:eJwVjn0w23ccgJmXs4h5K0YiDT/iLapV0+rU5+OtL6hR0o1sOtRLrcumWB1p
qWO4sqVYOa2xam3WhVF2U60zX28hol4aRqzmZY5b26nmCK6mz91zz7+PVcwX
p+PeUlNTg13ftNnLTZ6vrYaKDwVsi615yKneDn31rzrq/klfGCmdA7WxWXyY
oYG3Tur5m2f9DZzU+PRwRy3cLL8S7JY0Cy7ni+ShPC1MPzBQTwudhQVl+Rnd
R9rYuL99S7X9FwQsJl0uSdbBCq+E9pfcGQheEDmxWDTUE3BEz0TTsEJisvvF
unhrlD9YcXAK9hnKLX3P6qGPbelW3dQk0EAZrVh7B0v2BRvrtE682d7FAIuf
ekQ6akzA8WeR69Y8A6xVXPj+UIkcJrvOqUdyDbEmaVN8qPgJtBZ0R7GVhuj+
wdoEVzwO8VppszKZETL5wgDboTGIvZjZSq80xl8UWhy57hi4JDjJgqL3IIe5
NPgTfxSGjbi6aR4maDFVlLhRPwLtDTk3uRqmeMk/59NC/RHIVHcMkc6Yojzr
2nV+ymOgKTJOCFrM0O+/3IiS/mFYrLMqqxa+iy/s25+dksmgzN5cs41njuIw
ge754SEQVcb3RbMtMHfa1fjOCylEln0ioy9Z4Op9lloKWwobfndV1R0MPLOd
bMYJGoT5RZ/0rnwmhlfbZSyIBuD20QOMoWhLjGI3uXc9loA4L80wwZmFR+Wp
r3o4EsjnxQZqKFn4gPeVS1BBP7yn+KE+f2gv0j072+cX+qDC4aZ4KJCNBlu2
0ZKwPsjqLK4IbGPjGO1yC62jF04xeHcHbKxQ6x/ndRPXXvAW9PENC63w3JKN
R2JrD1QzY2ykSivMZfgrD7r1gA358UYw3xqFbxtxJzq7QeTc5TjaYY0CQffT
qPBuiF/THJE4Ush636+maJ5ATNNLduG3FLqG0MpFVwhcyAnbDrhO4Ubt1H25
kEBaWMsEvZRCZXYIyzKTQIEy7RvRDQr9xdPTP18i0OCh2iqvojDB3WNd8iUB
1R878rp7FAoYKVWmsQREo/Ti7j4KT2d+zFw+TqCy9vPEryUUjksM+g4fI1Cb
KvM9MUhhWebzhwV+BH4zFW0OyiicOTlZ6OBNQBFpnDj2hMKPpMfqBEcI2M2b
+87NU6i93DCp7Uxgf0sG684ihTVtK1y+E4EjedOquCUKv3vOGGx0IBBkV/Xr
8gqFzUlGixEcAhc/Y7NWVymkIjyLm/YSEHpeVTWvUfi7VN9Fh0UgT29uPFW5
+2PqbXGWSaCisfbaxgaF+rPJUj1zArezNRMebFJoLwksjTMjcC80zke4TWES
/3DtIxMCLda9ll6vKcyYttk22UOgY42j2tmhMLLsdZXAiMD/3N/Opg==
         "]]},
       Annotation[#, "Charting`Private`Tag$38112#1"]& ], 
      TagBox[
       {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
        LineBox[CompressedData["
1:eJwB0QEu/iFib1JlAgAAABwAAAACAAAAnX5iBjFkiz6cbbr1///fP8TTIExX
IGk/7NzQ96T93z//xr6DICB5PztM5/lJ+98/ncCNHwUgiT/YKhT+k/bfP2w9
dW33H5k/EuhtBijt3z/T+2iU8B+pP4ZiIRdQ2t8/B9viJ+0fuT9vV4g4oLTf
P6HKn3HrH8k/P0FWe0Bp3z+ur4nbbC7aP8SLteXSxd4/Zz/Rmexy4z8OYpTR
OS3eP27lKeO0ruk/fhK0Cp+X3T8KIYQn3zjwP845lyhW9dw/jhDLKqFg8z/k
7PnH4V3cP2LbVL8DzPY/3RYgTL+52z9xxYRibyf6P/sahx2bGNs/sXAMUxhJ
/T/fqm1wS4LaP6F7a+owVwBApLEXqE3f2T+Cn/xR9OwBQC9EQWEkR9k/ANPg
QLx6A0DgsKtn+bHYPyZ0ZnhUKgVAcpTZUiAQ2D8vaYzWUVUFQI5Yi08BANg/
5PWXVgu9BkDLA4e/G3nXP0rlan2ScQhAA+r3EGnV1j9O5JArHh4KQGGqqa+0
NNY/6sNigMitC0CH9trP1J7VPy4R1h1DXw1AjrnP1Eb81D8KP/Vh3PMOQFwI
RFuNZNQ/TsHLKXj5D0CCl1PwcgLUP2Ff3pQ=
         "]], LineBox[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAAWR8a60MDEEBFKc8Pjf3TP9jCZAFa
LBFAF1QsPh0g0z+1iMReIPURQFlOF53yjdI/ZgV14M7OEkCCIZQQUfTRP2Ny
e7UMmhNAfefL6Clq0T8vZyvOTGEUQBqlaBQJ6NA/zxIsC3U5FUBFw5059WDQ
P7uugpssAxZAcF9WkjbRzz97ASpQzN0WQDcyMsSB2M4/Ctx6SG60F0AmRQjl
PvDNP+WmIZSffBhAzLwz/swhzT+UKBkEuVUZQHtEqkiDTMw/kJpmx2EgGkAL
RjaV247LP1qUXc4M5xpA6G3C2VLdyj/4RKX5n74bQCQ5WqyPJco/4+VCeMKH
HEARQ2Z2+oHJP6I9MRvNYR1AalYrWLrYyD+thXURZy0eQJY+wDPXQcg/h1Vj
SwP1HkA0xlFHO7THPzXcoamHzR9AwhBZ9kshxz+YKZutzUsgQJhC1FMQnsY/
f8CNmEu5IEDoyERn6BXGP00bVaXKJCFAvuUulQGWxT9BbsdbEYkhQNC7VxiO
I8U/nxxiJMz1IUBm+pSedKzEPyTDp5ZOWyJAE8+chrNBxD+QLcIq0r4iQGBp
+F363MM/ZvME0ckqI0ByqAil3XPDP2Kx8iCJjyNA7SbbzHwVwz9sglP8SpEj
QBLySjbfE8M/dVO01wyTI0CaszfjQRLDP4j1dY6QliNABChJBwgPwz+uOfn7
l50jQOY4lHaXCMM/+cH/1qarI0Ci8RzkwvvCP5DSDI3ExyNAALx0jkviwj+a
o21ohskjQFaNW0m24MI/o3TOQ0jLI0DYW9BFId/CP7YWkPrLziNA2jonA/jb
wj/cWhNo09UjQCr/4Y2o1cI/J+MZQ+LjI0Ck31nWFcnCPzC0eh6k5SNAmEUM
o4THwj86hdv5ZecjQKrLW7DzxcI/TCedsOnqI0BImJaM0sLCP3JrIB7x8SNA
NMTaSZO8wj98PIH5svMjQNKd1RkEu8I/hQ3i1HT1I0AYx/YpdbnCP5ivo4v4
+CNAZPFwCli2wj+igARnuvojQHhxrNrJtMI/q1FlQnz8I0BAP9PqO7PCP7Qi
xh0+/iNA2qTWOq6xwj++8yb5//8jQJ7wp8ogsMI/xaCEUQ==
         "]]},
       Annotation[#, "Charting`Private`Tag$38112#2"]& ], 
      TagBox[
       {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
        Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAnX5iBjFkiz4gZhTjAwDoP8TTIExX
IGk/r1mPhF395z//xr6DICB5Pz1NCia3+uc/ncCNHwUgiT9bNABpavXnP2w9
dW33H5k/lQLs7tDq5z/T+2iU8B+pPwifw/qd1ec/B9viJ+0fuT/y13ISOKvn
P6HKn3HrH8k/xEnRQWxW5z+ur4nbbC7aP/VsPb2QnuY/Zz/Rmexy4z/cHFdO
5PLlP27lKeO0ruk/wT9095VK5T8KIYQn3zjwPzSiQL0DlOQ/jhDLKqFg8z9c
kbqYoOnjP2LbVL8DzPY/E8DjkPkw4z9xxYRibyf6P8lhEKGwe+I/sXAMUxhJ
/T80kOrGltLhP6F7a+owVwBALf5zCTkb4T+Cn/xR9OwBQNv4qmEKcOA/ANPg
QLx6A0AOzcqjc5DfPyZ0ZnhUKgVAhSeevUok3j99KlgAyk4FQFOq1YiHBd4/
kQWnzQ==
         "]], LineBox[CompressedData["
1:eJwBoQNe/CFib1JlAgAAADkAAAACAAAA4afArNlbBUBD0nBMgvrdP0rlan2S
cQhALB/CeThu2z9O5JArHh4KQL//9Q62Ito/6sNigMitC0BsxE4q6//YPy4R
1h1DXw1AH//7cC3Z1z8KP/Vh3PMOQFCJqY0E2dY/R+1a9yJVEEDJVMF2BtfV
P9jCZAFaLBFAwtz3SzHs1D+1iMReIPURQOuzPwxXINQ/ZgV14M7OEkCgBS3Q
j1LTP2Nye7UMmhNAC5bFXY2f0j8vZyvOTGEUQHCjTkNQ+9E/zxIsC3U5FUCm
shX7q1TRP7uugpssAxZAkA8G/BLD0D97ASpQzN0WQEr0OHElL9A/Ctx6SG60
F0B6vrNBHk7PP+WmIZSffBhAjZywTjZfzj+UKBkEuVUZQBERu84aa80/kJpm
x2EgGkAWcib+LZTMP1qUXc4M5xpATd3hR63Myz/4RKX5n74bQKTCxW3G/8o/
4+VCeMKHHEBH6R4DqErKP6I9MRvNYR1ABzZ/gnSQyT+thXURZy0eQCwoBslr
68g/h1VjSwP1HkBNHMpxUVHIPzXcoamHzR9Al+S8Ty6yxz+YKZutzUsgQM11
+4CsJMc/f8CNmEu5IECjp6K3c5LGP00bVaXKJCFA7N6PBZ8Jxj9BbsdbEYkh
QPijEhSYj8U/nxxiJMz1IUC9/ml0AhHFPyTDp5ZOWyJAtt9q/eCfxD+QLcIq
0r4iQHLKTNVqNcQ/ZvME0ckqI0AeFO47mMbDP2Kx8iCJjyNAe/tuplJjwz9s
glP8SpEjQNkedhmgYcM/dVO01wyTI0BflIDX7V/DP4j1dY6QliNAnwVTNIpc
wz+uOfn7l50jQOJT2G7GVcM/+cH/1qarI0AF/svWTEjDP5DSDI3ExyNAWbnb
7pAtwz+ao21ohskjQALMvZ3nK8M/o3TOQ0jLI0CTpEuVPirDP7YWkPrLziNA
NFMhXu0mwz/cWhNo09UjQIWrtFROIMM/J+MZQ+LjI0AdMo/FHRPDPzC0eh6k
5SNAdz6i9ngRwz86hdv5ZecjQGF5Pm/UD8M/TCedsOnqI0DFpco2jAzDP3Jr
IB7x8SNAdU88Hf8Fwz98PIH5svMjQGUdo4hcBMM/hQ3i1HT1I0DLCAQ7ugLD
P5ivo4v4+CNAyx5tdHb/wj+igARnuvojQGjLUfvU/cI/q1FlQnz8I0B7menI
M/zCP7Qixh0+/iNAi9gi3ZL6wj++8yb5//8jQPHd6zfy+MI/zlWxDg==
         "]]},
       Annotation[#, 
        "Charting`Private`Tag$38112#3"]& ], {}}, {{}, {}, {}, {}, {}}}, {}, \
{}}, {{}, {
     {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
      InsetBox[
       GraphicsBox[
        {RGBColor[1, 0, 0], AbsolutePointSize[6], Thickness[Large], 
         CircleBox[{0, 0}]}], {0.5, 0.95081811353191}, Automatic, 
       Scaled[{0.03, 0.03}]], InsetBox[
       GraphicsBox[
        {RGBColor[1, 0, 0], AbsolutePointSize[6], Thickness[Large], 
         CircleBox[{0, 0}]}], {1., 0.8542022891987892}, Automatic, 
       Scaled[{0.03, 0.03}]], InsetBox[
       GraphicsBox[
        {RGBColor[1, 0, 0], AbsolutePointSize[6], Thickness[Large], 
         CircleBox[{0, 0}]}], {2., 0.6232011195042189}, Automatic, 
       Scaled[{0.03, 0.03}]], InsetBox[
       GraphicsBox[
        {RGBColor[1, 0, 0], AbsolutePointSize[6], Thickness[Large], 
         CircleBox[{0, 0}]}], {4., 0.3484892707971346}, Automatic, 
       Scaled[{0.03, 0.03}]], InsetBox[
       GraphicsBox[
        {RGBColor[1, 0, 0], AbsolutePointSize[6], Thickness[Large], 
         CircleBox[{0, 0}]}], {8., 0.1722919293045762}, Automatic, 
       Scaled[{0.03, 0.03}]]}, 
     {GrayLevel[0], AbsolutePointSize[6], AbsoluteThickness[1.6], InsetBox[
       GraphicsBox[
        {GrayLevel[0], AbsolutePointSize[6], Thickness[Large], 
         LineBox[{{-0.5, -0.5}, {0.5, 0.5}}], 
         LineBox[{{-0.5, 0.5}, {0.5, -0.5}}]}], {0.5, 0.4796265485568966}, 
       Automatic, Scaled[{0.03, 0.03}]], InsetBox[
       GraphicsBox[
        {GrayLevel[0], AbsolutePointSize[6], Thickness[Large], 
         LineBox[{{-0.5, -0.5}, {0.5, 0.5}}], 
         LineBox[{{-0.5, 0.5}, {0.5, -0.5}}]}], {1., 0.4664903729775108}, 
       Automatic, Scaled[{0.03, 0.03}]], InsetBox[
       GraphicsBox[
        {GrayLevel[0], AbsolutePointSize[6], Thickness[Large], 
         LineBox[{{-0.5, -0.5}, {0.5, 0.5}}], 
         LineBox[{{-0.5, 0.5}, {0.5, -0.5}}]}], {2., 0.4188969693113968}, 
       Automatic, Scaled[{0.03, 0.03}]], InsetBox[
       GraphicsBox[
        {GrayLevel[0], AbsolutePointSize[6], Thickness[Large], 
         LineBox[{{-0.5, -0.5}, {0.5, 0.5}}], 
         LineBox[{{-0.5, 0.5}, {0.5, -0.5}}]}], {4., 0.3039637211803023}, 
       Automatic, Scaled[{0.03, 0.03}]], InsetBox[
       GraphicsBox[
        {GrayLevel[0], AbsolutePointSize[6], Thickness[Large], 
         LineBox[{{-0.5, -0.5}, {0.5, 0.5}}], 
         LineBox[{{-0.5, 0.5}, {0.5, -0.5}}]}], {8., 0.16732312100888264}, 
       Automatic, Scaled[{0.03, 0.03}]]}, {}}, {}, {}, {}, {}}},
  AspectRatio->1,
  Axes->False,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.14600000281632658`},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->FrontEndValueCache[{{Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0.2, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.4, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.6, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.8, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {1., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.05, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.1, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.15, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.25, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.3, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.35, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.45, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.55, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.65, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.7, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.75, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.85, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.95, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1.05, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1.1, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1.15, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1.2, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}, {Automatic, {{0., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {2., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {4., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {6., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {8., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {10., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-2., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-1.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-1., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-0.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {5., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {5.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {6.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {7., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {7.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {8.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {10.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {11., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {11.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {12., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}}],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{433., Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 10}, {0.14600000281632658`, 0.9999999617346939}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.818971340063719*^9, 3.818971344691556*^9}, {
   3.818971787516095*^9, 3.818971793904695*^9}, 3.819046459731998*^9, {
   3.8190465664010963`*^9, 3.8190465718647223`*^9}, 3.819049401766375*^9, 
   3.8190495972210903`*^9, 3.819051101138558*^9, 3.819051845225572*^9, 
   3.819051964319964*^9, 3.8190519968495493`*^9, {3.81905202860555*^9, 
   3.81905203646973*^9}, 3.819052076012393*^9, 3.819134874675778*^9, {
   3.8191464049315968`*^9, 3.819146459421583*^9}, 3.819146561781453*^9, 
   3.819146707627204*^9, 3.819146750341124*^9, {3.819146826328871*^9, 
   3.819146834001259*^9}, 3.819146899953368*^9, 
   3.819147086896556*^9},ExpressionUUID->"d7620329-07f6-4e9d-993e-\
f5ee6325502d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.819046906867807*^9, 3.81904690705802*^9}, 
   3.819049360442325*^9},ExpressionUUID->"a51775de-b4a9-4d85-8d62-\
2026fa26d51f"],

Cell[BoxData["4.563040920501346`*^8"], "Output",
 CellChangeTimes->{3.819046819146475*^9, 
  3.8190469078184843`*^9},ExpressionUUID->"c3308e71-4a01-4e4f-a0fb-\
b2c1dad24989"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nvel", "=", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"6", " ", "\[Pi]", " ", "\[Mu]", " ", "aa"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"wetData", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0.5", ",", 
      RowBox[{"4.16808522", "*", 
       RowBox[{
        SuperscriptBox["10", "8"], "/", "nvel"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"3.410819130", "*", 
       RowBox[{
        SuperscriptBox["10", "8"], "/", "nvel"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", 
      RowBox[{"1.87910207455024", "*", 
       RowBox[{
        SuperscriptBox["10", "8"], "/", "nvel"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"4", ",", 
      RowBox[{"8.29870572051", "*", 
       RowBox[{
        SuperscriptBox["10", "7"], "/", "nvel"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"8", ",", 
      RowBox[{"3.68865691791", "*", 
       RowBox[{
        SuperscriptBox["10", "7"], "/", "nvel"}]}]}], "}"}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"dampData", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0.5", ",", 
      RowBox[{"2.17998988", "*", 
       RowBox[{
        SuperscriptBox["10", "8"], "/", "nvel"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"2.0523165699549", "*", 
       RowBox[{
        SuperscriptBox["10", "8"], "/", "nvel"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", 
      RowBox[{"1.6736846128171", "*", 
       RowBox[{
        SuperscriptBox["10", "8"], "/", "nvel"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"4", ",", 
      RowBox[{"9.078303775", "*", 
       RowBox[{
        SuperscriptBox["10", "7"], "/", "nvel"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"8", ",", 
      RowBox[{"3.832321149528", "*", 
       RowBox[{
        SuperscriptBox["10", "7"], "/", "nvel"}]}]}], "}"}]}], 
   "}"}]}]}], "Input",
 CellChangeTimes->{
  3.8191358620493813`*^9, {3.8191431457597218`*^9, 3.81914314793099*^9}, 
   3.819143571307502*^9, 3.819145843658598*^9, {3.819145910792384*^9, 
   3.819145944580722*^9}, 3.819146003617408*^9, 3.8191460422171803`*^9, 
   3.8191460886647863`*^9, 3.819146129239876*^9, 3.819146176784526*^9, 
   3.819146321512354*^9},ExpressionUUID->"a3dd51b2-aa73-4175-9d01-\
6f5826022925"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "0.9134446288380093`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0.7474881749746066`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0.4118091657051765`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "0.18186787857248085`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "0.08083769096475084`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.819135862452791*^9, 3.819143148535893*^9, 
  3.819143571736878*^9, 3.819145845164657*^9, 3.8191459456787243`*^9, 
  3.819146005370357*^9, 3.819146042725621*^9, 3.819146090341161*^9, 
  3.819146131146571*^9, 3.81914617777488*^9, 3.819146323154174*^9, 
  3.819146767496441*^9, 
  3.819147113516047*^9},ExpressionUUID->"0b940921-a7e0-432b-abe5-\
4d621eb30de8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "0.47774936012637864`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0.4497694861192281`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0.3667914975948124`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "0.1989529336502763`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "0.08398612276978965`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.819135862452791*^9, 3.819143148535893*^9, 
  3.819143571736878*^9, 3.819145845164657*^9, 3.8191459456787243`*^9, 
  3.819146005370357*^9, 3.819146042725621*^9, 3.819146090341161*^9, 
  3.819146131146571*^9, 3.81914617777488*^9, 3.819146323154174*^9, 
  3.819146767496441*^9, 
  3.8191471135176888`*^9},ExpressionUUID->"a62d98c6-1161-4a5b-b5b7-\
892e37194c4f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"aa", "=", 
   RowBox[{"1.29182", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "8"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"paa", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"RPY", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"x", " ", "aa"}], ",", "0", ",", "0"}], "}"}], ",", 
             "aa"}], "]"}], ".", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ")"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], 
        RowBox[{"(", 
         RowBox[{"6", " ", "\[Pi]", " ", "\[Mu]", " ", "aa"}], ")"}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"RPY", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"x", " ", "aa"}], ",", "0", ",", "0"}], "}"}], ",", 
             RowBox[{"2", "aa"}]}], "]"}], ".", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ")"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], 
        RowBox[{"(", 
         RowBox[{"6", " ", "\[Pi]", " ", "\[Mu]", " ", "aa"}], ")"}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"RPY", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"x", " ", "aa"}], ",", "0", ",", "0"}], "}"}], ",", 
             RowBox[{"1.33333", "aa"}]}], "]"}], ".", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ")"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], 
        RowBox[{"(", 
         RowBox[{"6", " ", "\[Pi]", " ", "\[Mu]", " ", "aa"}], ")"}]}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "Black", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pbb", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"wetData", ",", "dampData"}], "}"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"m1", ",", "ss"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"m3", ",", "ss"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "Black"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"paa", ",", "pbb", ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.819135624573498*^9, 3.8191356826207323`*^9}, {
   3.819146009696549*^9, 3.8191460147901363`*^9}, 3.819146761759612*^9, {
   3.819147105160184*^9, 
   3.8191471464214163`*^9}},ExpressionUUID->"905057c3-7a98-4964-84a5-\
86ce5bb42efd"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVkHs01AkfxuditKF9w9K6D7+WwqB3u6yK77fbIoTkVUrLlMu2Um4dSaHU
sK2yWJdprWVYFGJ/QxGTy7jlUhqTYVhyjRKRGPWutX885/njc55zPufRZ587
7EOjUCg+q/m3M6+w5becvmnda2v+cmVlBoQipoM783toSA2eeLs0AytNgmtM
5kUoHS2fHng3A5m1CXoMZjxwoncvPxqZgQCrsLOLehmw/aGdanjzDIg++qfM
6hVCstHpA7O3ZmCNdNhoWq8SHOUzCod0ZiD7SVbQa71WqG2gBdftegsl9+Ol
AWZ94MBjloW7vAE/6Mp4EzwCJoY1ocWcKQgc2zzCL5mEizu0mQNNr0BBP9Zo
8JtZOFPceJE2NA631rcZZ3vNQ2nTtHuexhiwpUce09s/QPp+r1Er1ggENcay
zxktw6zzL0e77F5C2Xkl1y/t/g87qUk5wnWDkH3phykLdwom8Vtou/dIwaJ2
7RLHk4JjZguSxq+lUCtXwBg8RcH6joIwT0MpDCWMMhPOUzB4wKqkXFEKur97
uk/Gr3LRtRdrevqAK3QSZldTsBh7T+if74OkdVt/UzGgopxa03vevV64mvXJ
5f0bKk5cS3vF2i8BZ4uHQSbzVORxD2Q9tZSAbl3Iz2wZFXOZv/8YYS6BquGp
Z88YNLz5m3Lna00JzH3V61SsS0Pu0zxy51wPsIvKHX2daZicUPdrVE4P7KkM
tJOQNHQZvqHlvrYHKKIhrI6go0lyiJj6Vgyxk4LsiBg6RhTYHxsbFcNaSibN
Mo6OZ73jqp9JxaDCOiYs/4WOk6HLi4JWMXzF6bK5X0rHFtUthkt5Yji4q/5Q
zjgdOck2/O7vxJDM452IOyyHGu2PuO8l3WAY6ht+xJiB1tOFabN/iYC1c9A1
y4KBtSlWArpEBFspR82ntjOwlR0+qdUlgr0/2Y1H7WNgBaVpx/EGEZzMNT1y
7wQD05cfaKoViCC1e86cdpuB9ZG/2gcFi4CxLWri/jwDd+NkSL6CCEYX0v6n
WCOPgmVWDM32ORwcO3M5KegzPOJVuUvS/QwOjSaa6OoqrPoUZfKsn8JUAzu6
pVgRxduOOzQf7AAz5Rc6+75bh0+QOVx9vg0UYMG7f/5zvBLwKbd1qhVspj0W
DdzW47XJor6kkBaQ1J+mepgqo8vGXkc7k2YojxOeZC4oY5uTtNB1QxP4MsKG
OjtVkGW6Icjzs0Y4FXypXImrihfEMTJbAyGY+5l0Onh/gb21iXf8XRvgqYqp
YpilGhZYmw44Xa+HRyVX75jS1fGDa7Xmpu46uEQ1dm4fUMcCDVZZvUEdKPRH
2AbyN6BpWaprVUwtjP2hn5IV+SXKB6l9I3v9GFI2achVumlgp+e3Ce5dAkjk
+jZ7MzXxSoqFX3dfDXikeHYqTWji0o4TwoHFaljanyfLEmghsbnn5I/rq2Fk
bG94PUcbozkFkdEHHkGO1RatDm8dvOui0KZ9oQqKr4cp+7F0kT6epufzuBI4
bqfs6Qu6qOpl+aRIrRK29WcXcjr0MInOmLL1ewjpm+8Ud9gzsYK55sxM+wOI
qk1It69kovZPOUn6Zg/AUcst78lGfdw+3pNAcCtgT2DzceV4fQyWozvlqldA
ljZ7Y/uCPqZv8Yklb5XDxob81EPHDTDQwouboVYOiax64+cCA+wIcti+yOOD
77xcV6sxgYk2dTZUMz6wy+aY8bcJ9FKPaskUkhBw1fXTwZ8J3NV4e01XPQlh
rvwepWQCOXzFO3J1JMQthN1KTCVQR/6VIKCGhBJL2ce0TAJrtuYvYgUJsrqV
F3/cI3DhJVVDlk9C4nOlBGEzgYPLHyLyb5LA5Z31v9FKoOHcX5pj8STwQjv3
2bYRqDLurkTEkVChnrjc1kngtkLeSFYsCf0eqv4iMYEX7m71zrxMgtGIxr7h
EQLnMyZi88+RYMGP0M0dI/CjfNTXU2dJ2HldKvOZIDC+9Nv/sgJIcDDKLJ2c
IpCX/R8m35+E4B+Yuu/eEShU3lTV6E1C5O4Y2Z/zBB7e83JCwYuE6+uGu0MX
Vv+x1/FxPklC+n3ezaUlAmO6mx37PUjIiZbzq1om8N1RxUqDYyTcc/HZG/mJ
wBsNl0K+dyeBb9CkY/336v4u/XKpGwmCeUPZygqBJkUJ4kVXEv4B5xgAVw==

        "]]},
      Annotation[#, "Charting`Private`Tag$38402#1"]& ], 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVj3s0lAkchknUMpJsliZz8TnkunRObJLfb6mtdanEbI5ObUYoicgtJCkr
We1Us0XWzpFRqETfkHHLrZAxxWQqQzMZU0s30ohirf3jPc+fz/My2dE7Qxdp
aGj4Lux/FqaxdZz257hH8i+Pz8/LoV3C8NnFOAhsb+HRxFk5zD9oOsVgHINd
Hwem3k/LobA5l67NyIZNSJsbmpBD5Mb4w5/p+UAd5H/ToJSD5OsB7ji9DLqM
7pgndchhiWzY6h1dCJanRAHj5+RQ9JAX84beBYpgTaHCTA4Vt7NlkQ4DUOLH
CWxY8wLCoTf/bawSjC/urZN6DkGUylopqBiFBuoyTlTIIOgyT1vJfxiHaumw
m+YRGZxb3m1TtG8SApVTN/p+HwC2LOCelmgKfMwdP/596TnE3D/Njrb6Aoml
Xjf/4T+DqiMUf5Of58A3nb8mpu0pFKUcGnPcpYEJZ4nUT2IpZPBm/T691cQt
r16erxnrBw2JAhuStXBH9knqlG4/WMaFJQXYaGP53p9SHU2ewIj68i96jTpY
menFK1snAS9VxPELMUtRR3403wz7YNsIx5ZG00XuibQlBtt7YayNnd55Sw9F
MZ0uEPUYHAylZp6/6uNNu+i0J5/EoAvq4MHJZbjSVGRYat8DW94FfTZnLUfJ
LKW6YHM3PGvdrxlkZ4gDrtcbQ/K6oPpM+16G2hDLdtwdyXXuhDDteIVYvAI7
QufLnV4+gJDYlGrKFSMseVjvrG67D9+H24p9gr/FVy4G/ks72uHRCju9+PUr
MZVFpfiL26C+IqPATssYyYNGa42/tkKKps0O0ZAxstN5+4asW0F3MHlrlOA7
rNfp1x853AKqa0wuL9UE/4wSG20UNQN3jeliIcsUTzhrl9JsmoFzJawjmLEK
1db2qr823IMg7h4x5fUqXJRWOzbn2gTTm0pmeE1UZL1938VwaQSlyiOpNWs1
tisPpkcENMDVjU7UnmAzLKRyyiyi6uFWZrxhuD0Ny4/7KPz5dZDFCvHWUtMw
/8OeO42jQlg3WFSW1UNHmUPkbYWNEPKsC271eDPQ/nlgYmlGLZxozs3zFjJQ
Tzwg95TeBV8qq+ShBRPTXkk/uDjfhR+jOnYbZjNxiePj6LTSGuCtZluI1EwU
7FwpizWuAYu265e27TbHpxH90MitBo59q01fkznKEkxqd1OrIWxycW+XDYFu
A7MelYUCYFd9ZGT/QWAJVFyoshdAZIb/rNd5ApmJ9MxOWwHE+wueUi4SOHzS
Qiq3FsAZdfw5ziUCg3OSLxpYCqBi/czXy4UEuq/1STpKE8BMy7z02g0CW/QC
+3wMBMDpo+S2dxDoVPdi6eYJEq4UHz7wWxeBxQ7cvPAPJBTHiT23dhPYo51w
6uw7EmqMOV+6xQS61AZE9I6SMBhkdEDSTyA/Mf9YyDAJVkpTz2Elgaxit6w8
CQmOgmQaX0WgVsqexuZeElwzZTOhrwlMkOj4jj4iwceqsHJ0jED9uJykDSIS
Yg8xaBMTBJLXsueU7SSkup2cuTO54DtCnVvWRkKm/vCTODWBlIJwlmsLCXm3
i3Ompwm0bes0uNBIwtX0xeF1Xxb6K8tjmupJuOEX6pE6S2CVXGH7RkiCwPyB
mfu/C39f+rmb1JLQNGk5Mz9PoGr7SOnmGhL+A8PHUms=
        "]]},
      Annotation[#, "Charting`Private`Tag$38402#2"]& ], 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVy3s40wsYwHG3sSMVXSjC9FvJQnmUk1LvG04Xt3KImqJWlnKptHUjt5KU
y5STlJLQ5Smk36h1WTPi0Ow0o5RroZ1I1KyQOJ0/vs/nr68Fa9+fwRpqampB
v/rfKzEsbbtdZ1d1r/Zs01T7F6rkNA9/2h5YUZK4QXdMARPVwhM02lHgzRFW
6A8r4Ioo1ZxCSwan77Y3TAcVELaSG/7dPBvO39Xf93unAuQ/QjIHzW+Ds1Gj
WqhIATot7y37zQWQ+4lJb4hTQF5d7oE+81rYkhUSek1dAcUlyS1htm+BLjlD
f93fA7tBlv0psgvGfexifD91Q0SPVRe/+CP4Utt+tA90ga7FScuOZYOgkZNe
oNn+HtL0XzDytitBmFDdH9H+Dlgtvs80Jd9Atk6LxanthAPPT7L2WY6C+FDa
0OSDHVC6X89n1vqfoKVhyhYdboO8qNDexf5q+NldYHPTuwUScse8hz6p48iK
QAeTjW9ATd6JT45p4vjJyUm3N7+G+Rz2EV8GBe+l1NmEOTSBzfIOn9zFFGTn
7wnn2jbBErXNi3odKGj6iFoUM78JnFPWf4h1oWCqYo11hmETBBZY+97Z+utX
5Ec8+tYIFxq/LtJIp+CbD/NFmg8bgbI0VlGipKBylEnXhUboVmX5TXqqjf7B
IkH0NjlcX21/sK1SG59FLVNf4ieHoFRpekmdNhpF1Q0PesnhLZ1S69OsjQUr
T7dFoRxkPpErcpTa+NNRWNVIyEFY6kGzYejguEF2cGpfA2SFq/d6Zelgs1NM
1eeYBnDr2Xv83AEqThk8u3UpXwZrjhN3XY9QUTfzsM2aYhk4z2x9+y2GiuOB
fhYBt2Sw/A/PZQEpVDzjFb89I0cGjMJFSuImFQedeittE2UwKXgopKyVioaO
geFW/jKQdB/3bV77Gwr4KQr18Zfg1c1baGamizVFEenhfi+ht5IV93fRJNR2
DennxEjB1uCVqUvQZBxgPwhziJSALqh2tCqnoMggj1FfXQdr+5nf527Sx60H
NmtU2dZCs3iXOtPaABffbynZIKmBstNVgTSVARr3pXGtCqqBTeF2SqXT8FY8
u+9rwnPYGRlVpndpOhrPEVdkpFXBot0LpR47ZuA5Ryt6BVkJ/0yznsR1nImm
7Hy3nLdieFyccNla0xA7kpfFXqWJIUqdsVHSZoj2hbGyYXYF6LYeWxfBN8Kp
brFBQ0IR9NywyMyNnoX88fTQ0zYiyFwwW0uwaTZGXBupLVz6DHiX2DU7aMY4
8NMp2s1BCMzMbVI9hTHmTMmOznd/CsOuhSO5QhNsZp2g9m59Al09zkfESXOQ
t7JU+eTsY7i+0s6kfocpajg5xe4tfwRFiVyD3TZmaJip7f5sVABJm3a6a6rM
MC67J+mmhwCWtubdTqo3R90Aqt949kO4aHW5qN6dhj8K7dz0xh5ArCj1oruA
hhsHotMfbnkAniabCuvoFujdz429JC6H1RE1AQbJFtixdiaH41QOuXNYdInK
AoO8kNJTWgb0ypsXvALmogNTpzbdoQx4NmJGg3Au1s+swj4xH9hKLVktg8CM
CKO7Kjc+sEq/0pLTCZwVaixo6SAhLMFnzC2DwG1uQ3k67SRwffiv9c4TaJ7X
8s6+lYTTKm4a7wKBz4v2s1ObSSh2HPmRdYVAFyNqnKuMhJGKiVc37hAYNHGr
Qywmgdegl1pVQ+CbJ4dvTRSScCk/PORULYHDA3auDgUk5HOkLuteEDjj6ah9
+HUSyg15oy+kBHbmMqe2XiWhlTk9RN5E4PoX1fefZpFg2TXb5X0Xge0bdS7y
kklYzD9mVtBD4LyEmj2SJBKWJ7aMBCsIrJhHT6OeIsHD8sq9j70EprH9pfEJ
JESG0sy+fCGQa7KAcSSKhGin+JH7SgJvDHqmlR8lIXHy+0aOisAtW5iuqsMk
XCzJPzs8TGD1X5LCgxwSrsdp7X40SmCpH8WbjCThjnewc/QYgYcS6zyV+0ng
z602XTVOYHwRJcd+HwlC5fyRiQkCz7OureCEk/AfIavPPg==
        "]]},
      Annotation[#, "Charting`Private`Tag$38402#3"]& ]}, {}, {}}, {{}, {
     {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
      InsetBox[
       GraphicsBox[
        {RGBColor[1, 0, 0], AbsolutePointSize[6], Thickness[Large], 
         CircleBox[{0, 0}]}], {0.5, 0.9134446288380093}, Automatic, 
       Scaled[{0.03, 0.03}]], InsetBox[
       GraphicsBox[
        {RGBColor[1, 0, 0], AbsolutePointSize[6], Thickness[Large], 
         CircleBox[{0, 0}]}], {1., 0.7474881749746066}, Automatic, 
       Scaled[{0.03, 0.03}]], InsetBox[
       GraphicsBox[
        {RGBColor[1, 0, 0], AbsolutePointSize[6], Thickness[Large], 
         CircleBox[{0, 0}]}], {2., 0.4118091657051765}, Automatic, 
       Scaled[{0.03, 0.03}]], InsetBox[
       GraphicsBox[
        {RGBColor[1, 0, 0], AbsolutePointSize[6], Thickness[Large], 
         CircleBox[{0, 0}]}], {4., 0.18186787857248085}, Automatic, 
       Scaled[{0.03, 0.03}]], InsetBox[
       GraphicsBox[
        {RGBColor[1, 0, 0], AbsolutePointSize[6], Thickness[Large], 
         CircleBox[{0, 0}]}], {8., 0.08083769096475084}, Automatic, 
       Scaled[{0.03, 0.03}]]}, 
     {GrayLevel[0], AbsolutePointSize[6], AbsoluteThickness[1.6], InsetBox[
       GraphicsBox[
        {GrayLevel[0], AbsolutePointSize[6], Thickness[Large], 
         LineBox[{{-0.5, -0.5}, {0.5, 0.5}}], 
         LineBox[{{-0.5, 0.5}, {0.5, -0.5}}]}], {0.5, 0.47774936012637864}, 
       Automatic, Scaled[{0.03, 0.03}]], InsetBox[
       GraphicsBox[
        {GrayLevel[0], AbsolutePointSize[6], Thickness[Large], 
         LineBox[{{-0.5, -0.5}, {0.5, 0.5}}], 
         LineBox[{{-0.5, 0.5}, {0.5, -0.5}}]}], {1., 0.4497694861192281}, 
       Automatic, Scaled[{0.03, 0.03}]], InsetBox[
       GraphicsBox[
        {GrayLevel[0], AbsolutePointSize[6], Thickness[Large], 
         LineBox[{{-0.5, -0.5}, {0.5, 0.5}}], 
         LineBox[{{-0.5, 0.5}, {0.5, -0.5}}]}], {2., 0.3667914975948124}, 
       Automatic, Scaled[{0.03, 0.03}]], InsetBox[
       GraphicsBox[
        {GrayLevel[0], AbsolutePointSize[6], Thickness[Large], 
         LineBox[{{-0.5, -0.5}, {0.5, 0.5}}], 
         LineBox[{{-0.5, 0.5}, {0.5, -0.5}}]}], {4., 0.1989529336502763}, 
       Automatic, Scaled[{0.03, 0.03}]], InsetBox[
       GraphicsBox[
        {GrayLevel[0], AbsolutePointSize[6], Thickness[Large], 
         LineBox[{{-0.5, -0.5}, {0.5, 0.5}}], 
         LineBox[{{-0.5, 0.5}, {0.5, -0.5}}]}], {8., 0.08398612276978965}, 
       Automatic, Scaled[{0.03, 0.03}]]}, {}}, {}, {}, {}, {}}},
  AspectRatio->1,
  Axes->False,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.07550000156122454},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->FrontEndValueCache[{{Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0.2, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.4, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.6, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.8, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {1., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.05, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.1, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.15, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.25, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.3, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.35, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.45, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.55, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.65, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.7, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.75, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.85, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.95, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1.05, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1.1, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1.15, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1.2, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}, {Automatic, {{0., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {2., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {4., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {6., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {8., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {10., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-2., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-1.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-1., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-0.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {1.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {5., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {5.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {6.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {7., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {7.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {8.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {10.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {11., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {11.5, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {12., 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}}],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{435., Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 10}, {0.07550000156122454, 0.9999999426020408}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.819147126522892*^9, 
  3.819147147010785*^9}},ExpressionUUID->"f1d34e3e-d142-478c-b738-\
46cc10c22697"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"paa", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"RPY", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"x", " ", "aa"}], ",", "0", ",", "0"}], "}"}], ",", 
               "aa"}], "]"}], ".", 
             RowBox[{"{", 
              RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], 
          RowBox[{"(", 
           RowBox[{"6", " ", "\[Pi]", " ", "\[Mu]", " ", "aa"}], ")"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"RPY", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"x", " ", "aa"}], ",", "0", ",", "0"}], "}"}], ",", 
               RowBox[{"2", "aa"}]}], "]"}], ".", 
             RowBox[{"{", 
              RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], 
          RowBox[{"(", 
           RowBox[{"6", " ", "\[Pi]", " ", "\[Mu]", " ", "aa"}], ")"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"RPY", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"x", " ", "aa"}], ",", "0", ",", "0"}], "}"}], ",", 
               RowBox[{"1.33333", "aa"}]}], "]"}], ".", 
             RowBox[{"{", 
              RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], 
          RowBox[{"(", 
           RowBox[{"6", " ", "\[Pi]", " ", "\[Mu]", " ", "aa"}], ")"}]}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Black", ",", 
          RowBox[{"{", 
           RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}]}]}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pbb", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"wetData", ",", "dampData"}], "}"}], ",", 
       RowBox[{"PlotMarkers", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"m1", ",", "ss"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"m3", ",", "ss"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Black"}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"paa", ",", "pbb", ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.820246070499021*^9, 3.820246071818822*^9}, 
   3.820246183692194*^9},ExpressionUUID->"ceb1f41e-c136-47c9-a155-\
cf910dbb4be1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"aa", "=", 
   RowBox[{"1.62", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "8"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RPY", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", " ", ",", 
      RowBox[{"60", "*", 
       SuperscriptBox["10", 
        RowBox[{"-", "8"}]]}], ",", "0"}], "}"}], ",", "aa"}], "]"}], ".", 
  RowBox[{"{", 
   RowBox[{"1", ",", "0", ",", "0"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.820246145217882*^9, 3.82024618543655*^9}, 
   3.8202462197646008`*^9, 3.820246278293393*^9, {3.820246378444779*^9, 
   3.8202464007453012`*^9}, {3.8202467924335747`*^9, 3.820246828693982*^9}, {
   3.820247002210897*^9, 3.820247014000939*^9}, 3.8202470612681913`*^9, {
   3.820247268310714*^9, 
   3.8202472684036703`*^9}},ExpressionUUID->"5702821b-d8ba-4524-9fad-\
d1bd794044de"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"6.634678849759917`*^6", ",", "0.`", ",", "0.`"}], "}"}]], "Output",\

 CellChangeTimes->{
  3.820246220149535*^9, 3.820246278778574*^9, {3.820246378707039*^9, 
   3.8202464009137506`*^9}, {3.820246822057526*^9, 3.82024682949463*^9}, {
   3.8202470033183804`*^9, 3.820247014126135*^9}, 3.820247089238111*^9, 
   3.82024726904067*^9},ExpressionUUID->"a163c700-d580-4446-a810-\
04d718095d52"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"6", " ", "\[Pi]", " ", "\[Mu]", " ", "aa"}]]], "Input",
 CellChangeTimes->{{3.8202466630717773`*^9, 
  3.820246687055634*^9}},ExpressionUUID->"dbf6a4c4-d867-4ae6-9c19-\
d120efb4e869"],

Cell[BoxData["3.2747930677344716`*^8"], "Output",
 CellChangeTimes->{
  3.820246687728869*^9},ExpressionUUID->"27f45477-a770-486f-84bc-\
55a6bdbf79dc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"eps", "=", 
   RowBox[{"692.96", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "21"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dx", "=", 
   RowBox[{"1.6572", "*", 
    RowBox[{
     SuperscriptBox["10", 
      RowBox[{"-", "6"}]], "/", "128"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Q", "=", 
   RowBox[{"1.6", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "19"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"coulomb", "[", 
  RowBox[{"2", " ", "dx"}], "]"}]}], "Input",
 CellChangeTimes->{{3.822590479149931*^9, 3.822590480347067*^9}, {
   3.8225905503785963`*^9, 3.822590669367457*^9}, 3.822590901789476*^9, 
   3.822590973687023*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"adb70f0f-4ad9-4af9-a5dd-8a60ea737b4e"],

Cell[BoxData["4.384620738032435`*^-6"], "Output",
 CellChangeTimes->{3.8225906084262247`*^9, 3.822590670182137*^9, 
  3.822590904409556*^9, 3.822590974687492*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"4127f848-d914-48dc-9d75-2d0b8ebb3108"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"4.3846", "/", "4.5200"}]], "Input",
 CellChangeTimes->{{3.822590979260854*^9, 3.822590984602559*^9}, {
  3.822591124229319*^9, 3.82259113698269*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"29a71f26-feeb-44f6-85f1-0e608d5204f2"],

Cell[BoxData["0.9700442477876107`"], "Output",
 CellChangeTimes->{
  3.8225909851396914`*^9, {3.822591126075303*^9, 3.822591137790598*^9}},
 CellLabel->"Out[34]=",ExpressionUUID->"7d62c0ff-ba22-4106-a9b2-d4f27e378045"]
}, Open  ]]
},
WindowSize->{2560, 1416},
WindowMargins->{{5055, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 14142, 379, 1189, "Input",ExpressionUUID->"432a00a5-71cf-43b2-8c77-503325889e94"],
Cell[CellGroupData[{
Cell[14725, 403, 1299, 34, 87, "Input",ExpressionUUID->"e1a4b85a-d8c5-41e8-8854-6e14e6af3341"],
Cell[16027, 439, 546, 8, 35, "Output",ExpressionUUID->"7110f87f-82b4-4508-b909-c875a2932a6e"],
Cell[16576, 449, 32614, 610, 371, "Output",ExpressionUUID->"0c8259ad-bcc2-4acc-9173-3d069e75efec"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49227, 1064, 997, 30, 114, "Input",ExpressionUUID->"5c005e52-60e0-49a3-a45e-3f3fc506deea"],
Cell[50227, 1096, 303, 5, 35, "Output",ExpressionUUID->"ff5dc724-d7bf-4bb1-843f-c0340553b452"],
Cell[50533, 1103, 303, 5, 35, "Output",ExpressionUUID->"9605c9c3-0954-4436-b15a-6ce4f95fc655"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50873, 1113, 2563, 69, 477, "Input",ExpressionUUID->"0e701e1f-b650-4cf2-9da2-bc2cd367ade2"],
Cell[53439, 1184, 638, 9, 37, "Output",ExpressionUUID->"625347a4-183c-402b-88fd-5aaf11fd916b"],
Cell[54080, 1195, 641, 9, 37, "Output",ExpressionUUID->"7471c47c-d131-48e9-ab7c-62c870ad4be1"],
Cell[54724, 1206, 639, 9, 37, "Output",ExpressionUUID->"acd931fc-06a1-42b7-a579-7d248676d6d2"],
Cell[55366, 1217, 638, 9, 37, "Output",ExpressionUUID->"58903770-2851-4aae-98e2-0df823a24780"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56041, 1231, 1120, 30, 121, "Input",ExpressionUUID->"819b1f63-68e9-43c2-9845-39bcb477d7c2"],
Cell[57164, 1263, 531, 8, 37, "Output",ExpressionUUID->"09b5373e-2ba2-428a-ad52-4bda0c98444b"],
Cell[57698, 1273, 525, 8, 35, "Output",ExpressionUUID->"6bbc4860-c0a0-4a72-8681-7908c27e7663"],
Cell[58226, 1283, 526, 8, 35, "Output",ExpressionUUID->"1e24d1c4-fe99-4937-8732-3b8e2908516e"],
Cell[58755, 1293, 526, 8, 35, "Output",ExpressionUUID->"87d67356-b6c1-437f-9f9b-c9b8e96fc332"]
}, Open  ]],
Cell[59296, 1304, 3490, 70, 193, "Input",ExpressionUUID->"01f04770-911b-4a17-a36f-5a4cb4e1cc5e"],
Cell[CellGroupData[{
Cell[62811, 1378, 9781, 242, 262, "Input",ExpressionUUID->"d032b0ad-d8fb-4e56-8a3a-41d844cf3b5f"],
Cell[72595, 1622, 22867, 442, 1095, "Output",ExpressionUUID->"20b84565-7222-4f2a-b7e5-7a968eeabfe4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95499, 2069, 5312, 142, 216, "Input",ExpressionUUID->"f6876cfc-8aa0-45be-8614-35ef189881d6"],
Cell[100814, 2213, 25702, 495, 1102, "Output",ExpressionUUID->"53c2e2c8-2faa-4d07-afff-4a318d06e4cd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126553, 2713, 877, 13, 31, "Input",ExpressionUUID->"c8c73273-277d-4576-ac54-ca331a4a2e70"],
Cell[127433, 2728, 772, 11, 35, "Output",ExpressionUUID->"2f5fecab-4499-4e08-9f7c-b6df74ff9b91"],
Cell[128208, 2741, 772, 11, 35, "Output",ExpressionUUID->"e4d9ea5f-c8d0-4826-bd9d-9fc4f809b1d6"],
Cell[128983, 2754, 773, 11, 35, "Output",ExpressionUUID->"5bad50e6-045f-48ff-939e-91faf383d8b6"],
Cell[129759, 2767, 771, 11, 35, "Output",ExpressionUUID->"132ecb42-50ce-4ad4-97fe-403d9e2baf57"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130567, 2783, 10796, 268, 723, "Input",ExpressionUUID->"bf175313-0955-4bb6-a8d3-b28a92420051"],
Cell[141366, 3053, 2088, 30, 37, "Output",ExpressionUUID->"a1824e62-89cf-4f9b-8008-70786e1cfd3f"],
Cell[143457, 3085, 2089, 30, 37, "Output",ExpressionUUID->"9c945bb7-b6dd-44e8-926d-22379186352f"],
Cell[145549, 3117, 2077, 30, 37, "Output",ExpressionUUID->"dc92ba48-7618-40d8-bc85-12dbb7423c12"],
Cell[147629, 3149, 11941, 221, 920, "Output",ExpressionUUID->"0c37ff2b-2d73-4ba1-8b30-8ad677396d41"]
}, Open  ]],
Cell[CellGroupData[{
Cell[159607, 3375, 251, 4, 31, "Input",ExpressionUUID->"a5105be1-dbfa-4d45-b7da-5395e6a3c4ce"],
Cell[159861, 3381, 150, 3, 35, "Output",ExpressionUUID->"c47db334-3481-4bc2-b226-49eb8cb585a9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[160048, 3389, 202, 4, 31, "Input",ExpressionUUID->"756a22b0-7d77-42ed-a112-e833156332e7"],
Cell[160253, 3395, 146, 3, 35, "Output",ExpressionUUID->"c74109fa-0098-4a1f-9b9e-f4df11a3c81c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[160436, 3403, 8537, 216, 627, "Input",ExpressionUUID->"87a64c14-5dad-4b90-8daf-7ebea607e729"],
Cell[168976, 3621, 424, 7, 37, "Output",ExpressionUUID->"e1e64834-5935-4abe-bc4a-6b73105fadd4"],
Cell[169403, 3630, 421, 7, 37, "Output",ExpressionUUID->"6f739307-1797-436f-b860-6b738c255619"],
Cell[169827, 3639, 410, 7, 37, "Output",ExpressionUUID->"bd557c66-17a7-41f3-bd11-a1fcae8a5acf"],
Cell[170240, 3648, 8222, 163, 375, "Output",ExpressionUUID->"617952f2-90ba-4b81-abc9-81a21db632bd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[178499, 3816, 7423, 204, 650, "Input",ExpressionUUID->"4e4e5cf2-ce8e-4c2b-a3e0-5974cf6a77ed"],
Cell[185925, 4022, 369, 6, 37, "Output",ExpressionUUID->"ed3b9539-f3ff-4b2e-91a5-27f391b80a9b"],
Cell[186297, 4030, 368, 6, 37, "Output",ExpressionUUID->"9ac43c4e-f7d9-489a-8954-f4ab38996aa0"],
Cell[186668, 4038, 357, 6, 37, "Output",ExpressionUUID->"246cd682-81eb-4607-a19b-42dfa174960d"],
Cell[187028, 4046, 7847, 157, 375, "Output",ExpressionUUID->"6124660b-be8f-4fe5-8179-5d012fc579e2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[194912, 4208, 353, 10, 56, "Input",ExpressionUUID->"ad6553a0-5094-4ae3-81cc-adc4ce282804"],
Cell[195268, 4220, 197, 3, 35, "Output",ExpressionUUID->"13dae64a-82c1-4ebe-91c3-c052f1ca303d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[195502, 4228, 205, 5, 33, "Input",ExpressionUUID->"f5740f72-1404-46b6-bd66-b85d922bfcd9"],
Cell[195710, 4235, 155, 3, 35, "Output",ExpressionUUID->"93be6312-16ff-4e12-bd04-942e7ea329db"]
}, Open  ]],
Cell[CellGroupData[{
Cell[195902, 4243, 1236, 35, 78, "Input",ExpressionUUID->"0e37b51c-bfce-4079-9346-d27ca18358e6"],
Cell[197141, 4280, 191, 4, 35, "Output",ExpressionUUID->"10c1146f-0e58-48f5-af81-d74cf6656182"],
Cell[197335, 4286, 172, 3, 35, "Output",ExpressionUUID->"966c5130-54ae-417d-8c03-fc9d44fd9186"],
Cell[197510, 4291, 171, 3, 35, "Output",ExpressionUUID->"88b728cf-90be-486a-92d4-d6f3c7b52221"]
}, Open  ]],
Cell[CellGroupData[{
Cell[197718, 4299, 1861, 54, 80, "Input",ExpressionUUID->"6ddf124f-5778-46b4-9a44-da38cf945762"],
Cell[199582, 4355, 9063, 173, 362, "Output",ExpressionUUID->"fac11c71-e1b3-4948-a839-259f4dc7d153"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208682, 4533, 726, 19, 94, "Input",ExpressionUUID->"c752966c-a787-4041-879c-54789bf0e7d0"],
Cell[209411, 4554, 265, 4, 37, "Output",ExpressionUUID->"b111b0a6-0ba2-46b3-9314-176f9d97b8b1"],
Cell[209679, 4560, 264, 4, 37, "Output",ExpressionUUID->"7a7b9e6c-be6a-4422-9f7f-521d327c2ac1"]
}, Open  ]],
Cell[209958, 4567, 452, 10, 31, "Input",ExpressionUUID->"965095cf-a56a-4d17-9b5d-b8b35d4e8676"],
Cell[CellGroupData[{
Cell[210435, 4581, 752, 15, 31, "Input",ExpressionUUID->"9aebba94-1afb-410a-879f-3fca4a8f077f"],
Cell[211190, 4598, 537, 11, 40, "Output",ExpressionUUID->"b08e4f56-4c0e-428c-b6f2-5b854bbda39c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[211764, 4614, 900, 24, 124, "Input",ExpressionUUID->"9342b5b7-f1c7-417f-8c06-e2ff7e148b08"],
Cell[212667, 4640, 1955, 45, 228, "Output",ExpressionUUID->"8f1db0a7-162d-46ee-813d-471cacf6aff9"],
Cell[214625, 4687, 1958, 45, 224, "Output",ExpressionUUID->"0f5b2039-d4a9-402a-ba05-e8014f4d1ec1"],
Cell[216586, 4734, 1949, 45, 233, "Output",ExpressionUUID->"b83c5590-0709-4caa-9b79-8c03c926f582"],
Cell[218538, 4781, 1956, 45, 228, "Output",ExpressionUUID->"b8b12bec-9762-4445-94de-dce796720f69"],
Cell[220497, 4828, 1956, 45, 224, "Output",ExpressionUUID->"8c71dcf6-e106-4024-b271-ed2739761559"]
}, Open  ]],
Cell[CellGroupData[{
Cell[222490, 4878, 723, 22, 94, "Input",ExpressionUUID->"3d4effac-2c43-480d-b491-296367098ee8"],
Cell[223216, 4902, 225, 4, 35, "Output",ExpressionUUID->"82856275-2094-4077-b234-534ffdb7a797"],
Cell[223444, 4908, 224, 4, 35, "Output",ExpressionUUID->"cfcead5a-a627-4f48-91df-d2e85ebf14d2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[223705, 4917, 24718, 740, 1481, "Input",ExpressionUUID->"f8870b11-d401-4f0e-a6f0-979bdc65b2fd"],
Cell[248426, 5659, 1815, 52, 53, "Output",ExpressionUUID->"ce5452b1-73db-4e91-aeed-87bd7ee90e71"],
Cell[250244, 5713, 1715, 41, 35, "Output",ExpressionUUID->"73374375-0ed2-43aa-9ff5-99f9794485bf"],
Cell[251962, 5756, 1721, 41, 35, "Output",ExpressionUUID->"39fb6872-a656-4526-8776-6d04766c4e92"],
Cell[253686, 5799, 1765, 43, 35, "Output",ExpressionUUID->"bcf1d280-31f0-4765-bebb-58387dcc9095"],
Cell[255454, 5844, 1710, 41, 35, "Output",ExpressionUUID->"eaff2e39-49a8-4f04-855d-28c516487188"],
Cell[257167, 5887, 1710, 41, 35, "Output",ExpressionUUID->"b77b9c4a-5588-419b-bc12-422c87e9f4ba"],
Cell[258880, 5930, 2324, 53, 377, "Output",ExpressionUUID->"072b160d-aa91-4ac3-bca5-34ae0407496f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[261241, 5988, 920, 19, 31, "Input",ExpressionUUID->"679c5b7f-701a-4f06-994c-9185c2ad68e3"],
Cell[262164, 6009, 15296, 322, 377, "Output",ExpressionUUID->"152ebe53-5708-4558-8255-6950096082a2"]
}, Open  ]],
Cell[277475, 6334, 152, 3, 31, "Input",ExpressionUUID->"94e6b184-d1e0-420c-b0ad-6cd2321cca9f"],
Cell[277630, 6339, 9981, 228, 454, "Input",ExpressionUUID->"c098a64f-0897-475a-ac97-6eab54027598"],
Cell[CellGroupData[{
Cell[287636, 6571, 4283, 121, 224, "Input",ExpressionUUID->"e6b0f50c-bf34-488d-86bd-d0cc3dc8fdaf"],
Cell[291922, 6694, 500, 8, 35, "Output",ExpressionUUID->"e0bb0dc9-3be9-42fe-b9a9-481a9139c9be"],
Cell[292425, 6704, 506, 8, 37, "Output",ExpressionUUID->"57a40e42-c73c-4688-8b8f-f42d52dd2ff1"],
Cell[292934, 6714, 497, 8, 35, "Output",ExpressionUUID->"2715c8c9-2512-4acc-bda4-b2505a225747"]
}, Open  ]],
Cell[CellGroupData[{
Cell[293468, 6727, 2815, 85, 201, "Input",ExpressionUUID->"ff1fcc17-c69e-48ba-aa64-15cf1b0a3cf0"],
Cell[296286, 6814, 180, 4, 35, "Output",ExpressionUUID->"0ae1dc6f-6236-4182-a387-ed232089e853"],
Cell[296469, 6820, 190, 4, 37, "Output",ExpressionUUID->"654c4dc9-d354-4d09-a38d-0785e5c8ed9d"],
Cell[296662, 6826, 416, 11, 40, "Output",ExpressionUUID->"68cead55-a558-4793-ae83-241144c6c59e"]
}, Open  ]],
Cell[297093, 6840, 5306, 115, 150, "Input",ExpressionUUID->"2de01374-e14d-4241-b4ab-7bae6f665229"],
Cell[CellGroupData[{
Cell[302424, 6959, 387, 9, 78, "Input",ExpressionUUID->"8cffc019-7e73-43bd-a1c1-2bf924583a1d"],
Cell[302814, 6970, 155, 3, 35, "Output",ExpressionUUID->"eceb52ef-613a-44a8-8686-a94a1bc7c9aa"],
Cell[302972, 6975, 155, 3, 35, "Output",ExpressionUUID->"3a4256b2-0b70-425c-908e-e8da7ed2461b"],
Cell[303130, 6980, 154, 3, 35, "Output",ExpressionUUID->"8ef4d2de-7c2c-4e31-a0e2-75fe4246f1a1"]
}, Open  ]],
Cell[303299, 6986, 312, 7, 31, "Input",ExpressionUUID->"d58ff800-1521-4f14-a947-3e8e70710b73"],
Cell[303614, 6995, 932, 26, 81, "Input",ExpressionUUID->"3666413b-a8c4-4df9-b0bd-964c371fabb5"],
Cell[CellGroupData[{
Cell[304571, 7025, 1230, 25, 101, "Input",ExpressionUUID->"259d5a32-e115-4ca8-a2e1-89cb8d4a76f5"],
Cell[305804, 7052, 992, 14, 35, "Output",ExpressionUUID->"d7593d5e-8364-40f8-9f9e-5ffbde019dce"],
Cell[306799, 7068, 992, 14, 35, "Output",ExpressionUUID->"6ffdb52c-3b5b-4526-89c5-f74a9b4bbc2d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[307828, 7087, 235, 5, 31, "Input",ExpressionUUID->"10a18b55-52bc-4761-aefc-66ad7333f5bc"],
Cell[308066, 7094, 19365, 369, 557, "Output",ExpressionUUID->"51cea92b-20f6-4df6-bd6c-ee7bcd3c232a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[327468, 7468, 215, 4, 31, "Input",ExpressionUUID->"8b10d87f-910f-435c-a685-7ab75477dca2"],
Cell[327686, 7474, 24953, 462, 557, "Output",ExpressionUUID->"81975c0a-eaab-4dfb-9f97-0090228f4020"]
}, Open  ]],
Cell[CellGroupData[{
Cell[352676, 7941, 1406, 42, 63, "Input",ExpressionUUID->"b50cfd92-6291-4895-a9e4-1e8f73e83f2f"],
Cell[354085, 7985, 381, 9, 40, "Output",ExpressionUUID->"5b86f1c1-bae8-4050-840d-20554091857c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[354503, 7999, 1119, 22, 101, "Input",ExpressionUUID->"5830ddbc-44b1-453c-a815-b416e501828b"],
Cell[355625, 8023, 1100, 15, 35, "Output",ExpressionUUID->"69adbc6b-d13b-4f72-9912-43c3f5daec3c"]
}, Open  ]],
Cell[356740, 8041, 1206, 35, 101, "Input",ExpressionUUID->"9610bf37-6df6-4b49-821f-368c76d6e4af"],
Cell[CellGroupData[{
Cell[357971, 8080, 273, 7, 31, "Input",ExpressionUUID->"41f9fb3c-a859-4e59-b6e6-0dabe2e9b90b"],
Cell[358247, 8089, 442, 12, 40, "Output",ExpressionUUID->"9eeb385e-ec7d-4c80-a87d-d6037c04f380"]
}, Open  ]],
Cell[358704, 8104, 918, 22, 101, "Input",ExpressionUUID->"544437ea-45d5-465a-912e-f424e6909e2d"],
Cell[CellGroupData[{
Cell[359647, 8130, 1534, 35, 80, "Input",ExpressionUUID->"c7b347b2-2166-4dde-8443-ff1b31b25565"],
Cell[361184, 8167, 680, 10, 35, "Output",ExpressionUUID->"8b8055aa-ce6b-4b6e-b4c4-f4f4c1bd10b8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[361901, 8182, 160, 3, 31, "Input",ExpressionUUID->"a094da19-64e0-4a4b-b143-58db11623ee2"],
Cell[362064, 8187, 8939, 230, 123, "Output",ExpressionUUID->"f34039bc-2df7-4c3c-9ccf-869788d2bf6a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[371040, 8422, 1079, 32, 78, "Input",ExpressionUUID->"6a693279-b72a-4103-a7ea-c3eacce011b0"],
Cell[372122, 8456, 1741, 40, 161, "Output",ExpressionUUID->"6fdee925-4801-4095-a078-30e21d45f3f6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[373900, 8501, 1077, 31, 78, "Input",ExpressionUUID->"90874d2e-772e-4e4c-8c97-c2af60390a5f"],
Cell[374980, 8534, 2114, 46, 161, "Output",ExpressionUUID->"828dc4db-dad5-4326-8a96-e0859d084384"]
}, Open  ]],
Cell[CellGroupData[{
Cell[377131, 8585, 2652, 74, 92, "Input",ExpressionUUID->"dcbfa9d3-10a6-4728-a8ed-1a1872ca7152"],
Cell[379786, 8661, 751, 18, 35, "Output",ExpressionUUID->"ac0e9012-62c7-4c47-8489-c544e3eeafe8"],
Cell[380540, 8681, 754, 18, 35, "Output",ExpressionUUID->"780e21d5-487a-4ec4-90de-b8c3d68aaa54"]
}, Open  ]],
Cell[381309, 8702, 2647, 84, 124, "Input",ExpressionUUID->"ead999cd-31e6-46a3-a0df-2fd080428ee8"],
Cell[CellGroupData[{
Cell[383981, 8790, 3671, 98, 103, "Input",ExpressionUUID->"74931777-9971-4644-a1dd-9fee5ca27882"],
Cell[387655, 8890, 18191, 370, 450, "Output",ExpressionUUID->"d7620329-07f6-4e9d-993e-f5ee6325502d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[405883, 9265, 174, 3, 31, "Input",ExpressionUUID->"a51775de-b4a9-4d85-8d62-2026fa26d51f"],
Cell[406060, 9270, 174, 3, 37, "Output",ExpressionUUID->"c3308e71-4a01-4e4f-a0fb-b2c1dad24989"]
}, Open  ]],
Cell[CellGroupData[{
Cell[406271, 9278, 2369, 71, 92, "Input",ExpressionUUID->"a3dd51b2-aa73-4175-9d01-6f5826022925"],
Cell[408643, 9351, 822, 19, 35, "Output",ExpressionUUID->"0b940921-a7e0-432b-abe5-4d621eb30de8"],
Cell[409468, 9372, 824, 19, 35, "Output",ExpressionUUID->"a62d98c6-1161-4a5b-b5b7-892e37194c4f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[410329, 9396, 3193, 92, 103, "Input",ExpressionUUID->"905057c3-7a98-4964-84a5-86ce5bb42efd"],
Cell[413525, 9490, 17610, 363, 452, "Output",ExpressionUUID->"f1d34e3e-d142-478c-b738-46cc10c22697"]
}, Open  ]],
Cell[431150, 9856, 3149, 87, 101, "Input",ExpressionUUID->"ceb1f41e-c136-47c9-a155-cf910dbb4be1"],
Cell[CellGroupData[{
Cell[434324, 9947, 857, 22, 64, "Input",ExpressionUUID->"5702821b-d8ba-4524-9fad-d1bd794044de"],
Cell[435184, 9971, 429, 9, 40, "Output",ExpressionUUID->"a163c700-d580-4446-a810-04d718095d52"]
}, Open  ]],
Cell[CellGroupData[{
Cell[435650, 9985, 227, 5, 58, "Input",ExpressionUUID->"dbf6a4c4-d867-4ae6-9c19-d120efb4e869"],
Cell[435880, 9992, 151, 3, 37, "Output",ExpressionUUID->"27f45477-a770-486f-84bc-55a6bdbf79dc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[436068, 10000, 797, 22, 107, "Input",ExpressionUUID->"adb70f0f-4ad9-4af9-a5dd-8a60ea737b4e"],
Cell[436868, 10024, 241, 3, 37, "Output",ExpressionUUID->"4127f848-d914-48dc-9d75-2d0b8ebb3108"]
}, Open  ]],
Cell[CellGroupData[{
Cell[437146, 10032, 252, 4, 31, "Input",ExpressionUUID->"29a71f26-feeb-44f6-85f1-0e608d5204f2"],
Cell[437401, 10038, 218, 3, 35, "Output",ExpressionUUID->"7d62c0ff-ba22-4106-a9b2-d4f27e378045"]
}, Open  ]]
}
]
*)