testsforana.nb

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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    282160,       6291]
NotebookOptionsPosition[    277336,       6205]
NotebookOutlinePosition[    277853,       6224]
CellTagsIndexPosition[    277810,       6221]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"inverseb", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"Normal", "[", 
      RowBox[{"InverseSeries", "[", 
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{"BesselJ", "[", 
          RowBox[{"1", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "0", ",", "20"}], "}"}]}], "]"}], "]"}], "]"}], 
     ")"}], "/.", 
    RowBox[{"y", "\[Rule]", "x"}]}], "//", "N"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"sim", "[", 
    RowBox[{"dd_", ",", " ", "scale_", ",", " ", "exp_"}], "]"}], ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"d", ",", " ", "sc", ",", " ", "expp"}], "}"}], ",", "  ", 
     RowBox[{
      RowBox[{"d", "=", "dd"}], ";", " ", 
      RowBox[{"sc", " ", "=", "scale"}], ";", " ", 
      RowBox[{"expp", "=", "exp"}], ";", " ", "\[IndentingNewLine]", 
      RowBox[{"\[Phi]", " ", "=", " ", 
       RowBox[{"d", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"amplitude", "[", "t_", "]"}], ":=", 
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", "tt", "}"}], ",", "  ", 
         RowBox[{
          RowBox[{"tt", "=", "t"}], ";", "\[IndentingNewLine]", 
          RowBox[{"ret", "=", "0"}], ";", "\[IndentingNewLine]", 
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"m", "=", "0"}], ",", " ", 
            RowBox[{"m", "\[LessEqual]", " ", 
             RowBox[{
              RowBox[{"Length", "[", "d", "]"}], "-", "2"}]}], ",", " ", 
            RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"m", "\[Equal]", "0"}], ",", " ", 
               RowBox[{"scalar", "=", 
                RowBox[{"a", "/", "2"}]}], ",", 
               RowBox[{"scalar", "=", "a"}]}], "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"ret", "+=", 
              RowBox[{
               RowBox[{"inverseb", "[", 
                RowBox[{"scalar", "*", 
                 RowBox[{"d", "[", 
                  RowBox[{"[", 
                   RowBox[{"m", "+", "2"}], "]"}], "]"}]}], "]"}], "*", 
               RowBox[{"Cos", "[", 
                RowBox[{
                 RowBox[{"m", "*", "\[Phi]"}], " ", "+", " ", 
                 RowBox[{"m", "*", "\[Omega]", "*", "tt"}]}], "]"}]}]}]}]}], 
           "]"}], ";", "\[IndentingNewLine]", "ret"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Omega]", " ", "=", " ", 
       RowBox[{"2", "*", "\[Pi]", "*", "180"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"U", " ", "=", " ", 
       RowBox[{"2", "\[Pi]", "*", "1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"a", " ", "=", " ", ".1"}], ";", "\[IndentingNewLine]", 
      RowBox[{"end", " ", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Pi]", "/", 
          RowBox[{"(", 
           RowBox[{"a", "*", "U", "*", "2"}], ")"}]}], ")"}], "*", "sc"}]}], 
      ";", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"twice", " ", "for", " ", "no", " ", "precomp"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"up", "=", 
       RowBox[{"1", "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"down", "=", 
       RowBox[{"1", "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"h", "=", "0"}], ";", " ", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", "0"}], ",", " ", 
        RowBox[{"i", "\[LessEqual]", 
         RowBox[{
          RowBox[{"Length", "[", "d", "]"}], "-", "2"}]}], ",", " ", 
        RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{"h", " ", "+=", " ", 
         RowBox[{"U", "*", 
          RowBox[{"Cos", "[", 
           RowBox[{
            RowBox[{"i", "*", "\[Omega]", "*", "x"}], "-", 
            RowBox[{"\[Pi]", "/", "2"}], " ", "+", " ", 
            RowBox[{"amplitude", "[", "x", "]"}]}], "]"}]}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"s", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"\[ImaginaryI]", "*", 
             RowBox[{
              RowBox[{"y", "'"}], "[", "x", "]"}]}], "\[Equal]", 
            RowBox[{"h", "*", 
             RowBox[{"y", "[", "x", "]"}]}]}], " ", ",", 
           RowBox[{
            RowBox[{"y", "[", "0", "]"}], "\[Equal]", "up"}]}], "}"}], ",", 
         "y", ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "end"}], "}"}], ",", " ", 
         RowBox[{"MaxSteps", "\[Rule]", "Infinity"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"up", " ", "=", " ", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"y", "[", "end", "]"}], "/.", "s"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"s", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"\[ImaginaryI]", "*", 
             RowBox[{
              RowBox[{"y", "'"}], "[", "x", "]"}]}], "\[Equal]", 
            RowBox[{
             RowBox[{"-", "h"}], "*", 
             RowBox[{"y", "[", "x", "]"}]}]}], " ", ",", 
           RowBox[{
            RowBox[{"y", "[", "0", "]"}], "\[Equal]", "down"}]}], "}"}], ",", 
         "y", ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "end"}], "}"}], ",", " ", 
         RowBox[{"MaxSteps", "\[Rule]", "Infinity"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"down", " ", "=", " ", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"y", "[", "end", "]"}], "/.", "s"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"expp", "\[Equal]", "1"}], ",", 
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"up", "*", 
           RowBox[{"Conjugate", "[", "down", "]"}]}], " ", "+", " ", 
          RowBox[{"down", "*", 
           RowBox[{"Conjugate", "[", "up", "]"}]}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Re", "[", "up", "]"}], ",", " ", 
            RowBox[{"Im", "[", "up", "]"}]}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Re", "[", "down", "]"}], ",", " ", 
            RowBox[{"Im", "[", "down", "]"}]}], "}"}]}], "}"}]}], "]"}]}]}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.854726685474325*^9, 3.8547268427368402`*^9}, 
   3.854726920816494*^9, {3.8547269806782217`*^9, 3.854727007550851*^9}, {
   3.85472704428695*^9, 3.8547270709248533`*^9}, {3.854727135590666*^9, 
   3.854727202045889*^9}, {3.854727266605085*^9, 3.854727298517519*^9}, {
   3.854727342205227*^9, 3.8547273776282473`*^9}, {3.85472742009232*^9, 
   3.854727420441288*^9}, {3.8547275089951982`*^9, 3.854727509552932*^9}, {
   3.8547275931600018`*^9, 3.854727598545957*^9}, {3.854727711569309*^9, 
   3.854727729417101*^9}, {3.854727874733362*^9, 3.8547279148081017`*^9}, {
   3.854728913274642*^9, 3.854728913467147*^9}, 3.854728964612626*^9, {
   3.854729414593214*^9, 3.854729474481645*^9}, {3.854803988414846*^9, 
   3.854804022046221*^9}, {3.854804261216023*^9, 3.854804261391405*^9}, {
   3.854804522374218*^9, 3.8548045229335823`*^9}, {3.854804575750947*^9, 
   3.8548045760141363`*^9}, {3.854804652852908*^9, 3.854804653843769*^9}, {
   3.854804777320953*^9, 3.854804777497737*^9}, {3.85480673943437*^9, 
   3.854806742224348*^9}, {3.85480691746152*^9, 3.8548069319876213`*^9}, {
   3.854807166306096*^9, 3.854807168655656*^9}, {3.854807292024166*^9, 
   3.8548072972698936`*^9}, {3.854807601749075*^9, 3.8548076094666843`*^9}, {
   3.854809648388177*^9, 3.854809660084676*^9}, 3.854809714780335*^9, {
   3.8548097470112047`*^9, 3.8548097471462793`*^9}, {3.854809917457869*^9, 
   3.854809917712688*^9}, {3.854831571662445*^9, 3.854831628158267*^9}, {
   3.854831845841937*^9, 3.854831896515194*^9}, {3.8548319609946833`*^9, 
   3.854832001647698*^9}, {3.854832058240713*^9, 3.854832061391885*^9}, {
   3.854832109174555*^9, 3.854832146422454*^9}, {3.854832219613805*^9, 
   3.854832219845811*^9}, {3.854833146293807*^9, 3.8548332284361067`*^9}, {
   3.8550055392778673`*^9, 3.855005555332725*^9}, {3.855005604860703*^9, 
   3.8550056951876297`*^9}, {3.8550057778432837`*^9, 
   3.8550058407621927`*^9}, {3.855006008562463*^9, 3.855006037183709*^9}, {
   3.8550060687443857`*^9, 3.8550060733772783`*^9}, {3.855006125395146*^9, 
   3.855006152991062*^9}, {3.855006375996544*^9, 3.855006378948254*^9}, {
   3.855006453335641*^9, 3.855006453645705*^9}, {3.855006532677004*^9, 
   3.855006589931612*^9}, {3.8550066491304827`*^9, 3.8550066536178913`*^9}, 
   3.855007020400098*^9, {3.855007119955744*^9, 3.855007126813039*^9}, {
   3.855007177854444*^9, 3.8550071780844088`*^9}, {3.855007217580364*^9, 
   3.855007315019431*^9}, {3.855007356535795*^9, 3.8550073621707973`*^9}, {
   3.855007470838356*^9, 3.855007595184825*^9}, 3.8550080628463907`*^9, {
   3.855008267611968*^9, 3.8550082972761583`*^9}, {3.855008427345882*^9, 
   3.85500843242249*^9}, {3.855009222895382*^9, 3.855009238361269*^9}, {
   3.855009524768462*^9, 3.855009524872431*^9}, {3.855009681335391*^9, 
   3.8550096818688097`*^9}, {3.855009721573735*^9, 3.855009746708899*^9}, {
   3.8550098034539337`*^9, 3.85500982769139*^9}, {3.855009891029913*^9, 
   3.855009961698062*^9}, 3.855010280410454*^9, {3.855010373598496*^9, 
   3.855010375141943*^9}, {3.85501046280546*^9, 3.855010462870451*^9}, {
   3.855010508741047*^9, 3.8550105099567823`*^9}, {3.855010544020673*^9, 
   3.855010544140051*^9}, {3.8550106184693823`*^9, 3.855010618562858*^9}, {
   3.855010720684723*^9, 3.855010720898234*^9}, {3.8550107621945477`*^9, 
   3.855010762260655*^9}, {3.855013124554758*^9, 3.855013157891918*^9}, {
   3.8550515019765787`*^9, 3.855051502240869*^9}, 3.855052794047555*^9, 
   3.85505314212113*^9, 3.855053737046595*^9, 3.855053794222085*^9, 
   3.8550542066976023`*^9},
 CellLabel->
  "In[1254]:=",ExpressionUUID->"26f73fc6-fd0f-442c-9316-2b8884e751bc"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"s", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
    "\"\<~/repos/single_site_addressability/final_notebooks/z11.csv\>\"", 
     ",", "\"\<String\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"data11", "=", 
   RowBox[{"ImportString", "[", 
    RowBox[{
     RowBox[{"StringReplace", "[", 
      RowBox[{"s", ",", 
       RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "]"}], ",", 
     "\"\<Data\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"DiscretePlot", "[", 
  RowBox[{
   RowBox[{"sim", "[", 
    RowBox[{
     RowBox[{"data11", "[", 
      RowBox[{"[", "32", "]"}], "]"}], ",", " ", "sc", ",", " ", "1"}], "]"}],
    ",", " ", 
   RowBox[{"{", 
    RowBox[{"sc", ",", " ", "0", " ", ",", "1", ",", " ", ".01"}], "}"}], ",",
    " ", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Precompensation Z11\>\""}], ",", " ", 
   
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<\[Pi]/(UA)\>\"", ",", " ", "\"\<<\[Sigma]x>\>\""}], 
     "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.855005569526375*^9, {3.8550076078056803`*^9, 3.855007607930423*^9}, {
   3.855015109819059*^9, 3.8550151291556683`*^9}, {3.8550514240290527`*^9, 
   3.855051477580069*^9}, {3.855051513077976*^9, 3.85505154139746*^9}, {
   3.855051812338017*^9, 3.855051812448888*^9}, {3.855052688761673*^9, 
   3.855052692448311*^9}, {3.8550527970170317`*^9, 3.855052824178547*^9}, 
   3.855053145025724*^9, 3.855054177971575*^9},
 CellLabel->
  "In[1242]:=",ExpressionUUID->"d6261b7f-ed67-4281-a4d7-5603231a13e5"],

Cell[BoxData[
 GraphicsBox[{{
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004766666666666667], 
     AbsoluteThickness[1.6], 
     TagBox[{
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.004766666666666667], AbsoluteThickness[1.6], Opacity[0.2], 
        LineBox[{{{0.51, -0.015971789785245882`}, {0.51, 0}}, {{
           0.53, -0.025789390057036066`}, {0.53, 0}}, {{
           0.55, -0.02448105614612084}, {0.55, 0}}, {{
           0.56, -0.13642688562224248`}, {0.56, 0}}, {{
           0.5700000000000001, -0.03169043813321576}, {
           0.5700000000000001, 0}}, {{0.58, -0.24622484975550596`}, {
           0.58, 0}}, {{0.59, -0.0637071600525348}, {0.59, 0}}, {{
           0.6, -0.3090201203135302}, {0.6, 0}}, {{
           0.61, -0.13338649082376752`}, {0.61, 0}}, {{
           0.62, -0.33141529363488986`}, {0.62, 0}}, {{
           0.63, -0.2431241189214594}, {0.63, 0}}, {{
           0.64, -0.33289197403071524`}, {0.64, 0}}, {{
           0.65, -0.37380925967390044`}, {0.65, 0}}, {{
           0.66, -0.3335844281161463}, {0.66, 0}}, {{
           0.67, -0.4900257386701684}, {0.67, 0}}, {{
           0.68, -0.35026383714460524`}, {0.68, 0}}, {{
           0.6900000000000001, -0.566032166438301}, {
           0.6900000000000001, 0}}, {{
           0.7000000000000001, -0.3964012000311905}, {
           0.7000000000000001, 0}}, {{0.71, -0.6006324089059933}, {
           0.71, 0}}, {{0.72, -0.4786116811672572}, {0.72, 0}}, {{
           0.73, -0.6084544900933782}, {0.73, 0}}, {{
           0.74, -0.5868686824353085}, {0.74, 0}}, {{
           0.75, -0.6074153695458442}, {0.75, 0}}, {{
           0.76, -0.69266181762909}, {0.76, 0}}, {{
           0.77, -0.613128801696841}, {0.77, 0}}, {{
           0.78, -0.76888956850671}, {0.78, 0}}, {{
           0.79, -0.6381320879404395}, {0.79, 0}}, {{
           0.8, -0.8090193692314703}, {0.8, 0}}, {{
           0.81, -0.6904454061577958}, {0.81, 0}}, {{
           0.8200000000000001, -0.822687580582008}, {
           0.8200000000000001, 0}}, {{
           0.8300000000000001, -0.7668408942797714}, {
           0.8300000000000001, 0}}, {{0.84, -0.8235765894031306}, {
           0.84, 0}}, {{0.85, -0.8475925307044382}, {0.85, 0}}, {{
           0.86, -0.8239929413854853}, {0.86, 0}}, {{
           0.87, -0.9088164998054374}, {0.87, 0}}, {{
           0.88, -0.8339194866313814}, {0.88, 0}}, {{
           0.89, -0.9424900451982147}, {0.89, 0}}, {{
           0.9, -0.860328024546954}, {0.9, 0}}, {{
           0.91, -0.9558710885839994}, {0.91, 0}}, {{
           0.92, -0.9032963529133944}, {0.92, 0}}, {{
           0.93, -0.9587098756980481}, {0.93, 0}}, {{
           0.9400000000000001, -0.9507060293568073}, {
           0.9400000000000001, 0}}, {{
           0.9500000000000001, -0.9583368695677724}, {
           0.9500000000000001, 0}}, {{0.96, -0.9843226097096177}, {
           0.96, 0}}, {{0.97, -0.9603720195371669}, {0.97, 0}}, {{
           0.98, -0.9978636203331598}, {0.98, 0}}, {{
           0.99, -0.9688114160801666}, {0.99, 0}}, {{
           1., -0.9999996856291405}, {1., 0}}},
         VertexColors->None]}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.004766666666666667], AbsoluteThickness[1.6], Opacity[0.2], 
        LineBox[{{{0., 0.9999999999999998}, {0., 0}}, {{0.01, 
           0.9837760778908982}, {0.01, 0}}, {{0.02, 0.9997205612856085}, {
           0.02, 0}}, {{0.03, 0.9976494640310881}, {0.03, 0}}, {{0.04, 
           0.9996822876516194}, {0.04, 0}}, {{0.05, 0.9976237429915026}, {
           0.05, 0}}, {{0.06, 0.9996634284809218}, {0.06, 0}}, {{0.07, 
           0.9804703896416161}, {0.07, 0}}, {{0.08, 0.9990455997868445}, {
           0.08, 0}}, {{0.09, 0.9589493022214793}, {0.09, 0}}, {{0.1, 
           0.9956383574352398}, {0.1, 0}}, {{0.11, 0.9460001498124802}, {
           0.11, 0}}, {{0.12, 0.9829525371151546}, {0.12, 0}}, {{0.13, 
           0.9427713936376925}, {0.13, 0}}, {{0.14, 0.9514066083488186}, {
           0.14, 0}}, {{0.15, 0.9432069604467614}, {0.15, 0}}, {{0.16, 
           0.9000068239481923}, {0.16, 0}}, {{0.17, 0.9407865031248124}, {
           0.17, 0}}, {{0.18, 0.8456893899856673}, {0.18, 0}}, {{0.19, 
           0.9294386089564837}, {0.19, 0}}, {{0.2, 0.8090160942361249}, {
           0.2, 0}}, {{0.21, 0.9013400625846313}, {0.21, 0}}, {{0.22, 
           0.7948956706886703}, {0.22, 0}}, {{0.23, 0.847391682058493}, {
           0.23, 0}}, {{0.24, 0.7939448030462961}, {0.24, 0}}, {{0.25, 
           0.7665979868643285}, {0.25, 0}}, {{0.26, 0.7934980487653001}, {
           0.26, 0}}, {{0.27, 0.6776186260249003}, {0.27, 0}}, {{0.28, 
           0.7825717539974831}, {0.28, 0}}, {{0.29, 0.6091228336132917}, {
           0.29, 0}}, {{0.3, 0.7506499774225323}, {0.3, 0}}, {{0.31, 
           0.5747895571169329}, {0.31, 0}}, {{0.32, 0.6871552054619696}, {
           0.32, 0}}, {{0.33, 0.566726489408295}, {0.33, 0}}, {{0.34, 
           0.5887024812679871}, {0.34, 0}}, {{0.35000000000000003`, 
           0.5678042448335954}, {0.35000000000000003`, 0}}, {{0.36, 
           0.47191870527987856`}, {0.36, 0}}, {{0.37, 0.5618526794692034}, {
           0.37, 0}}, {{0.38, 0.37048972784043765`}, {0.38, 0}}, {{0.39, 
           0.5350518529907825}, {0.39, 0}}, {{0.4, 0.3090147233379374}, {
           0.4, 0}}, {{0.41000000000000003`, 0.47462172575931755`}, {
           0.41000000000000003`, 0}}, {{0.42, 0.2864468124485596}, {
           0.42, 0}}, {{0.43, 0.3734582287079167}, {0.43, 0}}, {{0.44, 
           0.28494653280057125`}, {0.44, 0}}, {{0.45, 0.24275693418055017`}, {
           0.45, 0}}, {{0.46, 0.2842424362980446}, {0.46, 0}}, {{
           0.47000000000000003`, 0.11593885133986664`}, {
           0.47000000000000003`, 0}}, {{0.48, 0.26718116982242973`}, {
           0.48, 0}}, {{0.49, 0.026631497706052887`}, {0.49, 0}}, {{0.5, 
           0.21893793257276561`}, {0.5, 0}}, {{0.52, 0.12888702876432379`}, {
           0.52, 0}}, {{0.54, 0.0011333651327586347`}, {0.54, 0}}},
         VertexColors->None]}},
      Annotation[#, "Charting`Private`Tag$1577970#1"]& ]}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004766666666666667],
       AbsoluteThickness[1.6], {}, PointBox[CompressedData["
1:eJw1lQtQVGUYhldALBLNCxnERTEcECWUypwp3poREpkkUAQMGTCQNBsQLzkg
F+92k0uISY1S61iiXLQQDeFfQLkYF1nERaVldw8sZ3cP5zhOrEQisfv/fDM7
O2f//d/ve9/nmzmLtqZEJNnIZLKkyY/le6qeT1hKQsb88g+16Ufg6fb66IKM
qedCdJ/I+LdqXMJ196Om8OtncS7yp/w6Yer8PGIjM6qSJs+Lz1jqIiILakpO
CFP/L8f7F772Dpw8F8Itv1xBdUlwqm381P0/UHYoJN1vVIKDSp76nkM1ouzT
0q5ViEzvBsbTx0bX9Enwic1tGPG+CfdTfq/9EiQy/TrMrHfURu+RcH7ytkqu
QPAQb/DzFVm/emR1HAwSdokIsFYjXMJmb1H4iaz/Lbg5J7g+ahPQOOI92eE2
Ds0SQwUXkc3TjHnT5q7kZpsQYW3Ygujd8hfNtcNsvlYkdkVe38sZoE23CN7B
Hbudbs0qgc3bht7+0pdaUwzYZRkvtR2BE0t9etxMbP4ORKzKFJ8nG0Bp3MX8
+Oic0eM883MX6fGu0zclGrDW2qALKyZqP3CsGGT+uhDjE2zqdjDA0i02V4mG
qgBfKZNjfrtRXTPqvGE6D6sdVTc8Wm/OKUvUMf/3UHdcZVg2PggPyzjuPRjx
XH36nKeO5dGDQyrbogv3dUjeZqn7OMA1dOz21bF8VPCf9elhY4AaFrX55Spc
q0jZf3VMy/LqhfsLXt+6XFPBbJEb6UXN+rUve3loWX4PINmUVw42dSPQKvgQ
Xepj7QHxapbnQ4zLNTZekUpYxzv6CEJgeVStXsXy7UOdb39C3rtKtLdZqg/r
t55u+G1uJ8v7b8wKsvGfsUIJJ+uAaixbrlriW17L8lcjV35uZrZzF6xysf3I
KWw8GRL0I+OhgX/2wixv+zbmR4OPX/G6xG/OI5SPBr1SVUNctoL500D24PCl
E58VE8pLC9lY1jdl+RHMrxY5RfPUuXPOEMpPC7t900tT9tUT6l+HloL6C3+u
LiGUpw58a2Fd6JFOQuV0WBPzpMU1rJJQvhwatsg3PGvqJjQfDjMP8P91zK0n
FA8HcxGXyb/VQ2heAwje3zVc6d5JKP8BjNolLnZZ30NofgO4nBZ2OVNQEboP
g0gr+ygnLaaH0DwHYYxKMxbG9hO6H4O4khFve2PHfULz1UN9a0em5KojdF/0
6Lt4crE87gGheethTvbam/AOR+j+DGH7m8e4gp/VhOY/BPPtad/t3c8Ruk9D
yNjWeK+kWUcoDx7x/ts/eZLCEcqDxw//3HQLWapnPHhE1z9epzjLEcqDR75z
f2hdMc94GFCZMuPZ958PEMrDgFWKU0UHOAPjYUCJhjMvfFXPeBixsbhsaM8G
I8mz8jDCJzrIOPIVz3gYYS7+dV3tZiPjYUL17+a4dA8T42GC4yZh15I4I+Nh
whfRC6LsnYYZDwEhxyJMX1YYGQ8B85RuOo23yHgIUG7xlnccNzEew9i40Olp
VpHIeAyjKfMvRfuQwHgMQ/Z2WKSiTGQ8RDwJt3d8Y6fIeIh4au/rdLVUZDxE
xIQvX1SQLTEeEqrHnjnH1YiMhwRtnL4iW5QYDwnKloNtOTKJ8XiMqpWroybf
H+R/yp1IwQ==
       "]], {}},
     Annotation[#, "Charting`Private`Tag$1577970#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"\[Pi]/(UA)\"", TraditionalForm], 
    FormBox["\"<\[Sigma]x>\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{805.4545454545452, Automatic},
  Method->{
   "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], 
    "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05]},
  PlotLabel->FormBox["\"Precompensation Z11\"", TraditionalForm],
  PlotRange->{{0., 1.}, {-0.9999996856291405, 0.9999999999999998}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.854726911874076*^9, 3.8547269570734653`*^9, 3.854727013090458*^9, {
   3.8547270665242767`*^9, 3.854727073386166*^9}, 3.854727137607307*^9, 
   3.854727177206256*^9, 3.854727311546686*^9, 3.854727389677231*^9, 
   3.854727474372738*^9, {3.854727726569528*^9, 3.8547277321408463`*^9}, 
   3.854727886052175*^9, 3.854728916832048*^9, {3.8548039846054487`*^9, 
   3.854804007629418*^9}, {3.8548315668890543`*^9, 3.854831607607448*^9}, 
   3.854831902585539*^9, {3.854831964868677*^9, 3.8548319898401327`*^9}, 
   3.854832223910121*^9, 3.8548324873926697`*^9, {3.8548331969200697`*^9, 
   3.8548332301254587`*^9}, {3.8550055585567102`*^9, 3.855005584360783*^9}, 
   3.855005855235903*^9, {3.85500601614611*^9, 3.855006044280707*^9}, 
   3.855006081977311*^9, {3.855006131320994*^9, 3.855006159493642*^9}, 
   3.855006384316518*^9, 3.855006459936242*^9, {3.855006564917366*^9, 
   3.8550065837775717`*^9}, 3.855006624708355*^9, 3.855006695423843*^9, {
   3.855007235662623*^9, 3.855007322239468*^9}, 3.85500752690797*^9, 
   3.8550076172711477`*^9, 3.855008065609187*^9, 3.8550083028301477`*^9, 
   3.855009690247692*^9, 3.855009756479169*^9, {3.855009806303939*^9, 
   3.855009830813384*^9}, {3.8550098946951714`*^9, 3.855009969195504*^9}, 
   3.855010545876656*^9, 3.855010764773436*^9, {3.855013144413864*^9, 
   3.855013162967053*^9}, {3.8550151116657*^9, 3.855015130321623*^9}, {
   3.855051478255795*^9, 3.855051546517335*^9}, 3.855051813763671*^9, {
   3.8550526899212093`*^9, 3.85505270073403*^9}, 3.8550528049736767`*^9, 
   3.855052911819809*^9, {3.855053149074127*^9, 3.855053156098133*^9}, 
   3.8550541820944967`*^9},
 CellLabel->
  "Out[1244]=",ExpressionUUID->"8e6e973f-d2b5-4d63-968a-17e357f74365"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "Theory", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Omega]", " ", "=", " ", 
     RowBox[{"2", "*", "\[Pi]", "*", "180"}]}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"U", " ", "=", " ", 
     RowBox[{"2", "\[Pi]", "*", "1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a", " ", "=", " ", ".1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"t", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\[Pi]", "/", 
        RowBox[{"(", 
         RowBox[{"a", "*", "U", "*", "2"}], ")"}]}], ")"}], "*", "sc"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[CapitalTheta]", " ", "=", " ", 
     RowBox[{"a", "*", "2", "*", "U", "*", "t"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Phi]", "=", "\[Pi]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"correction", " ", "=", " ", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"4", "*", "U", "*", 
          RowBox[{"BesselJ", "[", 
           RowBox[{"n", ",", " ", 
            RowBox[{"inverseb", "[", "a", "]"}]}], "]"}], "*", 
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"1", "/", "2"}], "*", 
            RowBox[{"(", 
             RowBox[{"n", "+", "1"}], ")"}], "*", "t", "*", "\[Omega]"}], 
           "]"}], "*", 
          RowBox[{"Cos", "[", 
           RowBox[{
            RowBox[{"n", "*", "\[Phi]"}], " ", "+", " ", 
            RowBox[{
             RowBox[{"1", "/", "2"}], "*", 
             RowBox[{"(", 
              RowBox[{"\[Pi]", "-", 
               RowBox[{"2", "*", "t", "*", "\[Omega]"}]}], ")"}]}], "-", 
            RowBox[{"\[Pi]", "/", "2"}]}], "]"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"n", "+", "1"}], ")"}], "*", "\[Omega]"}], ")"}]}], ",", 
       " ", 
       RowBox[{"{", 
        RowBox[{"n", ",", "0", ",", " ", "100"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"correction", " ", "+=", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"4", "*", "U", "*", 
          RowBox[{"BesselJ", "[", 
           RowBox[{"n", ",", " ", 
            RowBox[{"inverseb", "[", "a", "]"}]}], "]"}], "*", 
          RowBox[{"Sin", "[", 
           RowBox[{
            RowBox[{"1", "/", "2"}], "*", 
            RowBox[{"(", 
             RowBox[{"n", "+", "1"}], ")"}], "*", "t", "*", "\[Omega]"}], 
           "]"}], "*", 
          RowBox[{"Cos", "[", 
           RowBox[{
            RowBox[{"n", "*", "\[Phi]"}], " ", "+", " ", 
            RowBox[{
             RowBox[{"1", "/", "2"}], "*", 
             RowBox[{"(", 
              RowBox[{"\[Pi]", "-", 
               RowBox[{"2", "*", "t", "*", "\[Omega]"}]}], ")"}]}], "-", 
            RowBox[{"\[Pi]", "/", "2"}]}], "]"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"n", "+", "1"}], ")"}], "*", "\[Omega]"}], ")"}]}], ",", 
       " ", 
       RowBox[{"{", 
        RowBox[{"n", ",", 
         RowBox[{"-", "100"}], ",", " ", 
         RowBox[{"-", "2"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"DiscretePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], "-", 
        RowBox[{
         RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}], "*", "correction"}]}], 
       ",", 
       RowBox[{"sim", "[", 
        RowBox[{
         RowBox[{"data11", "[", 
          RowBox[{"[", "32", "]"}], "]"}], ",", " ", "sc", ",", " ", "1"}], 
        "]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"sc", ",", " ", "0", ",", " ", "1", ",", " ", ".01"}], "}"}], 
     ",", "  ", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[Pi]/(UA)\>\"", ",", " ", 
          RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}], ",", " ", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<<\[Sigma]x>\>\"", ",", " ", 
          RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}]}], "}"}]}], ",", " ", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Theory\>\"", ",", " ", "24"}], "]"}], ",", " ", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Numerics\>\"", ",", " ", "24"}], "]"}]}], "}"}]}], ",", 
     " ", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"FontSize", "\[Rule]", "24"}], "}"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.855051891584139*^9, 3.8550519130553493`*^9}, {
   3.8550519538231*^9, 3.855052107341427*^9}, {3.85505216053889*^9, 
   3.855052501687931*^9}, {3.855052629958838*^9, 3.8550526814500933`*^9}, {
   3.8550527300986567`*^9, 3.855052739113133*^9}, {3.8550527865055237`*^9, 
   3.855052813777053*^9}, {3.855052921775978*^9, 3.855052925318337*^9}, {
   3.855053021888558*^9, 3.855053049221752*^9}, {3.855053120647045*^9, 
   3.8550531608680773`*^9}, {3.8550532124051113`*^9, 3.855053226067225*^9}, {
   3.855053259421039*^9, 3.8550532807883244`*^9}, {3.855053312500309*^9, 
   3.855053467553856*^9}, {3.8550535135228853`*^9, 3.855053541849743*^9}, {
   3.85505358851204*^9, 3.855053609904069*^9}, {3.8550536429228687`*^9, 
   3.8550536900399237`*^9}, 3.8550537209615393`*^9, {3.855053778440049*^9, 
   3.855053790842236*^9}, {3.855054185789241*^9, 3.855054203401593*^9}, 
   3.855054445069353*^9},
 CellLabel->
  "In[1256]:=",ExpressionUUID->"d9da8ba9-4286-4880-8887-c7b57daa8e4b"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{
        Directive[
         PointSize[0.004766666666666667], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        TagBox[{{{
            Directive[
             Opacity[0.2], 
             PointSize[0.004766666666666667], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[1.6]], 
            
            LineBox[{{{0.5, -8.643659443749371*^-16}, {0.5, 0}}, {{
               0.51, -0.053472738186311396`}, {0.51, 0}}, {{
               0.52, -0.06279051952931299}, {0.52, 0}}, {{
               0.53, -0.07213340276271185}, {0.53, 0}}, {{
               0.54, -0.12533323356430448`}, {0.54, 0}}, {{
               0.55, -0.17823558211107102`}, {0.55, 0}}, {{
               0.56, -0.18738131458572507`}, {0.56, 0}}, {{
               0.5700000000000001, -0.19660195685976073`}, {
               0.5700000000000001, 0}}, {{0.58, -0.24868988716485665`}, {
               0.58, 0}}, {{0.59, -0.30018754443316303`}, {0.59, 0}}, {{
               0.6, -0.30901699437494606`}, {0.6, 0}}, {{
               0.61, -0.3179699806528151}, {0.61, 0}}, {{
               0.62, -0.36812455268467914`}, {0.62, 0}}, {{
               0.63, -0.4174053698561971}, {0.63, 0}}, {{
               0.64, -0.4257792915650721}, {0.64, 0}}, {{
               0.65, -0.43432342790491496`}, {0.65, 0}}, {{
               0.66, -0.4817536741017158}, {0.66, 0}}, {{
               0.67, -0.5280404632507175}, {0.67, 0}}, {{
               0.68, -0.5358267949789969}, {0.68, 0}}, {{
               0.6900000000000001, -0.5438273352467149}, {
               0.6900000000000001, 0}}, {{
               0.7000000000000001, -0.5877852522924727}, {
               0.7000000000000001, 0}}, {{0.71, -0.6303480431036909}, {
               0.71, 0}}, {{0.72, -0.6374239897486885}, {0.72, 0}}, {{
               0.73, -0.6447547606449708}, {0.73, 0}}, {{
               0.74, -0.6845471059286898}, {0.74, 0}}, {{
               0.75, -0.7227146577652502}, {0.75, 0}}, {{
               0.76, -0.7289686274214107}, {0.76, 0}}, {{
               0.77, -0.7355140183100306}, {0.77, 0}}, {{
               0.78, -0.7705132427757896}, {0.78, 0}}, {{
               0.79, -0.8036836305450419}, {0.79, 0}}, {{
               0.8, -0.8090169943749471}, {0.8, 0}}, {{
               0.81, -0.8146737805315641}, {0.81, 0}}, {{
               0.8200000000000001, -0.8443279255020151}, {
               0.8200000000000001, 0}}, {{
               0.8300000000000001, -0.8719780323738086}, {
               0.8300000000000001, 0}}, {{0.84, -0.8763066800438614}, {
               0.84, 0}}, {{0.85, -0.8809856505715878}, {0.85, 0}}, {{
               0.86, -0.9048270524660214}, {0.86, 0}}, {{
               0.87, -0.9265208197376125}, {0.87, 0}}, {{
               0.88, -0.9297764858882517}, {0.88, 0}}, {{
               0.89, -0.9334038506267796}, {0.89, 0}}, {{
               0.9, -0.951056516295153}, {0.9, 0}}, {{
               0.91, -0.9664518202974444}, {0.91, 0}}, {{
               0.92, -0.9685831611286315}, {0.92, 0}}, {{
               0.93, -0.9711017143691538}, {0.93, 0}}, {{
               0.9400000000000001, -0.9822872507286883}, {
               0.9400000000000001, 0}}, {{
               0.9500000000000001, -0.9911412983208524}, {
               0.9500000000000001, 0}}, {{0.96, -0.9921147013144775}, {
               0.96, 0}}, {{0.97, -0.9934847239678813}, {0.97, 0}}, {{
               0.98, -0.9980267284282717}, {0.98, 0}}, {{
               0.99, -1.0001998859906283`}, {0.99, 0}}, {{1., -1.}, {1., 0}}},
              VertexColors -> None]}, {
            Directive[
             Opacity[0.2], 
             PointSize[0.004766666666666667], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[1.6]], 
            
            LineBox[{{{0., 1.}, {0., 0}}, {{0.01, 1.0001998859906283`}, {
               0.01, 0}}, {{0.02, 0.9980267284282716}, {0.02, 0}}, {{0.03, 
               0.9934847239678812}, {0.03, 0}}, {{0.04, 0.9921147013144779}, {
               0.04, 0}}, {{0.05, 0.9911412983208524}, {0.05, 0}}, {{0.06, 
               0.9822872507286887}, {0.06, 0}}, {{0.07, 0.9711017143691538}, {
               0.07, 0}}, {{0.08, 0.9685831611286311}, {0.08, 0}}, {{0.09, 
               0.9664518202974444}, {0.09, 0}}, {{0.1, 0.9510565162951535}, {
               0.1, 0}}, {{0.11, 0.9334038506267796}, {0.11, 0}}, {{0.12, 
               0.9297764858882516}, {0.12, 0}}, {{0.13, 0.9265208197376124}, {
               0.13, 0}}, {{0.14, 0.9048270524660195}, {0.14, 0}}, {{0.15, 
               0.880985650571588}, {0.15, 0}}, {{0.16, 0.8763066800438637}, {
               0.16, 0}}, {{0.17, 0.8719780323738086}, {0.17, 0}}, {{0.18, 
               0.8443279255020149}, {0.18, 0}}, {{0.19, 0.8146737805315641}, {
               0.19, 0}}, {{0.2, 0.8090169943749475}, {0.2, 0}}, {{0.21, 
               0.803683630545042}, {0.21, 0}}, {{0.22, 0.7705132427757895}, {
               0.22, 0}}, {{0.23, 0.7355140183100307}, {0.23, 0}}, {{0.24, 
               0.7289686274214119}, {0.24, 0}}, {{0.25, 0.7227146577652505}, {
               0.25, 0}}, {{0.26, 0.6845471059286884}, {0.26, 0}}, {{0.27, 
               0.6447547606449706}, {0.27, 0}}, {{0.28, 0.6374239897486895}, {
               0.28, 0}}, {{0.29, 0.630348043103691}, {0.29, 0}}, {{0.3, 
               0.5877852522924725}, {0.3, 0}}, {{0.31, 0.5438273352467147}, {
               0.31, 0}}, {{0.32, 0.5358267949789969}, {0.32, 0}}, {{0.33, 
               0.5280404632507173}, {0.33, 0}}, {{0.34, 
               0.48175367410171516`}, {0.34, 0}}, {{0.35000000000000003`, 
               0.43432342790491507`}, {0.35000000000000003`, 0}}, {{0.36, 
               0.4257792915650734}, {0.36, 0}}, {{0.37, 0.4174053698561971}, {
               0.37, 0}}, {{0.38, 0.36812455268467753`}, {0.38, 0}}, {{0.39, 
               0.3179699806528151}, {0.39, 0}}, {{0.4, 0.3090169943749476}, {
               0.4, 0}}, {{0.41000000000000003`, 0.300187544433163}, {
               0.41000000000000003`, 0}}, {{0.42, 0.2486898871648525}, {
               0.42, 0}}, {{0.43, 0.1966019568597607}, {0.43, 0}}, {{0.44, 
               0.18738131458572424`}, {0.44, 0}}, {{0.45, 
               0.178235582111071}, {0.45, 0}}, {{0.46, 
               0.12533323356430529`}, {0.46, 0}}, {{0.47000000000000003`, 
               0.07213340276271184}, {0.47000000000000003`, 0}}, {{0.48, 
               0.06279051952931461}, {0.48, 0}}, {{0.49, 
               0.05347273818631135}, {0.49, 0}}}, VertexColors -> None]}}}, 
         Annotation[#, "Charting`Private`Tag$1626410#1"]& ]}, {
        Directive[
         PointSize[0.004766666666666667], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        TagBox[{{{
            Directive[
             Opacity[0.2], 
             PointSize[0.004766666666666667], 
             RGBColor[0.880722, 0.611041, 0.142051], 
             AbsoluteThickness[1.6]], 
            LineBox[{{{0.5, -0.00001233491731605918}, {0.5, 0}}, {{
               0.51, -0.009355953513161819}, {0.51, 0}}, {{
               0.52, -0.06280360366986587}, {0.52, 0}}, {{
               0.53, -0.07212537313486733}, {0.53, 0}}, {{
               0.54, -0.1253467671724645}, {0.54, 0}}, {{
               0.55, -0.1346108030546158}, {0.55, 0}}, {{
               0.56, -0.1873953683218817}, {0.56, 0}}, {{
               0.5700000000000001, -0.19656429535309045`}, {
               0.5700000000000001, 0}}, {{0.58, -0.24870419637671104`}, {
               0.58, 0}}, {{0.59, -0.2577430279866538}, {0.59, 0}}, {{
               0.6, -0.3090311409349148}, {0.6, 0}}, {{
               0.61, -0.3179039020608507}, {0.61, 0}}, {{
               0.62, -0.3681393805371069}, {0.62, 0}}, {{
               0.63, -0.37680966432600127`}, {0.63, 0}}, {{
               0.64, -0.4257941879980769}, {0.64, 0}}, {{
               0.65, -0.4342294954361025}, {0.65, 0}}, {{
               0.66, -0.48176794328839706`}, {0.66, 0}}, {{
               0.67, -0.4899349255597919}, {0.67, 0}}, {{
               0.68, -0.5358416151868244}, {0.68, 0}}, {{
               0.6900000000000001, -0.5437062320126145}, {
               0.6900000000000001, 0}}, {{
               0.7000000000000001, -0.5878000135335371}, {
               0.7000000000000001, 0}}, {{0.71, -0.5953328489443155}, {
               0.71, 0}}, {{0.72, -0.6374378599548943}, {0.72, 0}}, {{
               0.73, -0.6446095526505584}, {0.73, 0}}, {{
               0.74, -0.6845610741663315}, {0.74, 0}}, {{
               0.75, -0.6913413634286869}, {0.75, 0}}, {{
               0.76, -0.7289822869326555}, {0.76, 0}}, {{
               0.77, -0.7353459837280325}, {0.77, 0}}, {{
               0.78, -0.7705259822078833}, {0.78, 0}}, {{
               0.79, -0.7764480436219774}, {0.79, 0}}, {{
               0.8, -0.8090292295832611}, {0.8, 0}}, {{
               0.81, -0.8144854352342505}, {0.81, 0}}, {{
               0.8200000000000001, -0.8443394201288776}, {
               0.8200000000000001, 0}}, {{
               0.8300000000000001, -0.8493087417384756}, {
               0.8300000000000001, 0}}, {{0.84, -0.8763173883764594}, {
               0.84, 0}}, {{0.85, -0.8807798190555032}, {0.85, 0}}, {{
               0.86, -0.9048367785978313}, {0.86, 0}}, {{
               0.87, -0.9087752771992814}, {0.87, 0}}, {{
               0.88, -0.9297850171199146}, {0.88, 0}}, {{
               0.89, -0.9331838535770536}, {0.89, 0}}, {{
               0.9, -0.9510640980655591}, {0.9, 0}}, {{
               0.91, -0.953909374226414}, {0.91, 0}}, {{
               0.92, -0.9685895003170827}, {0.92, 0}}, {{
               0.93, -0.9708705773722478}, {0.93, 0}}, {{
               0.9400000000000001, -0.9822921587311645}, {
               0.9400000000000001, 0}}, {{
               0.9500000000000001, -0.9839999153355707}, {
               0.9500000000000001, 0}}, {{0.96, -0.9921183302361481}, {
               0.96, 0}}, {{0.97, -0.9932457505073469}, {0.97, 0}}, {{
               0.98, -0.9980288824099234}, {0.98, 0}}, {{
               0.99, -0.9985717538506308}, {0.99, 0}}, {{
               1., -1.0000006224942408`}, {1., 0}}}, VertexColors -> None]}, {
           
            Directive[
             Opacity[0.2], 
             PointSize[0.004766666666666667], 
             RGBColor[0.880722, 0.611041, 0.142051], 
             AbsoluteThickness[1.6]], 
            
            LineBox[{{{0., 0.9999999999999998}, {0., 0}}, {{0.01, 
               0.9999563783064948}, {0.01, 0}}, {{0.02, 0.9980266940262669}, {
               0.02, 0}}, {{0.03, 0.9973964698771111}, {0.03, 0}}, {{0.04, 
               0.9921146446334873}, {0.04, 0}}, {{0.05, 0.990900267491747}, {
               0.05, 0}}, {{0.06, 0.9822869648888837}, {0.06, 0}}, {{0.07, 
               0.9804935039266394}, {0.07, 0}}, {{0.08, 0.9685826595476779}, {
               0.08, 0}}, {{0.09, 0.9662168261644782}, {0.09, 0}}, {{0.1, 
               0.9510559899153742}, {0.1, 0}}, {{0.11, 0.9481270265145975}, {
               0.11, 0}}, {{0.12, 0.929775383456198}, {0.12, 0}}, {{0.13, 
               0.9262956274671083}, {0.13, 0}}, {{0.14, 0.9048254904583493}, {
               0.14, 0}}, {{0.15, 0.9008079604027985}, {0.15, 0}}, {{0.16, 
               0.8763050895027805}, {0.16, 0}}, {{0.17, 0.8717653112436973}, {
               0.17, 0}}, {{0.18, 0.8443255418810113}, {0.18, 0}}, {{0.19, 
               0.8392828169132638}, {0.19, 0}}, {{0.2, 0.8090139376467927}, {
               0.2, 0}}, {{0.21, 0.8034870033467448}, {0.21, 0}}, {{0.22, 
               0.7705099938412776}, {0.22, 0}}, {{0.23, 0.7645204636755383}, {
               0.23, 0}}, {{0.24, 0.7289646021662604}, {0.24, 0}}, {{0.25, 
               0.7225370720145795}, {0.25, 0}}, {{0.26, 0.684542446501161}, {
               0.26, 0}}, {{0.27, 0.6777016341016154}, {0.27, 0}}, {{0.28, 
               0.6374185628603861}, {0.28, 0}}, {{0.29, 0.6301921056654287}, {
               0.29, 0}}, {{0.3, 0.5877791892864117}, {0.3, 0}}, {{0.31, 
               0.5801946480965181}, {0.31, 0}}, {{0.32, 0.5358204048248375}, {
               0.32, 0}}, {{0.33, 0.5279079145741182}, {0.33, 0}}, {{0.34, 
               0.48174611345614177`}, {0.34, 0}}, {{0.35000000000000003`, 
               0.4735382323673142}, {0.35000000000000003`, 0}}, {{0.36, 
               0.425771036446778}, {0.36, 0}}, {{0.37, 0.4172984716834306}, {
               0.37, 0}}, {{0.38, 0.3681162795610634}, {0.38, 0}}, {{0.39, 
               0.35941246962177387`}, {0.39, 0}}, {{0.4, 
               0.3090073398698228}, {0.4, 0}}, {{0.41000000000000003`, 
               0.3001086561577901}, {0.41000000000000003`, 0}}, {{0.42, 
               0.2486794052954563}, {0.42, 0}}, {{0.43, 
               0.23961914255758676`}, {0.43, 0}}, {{0.44, 
               0.18737098998689083`}, {0.44, 0}}, {{0.45, 
               0.1781843491626805}, {0.45, 0}}, {{0.46, 
               0.12532168281005512`}, {0.46, 0}}, {{0.47000000000000003`, 
               0.11604754507685033`}, {0.47000000000000003`, 0}}, {{0.48, 
               0.06277814939575083}, {0.48, 0}}, {{0.49, 
               0.05345097263478604}, {0.49, 0}}}, VertexColors -> None]}}}, 
         Annotation[#, "Charting`Private`Tag$1626410#2"]& ]}}, {
       TagBox[{{
          Directive[
           PointSize[0.004766666666666667], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[1.6]], {{}, Null, 
           PointBox[CompressedData["
1:eJxVlXtMU2cYxrvVRe1cYwMmGoHpJonTqTEm+o/z2cKYJEtcFNylFK9UNG4o
WxyjwqIJLCGaYHRGdzNzOgPZrLCooDK/KloEkbZArVzsWmg5Lb2c/QGYqINx
zvueJfuS5qQ9Pe/l+b3vcxbu2LfJ+qJOp7NOfZTr/8/fOJhqXx+0VaLTXn7a
89/3bzGRFRJeWUZTRlVsY9MZlB9zl/3cLvP989D3HsorEjK+/045dYjOdYx+
1qj9347JmZm/h4tlxDcqvzRg/PZMKStFe/4yAhmz03+ZSMLgO7f/LUMjctqX
bHkzkeR41zCZ926KcV8Sb1hqbo8tbsay4FFHiT/B8W9i2Cz/dN2RwPmpp33n
HLh/y/aP8UKC893CkTkDAx+NxrFKPS04uNvumbEyzvnvwOw4vOGyIY6WscVT
Ge7i4vTysnVSjOtpReXywskb02LYpCa8B/2H1aLTNML1taF29NQPpUNRBG1K
wHZk1tffcDZGud4OxPfm73y5NoISpbz9D5Be2dGQVy1x/Z2Y19Slv5orgTi4
8cXC4grbAon7ccO0wLTZJYWRoybw4MvXCpp7zoa4Pw+uv3BlwmkNQclmqenC
tvdba11LQ9xvNz42H5j2umsQaju+bhQ6S07OKApy/z3IXTp37deZQbyqlJPh
xYFZqelXwgHWw4sP6oTlFa8fRbuU8xCzcali9H4/6+ND3eHMtifohxIt1e7D
2DvL9Hev9rFej2Cqq80x1/gwroQbe4Qmv67lzCc9rF8vcqMr1sjObqxTA/ah
8PNDnuzV3axnH7Kmpz01eV1Qy6vqR/aeKvH2kjbWdwB7bXpr2vNWPOhQzgDG
s1OKP3U7We/HeMlytiBmcGCOWqAfly64L24u/YP196PrRGC+IaUeajjLX3j+
Z1l+67bfmEcAR4yB7VsWuZqpnwD0N9X7gvgEUEDPC+ovgHqKL4hXEJF8Nb+g
foN4QvUJ4hdENdUvqP9BvEf9CeI5iF7qX1C4QVhJH0F8h7CG9BOkz5CmryA8
Q1hO+gvSK6TxEcQ/hOPET5B+IRiJr6B5CCOf+AvSM4xSmg9B8xHW5keQvsPY
RfMlaF6GYab5E6T3MLbSfAqaHwkNNL+C9JfwFc23oHmSkEHzL4jH1B7Rfgji
EYGR9od5RJBG+8U8IkjQ/jGPKBbRfjKPKH6l/WUeUW2/mccIvqH9F8dUHiOa
PzCPEWSTfzCPGGzkL8wjhh/Jf5hHDB3kT8wjDon8i3nENX9jHnE8Jf9jHgnN
H5lHAiHyT+aR0PyVeSTxjPyXeSQ1f2YeSejIv5mHjAryd+YhY5L8n3nI2vtB
aO8Nvop/ARROQKU=
            "]], {}}}}, 
        Annotation[#, "Charting`Private`Tag$1626410#1"]& ], 
       TagBox[{{
          Directive[
           PointSize[0.004766666666666667], 
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[1.6]], {{}, Null, 
           PointBox[CompressedData["
1:eJw9kgtMU2cYhpnpzFYZKEMnGNTFqAWv0VmiC7yobOqCImDQTYhOgjAlgNMh
4IbGC0PHRMTNuaGiNCBhCiooQ+Wvci1Dbm0tAlZ6o7fTHjYQr8HR/j/7kpOT
c/nf73vf5/t4R1J47DgXF5fY0ctxH6uRt47iccDz2hpN+lHkTm06Kvn/+Qzc
P0q4quR5VE0/Zg2ruoC/8+Jd/rSMfZdgsNRDHEd4/H7OUSWQLQ5N31c59v81
DBwp8zAk8uDCHG+u40R9iXnp9rHzFXiztdH90ogdQlVhcoDwNkInF2fDamd6
f+F1YOkL1yQ7fKNyHjwT3cWBsl0/uG22M/0aRMBjQ5XUBsnoaVWhFI/rQqrF
Ehvrdx+pO1b/ummIw1Jn1cL0ToD/bjnH+tfBfe/ZF+VCDrXPRKMd6lGWeSP6
kMHK5mnEstbrb28JrAh3NmxC5NnNhXE9FjafDLqkzCV7dGZo0h2CzUjbFLzd
75aZzdsCv9VeeYIrJuxxjJf8EIcz8i4MppjY/K2Y+qTx9NUIIyiNdsyLb504
foaR+WnH8rUnc+qNBqx1NujA7cXRkXfKDMxfB7aL5p2/E6uHo1tUTidevTh0
OctPz/zKMXN2/PopbVo47ajkeJTcGz10Ssv8K3B1UrwyebYGMxzjTFfCpzh7
1kV9H8tDiVmf5hbZFGrE7XTUI9RM2bp+7wY1y0eFBeo1vkr0wKHmeU2FjM9m
FQkqu1leXbDc/+4X/xwVhh1yz7ogXHZTdN5FxfJ7jPel96oaGuQIdAp2wz2x
l3/1iZzl2Y35MftdqxVtcI53rAeu+hg3VWkry7cXmwKnyepfN+Jhi6N68e17
ois1rQ0s7ycIdMtLPSGUYrJzQDWCerTVX1TeY/mr4ao7eXqFRzmcclFPUVDX
Nt4WXcp49MHlUNbMVWpzDfXTh4Llhk6x7xFC+fShLkh50fBhOaH++iBKlQ+3
ptwglJcGd2cq9VETpIT61WBLfNwq24r7hPLTYEXhwnWn3zQS6l+LTtEHnQJf
GaE8tTiTbBp3QtlGqJwWkV+P5PdmtBPKV4eiioFsv0Y5ofnoMLej+I/jWxSE
4tFh281/0n7LURGalx6KpZ+vLfLpIpS/Hl2KScHioB5C89PDX55yeFdzD6H7
YMDPinnidUo1oXka0F2YL5i69Smh+2HA8LuXN56frSE0334UCST5wp0aQvel
H/v6Il+ubNMSmnc/xN+cTHvuqiN0f4yQXfKfrI/VE5q/Ec1bdoklBXpC98mI
6inLCjijgVAeJnz10zpu/4x+QnmYgCL/ks4II+NhQshua8jQj0bGwwTzZZn3
nCsmxsOMjbKQ3JIuE+NhRvbC8OBcnZnxMGNOU8KD1RMtjIcFnqXHvBUCKznl
5GEBRCTz+AIr42FBd8PB2mYhx3hY8W9gtejLRRzjYcWSlOOrEoY4xsOK4Yyn
ujJPG+PBYZrJ+3CL1MZ4cJh/LmuHpNfGeHAQcjde+iTZGQ8bhG0VgwmZdsbD
Bq/smPiyETvjYUNEy4b52ybxjIcdYbXTnvOJPONhh2nlUIzte57xsGPzhLqB
RMIzHjzKAyyhpU0848HDiPXB3TzPePCYa18kDRniGY8BHEz3Kh69k/8ABt5L
Hw==
            "]], {}}}}, 
        Annotation[#, "Charting`Private`Tag$1626410#2"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesLabel -> {
       FormBox[
        StyleBox["\"\[Pi]/(UA)\"", FontSize -> 24, StripOnInput -> False], 
        TraditionalForm], 
       FormBox[
        StyleBox["\"<\[Sigma]x>\"", FontSize -> 24, StripOnInput -> False], 
        TraditionalForm]}, AxesOrigin -> {0, 0}, 
     BaseStyle -> {FontSize -> 24}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], 
       "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
         Directive[
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.528488, 0.470624, 0.701351], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.772079, 0.431554, 0.102387], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.363898, 0.618501, 0.782349], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[1, 0.75, 0], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.647624, 0.37816, 0.614037], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.571589, 0.586483, 0.], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.915, 0.3325, 0.2125], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[
          0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
          AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
       "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> 
       Scaled[0.05]}, 
     PlotRange -> {{0., 1.}, {-1.0001998859906283`, 1.0001998859906283`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
       StyleBox["\"Theory\"", 24, StripOnInput -> False], 
       StyleBox["\"Numerics\"", 24, StripOnInput -> False]}, "PointLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004766666666666667`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004766666666666667`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"None", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"None", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"False", ",", "False"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.855052017868449*^9, 3.855052108188463*^9}, 
   3.8550524704523*^9, 3.85505250302277*^9, {3.855052637555161*^9, 
   3.855052682030348*^9}, 3.855052745619939*^9, {3.85505278725662*^9, 
   3.855052814312299*^9}, 3.8550529261852713`*^9, {3.855053026400927*^9, 
   3.8550530502016706`*^9}, 3.855053124810233*^9, 3.855053162998391*^9, {
   3.8550532185256853`*^9, 3.855053230827145*^9}, {3.855053275120284*^9, 
   3.8550533157116947`*^9}, 3.855053410153577*^9, 3.8550534734602947`*^9, 
   3.85505360765189*^9, {3.8550536889813643`*^9, 3.855053752063344*^9}, 
   3.8550538022235537`*^9, {3.855054192321024*^9, 3.855054219199374*^9}},
 CellLabel->
  "Out[1264]=",ExpressionUUID->"f2274b7b-d644-4515-82f0-b137369b1c31"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"sim", "[", 
      RowBox[{"dd_", ",", " ", "scale_", ",", " ", "exp_"}], "]"}], ":=", " ", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"d", ",", " ", "sc", ",", " ", "expp"}], "}"}], ",", "  ", 
       RowBox[{
        RowBox[{"d", "=", "dd"}], ";", " ", 
        RowBox[{"sc", " ", "=", "scale"}], ";", " ", 
        RowBox[{"expp", "=", "exp"}], ";", " ", "\[IndentingNewLine]", 
        RowBox[{"\[Phi]", " ", "=", " ", 
         RowBox[{"d", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"amplitude", "[", "t_", "]"}], ":=", 
         RowBox[{"Module", "[", 
          RowBox[{
           RowBox[{"{", "tt", "}"}], ",", "  ", 
           RowBox[{
            RowBox[{"tt", "=", "t"}], ";", "\[IndentingNewLine]", 
            RowBox[{"ret", "=", "0"}], ";", "\[IndentingNewLine]", 
            RowBox[{"For", "[", 
             RowBox[{
              RowBox[{"m", "=", "0"}], ",", " ", 
              RowBox[{"m", "\[LessEqual]", " ", 
               RowBox[{
                RowBox[{"Length", "[", "d", "]"}], "-", "2"}]}], ",", " ", 
              RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{"m", "\[Equal]", "0"}], ",", " ", 
                 RowBox[{"scalar", "=", 
                  RowBox[{"a", "/", "2"}]}], ",", 
                 RowBox[{"scalar", "=", "a"}]}], "]"}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"ret", "+=", 
                RowBox[{"scalar", "*", 
                 RowBox[{"d", "[", 
                  RowBox[{"[", 
                   RowBox[{"m", "+", "2"}], "]"}], "]"}], "*", 
                 RowBox[{"Cos", "[", 
                  RowBox[{
                   RowBox[{"m", "*", "\[Phi]"}], " ", "+", " ", 
                   RowBox[{"m", "*", "\[Omega]", "*", "tt"}]}], "]"}]}]}]}]}],
              "]"}], ";", "\[IndentingNewLine]", "ret"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"\[Omega]", " ", "=", " ", 
         RowBox[{"2", "*", "\[Pi]", "*", "18"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"U", " ", "=", " ", 
         RowBox[{"2", "\[Pi]", "*", "1"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"a", " ", "=", " ", ".2"}], ";", "\[IndentingNewLine]", 
        RowBox[{"end", " ", "=", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Pi]", "/", 
            RowBox[{"(", 
             RowBox[{"a", "*", "U"}], ")"}]}], ")"}], "*", "sc"}]}], ";", " ", 
        RowBox[{"(*", " ", 
         RowBox[{"twice", " ", "for", " ", "no", " ", "precomp"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"up", "=", 
         RowBox[{"1", "/", 
          RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"down", "=", 
         RowBox[{"1", "/", 
          RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"h", "=", "0"}], ";", " ", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", "=", "0"}], ",", " ", 
          RowBox[{"i", "\[LessEqual]", 
           RowBox[{
            RowBox[{"Length", "[", "d", "]"}], "-", "2"}]}], ",", " ", 
          RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{"h", " ", "+=", " ", 
           RowBox[{"U", "*", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"i", "*", "\[Omega]", "*", "x"}], "-", 
              RowBox[{"\[Pi]", "/", "2"}], " ", "+", " ", 
              RowBox[{"amplitude", "[", "x", "]"}]}], "]"}]}]}]}], "]"}], ";",
         "\[IndentingNewLine]", 
        RowBox[{"s", "=", 
         RowBox[{"NDSolve", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"\[ImaginaryI]", "*", 
               RowBox[{
                RowBox[{"y", "'"}], "[", "x", "]"}]}], "\[Equal]", 
              RowBox[{"h", "*", 
               RowBox[{"y", "[", "x", "]"}]}]}], " ", ",", 
             RowBox[{
              RowBox[{"y", "[", "0", "]"}], "\[Equal]", "up"}]}], "}"}], ",", 
           "y", ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0", ",", "end"}], "}"}], ",", " ", 
           RowBox[{"MaxSteps", "\[Rule]", "Infinity"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"up", " ", "=", " ", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{
            RowBox[{"y", "[", "end", "]"}], "/.", "s"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"s", "=", 
         RowBox[{"NDSolve", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"\[ImaginaryI]", "*", 
               RowBox[{
                RowBox[{"y", "'"}], "[", "x", "]"}]}], "\[Equal]", 
              RowBox[{
               RowBox[{"-", "h"}], "*", 
               RowBox[{"y", "[", "x", "]"}]}]}], " ", ",", 
             RowBox[{
              RowBox[{"y", "[", "0", "]"}], "\[Equal]", "down"}]}], "}"}], 
           ",", "y", ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0", ",", "end"}], "}"}], ",", " ", 
           RowBox[{"MaxSteps", "\[Rule]", "Infinity"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"down", " ", "=", " ", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{
            RowBox[{"y", "[", "end", "]"}], "/.", "s"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"expp", "\[Equal]", "1"}], ",", 
          RowBox[{"Re", "[", 
           RowBox[{
            RowBox[{"up", "*", 
             RowBox[{"Conjugate", "[", "down", "]"}]}], " ", "+", " ", 
            RowBox[{"down", "*", 
             RowBox[{"Conjugate", "[", "up", "]"}]}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Re", "[", "up", "]"}], ",", " ", 
              RowBox[{"Im", "[", "up", "]"}]}], "}"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Re", "[", "down", "]"}], ",", " ", 
              RowBox[{"Im", "[", "down", "]"}]}], "}"}]}], "}"}]}], "]"}]}]}],
       "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"For", " ", "Z11"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s", "=", 
     RowBox[{"Import", "[", 
      RowBox[{
      "\"\<~/repos/single_site_addressability/final_notebooks/z11.csv\>\"", 
       ",", "\"\<String\>\""}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"data11", "=", 
     RowBox[{"ImportString", "[", 
      RowBox[{
       RowBox[{"StringReplace", "[", 
        RowBox[{"s", ",", 
         RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "]"}], ",", 
       "\"\<Data\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"DiscretePlot", "[", 
    RowBox[{
     RowBox[{"sim", "[", 
      RowBox[{
       RowBox[{"data11", "[", 
        RowBox[{"[", "32", "]"}], "]"}], ",", " ", "sc", ",", " ", "1"}], 
      "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"sc", ",", " ", "0", " ", ",", "1", ",", " ", ".01"}], "}"}], 
     ",", " ", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<Small Amp Z11\>\""}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<\[Pi]/(UA)\>\"", ",", " ", "\"\<<\[Sigma]x>\>\""}], 
       "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[Pi]/(UA)\>\"", ",", " ", 
          RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}], ",", " ", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<<\[Sigma]x>\>\"", ",", " ", 
          RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}]}], "}"}]}], ",", " ", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"FontSize", "\[Rule]", "24"}], "}"}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"For", " ", "Z22"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s", "=", 
     RowBox[{"Import", "[", 
      RowBox[{
      "\"\<~/repos/single_site_addressability/final_notebooks/z22.csv\>\"", 
       ",", "\"\<String\>\""}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"data22", "=", 
     RowBox[{"ImportString", "[", 
      RowBox[{
       RowBox[{"StringReplace", "[", 
        RowBox[{"s", ",", 
         RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "]"}], ",", 
       "\"\<Data\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"DiscretePlot", "[", 
    RowBox[{
     RowBox[{"sim", "[", 
      RowBox[{
       RowBox[{"data22", "[", 
        RowBox[{"[", "32", "]"}], "]"}], ",", " ", "sc", ",", " ", "1"}], 
      "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"sc", ",", " ", "0", " ", ",", "1", ",", " ", ".01"}], "}"}], 
     ",", " ", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<Small Amp Z22\>\""}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<\[Pi]/(UA)\>\"", ",", " ", "\"\<<\[Sigma]x>\>\""}], 
       "}"}]}], ",", " ", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[Pi]/(UA)\>\"", ",", " ", 
          RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}], ",", " ", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<<\[Sigma]x>\>\"", ",", " ", 
          RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}]}], "}"}]}], ",", " ", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"FontSize", "\[Rule]", "24"}], "}"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.85500638898543*^9, 3.855006401251128*^9}, {
   3.8550076329128847`*^9, 3.855007633196356*^9}, {3.855013201566442*^9, 
   3.855013235184003*^9}, {3.855015073206802*^9, 3.855015157352857*^9}, {
   3.855051556286841*^9, 3.85505156460909*^9}, {3.855051804692514*^9, 
   3.855051820037695*^9}, 3.85505189024472*^9, {3.8550544290448847`*^9, 
   3.855054482319202*^9}},
 CellLabel->
  "In[1279]:=",ExpressionUUID->"fc5b528d-0394-414e-b03a-5bc4dae97daa"],

Cell[BoxData[
 GraphicsBox[{{
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004766666666666667], 
     AbsoluteThickness[1.6], 
     TagBox[{
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.004766666666666667], AbsoluteThickness[1.6], Opacity[0.2], 
        LineBox[{{{0.51, -0.008022129237138909}, {0.51, 0}}, {{
           0.53, -0.01758808563326847}, {0.53, 0}}, {{
           0.55, -0.01595954817228956}, {0.55, 0}}, {{
           0.56, -0.12759201778363394`}, {0.56, 0}}, {{
           0.5700000000000001, -0.0228075156986976}, {
           0.5700000000000001, 0}}, {{0.58, -0.2373052931670287}, {
           0.58, 0}}, {{0.59, -0.05447292815701604}, {0.59, 0}}, {{
           0.6, -0.30005586115538435`}, {0.6, 0}}, {{
           0.61, -0.1238660782065586}, {0.61, 0}}, {{
           0.62, -0.32230730220690507`}, {0.62, 0}}, {{
           0.63, -0.23345650448794414`}, {0.63, 0}}, {{
           0.64, -0.32351755477017824`}, {0.64, 0}}, {{
           0.65, -0.3642229570798387}, {0.65, 0}}, {{
           0.66, -0.3238843762575942}, {0.66, 0}}, {{
           0.67, -0.48073087757435484`}, {0.67, 0}}, {{
           0.68, -0.34027925598043607`}, {0.68, 0}}, {{
           0.6900000000000001, -0.5570341445791829}, {
           0.6900000000000001, 0}}, {{
           0.7000000000000001, -0.3862830692941735}, {
           0.7000000000000001, 0}}, {{0.71, -0.5917307803568786}, {
           0.71, 0}}, {{0.72, -0.46862064227594097`}, {0.72, 0}}, {{
           0.73, -0.599415723188858}, {0.73, 0}}, {{
           0.74, -0.5773517291417146}, {0.74, 0}}, {{
           0.75, -0.5981111711084619}, {0.75, 0}}, {{
           0.76, -0.683920216930825}, {0.76, 0}}, {{
           0.77, -0.6035861489388901}, {0.77, 0}}, {{
           0.78, -0.7609480115435147}, {0.78, 0}}, {{
           0.79, -0.6285456391414057}, {0.79, 0}}, {{
           0.8, -0.8015800174149865}, {0.8, 0}}, {{
           0.81, -0.6811754450578955}, {0.81, 0}}, {{
           0.8200000000000001, -0.8153583283132927}, {
           0.8200000000000001, 0}}, {{
           0.8300000000000001, -0.7583726825730315}, {
           0.8300000000000001, 0}}, {{0.84, -0.816098007953278}, {
           0.84, 0}}, {{0.85, -0.8403780296099899}, {0.85, 0}}, {{
           0.86, -0.816321992273641}, {0.86, 0}}, {{
           0.87, -0.9029863532812206}, {0.87, 0}}, {{0.88, -0.826237669403958}
           , {0.88, 0}}, {{0.89, -0.9377146272738457}, {0.89, 0}}, {{
           0.9, -0.8530385582743822}, {0.9, 0}}, {{
           0.91, -0.9515956051131473}, {0.91, 0}}, {{
           0.92, -0.8969891655825188}, {0.92, 0}}, {{
           0.93, -0.9544924011250648}, {0.93, 0}}, {{
           0.9400000000000001, -0.9459992712316998}, {
           0.9400000000000001, 0}}, {{
           0.9500000000000001, -0.9540053464429183}, {
           0.9500000000000001, 0}}, {{0.96, -0.9815306432254128}, {
           0.96, 0}}, {{0.97, -0.9560362751610052}, {0.97, 0}}, {{
           0.98, -0.9967341758799236}, {0.98, 0}}, {{
           0.99, -0.9648478906164165}, {0.99, 0}}, {{
           1., -0.9998770795375027}, {1., 0}}},
         VertexColors->None]}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.004766666666666667], AbsoluteThickness[1.6], Opacity[0.2], 
        LineBox[{{{0., 0.9999999999999998}, {0., 0}}, {{0.01, 
           0.9837421999322193}, {0.01, 0}}, {{0.02, 0.999725876607917}, {
           0.02, 0}}, {{0.03, 0.9976121175244547}, {0.03, 0}}, {{0.04, 
           0.9996951753789375}, {0.04, 0}}, {{0.05, 0.9976856777272354}, {
           0.05, 0}}, {{0.06, 0.9996855055475068}, {0.06, 0}}, {{0.07, 
           0.9807097289095178}, {0.07, 0}}, {{0.08, 0.9990985976690684}, {
           0.08, 0}}, {{0.09, 0.9593634213767247}, {0.09, 0}}, {{0.1, 
           0.9957850650691827}, {0.1, 0}}, {{0.11, 0.9465425810006275}, {
           0.11, 0}}, {{0.12, 0.9833059737582719}, {0.12, 0}}, {{0.13, 
           0.9434126190985137}, {0.13, 0}}, {{0.14, 0.9521099607562522}, {
           0.14, 0}}, {{0.15, 0.9439514838415832}, {0.15, 0}}, {{0.16, 
           0.9011534875295245}, {0.16, 0}}, {{0.17, 0.9416685387750937}, {
           0.17, 0}}, {{0.18, 0.8472427521389131}, {0.18, 0}}, {{0.19, 
           0.9305324174442349}, {0.19, 0}}, {{0.2, 0.8108556792774712}, {
           0.2, 0}}, {{0.21, 0.9027752229858932}, {0.21, 0}}, {{0.22, 
           0.7969311720243069}, {0.22, 0}}, {{0.23, 0.8493395989913991}, {
           0.23, 0}}, {{0.24, 0.796158143342267}, {0.24, 0}}, {{0.25, 
           0.7691853482224149}, {0.25, 0}}, {{0.26, 0.7959234517824071}, {
           0.26, 0}}, {{0.27, 0.6808158782913268}, {0.27, 0}}, {{0.28, 
           0.7852811095713509}, {0.28, 0}}, {{0.29, 0.6127641648227273}, {
           0.29, 0}}, {{0.3, 0.7537602319476477}, {0.3, 0}}, {{0.31, 
           0.5787211921030759}, {0.31, 0}}, {{0.32, 0.6908290867552671}, {
           0.32, 0}}, {{0.33, 0.570892741485129}, {0.33, 0}}, {{0.34, 
           0.5930827578436482}, {0.34, 0}}, {{0.35000000000000003`, 
           0.5722293170937771}, {0.35000000000000003`, 0}}, {{0.36, 
           0.4770026034027474}, {0.36, 0}}, {{0.37, 0.566598888521544}, {
           0.37, 0}}, {{0.38, 0.3761068340259519}, {0.38, 0}}, {{0.39, 
           0.540206159844167}, {0.39, 0}}, {{0.4, 0.3149754016609969}, {
           0.4, 0}}, {{0.41000000000000003`, 0.4803002352501169}, {
           0.41000000000000003`, 0}}, {{0.42, 0.2926682762493691}, {
           0.42, 0}}, {{0.43, 0.3797731222094039}, {0.43, 0}}, {{0.44, 
           0.2914451399764144}, {0.44, 0}}, {{0.45, 0.24971266435371425`}, {
           0.45, 0}}, {{0.46, 0.2910743015081071}, {0.46, 0}}, {{
           0.47000000000000003`, 0.12337882593692723`}, {
           0.47000000000000003`, 0}}, {{0.48, 0.27440228611576806`}, {
           0.48, 0}}, {{0.49, 0.034365000277948365`}, {0.49, 0}}, {{0.5, 
           0.22659813025607828`}, {0.5, 0}}, {{0.52, 0.1370208684371157}, {
           0.52, 0}}, {{0.54, 0.009700328746226616}, {0.54, 0}}},
         VertexColors->None]}},
      Annotation[#, "Charting`Private`Tag$1655928#1"]& ]}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004766666666666667],
       AbsoluteThickness[1.6], {}, PointBox[CompressedData["
1:eJw1lA1MU2cUhgEnUUamEdRNRLRkihodEwQ009eIzN9UJDonIgNdQdcx0YWA
YCZRCBh14AQRUcFQFdGBWlB0yAfC/GG0yp8FlI62lP7fu+FwoMDW9vs4yc3N
ved+55z3fU7unN37w0RODg4OIutlu4/F6H+24JHiXrZWlZyGSIur+UXy2HMO
pEovr7oRHlWz0k1bqi5h3MmdiDeP5SWQTsuoTrXmz+fb4jpy2m8dc7GMfV+G
gjNuCd9b8+Yttje3MVFwOnIoeux8BerfCQsvDvJwURTHr3C5h4JtQ8YZUo7V
uw/DPBdJUjeP+RFZjwZ8qpGyr7LUbQPH6tcgdIZ+2spEHhLraUVxLSSLll7f
78uxfnUIKPhHWJ7Iwc8e9QjPGFfT6c+x/g0QS6Uv8dKM+gEfa4ffUVgXMGmu
gGPzPEFupXP7hZkmhNkbPoVQmG8yPbaw+Z5h4f0JFzL6DVAl2wo2ov/yxu5M
jZnN24QlX8yWJaQacMA2XrwMpMJjReMiE5tfjn8XHpPMTjaA0niB1eWivAUX
9UzPC5A/4hP8kwxYZ2/QDMeUlOiVz7RMXzOCm5M6x88xwNYtIqsFQdFO5+oL
NExvK8LvzHsim6WHXY6iFa73lgjVaWqmvw1h1xX5IR598LKNM6sdPsmPu2rX
qJkf7cje8vHtzHdqxMbY4iVu7dr+SrpZzfxR4NpnP1iWZihhq+ZepsDVpg9G
z8xRM7868PWeYZFgSgfe2soNdGD5zIq4yPUq5l8nSsQbz/7s04aV9oJdCA0u
XbLioZL52YXabQ1Vbr+1wD5e+iuEHO03+wk7mL+v8fTe52kTr7VA1mSL12g0
iq7lvn3O/O7G8mqxx9uiFky1D6jETQdxQF0uYf4rcWWuf4E8qxn2chF/Yu9q
yeQN5y4zHj0wxn2rWeAoY3p6EOVaM6CLSyWUTw9S18eG9x2vY/p6MFkUdfCC
0y+E8lKhVi6b2tB9jOlVwZdv/1S6PZtQfioMr5KL+a21hOpXI7TAM6krPI9Q
nmrEDJa4j4+SE1pOjZINuvk9mhuE8tXAcKPkiKd/K6H+aBDl9b6/vJIQikeD
mpgseVlRG6F+9eJSoP4TnUpGKP9euCnDh45WtBHqXy8SJ62Vx21WELoPWphO
WjLTH7QR6qcWt0a+OrCxQUnofmgxd9ewRPCknVB/+xAgCAxZ1qoidF/6cOpw
bOHrqg5C/e7DdnHlngReTej+6LA+22+/aqSbUP918Hg4pNq3WEPoPulQfDhy
W+khNaE89PCdZJj4wFtDKA89OkPzr95UaxkPPdx3ruo7E6ohlIc17/23pHyH
nvEwoP99Ws2Hnr2E8jAgLHdEcOKqgfEwoDpHfNC3Sct4GMF/tHXHd9ONJNvO
w4igvAfPzq7RMx5G3C17fvqQp5HxMCEiYXFiVK+R8TAhbk3yps1eRsbDhMFE
p+JgrZnxMGOZ84z3x+ONjIcZMTpvj0eOHONhRulPtWnTN5kYDwuChN8UJf3I
MR4WrNsdXSioMDMeFgye11zxO8ExHhwmRBwJLgrhGA/rf1MuCgrI4BgPDsfz
c9/c2cszHjyeit7s7szjGA8ep+46T4GWZzx4/Do8VDahh2M8/sKCL3MCR0d5
8j8a90uN
       "]], {}},
     Annotation[#, "Charting`Private`Tag$1655928#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"\[Pi]/(UA)\"", TraditionalForm], 
    FormBox["\"<\[Sigma]x>\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 24},
  DisplayFunction->Identity,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{764.4444444444448, Automatic},
  Method->{
   "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], 
    "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05]},
  PlotLabel->FormBox["\"Small Amp Z11\"", TraditionalForm],
  PlotRange->{{0., 1.}, {-0.9998770795375027, 0.9999999999999998}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.854727024687852*^9, 3.854727075860849*^9, 3.854727140710972*^9, 
   3.8547271799016867`*^9, 3.854727735499259*^9, 3.8547278894969063`*^9, 
   3.854728919613709*^9, 3.85500639224599*^9, {3.8550076303658047`*^9, 
   3.8550076363543253`*^9}, 3.8550080686102467`*^9, 3.855009697385084*^9, {
   3.855013209112287*^9, 3.855013236276568*^9}, {3.855015095460313*^9, 
   3.855015101130445*^9}, {3.855015146366345*^9, 3.855015158554183*^9}, 
   3.8550515661899843`*^9, {3.855051815380973*^9, 3.855051821289486*^9}, {
   3.85505443077413*^9, 3.855054484766786*^9}},
 CellLabel->
  "Out[1282]=",ExpressionUUID->"4535b305-3db2-49fa-8e28-23134b140b19"],

Cell[BoxData[
 GraphicsBox[{{
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004766666666666667], 
     AbsoluteThickness[1.6], 
     TagBox[{
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.004766666666666667], AbsoluteThickness[1.6], Opacity[0.2], 
        LineBox[{{{0.43, -0.021438993796010386`}, {0.43, 0}}, {{
           0.45, -0.06364048853180154}, {0.45, 0}}, {{
           0.46, -0.10619152771180462`}, {0.46, 0}}, {{
           0.47000000000000003`, -0.03529335501261471}, {
           0.47000000000000003`, 0}}, {{0.48, -0.16813079919707435`}, {
           0.48, 0}}, {{0.5, -0.21072303475296955`}, {0.5, 0}}, {{
           0.51, -0.023696701011551746`}, {0.51, 0}}, {{
           0.52, -0.2856616316455791}, {0.52, 0}}, {{
           0.53, -0.18384388210044272`}, {0.53, 0}}, {{
           0.54, -0.3573415546430331}, {0.54, 0}}, {{
           0.55, -0.35371145323978426`}, {0.55, 0}}, {{
           0.56, -0.3599478337562835}, {0.56, 0}}, {{
           0.5700000000000001, -0.4409751438112796}, {
           0.5700000000000001, 0}}, {{0.58, -0.3178302728244708}, {
           0.58, 0}}, {{0.59, -0.48070389490056575`}, {0.59, 0}}, {{
           0.6, -0.30005736890790063`}, {0.6, 0}}, {{
           0.61, -0.5299390815387314}, {0.61, 0}}, {{
           0.62, -0.39326590106045883`}, {0.62, 0}}, {{
           0.63, -0.6024948410906021}, {0.63, 0}}, {{
           0.64, -0.5595576807843321}, {0.64, 0}}, {{
           0.65, -0.6356622908569793}, {0.65, 0}}, {{
           0.66, -0.6680421906471573}, {0.66, 0}}, {{
           0.67, -0.6134985796005301}, {0.67, 0}}, {{
           0.68, -0.7132440305689284}, {0.68, 0}}, {{
           0.6900000000000001, -0.5788989533313238}, {
           0.6900000000000001, 0}}, {{
           0.7000000000000001, -0.7429701043882557}, {
           0.7000000000000001, 0}}, {{0.71, -0.604295582407133}, {
           0.71, 0}}, {{0.72, -0.7924888085250591}, {0.72, 0}}, {{
           0.73, -0.7243409007048968}, {0.73, 0}}, {{
           0.74, -0.836356161302927}, {0.74, 0}}, {{
           0.75, -0.8342207329980987}, {0.75, 0}}, {{
           0.76, -0.8378834310154216}, {0.76, 0}}, {{
           0.77, -0.8828360648888823}, {0.77, 0}}, {{
           0.78, -0.8126133236643236}, {0.78, 0}}, {{
           0.79, -0.9029730065707817}, {0.79, 0}}, {{
           0.8, -0.8015810029127453}, {0.8, 0}}, {{
           0.81, -0.9260128537365524}, {0.81, 0}}, {{
           0.8200000000000001, -0.8569707570597735}, {
           0.8200000000000001, 0}}, {{
           0.8300000000000001, -0.9556337274257118}, {
           0.8300000000000001, 0}}, {{0.84, -0.9387665273992256}, {
           0.84, 0}}, {{0.85, -0.9672202894178632}, {0.85, 0}}, {{
           0.86, -0.9771801259045376}, {0.86, 0}}, {{
           0.87, -0.9596242647305331}, {0.87, 0}}, {{
           0.88, -0.9885452275276028}, {0.88, 0}}, {{
           0.89, -0.94661176743839}, {0.89, 0}}, {{
           0.9, -0.9941601263108936}, {0.9, 0}}, {{
           0.91, -0.9562963070829699}, {0.91, 0}}, {{
           0.92, -0.9995266216926978}, {0.92, 0}}, {{
           0.93, -0.9908280670886608}, {0.93, 0}}, {{
           0.9400000000000001, -0.9989869147631247}, {
           0.9400000000000001, 0}}, {{
           0.9500000000000001, -0.9991539560648477}, {
           0.9500000000000001, 0}}, {{0.96, -0.9988574229829796}, {
           0.96, 0}}, {{0.97, -0.9907303648070331}, {0.97, 0}}, {{
           0.98, -0.999994148699798}, {0.98, 0}}, {{
           0.99, -0.9836579432637683}, {0.99, 0}}, {{
           1., -0.9998758040712309}, {1., 0}}},
         VertexColors->None]}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.004766666666666667], AbsoluteThickness[1.6], Opacity[0.2], 
        LineBox[{{{0., 0.9999999999999998}, {0., 0}}, {{0.01, 
           0.967971305188785}, {0.01, 0}}, {{0.02, 0.995061104560266}, {
           0.02, 0}}, {{0.03, 0.9421292539559745}, {0.03, 0}}, {{0.04, 
           0.9585011977475877}, {0.04, 0}}, {{0.05, 0.9271311094232605}, {
           0.05, 0}}, {{0.06, 0.9102859138387299}, {0.06, 0}}, {{0.07, 
           0.9373923371897047}, {0.07, 0}}, {{0.08, 0.8826324644942766}, {
           0.08, 0}}, {{0.09, 0.9515294778855881}, {0.09, 0}}, {{0.1, 
           0.861416410701939}, {0.1, 0}}, {{0.11, 0.9413696865541319}, {
           0.11, 0}}, {{0.12, 0.819575313441883}, {0.12, 0}}, {{0.13, 
           0.8750168753760567}, {0.13, 0}}, {{0.14, 0.7738809001648737}, {
           0.14, 0}}, {{0.15, 0.7763347124934168}, {0.15, 0}}, {{0.16, 
           0.7721095849387618}, {0.16, 0}}, {{0.17, 0.7129394130017561}, {
           0.17, 0}}, {{0.18, 0.7997782686536732}, {0.18, 0}}, {{0.19, 
           0.6808398813492695}, {0.19, 0}}, {{0.2, 0.8108559652321057}, {
           0.2, 0}}, {{0.21, 0.6379530186282112}, {0.21, 0}}, {{0.22, 
           0.7487570062599542}, {0.22, 0}}, {{0.23, 0.5677273112419479}, {
           0.23, 0}}, {{0.24, 0.6103589745725398}, {0.24, 0}}, {{0.25, 
           0.5324560997610214}, {0.25, 0}}, {{0.26, 0.4958304532460509}, {
           0.26, 0}}, {{0.27, 0.5562632731445779}, {0.27, 0}}, {{0.28, 
           0.44058466535107793`}, {0.28, 0}}, {{0.29, 0.5915563968420052}, {
           0.29, 0}}, {{0.3, 0.4012384048268627}, {0.3, 0}}, {{0.31, 
           0.5658667028124659}, {0.31, 0}}, {{0.32, 0.3292283031346279}, {
           0.32, 0}}, {{0.33, 0.42619943814376243`}, {0.33, 0}}, {{0.34, 
           0.2568514396676947}, {0.34, 0}}, {{0.35000000000000003`, 
           0.2606029904407379}, {0.35000000000000003`, 0}}, {{0.36, 
           0.25415209268639133`}, {0.36, 0}}, {{0.37, 0.16770177465624636`}, {
           0.37, 0}}, {{0.38, 0.29718454178864123`}, {0.38, 0}}, {{0.39, 
           0.12341012448933136`}, {0.39, 0}}, {{0.4, 0.3149747438778272}, {
           0.4, 0}}, {{0.41000000000000003`, 0.06660468411205389}, {
           0.41000000000000003`, 0}}, {{0.42, 0.2192071226694849}, {
           0.42, 0}}, {{0.44, 0.03132551337226663}, {0.44, 0}}, {{0.49, 
           0.007804774970512907}, {0.49, 0}}},
         VertexColors->None]}},
      Annotation[#, "Charting`Private`Tag$1658800#1"]& ]}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004766666666666667],
       AbsoluteThickness[1.6], {}, PointBox[CompressedData["
1:eJw1kgtQVGUYhgGVFaYEkUrMRFMMEE1QS5uRFwHFNEYQkzJSwUTKS+DoUF5K
G0FGRMlMUQqEJTOViwG5SvEXRChyWS663MS9cPa+5yCwsFAjsfv/fjNnzpzL
/33v+z7fnLjPN+50sLOz2zl+We/P69mYtQQcdi8KUxw6gXNuCeacEZ49n0fm
gdK4UzIBklkphkhJDspcH8Do9fx7AUJfXlzmfJPH5UvW+gU/Jgd3T7lhYv8X
Ifq9SqPLHBOMkdY3t5DkaHlr1piJnS/D3uN+iamBRjjLxIkrnW/j3JYL/ab9
z/vdgddhx/l3Mg3wiTlbZfb+HXdD5m8s9eRZ/0pE9Y3aD63Qo2D8tEz8JyId
1Tvm2hnZvL/gm3dVnletxRJbVaPO/TWuQqZl8//G5GKRj2e5FtVm7/EJNQjW
dEXES9VMTy2KEo5m3buow0bbwHvgCxwlifc5pu8+9onOLEvr10FxyNqwDmcy
jftnftbL9NZjXkBzULNZgySrvMQGtGVuSW7xVTL9jfD/KirdJU0FSkMKUZ98
m8JJwfxIcXpryM/FFU+w1jagGbvV1fnaegXz14zyqCWOpwK6YZ0Wc7YF8rzV
RSJeyfy24shH19pVhR2w2ZG1IjKg6cj5V5XMfxte2Ca5MM3tITytcmY9RMZ1
D4fONV0sj4coT4iatCpRil3x1nqE47+u95UUSlk+MuS6fTdXFCqFtZt7kQwR
2dL9Qck1LK92+I8MbXCb1IohaztzO8rCCyMaLxKWXwdcY+zb0r3bEGhr2AnL
6Ul+9i/eYnl24sKyg7mjU+phk5fShRLPzhMzBr8nNN9uLJaYGjmnK2iot1Y3
fnDpX165roTQvB9j8d78gK1vVpCXbAJ7sNb/lcOWqfmE5t+DwHfstm5IqSG2
djFPcMx14ib18NeMhxz7vt0hWCx1hPqR48rJL4r7Q7II5SNH+9OEO2FrWwj1
J8eWg1nBAWm1hPJSYPMnN2cW9zwi1K8C825aYpaJHxHKT4HAwbPiOCcZof6V
OOm3qklY3k0oTyWi9z2+tym6jdB2SmRN14d2VvcQyleFCSezWuYubSU0HxWy
sxwag81yQvGoMPDU8Efogg6WVy8O1DQFi8NUhPLvRcvb8d9wGgWh+fUiYkya
9EF0L6H7wEFU4jXx8naO5cnB0tlXU5unInQ/OCSlL/DiWtQsXzVKekUe0alK
QvdFjcoZaSs//UfD8lbDoS6pZMdmFaH7o0HzYOzRqTE6lr8GDe3m4fqFGkL3
SYPY96eN7a3WE8pDizBNRaFwS894aPHg3SpdX5Oe8dDixvXw3f5BRsZDi8lt
C6+Z7PSMhw53M07/9AZnZDx08P542tKMqzrGQwdHvw3lXJ6J8dBj9i61EL7H
QDJtPPQoE2oXZZznGQ89pqyXeGx35hkPA+RfKoeSB3jGw4DBwdhVLqsFxsMA
tXpR/8pynvEwIvT1rks++QLjYcTyCVxVwTqe8TCitKqY85YKjIcJPrmpv41e
4hkPEzw6BoM8/xMYDxPEH05wfVwmMB483EPtE0qHBcaDx4yhnNtTRwTGg4dD
Sr5MPCQwHgKMDsd8XcfPUx4Cju7JvjswJjAeAnIvTl8x+5DAePRhdWrzqX+f
CeR/0+1NIQ==
       "]], {}},
     Annotation[#, "Charting`Private`Tag$1658800#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"\[Pi]/(UA)\"", TraditionalForm], 
    FormBox["\"<\[Sigma]x>\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 24},
  DisplayFunction->Identity,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{703.3333333333347, Automatic},
  Method->{
   "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], 
    "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05]},
  PlotLabel->FormBox["\"Small Amp Z22\"", TraditionalForm],
  PlotRange->{{0., 1.}, {-0.999994148699798, 0.9999999999999998}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.854727024687852*^9, 3.854727075860849*^9, 3.854727140710972*^9, 
   3.8547271799016867`*^9, 3.854727735499259*^9, 3.8547278894969063`*^9, 
   3.854728919613709*^9, 3.85500639224599*^9, {3.8550076303658047`*^9, 
   3.8550076363543253`*^9}, 3.8550080686102467`*^9, 3.855009697385084*^9, {
   3.855013209112287*^9, 3.855013236276568*^9}, {3.855015095460313*^9, 
   3.855015101130445*^9}, {3.855015146366345*^9, 3.855015158554183*^9}, 
   3.8550515661899843`*^9, {3.855051815380973*^9, 3.855051821289486*^9}, {
   3.85505443077413*^9, 3.855054485864057*^9}},
 CellLabel->
  "Out[1285]=",ExpressionUUID->"a8c45d20-4474-4df1-9e07-acf0f0d3f8bd"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.855015020286121*^9, 
  3.8550151695644503`*^9},ExpressionUUID->"07940811-5fd6-4e1f-b083-\
42ab760821f2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"For", " ", "Z11"}], "+", "Z22"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"s", "=", 
     RowBox[{"Import", "[", 
      RowBox[{
      "\"\<~/repos/single_site_addressability/final_notebooks/z1122.csv\>\"", 
       ",", "\"\<String\>\""}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"data1122", "=", 
     RowBox[{"ImportString", "[", 
      RowBox[{
       RowBox[{"StringReplace", "[", 
        RowBox[{"s", ",", 
         RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "]"}], ",", 
       "\"\<Data\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"DiscretePlot", "[", 
    RowBox[{
     RowBox[{"sim", "[", 
      RowBox[{
       RowBox[{"data1122", "[", 
        RowBox[{"[", "32", "]"}], "]"}], ",", " ", "sc", ",", " ", "1"}], 
      "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"sc", ",", " ", "0", " ", ",", "1", ",", " ", ".01"}], "}"}], 
     ",", " ", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<Small Amp Z11+Z22\>\""}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<\[Pi]/(UA)\>\"", ",", " ", "\"\<<\[Sigma]x>\>\""}], 
       "}"}]}], ",", " ", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[Pi]/(UA)\>\"", ",", " ", 
          RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}], ",", " ", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<<\[Sigma]x>\>\"", ",", " ", 
          RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}]}], "}"}]}], ",", " ", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"FontSize", "\[Rule]", "24"}], "}"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.855007644332692*^9, 3.855007644449121*^9}, 
   3.85501324703627*^9, {3.855015172284029*^9, 3.8550151761712*^9}, {
   3.855051571547415*^9, 3.855051573856257*^9}, {3.855051825930704*^9, 
   3.855051826008711*^9}, {3.8550546150953093`*^9, 3.85505461536567*^9}},
 CellLabel->
  "In[1286]:=",ExpressionUUID->"61d9a89b-7480-4c06-b1a1-1b571938fcca"],

Cell[BoxData[
 GraphicsBox[{{
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004766666666666667], 
     AbsoluteThickness[1.6], 
     TagBox[{
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.004766666666666667], AbsoluteThickness[1.6], Opacity[0.2], 
        LineBox[{{{0.06, 0.9658255560435108}, {0.06, 0.9658255560435108}}},
         VertexColors->None]}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.004766666666666667], AbsoluteThickness[1.6], Opacity[0.2], 
        LineBox[CompressedData["
1:eJxV1XtQVGUYBnDMCkUNNdLxLpm6oBIO2kwN8JiNgqhDSIgiXgqQmFRW8lLg
eBl0Bp1m8JJ5aXASmIzUncQbSF4SFDU3QVlBQmQXWFYW9kVxQRmVdre+194z
s3/85pnD+c73vc/B+4vkeQk93dzc4h2/1/77qetlt/MiKLd7D+v2sNiQ5qUL
MaZuxfroQf5VocSW+fd4of34SKGN2CovGLnNGlFwCE2L7lp8phBb3p+LxsT2
jKIEYqv84AHnlYeB4/ee/DWO2CpviXD+xRNI1q19bDIQW/79Uyit3fUkt+uV
Ve5RmaMN8jiL7XuyNZ873l9ZPr8QE08dPR09jdgq94nNvGzX/I6J62c1w3G/
snz/C/ilc+GaoBBiqzzX8bTKnEtYs6vvY/fzxJbv9wca3C74h00jtsoDXFcx
0lsPbuwxnNjy/Utwu78+vSOH2CovtmscK76CGa/7+jb9z3J/SlHSv+x0dgex
VT7P9ULX0DK4Y6Z9LLHl/l2HfVBMTWU3sVVuTHUu6Abmf7TDf2UkseX+3kTN
/jP1xkfEVvlq53Zp9ahZ+UlXJIgt9/8vTFv/IF6bTGyV/zvtZegXExaqXUls
eT5lWJDZa/so+yurPNS14HJYkmalmauJLc+vHOXLRlSEuhNb5c63ic28DXvX
tTeqHfujLM/3DsbmXa72nU1slbuOo/IOgn7L019z3K8sz78Cs0f2866NILbK
Rzm3Y6QB5xak6OOKiS3nw4Cd+y4WjXA8X1nlicud110c9M0ILhtPbDk/laDD
BdHao8RWuXM1XrpKHIqz7e2wv7KcrypE/qBLtD4ltso7nMuxV6Gj4ljklsnE
lvN3D6saDkUs4fm7x3mwa0HVmJzWB/mLiS3nsxrF8/XlBU+IrXLXdm37Gzc7
r27wCyO2nN8aZM+cMNfwDbFVrr/pvGqgSQg3Na4jtpzv+4g6mxXW2IPYKn/H
tWG1uBy4r33/A2LL+a9FZoLH+ay3ia1y13JiHyApznDGza2NLftRh95R1qW6
KGLL86lDfETJaOf9yrI/dQifHzzk/Vhiy/Orw9QZb5avuk5s2S8jHuVrsw9H
EVuerxFfWuNOhgcQW/bPiNZJnnsO5BNbnr8J7ra7H559jdiynyZc+XlvkamL
2HI+TDC5h7w8H0hs2d966AzV0XteElvOTz0mhg9IPZJIbNnvelxq/mlFcCex
5Xw14N2FMUsKPyO27H8DzE83DmneQmw5fw3oeX9xUp/NxJbfh0YMmDJnTOxb
xJbz2Yiva5/P7aontvx+NCJzRXtmzihiy/k1I5fGfuX8/6Asvy9mlPusHmNa
Smw532YgYNx0czex5fenCZ5r86b7Lye2nP8mhO681Ka5RWz5fWpCcdngGwbH
85VlPyw47Wm+uCmY2LIfFgT3SB+XUkhs2Q8LvE75t2k8iS37YUFEwJZjGc+J
LfvxEP2Oa3yPhhBb9uMhfM0/Plr3gtiyHw/hc7jz+pzVxJb9aEb8e8XHU54R
W+U7XX1oht+4XlufLCG27EczUvRdZ3Q7iC37YcXUZxlX6zKILfthBX27oD19
KLFlP6zou+HPTR4WYst+tGD6d4F+MROILfvRgnM5k9oXdRNb9qMFfUoHD7ya
RGzZj1aMvvXpvdRuYst+tCIt0ZBuTCa27Ecr4rxahu+uILbshw2lJbuHnUsi
tuyHDW0hG+csm0Vs2Q8bNvlVdT67SGzZD8KtE+OzZg8jtuwHYXlQ4Af3XxBb
9oNwbOjmotB5xJb9aEPWkXzv3s+JrfJ/ADc4cU4=
         "],
         VertexColors->None]}},
      Annotation[#, "Charting`Private`Tag$1663022#1"]& ]}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004766666666666667],
       AbsoluteThickness[1.6], {}, PointBox[CompressedData["
1:eJw9kwtMU3cUxsE9UNChjml8ocwBpSrDoEu2QD/HojwNKwxBRHQryMhUKvOx
gVEJmqBZUtQ5lQUyHhljYDNRXjKFAYo4OqhSwQ6BFloqLf2D2CKN2PUWzk5y
c3Mf55zvfL/z9/gqLSp5joODQ7Lt4u4Ur61cMGS6SYNVGadxLHaJX08IPf+I
afGnpXVGhlr3M3phbQGGdz3W+Wyi7yXQpEzk1Ccz5F3logyLvS/d+F1E/0sx
4bHC6qwzwiDk3lxHmvTIc7WC8m+ite/8ixKLEc7dxeJA5xqcvVjE+9JK9eqw
/mZ5VewWBp8ESZOJ9yfWHwsdgZXq38FvkzsPBwYzlNiyu4sbcfj8/OdOt9ls
v78w5HDHL8yW72+PZmSP5p1wXEn9W/BwoSzbXMzQbOLZOtzF1jf5/GEd6WlF
y8LOqiIzQ5S94X0Ylpq3mTxJXxtMS+J7u216VBlcwQfY8ck5vwPRpLcdvVeq
B1XjDIc4eWIZeg98ZokG6f8HW471J4nTGGZodGJBfFiI+ADN04k4ydyzq01G
hNgbyKFLDc3UKmk+OeR7V3WFODFw3RIkD2Gy3H9LaaV5H8GzrEnJD2ewj9P9
CIF/lMnu/8+7C+HuCzz6hAyrOTnuCtyKS5eJmskPBXIvN9SvsuWn7OPiMfL4
OYJObzbrTzdYYW2suJyBq+Ym7UaByHjJbNM741cPon+SpuhfMpi5cqYemLsq
orM2kn9PcHCoQJho0yOwF1RiY6YLKneTn0o075DJa18w2OWd+Rftk/eO+4aR
v70o2rZuu+I7Blk7F73gJUeqNUfJ76eIqckP0zgyvGcX2IemgMsTV/rJ/z5I
kp1v57/LYC+X0I9UkaLawWFslscA5sXo90hjiP8AkoQta7jvM3wGELlDsOzD
BJpvAJu3vi0/2MZmeakwXikuKoyheVX4Wi+6EelP/FQY3eB68Wolza+Gk/Hx
xzVziKcad3+9VK+2kB9qqJ2CX98OIL6DkCqUsRdfkz+DWB+5KKM0hXgPonHk
l/2CSfJrCO/vjE+s+4L4D0H78sSykSzybwhvPN2d6nKK9kGDRZsi1ia8Q35q
8G3fq+2WQdoPDST7JyTFq8lfLUqY5zfceZjZFy3kPofWqveQ31rA3ytIa6X9
GYbrkbIgv33k/zBCchvHeB20T8No7lz6QLGHzocOVa7ahpMC4qGDwDHbK72O
zosObjf9xniuxEMHoX9WRc4r4vEMC67x+OXBxOMZ+Nqfx49OE49n8CmcbIs4
RDxGkPRB87X0KYZcO48R+HrNPf0ikXiMIF1mqZaeIx56bJ7KuTeQQzz0YN/H
TWQvJx56zD/+90lnHfEwIOiHAN/4dcTDgFvFGyZ2WYmHAS6tSxffSyUeo1jT
8fmTDCvxGEVmiiJblUY8RiFyM6y80EU8jGhtubDiVirxMGIs+ETE3lDiYcRJ
357JqQbiwdBx3Ts/fAXxYNgXGPDR02niwVCx/FR9SBTxGEN+aaXHPJu//wE0
i0NC
       "]], {}},
     Annotation[#, "Charting`Private`Tag$1663022#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"\[Pi]/(UA)\"", TraditionalForm], 
    FormBox["\"<\[Sigma]x>\"", TraditionalForm]},
  AxesOrigin->{0, 0.9658255560435108},
  BaseStyle->{FontSize -> 24},
  DisplayFunction->Identity,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{1063.333333333334, Automatic},
  Method->{
   "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], 
    "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05]},
  PlotLabel->FormBox["\"Small Amp Z11+Z22\"", TraditionalForm],
  PlotRange->{{0., 1.}, {0.9658255560435108, 1.000000681108043}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.854727033030753*^9, 3.854727079474215*^9, 3.8547271438687077`*^9, 
   3.85472718270229*^9, 3.854727216267722*^9, 3.854727325947275*^9, 
   3.854727402398188*^9, 3.854727491570849*^9, 3.8547277398059464`*^9, 
   3.85472789270177*^9, 3.854728922455476*^9, 3.855007647675786*^9, 
   3.855008072495813*^9, {3.855013240513954*^9, 3.855013248646851*^9}, 
   3.855015178057254*^9, 3.855051576515967*^9, 3.8550518279642773`*^9, 
   3.855054617462298*^9},
 CellLabel->
  "Out[1288]=",ExpressionUUID->"24a72289-2b04-4e8c-9ad4-f14d67a66741"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"s", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
    "\"\<~/repos/single_site_addressability/final_notebooks/elliptical2040.\
csv\>\"", ",", "\"\<String\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"ImportString", "[", 
    RowBox[{
     RowBox[{"StringReplace", "[", 
      RowBox[{"s", ",", 
       RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "]"}], ",", 
     "\"\<Data\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DiscretePlot", "[", 
   RowBox[{
    RowBox[{"sim", "[", 
     RowBox[{
      RowBox[{"data", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", " ", "k", ",", " ", "1"}], "]"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", " ", "0", ",", " ", "1", ",", " ", ".1"}], "}"}]}], 
   "]"}], " "}]}], "Input",
 CellChangeTimes->{{3.854728894425318*^9, 3.8547288946695013`*^9}, {
  3.855007655028069*^9, 3.855007675468021*^9}},
 CellLabel->
  "In[294]:=",ExpressionUUID->"6c451af1-6276-4d27-a5c1-e4eacf88ba33"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.854728903041176*^9, 3.854728925149645*^9}, 
   3.8550074301097307`*^9, {3.855007672957138*^9, 3.855007679178564*^9}},
 CellLabel->
  "Out[296]=",ExpressionUUID->"5725ce00-6ae9-4509-a111-fffc0d6d6b53"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"s", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
    "\"\</home/ampolloreno/repos/single_site_addressability/final_notebooks/\
elliptical3212.csv\>\"", ",", "\"\<String\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"ImportString", "[", 
    RowBox[{
     RowBox[{"StringReplace", "[", 
      RowBox[{"s", ",", 
       RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "]"}], ",", 
     "\"\<Data\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"simfull", "[", "dd_", "]"}], ":=", 
  RowBox[{"sim", "[", 
   RowBox[{"dd", ",", " ", "1", ",", " ", "0"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Map", "[", 
  RowBox[{"simfull", ",", " ", "data"}], "]"}]}], "Input",
 CellChangeTimes->{
  3.854728892540711*^9, {3.8547289514600773`*^9, 3.8547289735652637`*^9}, {
   3.854804031191122*^9, 3.854804039854357*^9}, {3.8548054216780043`*^9, 
   3.8548054269277143`*^9}, {3.854806048888081*^9, 3.854806088186235*^9}, {
   3.8548071761255693`*^9, 3.8548071780678997`*^9}, {3.854807776454441*^9, 
   3.854807777308375*^9}, {3.854808075286591*^9, 3.854808077278097*^9}, {
   3.854808177430243*^9, 3.854808178664538*^9}, {3.8548083009536552`*^9, 
   3.854808301052103*^9}, {3.854808467384152*^9, 3.854808467491411*^9}, {
   3.8548096117379293`*^9, 3.854809614687952*^9}, {3.855007439044017*^9, 
   3.855007442526322*^9}, {3.855007683821376*^9, 3.855007692876028*^9}, {
   3.855007739109927*^9, 3.8550077463234987`*^9}, {3.8550091617683573`*^9, 
   3.855009163638081*^9}, {3.85501027347686*^9, 3.855010275610924*^9}, {
   3.855010576961917*^9, 3.855010596959344*^9}, 3.8550106295359507`*^9},
 CellLabel->
  "In[529]:=",ExpressionUUID->"177eb2de-9aaa-47df-94d7-4581450aeab1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0004303849065854002`", ",", 
       RowBox[{"-", "0.7071083536500101`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.0004303849065854002`", ",", "0.7071083536500101`"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.23440501837084154`", ",", 
       RowBox[{"-", "0.6671235557108611`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.23440501837084154`", ",", "0.6671235557108611`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.590605772164846`", ",", 
       RowBox[{"-", "0.3888280995653079`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.590605772164846`", ",", "0.3888280995653079`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6973978481247373`", ",", 
       RowBox[{"-", "0.11678865258913128`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.6973978481247373`", ",", "0.11678865258913128`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7067539784080648`", ",", 
       RowBox[{"-", "0.02238932061663911`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7067539784080648`", ",", "0.02238932061663911`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070497445090458`", ",", 
       RowBox[{"-", "0.008985195300684158`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7070497445090458`", ",", "0.008985195300684158`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.707008991548297`", ",", 
       RowBox[{"-", "0.011577824111277883`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.707008991548297`", ",", "0.011577824111277883`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.707085943014209`", ",", 
       RowBox[{"-", "0.005484153347497914`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.707085943014209`", ",", "0.005484153347497914`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.706726293213058`", ",", 
       RowBox[{"-", "0.02325002421749499`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.706726293213058`", ",", "0.02325002421749499`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6969555383241778`", ",", 
       RowBox[{"-", "0.119398662355536`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.6969555383241778`", ",", "0.119398662355536`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.5924357435603266`", ",", 
       RowBox[{"-", "0.3860324361118856`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.5924357435603266`", ",", "0.3860324361118856`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.25925959818475214`", ",", 
       RowBox[{"-", "0.6578660281465782`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.25925959818475214`", ",", "0.6578660281465782`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.032780501272441497`", ",", 
       RowBox[{"-", "0.7063491399593586`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.032780501272441497`", ",", "0.7063491399593586`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.23440555005734728`", ",", 
       RowBox[{"-", "0.6671234740241214`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.23440555005734728`", ",", "0.6671234740241214`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.5924361318334601`", ",", 
       RowBox[{"-", "0.38603289488615605`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.5924361318334601`", ",", "0.38603289488615605`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.2592581792233371`", ",", 
       RowBox[{"-", "0.6578662749722886`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.2592581792233371`", ",", "0.6578662749722886`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.032781512609805115`", ",", 
       RowBox[{"-", "0.7063488572731872`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.032781512609805115`", ",", "0.7063488572731872`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.27084244048465406`", ",", 
       RowBox[{"-", "0.6531823690615727`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.27084244048465406`", ",", "0.6531823690615727`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6035842380166964`", ",", 
       RowBox[{"-", "0.36835826496098867`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.6035842380166964`", ",", "0.36835826496098867`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.70062992023615`", ",", 
       RowBox[{"-", "0.09549693198500143`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.70062992023615`", ",", "0.09549693198500143`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.351417024212027`", ",", 
       RowBox[{"-", "0.6136024434734827`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.351417024212027`", ",", "0.6136024434734827`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.12941607181666562`", ",", 
       RowBox[{"-", "0.6951641827599121`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.12941607181666562`", ",", "0.6951641827599121`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.3769287659542938`", ",", 
       RowBox[{"-", "0.5982695354447625`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.3769287659542938`", ",", "0.5982695354447625`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6228092292899245`", ",", 
       RowBox[{"-", "0.3348273345239849`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.6228092292899245`", ",", "0.3348273345239849`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7032857618860485`", ",", 
       RowBox[{"-", "0.07340872630827669`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7032857618860485`", ",", "0.07340872630827669`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7069722464870681`", ",", 
       RowBox[{"-", "0.013871035777380915`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7069722464870681`", ",", "0.013871035777380915`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070957634201325`", ",", 
       RowBox[{"-", "0.004079481829639196`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7070957634201325`", ",", "0.004079481829639196`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7071029982684027`", ",", 
       RowBox[{"-", "0.0027881584737507632`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7071029982684027`", ",", "0.0027881584737507632`"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070515841532992`", ",", "0.008917620359879044`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.7070515841532992`", ",", 
       RowBox[{"-", "0.008917620359879044`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070874073100183`", ",", 
       RowBox[{"-", "0.005518867203276785`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7070874073100183`", ",", "0.005518867203276785`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070206550038601`", ",", "0.011094074942737097`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.7070206550038601`", ",", 
       RowBox[{"-", "0.011094074942737097`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7069027956337627`", ",", 
       RowBox[{"-", "0.017030773137823186`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7069027956337627`", ",", "0.017030773137823186`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070180484733485`", ",", "0.011222263111791158`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.7070180484733485`", ",", 
       RowBox[{"-", "0.011222263111791158`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070550197286577`", ",", 
       RowBox[{"-", "0.008663878009322116`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7070550197286577`", ",", "0.008663878009322116`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070789930310796`", ",", "0.006507248681120842`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.7070789930310796`", ",", 
       RowBox[{"-", "0.006507248681120842`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.707105816248856`", ",", 
       RowBox[{"-", "0.001955961587689441`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.707105816248856`", ",", "0.001955961587689441`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070938845272435`", ",", "0.004345072602187308`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.7070938845272435`", ",", 
       RowBox[{"-", "0.004345072602187308`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7069631301939466`", ",", 
       RowBox[{"-", "0.014363375263243725`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7069631301939466`", ",", "0.014363375263243725`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6999053674059862`", ",", 
       RowBox[{"-", "0.1006764575690832`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.6999053674059862`", ",", "0.1006764575690832`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6064287415193754`", ",", 
       RowBox[{"-", "0.36365674035378165`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.6064287415193754`", ",", "0.36365674035378165`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.31098271627745744`", ",", 
       RowBox[{"-", "0.6350532228536403`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.31098271627745744`", ",", "0.6350532228536403`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6982066947556856`", ",", 
       RowBox[{"-", "0.1118467813578841`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.6982066947556856`", ",", "0.1118467813578841`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7068139150696282`", ",", 
       RowBox[{"-", "0.02038979298735482`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7068139150696282`", ",", "0.02038979298735482`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7071074438019804`", ",", "0.000052494592096118306`"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"0.7071074438019804`", ",", 
       RowBox[{"-", "0.000052494592096118306`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7071055886407082`", ",", 
       RowBox[{"-", "0.0019008298172274894`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7071055886407082`", ",", "0.0019008298172274894`"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070927308106538`", ",", "0.004646858072953792`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.7070927308106538`", ",", 
       RowBox[{"-", "0.004646858072953792`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070430082496831`", ",", 
       RowBox[{"-", "0.009583358956333918`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7070430082496831`", ",", "0.009583358956333918`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070763537304753`", ",", "0.006606381360284344`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.7070763537304753`", ",", 
       RowBox[{"-", "0.006606381360284344`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.707086445907833`", ",", 
       RowBox[{"-", "0.005552200844603142`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.707086445907833`", ",", "0.005552200844603142`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070972755673595`", ",", 
       RowBox[{"-", "0.004016281349557203`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7070972755673595`", ",", "0.004016281349557203`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7067256127588759`", ",", 
       RowBox[{"-", "0.023248895108801362`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7067256127588759`", ",", "0.023248895108801362`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.696955292721004`", ",", 
       RowBox[{"-", "0.1193971160519058`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.696955292721004`", ",", "0.1193971160519058`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.5906053870721579`", ",", 
       RowBox[{"-", "0.3888291231902828`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.5906053870721579`", ",", "0.3888291231902828`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6973967186003888`", ",", 
       RowBox[{"-", "0.11679336702508783`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.6973967186003888`", ",", "0.11679336702508783`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7067536700850807`", ",", 
       RowBox[{"-", "0.022396634332784715`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7067536700850807`", ",", "0.022396634332784715`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070861026617621`", ",", 
       RowBox[{"-", "0.005483914694078785`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7070861026617621`", ",", "0.005483914694078785`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070091611720962`", ",", 
       RowBox[{"-", "0.011577357229313488`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7070091611720962`", ",", "0.011577357229313488`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.707050509532859`", ",", 
       RowBox[{"-", "0.008989855852733951`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.707050509532859`", ",", "0.008989855852733951`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7006288955738429`", ",", 
       RowBox[{"-", "0.0955001289716274`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7006288955738429`", ",", "0.0955001289716274`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6035846817907486`", ",", 
       RowBox[{"-", "0.36835819067468467`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.6035846817907486`", ",", "0.36835819067468467`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.27084200708739753`", ",", 
       RowBox[{"-", "0.6531829452302249`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.27084200708739753`", ",", "0.6531829452302249`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.12941509839730905`", ",", 
       RowBox[{"-", "0.6951644381538236`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.12941509839730905`", ",", "0.6951644381538236`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.31098367534417154`", ",", 
       RowBox[{"-", "0.6350528814054724`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.31098367534417154`", ",", "0.6350528814054724`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6064293026474922`", ",", 
       RowBox[{"-", "0.3636566468922982`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.6064293026474922`", ",", "0.3636566468922982`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6982085851665527`", ",", 
       RowBox[{"-", "0.11183494949784369`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.6982085851665527`", ",", "0.11183494949784369`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7068140692684951`", ",", 
       RowBox[{"-", "0.020393162485243244`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7068140692684951`", ",", "0.020393162485243244`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070976304565558`", ",", 
       RowBox[{"-", "0.004016877173215225`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7070976304565558`", ",", "0.004016877173215225`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070863616923085`", ",", 
       RowBox[{"-", "0.005551752966653727`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7070863616923085`", ",", "0.005551752966653727`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070764811152095`", ",", "0.006615339965876995`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.7070764811152095`", ",", 
       RowBox[{"-", "0.006615339965876995`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070424857748169`", ",", 
       RowBox[{"-", "0.00958462947917232`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7070424857748169`", ",", "0.00958462947917232`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.707092645490992`", ",", "0.004646680088361714`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.707092645490992`", ",", 
       RowBox[{"-", "0.004646680088361714`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7071052146919535`", ",", 
       RowBox[{"-", "0.00190103913738439`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7071052146919535`", ",", "0.00190103913738439`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7071076844361827`", ",", "0.00004999763013192373`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.7071076844361827`", ",", 
       RowBox[{"-", "0.00004999763013192373`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7069629992172233`", ",", 
       RowBox[{"-", "0.014362173645812637`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7069629992172233`", ",", "0.014362173645812637`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6999045819902886`", ",", 
       RowBox[{"-", "0.10067602474546994`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.6999045819902886`", ",", "0.10067602474546994`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6228088541344033`", ",", 
       RowBox[{"-", "0.33482745187334384`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.6228088541344033`", ",", "0.33482745187334384`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.3769289091473803`", ",", 
       RowBox[{"-", "0.598270563376545`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.3769289091473803`", ",", "0.598270563376545`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7032858313722599`", ",", 
       RowBox[{"-", "0.07340805312640161`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7032858313722599`", ",", "0.07340805312640161`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7069719763418314`", ",", 
       RowBox[{"-", "0.01387175842248402`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7069719763418314`", ",", "0.01387175842248402`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070941295546229`", ",", "0.004345423673776513`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.7070941295546229`", ",", 
       RowBox[{"-", "0.004345423673776513`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7071053062694901`", ",", 
       RowBox[{"-", "0.0019563193441987617`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7071053062694901`", ",", "0.0019563193441987617`"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070789829265552`", ",", "0.006510601578030028`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.7070789829265552`", ",", 
       RowBox[{"-", "0.006510601578030028`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070550746151042`", ",", 
       RowBox[{"-", "0.008665367890195338`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7070550746151042`", ",", "0.008665367890195338`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.70701823409855`", ",", "0.011224202491768467`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.70701823409855`", ",", 
       RowBox[{"-", "0.011224202491768467`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7069027552760363`", ",", 
       RowBox[{"-", "0.017021235289104392`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7069027552760363`", ",", "0.017021235289104392`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070206208880339`", ",", "0.011092222360975462`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.7070206208880339`", ",", 
       RowBox[{"-", "0.011092222360975462`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070873875604606`", ",", 
       RowBox[{"-", "0.005517897601959144`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7070873875604606`", ",", "0.005517897601959144`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070520234568143`", ",", "0.008918172677318375`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.7070520234568143`", ",", 
       RowBox[{"-", "0.008918172677318375`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7071033045578399`", ",", 
       RowBox[{"-", "0.0027851070915382112`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7071033045578399`", ",", "0.0027851070915382112`"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7070957634344417`", ",", 
       RowBox[{"-", "0.00407947929681201`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7070957634344417`", ",", "0.00407947929681201`"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.3514178416777231`", ",", 
       RowBox[{"-", "0.6136020242260507`"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.3514178416777231`", ",", "0.6136020242260507`"}], "}"}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.85501064709466*^9, 3.855010734277814*^9, 
  3.855010784981222*^9},
 CellLabel->
  "Out[532]=",ExpressionUUID->"99244671-907f-461c-bc38-a2e0f8690317"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.854728952799924*^9, 
  3.8547289528026752`*^9}},ExpressionUUID->"b940e9bb-7975-4159-8f9b-\
25740ecdb320"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"sim", "[", 
      RowBox[{"dd_", ",", " ", "scale_", ",", " ", "exp_"}], "]"}], ":=", " ", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"d", ",", " ", "sc", ",", " ", "expp"}], "}"}], ",", "  ", 
       RowBox[{
        RowBox[{"d", "=", "dd"}], ";", " ", 
        RowBox[{"sc", " ", "=", "scale"}], ";", " ", 
        RowBox[{"expp", "=", "exp"}], ";", " ", "\[IndentingNewLine]", 
        RowBox[{"\[Phi]", " ", "=", " ", 
         RowBox[{"d", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"amplitude", "[", "t_", "]"}], ":=", 
         RowBox[{"Module", "[", 
          RowBox[{
           RowBox[{"{", "tt", "}"}], ",", "  ", 
           RowBox[{
            RowBox[{"tt", "=", "t"}], ";", "\[IndentingNewLine]", 
            RowBox[{"ret", "=", "0"}], ";", "\[IndentingNewLine]", 
            RowBox[{"For", "[", 
             RowBox[{
              RowBox[{"m", "=", "0"}], ",", " ", 
              RowBox[{"m", "\[LessEqual]", " ", 
               RowBox[{
                RowBox[{"Length", "[", "d", "]"}], "-", "2"}]}], ",", " ", 
              RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{"m", "\[Equal]", "0"}], ",", " ", 
                 RowBox[{"scalar", "=", 
                  RowBox[{"a", "/", "2"}]}], ",", 
                 RowBox[{"scalar", "=", "a"}]}], "]"}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"ret", "+=", 
                RowBox[{"scalar", "*", 
                 RowBox[{"d", "[", 
                  RowBox[{"[", 
                   RowBox[{"m", "+", "2"}], "]"}], "]"}], "*", 
                 RowBox[{"Cos", "[", 
                  RowBox[{
                   RowBox[{"m", "*", "\[Phi]"}], " ", "+", " ", 
                   RowBox[{"m", "*", "\[Omega]", "*", "tt"}]}], "]"}]}]}]}]}],
              "]"}], ";", "\[IndentingNewLine]", "ret"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"\[Omega]", " ", "=", " ", 
         RowBox[{"2", "*", "\[Pi]", "*", "18"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"U", " ", "=", " ", 
         RowBox[{"2", "\[Pi]", "*", "1"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"a", " ", "=", " ", ".2"}], ";", "\[IndentingNewLine]", 
        RowBox[{"end", " ", "=", " ", 
         RowBox[{"2", "*", 
          RowBox[{"(", 
           RowBox[{"\[Pi]", "/", 
            RowBox[{"(", 
             RowBox[{"a", "*", "U"}], ")"}]}], ")"}], "*", "sc"}]}], ";", " ", 
        RowBox[{"(*", " ", 
         RowBox[{"twice", " ", "for", " ", "no", " ", "precomp"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"up", "=", 
         RowBox[{"1", "/", 
          RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"down", "=", 
         RowBox[{"1", "/", 
          RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"h", "[", "x_", "]"}], ":=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"sc", " ", "\[LessEqual]", ".5"}], " ", ",", " ", 
           RowBox[{"U", "*", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"\[Omega]", "*", "x"}], "-", 
              RowBox[{"\[Pi]", "/", "2"}], " ", "+", " ", 
              RowBox[{"amplitude", "[", "x", "]"}]}], "]"}]}], ",", "  ", 
           RowBox[{"U", "*", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"2", "*", "\[Omega]", "*", "x"}], "-", 
              RowBox[{"\[Pi]", "/", "2"}], " ", "+", " ", 
              RowBox[{"amplitude", "[", "x", "]"}]}], "]"}]}]}], "]"}]}], ";",
         "\[IndentingNewLine]", 
        RowBox[{"s", "=", 
         RowBox[{"NDSolve", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"\[ImaginaryI]", "*", 
               RowBox[{
                RowBox[{"y", "'"}], "[", "x", "]"}]}], "\[Equal]", 
              RowBox[{"h", "*", 
               RowBox[{"y", "[", "x", "]"}]}]}], " ", ",", 
             RowBox[{
              RowBox[{"y", "[", "0", "]"}], "\[Equal]", "up"}]}], "}"}], ",", 
           "y", ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0", ",", "end"}], "}"}], ",", " ", 
           RowBox[{"MaxSteps", "\[Rule]", "Infinity"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"up", " ", "=", " ", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{
            RowBox[{"y", "[", "end", "]"}], "/.", "s"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"s", "=", 
         RowBox[{"NDSolve", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"\[ImaginaryI]", "*", 
               RowBox[{
                RowBox[{"y", "'"}], "[", "x", "]"}]}], "\[Equal]", 
              RowBox[{
               RowBox[{"-", "h"}], "*", 
               RowBox[{"y", "[", "x", "]"}]}]}], " ", ",", 
             RowBox[{
              RowBox[{"y", "[", "0", "]"}], "\[Equal]", "down"}]}], "}"}], 
           ",", "y", ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0", ",", "end"}], "}"}], ",", " ", 
           RowBox[{"MaxSteps", "\[Rule]", "Infinity"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"down", " ", "=", " ", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{
            RowBox[{"y", "[", "end", "]"}], "/.", "s"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"expp", "\[Equal]", "1"}], ",", 
          RowBox[{"Re", "[", 
           RowBox[{
            RowBox[{"up", "*", 
             RowBox[{"Conjugate", "[", "down", "]"}]}], " ", "+", " ", 
            RowBox[{"down", "*", 
             RowBox[{"Conjugate", "[", "up", "]"}]}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Re", "[", "up", "]"}], ",", " ", 
              RowBox[{"Im", "[", "up", "]"}]}], "}"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Re", "[", "down", "]"}], ",", " ", 
              RowBox[{"Im", "[", "down", "]"}]}], "}"}]}], "}"}]}], "]"}]}]}],
       "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"For", " ", "Z11"}], "+", "Z22"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s", "=", 
     RowBox[{"Import", "[", 
      RowBox[{
      "\"\<~/repos/single_site_addressability/final_notebooks/z1122.csv\>\"", 
       ",", "\"\<String\>\""}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"data1122", "=", 
     RowBox[{"ImportString", "[", 
      RowBox[{
       RowBox[{"StringReplace", "[", 
        RowBox[{"s", ",", 
         RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "]"}], ",", 
       "\"\<Data\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"DiscretePlot", "[", 
    RowBox[{
     RowBox[{"sim", "[", 
      RowBox[{
       RowBox[{"data1122", "[", 
        RowBox[{"[", "32", "]"}], "]"}], ",", " ", "sc", ",", " ", "1"}], 
      "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"sc", ",", " ", "0", " ", ",", "1", ",", " ", ".01"}], "}"}], 
     ",", " ", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<Small Amp Z11+Z22\>\""}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<\[Pi]/(UA)\>\"", ",", " ", "\"\<<\[Sigma]x>\>\""}], 
       "}"}]}], ",", " ", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[Pi]/(UA)\>\"", ",", " ", 
          RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}], ",", " ", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<<\[Sigma]x>\>\"", ",", " ", 
          RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}]}], "}"}]}], ",", " ", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"FontSize", "\[Rule]", "24"}], "}"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.85506774511029*^9, 3.855067781931115*^9}, {
  3.8550678530999813`*^9, 3.855067901221037*^9}, {3.855069049845778*^9, 
  3.8550692162935953`*^9}, {3.855069269035946*^9, 3.8550692817365828`*^9}, {
  3.8550693255822*^9, 3.855069351777091*^9}, {3.8550694530828447`*^9, 
  3.8550695418143377`*^9}, {3.855069604721985*^9, 3.855069657665597*^9}, {
  3.8550697163543787`*^9, 3.8550697260627947`*^9}, {3.855069883042571*^9, 
  3.855069933118348*^9}},
 CellLabel->
  "In[1384]:=",ExpressionUUID->"b9a8b7eb-5fef-4bd3-993c-96b3e5e11958"],

Cell[BoxData[
 GraphicsBox[{{
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004766666666666667], 
     AbsoluteThickness[1.6], 
     TagBox[{
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.004766666666666667], AbsoluteThickness[1.6], Opacity[0.2], 
        LineBox[{{{0.28, -0.0814056812558675}, {0.28, 0}}, {{
           0.29, -0.19701578688369897`}, {0.29, 0}}, {{
           0.3, -0.28217259436237613`}, {0.3, 0}}, {{
           0.31, -0.32540304827226374`}, {0.31, 0}}, {{
           0.32, -0.3325271071987985}, {0.32, 0}}, {{
           0.33, -0.3333820156731383}, {0.33, 0}}, {{
           0.34, -0.34301197543235384`}, {0.34, 0}}, {{
           0.35000000000000003`, -0.3679932078919112}, {
           0.35000000000000003`, 0}}, {{0.36, -0.42951137330667966`}, {
           0.36, 0}}, {{0.37, -0.535159034049421}, {0.37, 0}}, {{
           0.38, -0.6445601257120344}, {0.38, 0}}, {{
           0.39, -0.7292775293388355}, {0.39, 0}}, {{
           0.4, -0.7864314665610841}, {0.4, 0}}, {{
           0.41000000000000003`, -0.813642603917942}, {
           0.41000000000000003`, 0}}, {{0.42, -0.818005031965576}, {
           0.42, 0}}, {{0.43, -0.8185263219865744}, {0.43, 0}}, {{
           0.44, -0.8243619108951858}, {0.44, 0}}, {{
           0.45, -0.8391955558666667}, {0.45, 0}}, {{
           0.46, -0.8737716483142858}, {0.46, 0}}, {{
           0.47000000000000003`, -0.9259898650089937}, {
           0.47000000000000003`, 0}}, {{0.48, -0.9685665964976616}, {
           0.48, 0}}, {{0.49, -0.9909585864787503}, {0.49, 0}}, {{
           0.5, -0.9989043139516168}, {0.5, 0}}, {{
           0.51, -0.9999998626651987}, {0.51, 0}}, {{
           0.52, -0.9999823978462457}, {0.52, 0}}, {{
           0.53, -0.9999764905449762}, {0.53, 0}}, {{
           0.54, -0.9998525691186912}, {0.54, 0}}, {{
           0.55, -0.9990350317390296}, {0.55, 0}}, {{
           0.56, -0.993840329458294}, {0.56, 0}}, {{
           0.5700000000000001, -0.9732547824701202}, {
           0.5700000000000001, 0}}, {{0.58, -0.9332098062312154}, {
           0.58, 0}}, {{0.59, -0.8849685416886448}, {0.59, 0}}, {{
           0.6, -0.840757761118024}, {0.6, 0}}, {{
           0.61, -0.8153313360665518}, {0.61, 0}}, {{
           0.62, -0.8109402842436872}, {0.62, 0}}, {{
           0.63, -0.810409456905258}, {0.63, 0}}, {{
           0.64, -0.8043719695778564}, {0.64, 0}}, {{
           0.65, -0.7882065682627029}, {0.65, 0}}, {{
           0.66, -0.74516846944093}, {0.66, 0}}, {{
           0.67, -0.659416967684213}, {0.67, 0}}, {{
           0.68, -0.5516081439269331}, {0.68, 0}}, {{
           0.6900000000000001, -0.45063217553605234`}, {
           0.6900000000000001, 0}}, {{
           0.7000000000000001, -0.3706684423020424}, {
           0.7000000000000001, 0}}, {{0.71, -0.32815375044198125`}, {
           0.71, 0}}, {{0.72, -0.32101858377848747`}, {0.72, 0}}, {{
           0.73, -0.32015964103013567`}, {0.73, 0}}, {{
           0.74, -0.3104487024266195}, {0.74, 0}}, {{
           0.75, -0.28493322894570244`}, {0.75, 0}}, {{
           0.76, -0.22001993985064305`}, {0.76, 0}}, {{
           0.77, -0.10091845686404}, {0.77, 0}}},
         VertexColors->None]}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.004766666666666667], AbsoluteThickness[1.6], Opacity[0.2], 
        LineBox[{{{0., 0.9999999999999998}, {0., 0}}, {{0.01, 
           0.9989705007783838}, {0.01, 0}}, {{0.02, 0.9985998964639383}, {
           0.02, 0}}, {{0.03, 0.9985515480054277}, {0.03, 0}}, {{0.04, 
           0.9979487171053376}, {0.04, 0}}, {{0.05, 0.9958813610640183}, {
           0.05, 0}}, {{0.06, 0.9875608010909632}, {0.06, 0}}, {{0.07, 
           0.9614311615373988}, {0.07, 0}}, {{0.08, 0.915362448401811}, {
           0.08, 0}}, {{0.09, 0.8621964523244758}, {0.09, 0}}, {{0.1, 
           0.8144873533316125}, {0.1, 0}}, {{0.11, 0.7873291306707838}, {
           0.11, 0}}, {{0.12, 0.7826561877659188}, {0.12, 0}}, {{0.13, 
           0.7820915291446352}, {0.13, 0}}, {{0.14, 0.7756738581064687}, {
           0.14, 0}}, {{0.15, 0.7585297089713708}, {0.15, 0}}, {{0.16, 
           0.7131293751931167}, {0.16, 0}}, {{0.17, 0.6234971579340978}, {
           0.17, 0}}, {{0.18, 0.5119523807603874}, {0.18, 0}}, {{0.19, 
           0.4083434439227757}, {0.19, 0}}, {{0.2, 0.32677944646516754`}, {
           0.2, 0}}, {{0.21, 0.2835688878578735}, {0.21, 0}}, {{0.22, 
           0.27632691827399686`}, {0.22, 0}}, {{0.23, 0.27545530958132153`}, {
           0.23, 0}}, {{0.24, 0.26560397250058354`}, {0.24, 0}}, {{0.25, 
           0.23974396704003098`}, {0.25, 0}}, {{0.26, 0.1741084576865905}, {
           0.26, 0}}, {{0.27, 0.054229457664017044`}, {0.27, 0}}, {{0.78, 
           0.03465453506083055}, {0.78, 0}}, {{0.79, 0.1508984877855991}, {
           0.79, 0}}, {{0.8, 0.23694804013220871`}, {0.8, 0}}, {{0.81, 
           0.2807766469004349}, {0.81, 0}}, {{0.8200000000000001, 
           0.28800910057558904`}, {0.8200000000000001, 0}}, {{
           0.8300000000000001, 0.28887720435945663`}, {
           0.8300000000000001, 0}}, {{0.84, 0.29865863804419923`}, {
           0.84, 0}}, {{0.85, 0.32405738931860784`}, {0.85, 0}}, {{0.86, 
           0.38676131289642}, {0.86, 0}}, {{0.87, 0.4950231504130882}, {
           0.87, 0}}, {{0.88, 0.6080590498228877}, {0.88, 0}}, {{0.89, 
           0.6964447558376237}, {0.89, 0}}, {{0.9, 0.7566513406332659}, {
           0.9, 0}}, {{0.91, 0.7855327132026833}, {0.91, 0}}, {{0.92, 
           0.790178492481131}, {0.92, 0}}, {{0.93, 0.7907339511517935}, {
           0.93, 0}}, {{0.9400000000000001, 0.7969566913141011}, {
           0.9400000000000001, 0}}, {{0.9500000000000001, 
           0.8128149989492363}, {0.9500000000000001, 0}}, {{0.96, 
           0.8500449061727402}, {0.96, 0}}, {{0.97, 0.907299102229948}, {
           0.97, 0}}, {{0.98, 0.9558589697090122}, {0.98, 0}}, {{0.99, 
           0.983590967450793}, {0.99, 0}}, {{1., 0.9956178146677067}, {
           1., 0}}},
         VertexColors->None]}},
      Annotation[#, "Charting`Private`Tag$1747324#1"]& ]}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004766666666666667],
       AbsoluteThickness[1.6], {}, PointBox[CompressedData["
1:eJw1lAtMU2cUxytziLhEjRBhSn0SwQw3H2FiwL+6iTAcAlO2RALKZLinj4zE
qSibdC6KopMxcbiIIpvTFWQqoiufE2WV8WhLS7F2paWl7b2lvZtQRJi4tt/H
SW5uvvs4j//vnDMne0dajp9IJMrxXN77mI0+95qAfUHSdaa9hTiwVTFy4snY
uQSpq+bdPzwg4KZY4ki9+SMibqzeMndg7H0lGqSm8CWCgDNlXrsEg/146RrD
2PdS5HHCjNAzAvpSvU+u4sFUScKkey72/zWc4fa9VvWWE4HaCzvjAuuwhkhf
CPvewfzVY8e0JfJ1U3hEZhTfdUf8jvwPP9W3LOaY/wboXMnPCidxqPT8rb1w
B7sGChUWf47F+wPdsrMjqSo7lvqsEZG7z4cY19pZ/HuwSgNqB5RWNLojPBHu
o2hF+4aafjPL508YlhW7ua1GpPkCyjG9JenI+rk6lt8D+P9iSR/g1DDt9Tps
xrZ2o3g0XMXybcGCXQh9t1qJXd70drZi9TtHkidXKFn+bTAMWVp/eq4ApaFA
gbovwlXdxupRoCpeX/ZqYhMSfAGU2B6eVDXYeJnVp8Q23W+1Iu014o2WUaxC
ZsDtZYrXHxBabwdaExdUhk1WEV852g4Mx5cm53aoCa1fDfvj8qZZCRoyy5uO
WIPAcWWSOekaQvXQYO+3Cwrs/RqS+4HXOtEhrMleekxLqD5a9CzKXRuW/4h4
vQVJtWjovNL54mwToXp1oajy8PHYcxYy6HXn7kL103h1XLqNUP0ewv+HX9N2
L+TISp9DHSbUtUVnTOQJ1VMHWdQ35pAonvjSkzxCg3hkZuZinlB99Wgud6x4
ZStPWlu8pse4y59cqNHxhOr9N8zK627B7SDBvgQNuHNo48HrFU5C9Tdg06nR
rIOjLuJzl9GNzbenyV3XBUJ5GBEeFbDI/4nA6jFi1cM3b3jmhVA+RjRs54Mf
ec60PiM6X86rbfOcKS8TqgYvKppHBVavCTOCylNChgRC+ZkgGj859kirwOrv
gXvDlWjbfIHx7EFvzN12nd7J9OhBysapRZdS+xhfM8ySEeV+25g+Zkznn8oW
T+cZbzOCZMMTY/o5ppcFesNyRbeLY/wtGHhmSfhIxjH9LFgvDx/5bznH+qEX
4iT50Y+7bEzPXvy8RF3+b2gv649eRPcnzWqqMjF9rbg4NDM9Qqtn/WJFRVT6
nIB6LdPbiqaUY6V7RBrWPzZkR1QfPnlUzfS3YXOyS38gX836yYavvxLFbjN0
MB522N5/UvJerIrxsKMrasqEs5EtjIcdopi/SLOmnvGwQz4jPy6uoYLND4eM
wAlvVKY0svnlUPhSeUzKxjY2TxxEZLh85ZASlAePW4EjN2WfqXDCx4NHZmSa
YnC/is07j7ZN98QxYR1svzggP5+4bLNMDcrDgUpTsaT2ThcoDwcsWbtL8qTd
bD/0Qdx5btXyPDPbR324lh1zKD7RCsqjDzmqDd37o+2gPJwYPD2/IHgex/aJ
E5/XWHPnJ3JsfznhF/xl4tW3OVAeLtytq0m9XMCB8nBB4rxfVuLHs/3jwvB3
47ec9ORNeQioO7ln9ukAJygPz56vaC/KKXWB8hDw+PGtxlNfCGxf/YMsv4WW
UL2A/wF/x1Yz
       "]], {}},
     Annotation[#, "Charting`Private`Tag$1747324#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"\[Pi]/(UA)\"", TraditionalForm], 
    FormBox["\"<\[Sigma]x>\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 24},
  DisplayFunction->Identity,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], 
    "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[1.6]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05]},
  PlotLabel->FormBox["\"Small Amp Z11+Z22\"", TraditionalForm],
  PlotRange->{{0., 1.}, {-0.9999998626651987, 0.9999999999999998}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.855067909149547*^9, 3.855068892183155*^9, {3.85506993774184*^9, 
   3.8550699448439913`*^9}},
 CellLabel->
  "Out[1387]=",ExpressionUUID->"f0dc99a3-03ca-4342-8a5b-956083df0cb4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Analytics", "[", "sc_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "scc", "}"}], ",", " ", 
     RowBox[{
      RowBox[{"scc", "=", "sc"}], ";", "\[IndentingNewLine]", 
      RowBox[{"t", " ", "=", " ", 
       RowBox[{"4", "*", 
        RowBox[{"(", 
         RowBox[{"\[Pi]", "/", 
          RowBox[{"(", 
           RowBox[{"a", "*", "U", "*", "2"}], ")"}]}], ")"}], "*", "scc"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"If", " ", "[", 
       RowBox[{
        RowBox[{"scc", "\[LessEqual]", ".5"}], ",", 
        RowBox[{"\[CapitalTheta]", " ", "=", " ", 
         RowBox[{"2", "*", "U", "*", "t", "*", 
          RowBox[{"BesselJ", "[", 
           RowBox[{"1", ",", " ", "a"}], "]"}]}]}], ",", 
        RowBox[{"\[CapitalTheta]", " ", "=", " ", 
         RowBox[{"2", "*", "U", "*", "t", "*", 
          RowBox[{"BesselJ", "[", 
           RowBox[{"1", ",", " ", "a"}], "]"}]}]}]}], "]"}], ";", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Phi]", "=", "\[Pi]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"correction", " ", "=", " ", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"4", "*", "U", "*", 
              RowBox[{"BesselJ", "[", 
               RowBox[{"n", ",", " ", 
                RowBox[{"inverseb", "[", "a", "]"}]}], "]"}], "*", 
              RowBox[{"Sin", "[", 
               RowBox[{
                RowBox[{"1", "/", "2"}], "*", 
                RowBox[{"(", 
                 RowBox[{"n", "+", "1"}], ")"}], "*", "t", "*", "\[Omega]"}], 
               "]"}], "*", 
              RowBox[{"Cos", "[", 
               RowBox[{
                RowBox[{"n", "*", "\[Phi]"}], " ", "+", " ", 
                RowBox[{
                 RowBox[{"1", "/", "2"}], "*", 
                 RowBox[{"(", 
                  RowBox[{"\[Pi]", "-", 
                   RowBox[{"2", "*", "t", "*", "\[Omega]"}]}], ")"}]}], "-", 
                RowBox[{"\[Pi]", "/", "2"}]}], "]"}]}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"n", "+", "1"}], ")"}], "*", "\[Omega]"}], ")"}]}], 
           ",", " ", 
           RowBox[{"{", 
            RowBox[{"n", ",", "0", ",", " ", "100"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"correction", " ", "+=", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"4", "*", "U", "*", 
              RowBox[{"BesselJ", "[", 
               RowBox[{"n", ",", " ", 
                RowBox[{"inverseb", "[", "a", "]"}]}], "]"}], "*", 
              RowBox[{"Sin", "[", 
               RowBox[{
                RowBox[{"1", "/", "2"}], "*", 
                RowBox[{"(", 
                 RowBox[{"n", "+", "1"}], ")"}], "*", "t", "*", "\[Omega]"}], 
               "]"}], "*", 
              RowBox[{"Cos", "[", 
               RowBox[{
                RowBox[{"n", "*", "\[Phi]"}], " ", "+", " ", 
                RowBox[{
                 RowBox[{"1", "/", "2"}], "*", 
                 RowBox[{"(", 
                  RowBox[{"\[Pi]", "-", 
                   RowBox[{"2", "*", "t", "*", "\[Omega]"}]}], ")"}]}], "-", 
                RowBox[{"\[Pi]", "/", "2"}]}], "]"}]}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"n", "+", "1"}], ")"}], "*", "\[Omega]"}], ")"}]}], 
           ",", " ", 
           RowBox[{"{", 
            RowBox[{"n", ",", 
             RowBox[{"-", "100"}], ",", " ", 
             RowBox[{"-", "2"}]}], "}"}]}], "]"}]}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"correction", "=", "0"}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], "-", 
       RowBox[{
        RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}], "*", 
        "correction"}]}]}]}], "\[IndentingNewLine]", "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"DiscretePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Analytics", "[", "sc", "]"}], ",", 
     RowBox[{"sim", "[", 
      RowBox[{
       RowBox[{"data11", "[", 
        RowBox[{"[", "32", "]"}], "]"}], ",", " ", "sc", ",", " ", "1"}], 
      "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"sc", ",", " ", "0", ",", " ", "1", ",", " ", ".01"}], "}"}], ",",
    "  ", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<2*\[Pi]/(UA)\>\"", ",", " ", 
        RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}], ",", " ", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<<\[Sigma]x>\>\"", ",", " ", 
        RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}]}], "}"}]}], ",", " ", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<Theory\>\"", ",", " ", "24"}], "]"}], ",", " ", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<Numerics\>\"", ",", " ", "24"}], "]"}]}], "}"}]}], ",", 
   " ", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"FontSize", "\[Rule]", "24"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.855068068133086*^9, 3.8550680707035*^9}, {
  3.855068428606268*^9, 3.855068655293633*^9}, {3.8550687174171963`*^9, 
  3.855068762631221*^9}, {3.855068806422307*^9, 3.855068850942254*^9}, {
  3.855070018145898*^9, 3.855070019056534*^9}},
 CellLabel->
  "In[1390]:=",ExpressionUUID->"f7f31b73-9666-48f6-8b26-d4bf5cddb1d8"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{
        Directive[
         PointSize[0.004766666666666667], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        TagBox[{{{
            Directive[
             Opacity[0.2], 
             PointSize[0.004766666666666667], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[1.6]], 
            
            LineBox[{{{0.26, -0.05465007451124398}, {0.26, 0}}, {{
               0.27, -0.11692743949400096`}, {0.27, 0}}, {{
               0.28, -0.1787479392044439}, {0.28, 0}}, {{
               0.29, -0.2398700252125629}, {0.29, 0}}, {{
               0.3, -0.30005487796847946`}, {0.3, 0}}, {{
               0.31, -0.35906733993122186`}, {0.31, 0}}, {{
               0.32, -0.41667683438910236`}, {0.32, 0}}, {{
               0.33, -0.4726582663816291}, {0.33, 0}}, {{
               0.34, -0.526792902202817}, {0.34, 0}}, {{
               0.35000000000000003`, -0.5788692240494623}, {
               0.35000000000000003`, 0}}, {{0.36, -0.628683756475044}, {
               0.36, 0}}, {{0.37, -0.6760418614200931}, {0.37, 0}}, {{
               0.38, -0.7207584987126396}, {0.38, 0}}, {{
               0.39, -0.7626589490672698}, {0.39, 0}}, {{
               0.4, -0.8015794967578528}, {0.4, 0}}, {{
               0.41000000000000003`, -0.8373680692965606}, {
               0.41000000000000003`, 0}}, {{0.42, -0.8698848316197892}, {
               0.42, 0}}, {{0.43, -0.899002732459352}, {0.43, 0}}, {{
               0.44, -0.9246080007641267}, {0.44, 0}}, {{
               0.45, -0.9466005902325147}, {0.45, 0}}, {{
               0.46, -0.9648945702188113}, {0.46, 0}}, {{
               0.47000000000000003`, -0.9794184614861121}, {
               0.47000000000000003`, 0}}, {{0.48, -0.9901155154938901}, {
               0.48, 0}}, {{0.49, -0.9969439361289885}, {0.49, 0}}, {{
               0.5, -0.9998770430136752}, {0.5, 0}}, {{
               0.51, -0.998903375752671}, {0.51, 0}}, {{
               0.52, -0.994026738711831}, {0.52, 0}}, {{
               0.53, -0.9852661861535189}, {0.53, 0}}, {{
               0.54, -0.9726559477867535}, {0.54, 0}}, {{
               0.55, -0.9562452950230212}, {0.55, 0}}, {{
               0.56, -0.9360983484603289}, {0.56, 0}}, {{
               0.5700000000000001, -0.9122938273477037}, {
               0.5700000000000001, 0}}, {{0.58, -0.8849247420090489}, {
               0.58, 0}}, {{0.59, -0.8540980304281277}, {0.59, 0}}, {{
               0.6, -0.8199341404146417}, {0.6, 0}}, {{
               0.61, -0.7825665589839725}, {0.61, 0}}, {{
               0.62, -0.7421412907894328}, {0.62, 0}}, {{
               0.63, -0.6988162876449169}, {0.63, 0}}, {{
               0.64, -0.6527608313669531}, {0.64, 0}}, {{
               0.65, -0.6041548723475553}, {0.65, 0}}, {{
               0.66, -0.5531883264422258}, {0.66, 0}}, {{
               0.67, -0.5000603329203704}, {0.67, 0}}, {{
               0.68, -0.4449784763774665}, {0.68, 0}}, {{
               0.6900000000000001, -0.38815797564921367`}, {
               0.6900000000000001, 0}}, {{
               0.7000000000000001, -0.32982084289674685`}, {
               0.7000000000000001, 0}}, {{0.71, -0.2701950161486119}, {
               0.71, 0}}, {{0.72, -0.20951346868885506`}, {0.72, 0}}, {{
               0.73, -0.1480132987711002}, {0.73, 0}}, {{
               0.74, -0.08593480321531127}, {0.74, 0}}, {{
               0.75, -0.023520538506940875`}, {0.75, 0}}}, VertexColors -> 
             None]}, {
            Directive[
             Opacity[0.2], 
             PointSize[0.004766666666666667], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[1.6]], 
            
            LineBox[{{{0., 1.}, {0., 0}}, {{0.01, 0.9980463727150312}, {
               0.01, 0}}, {{0.02, 0.9921931241792619}, {0.02, 0}}, {{0.03, 
               0.9824631245247823}, {0.03, 0}}, {{0.04, 0.9688943913372082}, {
               0.04, 0}}, {{0.05, 0.9515399411112948}, {0.05, 0}}, {{0.06, 
               0.9304675821019961}, {0.06, 0}}, {{0.07, 0.9057596493803504}, {
               0.07, 0}}, {{0.08, 0.8775126831293982}, {0.08, 0}}, {{0.09, 
               0.8458370514371106}, {0.09, 0}}, {{0.1, 0.8108565190601726}, {
               0.1, 0}}, {{0.11, 0.772707763843573}, {0.11, 0}}, {{0.12, 
               0.7315398426854695}, {0.12, 0}}, {{0.13, 0.6875136091339414}, {
               0.13, 0}}, {{0.14, 0.6408010848912306}, {0.14, 0}}, {{0.15, 
               0.5915847876811575}, {0.15, 0}}, {{0.16, 0.5400570181059114}, {
               0.16, 0}}, {{0.17, 0.4864191082786443}, {0.17, 0}}, {{0.18, 
               0.43088063516765057`}, {0.18, 0}}, {{0.19, 
               0.3736586017258002}, {0.19, 0}}, {{0.2, 
               0.31497658900476017`}, {0.2, 0}}, {{0.21, 
               0.25506388256690793`}, {0.21, 0}}, {{0.22, 
               0.19415457660827007`}, {0.22, 0}}, {{0.23, 
               0.13248665929290526`}, {0.23, 0}}, {{0.24, 
               0.0703010828725629}, {0.24, 0}}, {{0.25, 
               0.007840822224894494}, {0.25, 0}}, {{0.76, 
               0.0389856269329964}, {0.76, 0}}, {{0.77, 
               0.10133946560393872`}, {0.77, 0}}, {{0.78, 
               0.163297345184785}, {0.78, 0}}, {{0.79, 0.2246171804673985}, {
               0.79, 0}}, {{0.8, 0.2850593792451451}, {0.8, 0}}, {{0.81, 
               0.34438777846063334`}, {0.81, 0}}, {{0.8200000000000001, 
               0.4023705669548989}, {0.8200000000000001, 0}}, {{
               0.8300000000000001, 0.45878119121262156`}, {
               0.8300000000000001, 0}}, {{0.84, 0.5133992405643781}, {
               0.84, 0}}, {{0.85, 0.5660113083872361}, {0.85, 0}}, {{0.86, 
               0.6164118259387625}, {0.86, 0}}, {{0.87, 0.6644038655664254}, {
               0.87, 0}}, {{0.88, 0.709799910154071}, {0.88, 0}}, {{0.89, 
               0.7524225857990249}, {0.89, 0}}, {{0.9, 0.7921053548570908}, {
               0.9, 0}}, {{0.91, 0.8286931666475192}, {0.91, 0}}, {{0.92, 
               0.8620430632754891}, {0.92, 0}}, {{0.93, 0.8920247382049917}, {
               0.93, 0}}, {{0.9400000000000001, 0.918521045399646}, {
               0.9400000000000001, 0}}, {{0.9500000000000001, 
               0.9414284570420781}, {0.9500000000000001, 0}}, {{0.96, 
               0.9606574680434634}, {0.96, 0}}, {{0.97, 0.9761329457626914}, {
               0.97, 0}}, {{0.98, 0.9877944235687215}, {0.98, 0}}, {{0.99, 
               0.9955963370991033}, {0.99, 0}}, {{1., 0.9995082022915418}, {
               1., 0}}}, VertexColors -> None]}}}, 
         Annotation[#, "Charting`Private`Tag$1753014#1"]& ]}, {
        Directive[
         PointSize[0.004766666666666667], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        TagBox[{{{
            Directive[
             Opacity[0.2], 
             PointSize[0.004766666666666667], 
             RGBColor[0.880722, 0.611041, 0.142051], 
             AbsoluteThickness[1.6]], 
            LineBox[{{{0.28, -0.0814056812558675}, {0.28, 0}}, {{
               0.29, -0.19701578688369897`}, {0.29, 0}}, {{
               0.3, -0.28217259436237613`}, {0.3, 0}}, {{
               0.31, -0.32540304827226374`}, {0.31, 0}}, {{
               0.32, -0.3325271071987985}, {0.32, 0}}, {{
               0.33, -0.3333820156731383}, {0.33, 0}}, {{
               0.34, -0.34301197543235384`}, {0.34, 0}}, {{
               0.35000000000000003`, -0.3679932078919112}, {
               0.35000000000000003`, 0}}, {{0.36, -0.42951137330667966`}, {
               0.36, 0}}, {{0.37, -0.535159034049421}, {0.37, 0}}, {{
               0.38, -0.6445601257120344}, {0.38, 0}}, {{
               0.39, -0.7292775293388355}, {0.39, 0}}, {{
               0.4, -0.7864314665610841}, {0.4, 0}}, {{
               0.41000000000000003`, -0.813642603917942}, {
               0.41000000000000003`, 0}}, {{0.42, -0.818005031965576}, {
               0.42, 0}}, {{0.43, -0.8185263219865744}, {0.43, 0}}, {{
               0.44, -0.8243619108951858}, {0.44, 0}}, {{
               0.45, -0.8391955558666667}, {0.45, 0}}, {{
               0.46, -0.8737716483142858}, {0.46, 0}}, {{
               0.47000000000000003`, -0.9259898650089937}, {
               0.47000000000000003`, 0}}, {{0.48, -0.9685665964976616}, {
               0.48, 0}}, {{0.49, -0.9909585864787503}, {0.49, 0}}, {{
               0.5, -0.9989043139516168}, {0.5, 0}}, {{
               0.51, -0.9999998626651987}, {0.51, 0}}, {{
               0.52, -0.9999823978462457}, {0.52, 0}}, {{
               0.53, -0.9999764905449762}, {0.53, 0}}, {{
               0.54, -0.9998525691186912}, {0.54, 0}}, {{
               0.55, -0.9990350317390296}, {0.55, 0}}, {{
               0.56, -0.993840329458294}, {0.56, 0}}, {{
               0.5700000000000001, -0.9732547824701202}, {
               0.5700000000000001, 0}}, {{0.58, -0.9332098062312154}, {
               0.58, 0}}, {{0.59, -0.8849685416886448}, {0.59, 0}}, {{
               0.6, -0.840757761118024}, {0.6, 0}}, {{
               0.61, -0.8153313360665518}, {0.61, 0}}, {{
               0.62, -0.8109402842436872}, {0.62, 0}}, {{
               0.63, -0.810409456905258}, {0.63, 0}}, {{
               0.64, -0.8043719695778564}, {0.64, 0}}, {{
               0.65, -0.7882065682627029}, {0.65, 0}}, {{
               0.66, -0.74516846944093}, {0.66, 0}}, {{
               0.67, -0.659416967684213}, {0.67, 0}}, {{
               0.68, -0.5516081439269331}, {0.68, 0}}, {{
               0.6900000000000001, -0.45063217553605234`}, {
               0.6900000000000001, 0}}, {{
               0.7000000000000001, -0.3706684423020424}, {
               0.7000000000000001, 0}}, {{0.71, -0.32815375044198125`}, {
               0.71, 0}}, {{0.72, -0.32101858377848747`}, {0.72, 0}}, {{
               0.73, -0.32015964103013567`}, {0.73, 0}}, {{
               0.74, -0.3104487024266195}, {0.74, 0}}, {{
               0.75, -0.28493322894570244`}, {0.75, 0}}, {{
               0.76, -0.22001993985064305`}, {0.76, 0}}, {{
               0.77, -0.10091845686404}, {0.77, 0}}}, VertexColors -> None]}, {
            Directive[
             Opacity[0.2], 
             PointSize[0.004766666666666667], 
             RGBColor[0.880722, 0.611041, 0.142051], 
             AbsoluteThickness[1.6]], 
            
            LineBox[{{{0., 0.9999999999999998}, {0., 0}}, {{0.01, 
               0.9989705007783838}, {0.01, 0}}, {{0.02, 0.9985998964639383}, {
               0.02, 0}}, {{0.03, 0.9985515480054277}, {0.03, 0}}, {{0.04, 
               0.9979487171053376}, {0.04, 0}}, {{0.05, 0.9958813610640183}, {
               0.05, 0}}, {{0.06, 0.9875608010909632}, {0.06, 0}}, {{0.07, 
               0.9614311615373988}, {0.07, 0}}, {{0.08, 0.915362448401811}, {
               0.08, 0}}, {{0.09, 0.8621964523244758}, {0.09, 0}}, {{0.1, 
               0.8144873533316125}, {0.1, 0}}, {{0.11, 0.7873291306707838}, {
               0.11, 0}}, {{0.12, 0.7826561877659188}, {0.12, 0}}, {{0.13, 
               0.7820915291446352}, {0.13, 0}}, {{0.14, 0.7756738581064687}, {
               0.14, 0}}, {{0.15, 0.7585297089713708}, {0.15, 0}}, {{0.16, 
               0.7131293751931167}, {0.16, 0}}, {{0.17, 0.6234971579340978}, {
               0.17, 0}}, {{0.18, 0.5119523807603874}, {0.18, 0}}, {{0.19, 
               0.4083434439227757}, {0.19, 0}}, {{0.2, 
               0.32677944646516754`}, {0.2, 0}}, {{0.21, 
               0.2835688878578735}, {0.21, 0}}, {{0.22, 
               0.27632691827399686`}, {0.22, 0}}, {{0.23, 
               0.27545530958132153`}, {0.23, 0}}, {{0.24, 
               0.26560397250058354`}, {0.24, 0}}, {{0.25, 
               0.23974396704003098`}, {0.25, 0}}, {{0.26, 
               0.1741084576865905}, {0.26, 0}}, {{0.27, 
               0.054229457664017044`}, {0.27, 0}}, {{0.78, 
               0.03465453506083055}, {0.78, 0}}, {{0.79, 
               0.1508984877855991}, {0.79, 0}}, {{0.8, 
               0.23694804013220871`}, {0.8, 0}}, {{0.81, 
               0.2807766469004349}, {0.81, 0}}, {{0.8200000000000001, 
               0.28800910057558904`}, {0.8200000000000001, 0}}, {{
               0.8300000000000001, 0.28887720435945663`}, {
               0.8300000000000001, 0}}, {{0.84, 0.29865863804419923`}, {
               0.84, 0}}, {{0.85, 0.32405738931860784`}, {0.85, 0}}, {{0.86, 
               0.38676131289642}, {0.86, 0}}, {{0.87, 0.4950231504130882}, {
               0.87, 0}}, {{0.88, 0.6080590498228877}, {0.88, 0}}, {{0.89, 
               0.6964447558376237}, {0.89, 0}}, {{0.9, 0.7566513406332659}, {
               0.9, 0}}, {{0.91, 0.7855327132026833}, {0.91, 0}}, {{0.92, 
               0.790178492481131}, {0.92, 0}}, {{0.93, 0.7907339511517935}, {
               0.93, 0}}, {{0.9400000000000001, 0.7969566913141011}, {
               0.9400000000000001, 0}}, {{0.9500000000000001, 
               0.8128149989492363}, {0.9500000000000001, 0}}, {{0.96, 
               0.8500449061727402}, {0.96, 0}}, {{0.97, 0.907299102229948}, {
               0.97, 0}}, {{0.98, 0.9558589697090122}, {0.98, 0}}, {{0.99, 
               0.983590967450793}, {0.99, 0}}, {{1., 0.9956178146677067}, {
               1., 0}}}, VertexColors -> None]}}}, 
         Annotation[#, "Charting`Private`Tag$1753014#2"]& ]}}, {
       TagBox[{{
          Directive[
           PointSize[0.004766666666666667], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[1.6]], {{}, Null, 
           PointBox[CompressedData["
1:eJxVlXlQU1cUxiO4VLRSKrTBhcWWETsoY1HHaWk+l45arVaogNZUC4haZ1Qc
RDHQVhwWQSgo4IhDVUC0lhmWai0i4UYTERBFjBAIi1lIyP6silIRqcm9/tEz
8yaTvLxzzvf9zj3PN2pvaIwTj8eLeXPZP/8fj5HoXrFSLUqBVBT+5DXHse/5
6Pwm/s4kCYcar1RzSM0Z7EkpTw6PfXv/PMQrjrTOG8PhdKE9LuEDvxGtc5yN
/b8CCTXRT6MbrLCE2H+pxjLe2EvDwxb2/BW4X00UFbhb4KIojf3C5W+0b17Y
y3czs3zXsChfuyXjiRFzhDk3B/3rULhJUzyu1sDy1yNQmixo2DmA82+eVpRK
sMNnU+YMnp7Vu4GVAd0r9iX3I8gRUqQpkxYvt2lYfRkSKhUX/VapIR30f1Ph
FrYEZRf95PuI9XMbtwt8t2bldSPUUbARh5xOyMaZFKy/JgSOzD+e5/8QapE9
YTNEvOQDL0Lvs35bMFkYVzJF2Yh99vZi7yL30c4LoYMS1v89ZJ5rjVsyWg3K
4T7yZMEbu6YcZnruY4Lql4X84XKyylGgDTm1xYZnNjGh+tqw9uNfty1SNxB7
NWHOA6xzay5yvXKPUL1yeK8f2uq5QE4cchRyJAhS8gdfdhCq/yF+swasb/9D
Sbzt7Xi1Y7z0/fh3lvQR6kc7Tn+uaErqVpEd2+3RAXGyQMJP0xDqjwKnGv6M
mevVT+zZ3CsU8FdUZc4q0RHqVyf2z8zw2f/eAHluTzfYiZiedPHlHQZC/evC
qNPBSZkXjETgSKjE5BEX75o7JkL9VKJ0RHOV32EmjvZSu5Fe0ftDscxCqL89
8OwpSok+aSV3W+zRg+ajc0OzV9sI9bsXa6p0ebtUNuLhaLAP9ffKomIiOEL9
70NdX9P18ZUccaQTPgJfHjT0XM8RykOFz0RDH71+zTE9KkTwIxaNfcERykcF
iKVz3Fo5pk8F+VeWp1+nc4yXGpU+ku9HvTmmVw1jUsn1nEIb46fGhqWuaSnP
rEy/Bl+WeMqPzLcynhq4LFhTvTbEwvzQ4G7G0W23NpgZXy0is+tT9cEm5o8W
rx4vHt/kYmS8tTgUf+bDs2SA+dUPp+nl/14W6hn/fnx6UlmxS9vP/OtHYPy6
wuAwLZsHHTL8vh1Tc1nN/NQhde9I2s88FZsPHcpkvbx0UQ/zV4+4qQ1Z+YpO
Ni96VD3fp26c3s781uNg8aGJqtVtbH4G4JU5SRje1sz8H8D22S2Znk9usnka
QJYq5saD0b8YDwM8xJVnZB6nGA8DhmyRxy2Dpey8GPByVu60qH+ugfIw4PfW
Y7usehkoDyOme8wULZW0sPNrRMiltuofBQ/YvjAi7LudE+NcOkB5mGDYkySK
lXQh18HDBHOLW1O5sJeddxOUSYcFst0qtl/MmO0aTqQzNKA8zJA1+a8pu6YF
5WHG7iCB7s4yHdsPFmzmT1tbcVXP9pEFzqbO9M6pBlAeFsz3Wb7ButEIysOK
xj1+Ry+mmNg+sWJzZG5Yd4GZ7S8roibUHjh4zALKwwZ+XRjStllBediQcHb9
iXk+b/ezDfufvaq9Iraxfcch6BO5f2IwB8qDw2Lp5HedizhQHhzc4hO7LN0c
3r43Aopnnhsa5vAf9NhE4w==
            "]], {}}}}, 
        Annotation[#, "Charting`Private`Tag$1753014#1"]& ], 
       TagBox[{{
          Directive[
           PointSize[0.004766666666666667], 
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[1.6]], {{}, Null, 
           PointBox[CompressedData["
1:eJw1lAtMU2cUxytziLhEjRBhSn0SwQw3H2FiwL+6iTAcAlO2RALKZLinj4zE
qSibdC6KopMxcbiIIpvTFWQqoiufE2WV8WhLS7F2paWl7b2lvZtQRJi4tt/H
SW5uvvs4j//vnDMne0dajp9IJMrxXN77mI0+95qAfUHSdaa9hTiwVTFy4snY
uQSpq+bdPzwg4KZY4ki9+SMibqzeMndg7H0lGqSm8CWCgDNlXrsEg/146RrD
2PdS5HHCjNAzAvpSvU+u4sFUScKkey72/zWc4fa9VvWWE4HaCzvjAuuwhkhf
CPvewfzVY8e0JfJ1U3hEZhTfdUf8jvwPP9W3LOaY/wboXMnPCidxqPT8rb1w
B7sGChUWf47F+wPdsrMjqSo7lvqsEZG7z4cY19pZ/HuwSgNqB5RWNLojPBHu
o2hF+4aafjPL508YlhW7ua1GpPkCyjG9JenI+rk6lt8D+P9iSR/g1DDt9Tps
xrZ2o3g0XMXybcGCXQh9t1qJXd70drZi9TtHkidXKFn+bTAMWVp/eq4ApaFA
gbovwlXdxupRoCpeX/ZqYhMSfAGU2B6eVDXYeJnVp8Q23W+1Iu014o2WUaxC
ZsDtZYrXHxBabwdaExdUhk1WEV852g4Mx5cm53aoCa1fDfvj8qZZCRoyy5uO
WIPAcWWSOekaQvXQYO+3Cwrs/RqS+4HXOtEhrMleekxLqD5a9CzKXRuW/4h4
vQVJtWjovNL54mwToXp1oajy8PHYcxYy6HXn7kL103h1XLqNUP0ewv+HX9N2
L+TISp9DHSbUtUVnTOQJ1VMHWdQ35pAonvjSkzxCg3hkZuZinlB99Wgud6x4
ZStPWlu8pse4y59cqNHxhOr9N8zK627B7SDBvgQNuHNo48HrFU5C9Tdg06nR
rIOjLuJzl9GNzbenyV3XBUJ5GBEeFbDI/4nA6jFi1cM3b3jmhVA+RjRs54Mf
ec60PiM6X86rbfOcKS8TqgYvKppHBVavCTOCylNChgRC+ZkgGj859kirwOrv
gXvDlWjbfIHx7EFvzN12nd7J9OhBysapRZdS+xhfM8ySEeV+25g+Zkznn8oW
T+cZbzOCZMMTY/o5ppcFesNyRbeLY/wtGHhmSfhIxjH9LFgvDx/5bznH+qEX
4iT50Y+7bEzPXvy8RF3+b2gv649eRPcnzWqqMjF9rbg4NDM9Qqtn/WJFRVT6
nIB6LdPbiqaUY6V7RBrWPzZkR1QfPnlUzfS3YXOyS38gX836yYavvxLFbjN0
MB522N5/UvJerIrxsKMrasqEs5EtjIcdopi/SLOmnvGwQz4jPy6uoYLND4eM
wAlvVKY0svnlUPhSeUzKxjY2TxxEZLh85ZASlAePW4EjN2WfqXDCx4NHZmSa
YnC/is07j7ZN98QxYR1svzggP5+4bLNMDcrDgUpTsaT2ThcoDwcsWbtL8qTd
bD/0Qdx5btXyPDPbR324lh1zKD7RCsqjDzmqDd37o+2gPJwYPD2/IHgex/aJ
E5/XWHPnJ3JsfznhF/xl4tW3OVAeLtytq0m9XMCB8nBB4rxfVuLHs/3jwvB3
47ec9ORNeQioO7ln9ukAJygPz56vaC/KKXWB8hDw+PGtxlNfCGxf/YMsv4WW
UL2A/wF/x1Yz
            "]], {}}}}, 
        Annotation[#, "Charting`Private`Tag$1753014#2"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesLabel -> {
       FormBox[
        StyleBox["\"2*\[Pi]/(UA)\"", FontSize -> 24, StripOnInput -> False], 
        TraditionalForm], 
       FormBox[
        StyleBox["\"<\[Sigma]x>\"", FontSize -> 24, StripOnInput -> False], 
        TraditionalForm]}, AxesOrigin -> {0, 0}, 
     BaseStyle -> {FontSize -> 24}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], 
       "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
         Directive[
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.528488, 0.470624, 0.701351], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.772079, 0.431554, 0.102387], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.363898, 0.618501, 0.782349], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[1, 0.75, 0], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.647624, 0.37816, 0.614037], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.571589, 0.586483, 0.], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.915, 0.3325, 0.2125], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[
          0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
          AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
       "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> 
       Scaled[0.05]}, PlotRange -> {{0., 1.}, {-0.9999998626651987, 1.}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
       StyleBox["\"Theory\"", 24, StripOnInput -> False], 
       StyleBox["\"Numerics\"", 24, StripOnInput -> False]}, "PointLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004766666666666667`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004766666666666667`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"None", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"None", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"False", ",", "False"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.855067974438478*^9, {3.855068827288425*^9, 3.855068852361676*^9}, 
   3.8550699499422073`*^9, 3.855070020946451*^9},
 CellLabel->
  "Out[1391]=",ExpressionUUID->"8ac97924-978c-4457-916e-48eb34a3286a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"sim", "[", 
     RowBox[{"dd_", ",", " ", "scale_", ",", " ", "exp_"}], "]"}], ":=", " ", 
    
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"d", ",", " ", "sc", ",", " ", "expp"}], "}"}], ",", "  ", 
      RowBox[{
       RowBox[{"d", "=", "dd"}], ";", " ", 
       RowBox[{"sc", " ", "=", "scale"}], ";", " ", 
       RowBox[{"expp", "=", "exp"}], ";", " ", "\[IndentingNewLine]", 
       RowBox[{"\[Phi]", " ", "=", " ", 
        RowBox[{"d", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"amplitude", "[", "t_", "]"}], ":=", 
        RowBox[{"Module", "[", 
         RowBox[{
          RowBox[{"{", "tt", "}"}], ",", "  ", 
          RowBox[{
           RowBox[{"tt", "=", "t"}], ";", "\[IndentingNewLine]", 
           RowBox[{"ret", "=", "0"}], ";", "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"m", "=", "0"}], ",", " ", 
             RowBox[{"m", "\[LessEqual]", " ", 
              RowBox[{
               RowBox[{"Length", "[", "d", "]"}], "-", "2"}]}], ",", " ", 
             RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"m", "\[Equal]", "0"}], ",", " ", 
                RowBox[{"scalar", "=", 
                 RowBox[{"a", "/", "2"}]}], ",", 
                RowBox[{"scalar", "=", "a"}]}], "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"ret", "+=", 
               RowBox[{"scalar", "*", 
                RowBox[{"d", "[", 
                 RowBox[{"[", 
                  RowBox[{"m", "+", "2"}], "]"}], "]"}], "*", 
                RowBox[{"Cos", "[", 
                 RowBox[{
                  RowBox[{"m", "*", "\[Phi]"}], " ", "+", " ", 
                  RowBox[{"m", "*", "\[Omega]", "*", "tt"}]}], "]"}]}]}]}]}], 
            "]"}], ";", "\[IndentingNewLine]", "ret"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"\[Omega]", " ", "=", " ", 
        RowBox[{"2", "*", "\[Pi]", "*", "18"}]}], ";", "\[IndentingNewLine]", 
       
       RowBox[{"U", " ", "=", " ", 
        RowBox[{"2", "\[Pi]", "*", "1"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"a", " ", "=", " ", ".1"}], ";", "\[IndentingNewLine]", 
       RowBox[{"end", " ", "=", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\[Pi]", "/", 
           RowBox[{"(", 
            RowBox[{"a", "*", "U"}], ")"}]}], ")"}], "*", "sc"}]}], ";", " ", 
       
       RowBox[{"(*", " ", 
        RowBox[{"twice", " ", "for", " ", "no", " ", "precomp"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"up", "=", 
        RowBox[{"1", "/", 
         RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"down", "=", 
        RowBox[{"1", "/", 
         RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"h", " ", "=", " ", 
        RowBox[{"U", "*", 
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{"\[Omega]", "*", "x"}], "-", 
           RowBox[{"\[Pi]", "/", "2"}], " ", "+", " ", 
           RowBox[{"amplitude", "[", "x", "]"}]}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"s", "=", 
        RowBox[{"NDSolve", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"\[ImaginaryI]", "*", 
              RowBox[{
               RowBox[{"y", "'"}], "[", "x", "]"}]}], "\[Equal]", 
             RowBox[{"h", "*", 
              RowBox[{"y", "[", "x", "]"}]}]}], " ", ",", 
            RowBox[{
             RowBox[{"y", "[", "0", "]"}], "\[Equal]", "up"}]}], "}"}], ",", 
          "y", ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "0", ",", "end"}], "}"}], ",", " ", 
          RowBox[{"MaxSteps", "\[Rule]", "Infinity"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"up", " ", "=", " ", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"y", "[", "end", "]"}], "/.", "s"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"s", "=", 
        RowBox[{"NDSolve", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"\[ImaginaryI]", "*", 
              RowBox[{
               RowBox[{"y", "'"}], "[", "x", "]"}]}], "\[Equal]", 
             RowBox[{
              RowBox[{"-", "h"}], "*", 
              RowBox[{"y", "[", "x", "]"}]}]}], " ", ",", 
            RowBox[{
             RowBox[{"y", "[", "0", "]"}], "\[Equal]", "down"}]}], "}"}], ",",
           "y", ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "0", ",", "end"}], "}"}], ",", " ", 
          RowBox[{"MaxSteps", "\[Rule]", "Infinity"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"down", " ", "=", " ", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"y", "[", "end", "]"}], "/.", "s"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"expp", "\[Equal]", "1"}], ",", 
         RowBox[{"Re", "[", 
          RowBox[{
           RowBox[{"up", "*", 
            RowBox[{"Conjugate", "[", "down", "]"}]}], " ", "+", " ", 
           RowBox[{"down", "*", 
            RowBox[{"Conjugate", "[", "up", "]"}]}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Re", "[", "up", "]"}], ",", " ", 
             RowBox[{"Im", "[", "up", "]"}]}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Re", "[", "down", "]"}], ",", " ", 
             RowBox[{"Im", "[", "down", "]"}]}], "}"}]}], "}"}]}], "]"}]}]}], 
     "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"A", "=", ".1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Omega]", " ", "=", " ", 
   RowBox[{"2", "*", "\[Pi]", "*", "18"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"U", " ", "=", " ", 
   RowBox[{"2", "\[Pi]", "*", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Pi]", "/", 
      RowBox[{"(", 
       RowBox[{"A", "*", "U"}], ")"}]}], ")"}], "*", "sc"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalTheta]", " ", "=", 
   RowBox[{
    RowBox[{"U", "/", "2"}], "*", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"-", "\[ImaginaryI]"}], ")"}], "b"], "+", 
         SuperscriptBox["\[ImaginaryI]", "b"]}], ")"}], " ", "T", " ", 
       RowBox[{"BesselJ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "1"}], "-", 
          RowBox[{"2", " ", "b"}]}], ",", "A"}], "]"}], " ", 
       RowBox[{"BesselJ", "[", 
        RowBox[{"b", ",", "A"}], "]"}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"b", ",", " ", 
        RowBox[{"-", "10"}], ",", " ", "10"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"extras", " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"U", "/", "2"}], "*", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Integrate", "[", " ", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Exp", "[", 
              RowBox[{"I", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "\[Omega]"}], "*", "t"}], "-", 
                 RowBox[{"\[Pi]", "/", "2"}]}], ")"}]}], "]"}], " ", "*", " ", 
             RowBox[{"I", "^", 
              RowBox[{"(", 
               RowBox[{"a", "+", "b"}], ")"}]}], "*", 
             RowBox[{"BesselJ", "[", 
              RowBox[{"a", ",", " ", "A"}], "]"}], "*", 
             RowBox[{"BesselJ", "[", 
              RowBox[{"b", ",", "A"}], "]"}], "*", 
             RowBox[{"Exp", "[", 
              RowBox[{"I", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"a", "*", 
                  RowBox[{"(", 
                   RowBox[{"\[Pi]", "-", 
                    RowBox[{"\[Omega]", "*", "t"}]}], ")"}]}], "+", 
                 RowBox[{"b", "*", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", "*", "\[Pi]"}], "-", 
                    RowBox[{"2", "*", "\[Omega]", "*", "t"}]}], ")"}]}]}], 
                ")"}]}], "]"}]}], " ", "+", " ", 
            RowBox[{
             RowBox[{"Exp", "[", 
              RowBox[{
               RowBox[{"-", "I"}], "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "\[Omega]"}], "*", "t"}], "-", 
                 RowBox[{"\[Pi]", "/", "2"}]}], ")"}]}], "]"}], " ", "*", " ", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"-", "I"}], ")"}], "^", 
              RowBox[{"(", 
               RowBox[{"a", "+", "b"}], ")"}]}], "*", 
             RowBox[{"BesselJ", "[", 
              RowBox[{"a", ",", " ", "A"}], "]"}], "*", 
             RowBox[{"BesselJ", "[", 
              RowBox[{"b", ",", "A"}], "]"}], "*", 
             RowBox[{"Exp", "[", 
              RowBox[{
               RowBox[{"-", "I"}], "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"a", "*", 
                  RowBox[{"(", 
                   RowBox[{"\[Pi]", "-", 
                    RowBox[{"\[Omega]", "*", "t"}]}], ")"}]}], "+", 
                 RowBox[{"b", "*", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", "*", "\[Pi]"}], "-", 
                    RowBox[{"2", "*", "\[Omega]", "*", "t"}]}], ")"}]}]}], 
                ")"}]}], "]"}]}]}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"t", ",", " ", "0", ",", " ", "F"}], "}"}]}], "]"}], " ", 
         
         RowBox[{"Boole", "[", 
          RowBox[{
           RowBox[{"-", "1"}], " ", "!=", 
           RowBox[{"(", " ", 
            RowBox[{"a", " ", "+", " ", 
             RowBox[{"2", "b"}]}], ")"}]}], "]"}]}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"a", ",", " ", 
          RowBox[{"-", "20"}], ",", " ", "20"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"b", ",", " ", 
          RowBox[{"-", "20"}], ",", " ", "20"}], "}"}]}], "]"}]}], "/.", 
     RowBox[{"F", "->", "T"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"toplot", " ", "=", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"2", "*", 
      RowBox[{"(", 
       RowBox[{"\[CapitalTheta]", "-", "extras"}], ")"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"For", " ", "Z11"}], "+", "Z22"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
    "\"\<~/repos/single_site_addressability/final_notebooks/z1122.csv\>\"", 
     ",", "\"\<String\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"data1122", "=", 
   RowBox[{"ImportString", "[", 
    RowBox[{
     RowBox[{"StringReplace", "[", 
      RowBox[{"s", ",", 
       RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "]"}], ",", 
     "\"\<Data\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"DiscretePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"toplot", ",", " ", 
     RowBox[{"sim", "[", 
      RowBox[{
       RowBox[{"data1122", "[", 
        RowBox[{"[", "32", "]"}], "]"}], ",", " ", "sc", ",", " ", "1"}], 
      "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"sc", ",", " ", "0", " ", ",", "1", ",", " ", ".01"}], "}"}], ",",
    " ", 
   RowBox[{
   "PlotLabel", "\[Rule]", "\"\<Small Amp Z11+Z22, \[Mu]=\[Omega]\>\""}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<\[Pi]/(UA)\>\"", ",", " ", "\"\<<\[Sigma]x>\>\""}], "}"}]}],
    ",", " ", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<\[Pi]/(UA)\>\"", ",", " ", 
        RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}], ",", " ", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<<\[Sigma]x>\>\"", ",", " ", 
        RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}]}], "}"}]}], ",", " ", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"FontSize", "\[Rule]", "24"}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<Theory\>\"", ",", " ", "24"}], "]"}], ",", " ", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<Numerics\>\"", ",", " ", "24"}], "]"}]}], "}"}]}], ",", 
   " ", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"FontSize", "\[Rule]", "24"}], "}"}]}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.855092586148374*^9, 3.855092601244409*^9}, {
   3.85509271724004*^9, 3.855092722439823*^9}, {3.8550928270694723`*^9, 
   3.855092827369578*^9}, {3.855092894477623*^9, 3.8550929408946943`*^9}, {
   3.8550930528830442`*^9, 3.855093053241143*^9}, {3.855093124547056*^9, 
   3.855093247899952*^9}, {3.8550932984974003`*^9, 3.855093304034645*^9}, {
   3.855093383875477*^9, 3.855093429150601*^9}, {3.855093523087626*^9, 
   3.8550935233240137`*^9}, {3.855093641125931*^9, 3.855093650035019*^9}, {
   3.855093730205338*^9, 3.855093765978772*^9}, {3.855093809002931*^9, 
   3.855093813711803*^9}, {3.855093852946932*^9, 3.8550939453703814`*^9}, {
   3.8550940389178123`*^9, 3.855094039922078*^9}, {3.855094078679365*^9, 
   3.8550940901980143`*^9}, {3.855094126288704*^9, 3.855094144577848*^9}, {
   3.8550941926829433`*^9, 3.855094235773232*^9}, {3.8550943117766743`*^9, 
   3.8550943615120983`*^9}, {3.855094423017119*^9, 3.855094440274399*^9}, {
   3.855094524338847*^9, 3.855094524584138*^9}, {3.855094579290559*^9, 
   3.855094617009776*^9}, {3.855094664031783*^9, 3.855094738325199*^9}, {
   3.8550947776220827`*^9, 3.855094788603825*^9}, {3.855094863837668*^9, 
   3.855094863932013*^9}, {3.855094965239509*^9, 3.8550949674323893`*^9}, {
   3.855097457490246*^9, 3.855097490204178*^9}, {3.855098465971067*^9, 
   3.855098559886271*^9}, {3.8550985908592777`*^9, 3.855098591569344*^9}, {
   3.855098624169306*^9, 3.855098652072476*^9}, {3.855098758304324*^9, 
   3.855098761462276*^9}, {3.855099059143165*^9, 3.855099123237903*^9}, {
   3.8551000210900707`*^9, 3.8551000215137167`*^9}, {3.855101772026075*^9, 
   3.855101813586131*^9}, {3.855102286043476*^9, 3.855102402802219*^9}, {
   3.8551024770721207`*^9, 3.855102538417089*^9}, {3.8551027312400312`*^9, 
   3.8551028004360933`*^9}, {3.8551031058675737`*^9, 3.855103159752844*^9}, {
   3.8551032668582582`*^9, 3.855103267026038*^9}, {3.8551033409966784`*^9, 
   3.855103341305983*^9}, 3.855103394456357*^9, {3.855103526491379*^9, 
   3.855103527569231*^9}, {3.855103596296318*^9, 3.8551036955325108`*^9}, 
   3.855103749333766*^9, {3.8551038006826067`*^9, 3.8551038141487627`*^9}, {
   3.8551038556749573`*^9, 3.8551039851701*^9}, {3.8551040754741993`*^9, 
   3.8551040758412523`*^9}, {3.8551041623674717`*^9, 
   3.8551041658907633`*^9}, {3.8551042147506742`*^9, 
   3.8551042150447083`*^9}, {3.85513442178837*^9, 3.8551344368261147`*^9}, {
   3.8551346901951523`*^9, 3.855134694435855*^9}, {3.855134817554316*^9, 
   3.855134835132852*^9}},
 CellLabel->
  "In[528]:=",ExpressionUUID->"9541caee-ad5f-4cdc-b626-bdf58cb92bb9"],

Cell[BoxData["0.1`"], "Output",
 CellChangeTimes->{
  3.855093305926793*^9, {3.855093409083764*^9, 3.855093445814228*^9}, 
   3.8550935245113773`*^9, 3.855093650687666*^9, {3.8550937320957127`*^9, 
   3.855093766586694*^9}, 3.85509381428094*^9, {3.855093854053914*^9, 
   3.8550939457733803`*^9}, 3.855094040894369*^9, {3.855094090762072*^9, 
   3.855094149006227*^9}, {3.85509419465453*^9, 3.855094213048518*^9}, {
   3.8550943321078053`*^9, 3.855094369491972*^9}, {3.855094426168715*^9, 
   3.855094445244377*^9}, {3.855094581171174*^9, 3.8550946186032057`*^9}, {
   3.855094720335845*^9, 3.855094739883696*^9}, 3.855094779679741*^9, {
   3.8550948523111258`*^9, 3.855094871147731*^9}, 3.855094969188517*^9, {
   3.855097480953329*^9, 3.855097493328578*^9}, {3.85509847268268*^9, 
   3.8550985029707127`*^9}, {3.855098533652273*^9, 3.85509866533366*^9}, 
   3.855098713397053*^9, 3.855098770543709*^9, {3.855099081327078*^9, 
   3.855099095301*^9}, 3.85509912666665*^9, {3.8551017894576073`*^9, 
   3.8551017925325937`*^9}, {3.855101825661315*^9, 3.855101838295185*^9}, 
   3.855102241718449*^9, 3.855102286621338*^9, {3.855102323125382*^9, 
   3.8551024035695*^9}, {3.855102484388088*^9, 3.855102538720677*^9}, {
   3.855102734498604*^9, 3.855102801034886*^9}, {3.855103106882043*^9, 
   3.855103160799621*^9}, 3.855103395335189*^9, 3.8551036041315603`*^9, {
   3.85510367230838*^9, 3.855103696062911*^9}, {3.855103810410283*^9, 
   3.855103817591765*^9}, {3.855103856006215*^9, 3.855103969116081*^9}, {
   3.8551041416084223`*^9, 3.855104176205348*^9}, 3.855134437555821*^9, {
   3.8551348194080133`*^9, 3.855134837133706*^9}},
 CellLabel->
  "Out[529]=",ExpressionUUID->"4f72fc85-4a79-4885-84cd-b75c4653a381"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{
        Directive[
         PointSize[0.004766666666666667], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        TagBox[{{{
            Directive[
             Opacity[0.2], 
             PointSize[0.004766666666666667], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[1.6]], 
            
            LineBox[{{{0.51, -0.0018339763819025128`}, {0.51, 0}}, {{
               0.5700000000000001, -0.07403906516734901}, {
               0.5700000000000001, 0}}, {{0.58, -0.16968448882861653`}, {
               0.58, 0}}, {{0.59, -0.25414574217654223`}, {0.59, 0}}, {{
               0.6, -0.302296993707718}, {0.6, 0}}, {{
               0.61, -0.3096424170017409}, {0.61, 0}}, {{
               0.62, -0.28654737697461535`}, {0.62, 0}}, {{
               0.63, -0.247702847220875}, {0.63, 0}}, {{
               0.64, -0.22242076531731805`}, {0.64, 0}}, {{
               0.65, -0.2398958253016768}, {0.65, 0}}, {{
               0.66, -0.2975645988452868}, {0.66, 0}}, {{
               0.67, -0.3774951788665179}, {0.67, 0}}, {{
               0.68, -0.46487415875828253`}, {0.68, 0}}, {{
               0.6900000000000001, -0.5395876867899223}, {
               0.6900000000000001, 0}}, {{
               0.7000000000000001, -0.5811038814981119}, {
               0.7000000000000001, 0}}, {{0.71, -0.5873656006748561}, {
               0.71, 0}}, {{0.72, -0.5676134001870867}, {0.72, 0}}, {{
               0.73, -0.5339720188630139}, {0.73, 0}}, {{
               0.74, -0.511800865861587}, {0.74, 0}}, {{
               0.75, -0.5271485425078132}, {0.75, 0}}, {{
               0.76, -0.577059510057096}, {0.76, 0}}, {{
               0.77, -0.6442733736864835}, {0.77, 0}}, {{
               0.78, -0.7148960553267936}, {0.78, 0}}, {{
               0.79, -0.772602595212483}, {0.79, 0}}, {{
               0.8, -0.803449966027461}, {0.8, 0}}, {{
               0.81, -0.8080195843685987}, {0.81, 0}}, {{
               0.8200000000000001, -0.7935293727172782}, {
               0.8200000000000001, 0}}, {{
               0.8300000000000001, -0.768359779859267}, {
               0.8300000000000001, 0}}, {{0.84, -0.7514537336058535}, {
               0.84, 0}}, {{0.85, -0.7631828268390067}, {0.85, 0}}, {{
               0.86, -0.8004865743578673}, {0.86, 0}}, {{
               0.87, -0.8484531358402287}, {0.87, 0}}, {{
               0.88, -0.8954577283155876}, {0.88, 0}}, {{
               0.89, -0.9305504381478816}, {0.89, 0}}, {{
               0.9, -0.9477318147010455}, {0.9, 0}}, {{
               0.91, -0.9501653421897219}, {0.91, 0}}, {{
               0.92, -0.9423450070439947}, {0.92, 0}}, {{
               0.93, -0.9280927127850231}, {0.93, 0}}, {{
               0.9400000000000001, -0.9180943865572717}, {
               0.9400000000000001, 0}}, {{
               0.9500000000000001, -0.9250652825379829}, {
               0.9500000000000001, 0}}, {{0.96, -0.9461373297628705}, {
               0.96, 0}}, {{0.97, -0.970196096065561}, {0.97, 0}}, {{
               0.98, -0.9890155724938305}, {0.98, 0}}, {{
               0.99, -0.9980847992849886}, {0.99, 0}}, {{
               1., -0.9999308168513588}, {1., 0}}}, VertexColors -> None]}, {
            Directive[
             Opacity[0.2], 
             PointSize[0.004766666666666667], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[1.6]], 
            
            LineBox[{{{0., 1.}, {0., 0}}, {{0.01, 0.9999702358971186}, {
               0.01, 0}}, {{0.02, 0.9998642024552082}, {0.02, 0}}, {{0.03, 
               0.9983877120036928}, {0.03, 0}}, {{0.04, 0.9965736459067591}, {
               0.04, 0}}, {{0.05, 0.9978984336571193}, {0.05, 0}}, {{0.06, 
               0.9999876953005302}, {0.06, 0}}, {{0.07, 0.9968026355585494}, {
               0.07, 0}}, {{0.08, 0.9844834018072991}, {0.08, 0}}, {{0.09, 
               0.9656544567716087}, {0.09, 0}}, {{0.1, 0.9514193545605947}, {
               0.1, 0}}, {{0.11, 0.9490154813122107}, {0.11, 0}}, {{0.12, 
               0.9563641856198988}, {0.12, 0}}, {{0.13, 0.9673624426039285}, {
               0.13, 0}}, {{0.14, 0.9736257480359984}, {0.14, 0}}, {{0.15, 
               0.9693709080666049}, {0.15, 0}}, {{0.16, 0.9529350593266523}, {
               0.16, 0}}, {{0.17, 0.9237753104526116}, {0.17, 0}}, {{0.18, 
               0.8826273129993084}, {0.18, 0}}, {{0.19, 0.8387412826515098}, {
               0.19, 0}}, {{0.2, 0.8103975764649971}, {0.2, 0}}, {{0.21, 
               0.8058531574990326}, {0.21, 0}}, {{0.22, 0.8199425899594972}, {
               0.22, 0}}, {{0.23, 0.8423469895330875}, {0.23, 0}}, {{0.24, 
               0.8560791156532127}, {0.24, 0}}, {{0.25, 0.8466580537079743}, {
               0.25, 0}}, {{0.26, 0.813294022864921}, {0.26, 0}}, {{0.27, 
               0.7609927837011244}, {0.27, 0}}, {{0.28, 0.6950140150954106}, {
               0.28, 0}}, {{0.29, 0.6303349227956397}, {0.29, 0}}, {{0.3, 
               0.5906365237150011}, {0.3, 0}}, {{0.31, 0.5843931006444835}, {
               0.31, 0}}, {{0.32, 0.6038543138121164}, {0.32, 0}}, {{0.33, 
               0.6354880155913311}, {0.33, 0}}, {{0.34, 0.6553547312991698}, {
               0.34, 0}}, {{0.35000000000000003`, 0.6416828099181355}, {
               0.35000000000000003`, 0}}, {{0.36, 0.5946322892776118}, {
               0.36, 0}}, {{0.37, 0.5242712157357743}, {0.37, 0}}, {{0.38, 
               0.43987225830597687`}, {0.38, 0}}, {{0.39, 
               0.3606844081549524}, {0.39, 0}}, {{0.4, 0.3134884638806817}, {
               0.4, 0}}, {{0.41000000000000003`, 0.306152655750643}, {
               0.41000000000000003`, 0}}, {{0.42, 0.32909477303201096`}, {
               0.42, 0}}, {{0.43, 0.36688420571670716`}, {0.43, 0}}, {{0.44, 
               0.3909552352685635}, {0.44, 0}}, {{0.45, 0.3743608359819083}, {
               0.45, 0}}, {{0.46, 0.3181953148658684}, {0.46, 0}}, {{
               0.47000000000000003`, 0.2366107796789346}, {
               0.47000000000000003`, 0}}, {{0.48, 0.14199194507775414`}, {
               0.48, 0}}, {{0.49, 0.05598933081806732}, {0.49, 0}}, {{0.5, 
               0.0058814602201005305`}, {0.5, 0}}, {{0.52, 
               0.02235995928264596}, {0.52, 0}}, {{0.53, 
               0.06263345281160057}, {0.53, 0}}, {{0.54, 
               0.08857002390343427}, {0.54, 0}}, {{0.55, 
               0.07066547996720797}, {0.55, 0}}, {{0.56, 
               0.010842072910170062`}, {0.56, 0}}}, VertexColors -> None]}}}, 
         Annotation[#, "Charting`Private`Tag$1029839#1"]& ]}, {
        Directive[
         PointSize[0.004766666666666667], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        TagBox[{{{
            Directive[
             Opacity[0.2], 
             PointSize[0.004766666666666667], 
             RGBColor[0.880722, 0.611041, 0.142051], 
             AbsoluteThickness[1.6]], 
            
            LineBox[{{{0.51, -0.006578456347079986}, {0.51, 0}}, {{
               0.5700000000000001, -0.06247877497283216}, {
               0.5700000000000001, 0}}, {{0.58, -0.16467496232270779`}, {
               0.58, 0}}, {{0.59, -0.24955514775993204`}, {0.59, 0}}, {{
               0.6, -0.30229735879191677`}, {0.6, 0}}, {{
               0.61, -0.31415013843207157`}, {0.61, 0}}, {{
               0.62, -0.2914125471089828}, {0.62, 0}}, {{
               0.63, -0.25891363902940967`}, {0.63, 0}}, {{
               0.64, -0.237260506043099}, {0.64, 0}}, {{
               0.65, -0.2398965687335194}, {0.65, 0}}, {{
               0.66, -0.28297442818455504`}, {0.66, 0}}, {{
               0.67, -0.36673954861221897`}, {0.67, 0}}, {{
               0.68, -0.46036926711032566`}, {0.68, 0}}, {{
               0.6900000000000001, -0.5355877155643254}, {
               0.6900000000000001, 0}}, {{
               0.7000000000000001, -0.5811040372371019}, {
               0.7000000000000001, 0}}, {{0.71, -0.5911986597261031}, {
               0.71, 0}}, {{0.72, -0.5717899817602965}, {0.72, 0}}, {{
               0.73, -0.5437341093956348}, {0.73, 0}}, {{
               0.74, -0.5248401986105654}, {0.74, 0}}, {{
               0.75, -0.5271486626023842}, {0.75, 0}}, {{
               0.76, -0.5645405616222456}, {0.76, 0}}, {{
               0.77, -0.6353677236535417}, {0.77, 0}}, {{
               0.78, -0.7113335593774615}, {0.78, 0}}, {{
               0.79, -0.7695819454322451}, {0.79, 0}}, {{
               0.8, -0.8034498204604215}, {0.8, 0}}, {{
               0.81, -0.8108051262676751}, {0.81, 0}}, {{
               0.8200000000000001, -0.7966111406869819}, {
               0.8200000000000001, 0}}, {{
               0.8300000000000001, -0.7757244225311769}, {
               0.8300000000000001, 0}}, {{0.84, -0.7614257821293238}, {
               0.84, 0}}, {{0.85, -0.7631826147611032}, {0.85, 0}}, {{
               0.86, -0.7912551860633441}, {0.86, 0}}, {{
               0.87, -0.8422627312409565}, {0.87, 0}}, {{
               0.88, -0.8931836594635939}, {0.88, 0}}, {{
               0.89, -0.9288021904651692}, {0.89, 0}}, {{
               0.9, -0.9477310083526909}, {0.9, 0}}, {{
               0.91, -0.9516326834935167}, {0.91, 0}}, {{
               0.92, -0.9440325110931748}, {0.92, 0}}, {{
               0.93, -0.9323443805934952}, {0.93, 0}}, {{
               0.9400000000000001, -0.9240302274526359}, {
               0.9400000000000001, 0}}, {{
               0.9500000000000001, -0.9250646134088294}, {
               0.9500000000000001, 0}}, {{0.96, -0.9410902690330598}, {
               0.96, 0}}, {{0.97, -0.9673219793623952}, {0.97, 0}}, {{
               0.98, -0.9882505567978065}, {0.98, 0}}, {{
               0.99, -0.9977788085146668}, {0.99, 0}}, {{
               1., -0.9999294289233747}, {1., 0}}}, VertexColors -> None]}, {
            Directive[
             Opacity[0.2], 
             PointSize[0.004766666666666667], 
             RGBColor[0.880722, 0.611041, 0.142051], 
             AbsoluteThickness[1.6]], 
            
            LineBox[{{{0., 0.9999999999999998}, {0., 0}}, {{0.01, 
               0.9999223922548078}, {0.01, 0}}, {{0.02, 0.999935033894228}, {
               0.02, 0}}, {{0.03, 0.9989784113472049}, {0.03, 0}}, {{0.04, 
               0.9977188191743204}, {0.04, 0}}, {{0.05, 0.9978983427598226}, {
               0.05, 0}}, {{0.06, 0.9997957274735673}, {0.06, 0}}, {{0.07, 
               0.9976615091910899}, {0.07, 0}}, {{0.08, 0.9853622896457364}, {
               0.08, 0}}, {{0.09, 0.9668760490476608}, {0.09, 0}}, {{0.1, 
               0.951419172425923}, {0.1, 0}}, {{0.11, 0.9475092239398124}, {
               0.11, 0}}, {{0.12, 0.9548669499306631}, {0.12, 0}}, {{0.13, 
               0.9643609852889719}, {0.13, 0}}, {{0.14, 0.9700338033617645}, {
               0.14, 0}}, {{0.15, 0.9693706844957358}, {0.15, 0}}, {{0.16, 
               0.9574464616500148}, {0.16, 0}}, {{0.17, 0.928150394672818}, {
               0.17, 0}}, {{0.18, 0.8850042958684777}, {0.18, 0}}, {{0.19, 
               0.8413147946222362}, {0.19, 0}}, {{0.2, 0.8103972822853274}, {
               0.2, 0}}, {{0.21, 0.8030348460025338}, {0.21, 0}}, {{0.22, 
               0.8170226859161706}, {0.22, 0}}, {{0.23, 0.8360449458900103}, {
               0.23, 0}}, {{0.24, 0.8480989801143954}, {0.24, 0}}, {{0.25, 
               0.8466575968978671}, {0.25, 0}}, {{0.26, 0.8220703193569562}, {
               0.26, 0}}, {{0.27, 0.7684590680499598}, {0.27, 0}}, {{0.28, 
               0.6986582837190958}, {0.28, 0}}, {{0.29, 0.6340102719689603}, {
               0.29, 0}}, {{0.3, 0.590636057830177}, {0.3, 0}}, {{0.31, 
               0.5805365343732983}, {0.31, 0}}, {{0.32, 0.5997953795319085}, {
               0.32, 0}}, {{0.33, 0.6264975527533556}, {0.33, 0}}, {{0.34, 
               0.6437616282613315}, {0.34, 0}}, {{0.35000000000000003`, 
               0.641682284083781}, {0.35000000000000003`, 0}}, {{0.36, 
               0.6068210189352369}, {0.36, 0}}, {{0.37, 0.5341032802743412}, {
               0.37, 0}}, {{0.38, 0.444429561374726}, {0.38, 0}}, {{0.39, 
               0.3651044906564668}, {0.39, 0}}, {{0.4, 0.3134877463886187}, {
               0.4, 0}}, {{0.41000000000000003`, 0.30163233226329633`}, {
               0.41000000000000003`, 0}}, {{0.42, 0.3242913193195363}, {
               0.42, 0}}, {{0.43, 0.35607908691918144`}, {0.43, 0}}, {{0.44, 
               0.37687596011321123`}, {0.44, 0}}, {{0.45, 
               0.37436015631434016`}, {0.45, 0}}, {{0.46, 
               0.33261190331995755`}, {0.46, 0}}, {{0.47000000000000003`, 
               0.24785310500525587`}, {0.47000000000000003`, 0}}, {{0.48, 
               0.14701936165798435`}, {0.48, 0}}, {{0.49, 
               0.06072450860184969}, {0.49, 0}}, {{0.5, 
               0.005880890347118306}, {0.5, 0}}, {{0.52, 
               0.017278834962317136`}, {0.52, 0}}, {{0.53, 
               0.05106346035056192}, {0.53, 0}}, {{0.54, 
               0.07337222151449407}, {0.54, 0}}, {{0.55, 
               0.07066471519162437}, {0.55, 0}}, {{0.56, 
               0.0260857951315267}, {0.56, 0}}}, VertexColors -> None]}}}, 
         Annotation[#, "Charting`Private`Tag$1029839#2"]& ]}}, {
       TagBox[{{
          Directive[
           PointSize[0.004766666666666667], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[1.6]], {{}, Null, 
           PointBox[CompressedData["
1:eJxVlXtMFGcUxZGGrtVWsfJIJGpEERCjJWjBpnBisT4iFqXBQkstFZAK4gNt
VUAqVVS0ZbEaagkSRFIipQQReZjGz0UEROS14IKydHdnd5l9zWhlAavFsvt9
/NGbTCbzOvee87vJLNq5LyLB0cHBIWHysJ3/X0+R7lK5QZ12EpEDJy/KXovs
+iLCpHifmxBRvyDbtK2+CD+7H73f9vfU81JEBHgnCZyIgl9tdQ31K3yrW4Wp
9yuR9HLUXz+pZ95mu3MdiWFvlXbopr6vwfznzZHccREzFFf3B8+oQ2CoZnmp
XmB6DYjquuAgSRXgGyNttPr8ia71I7WROwSmfxtbb+Q45xQIKJ38WnH1DhwL
HriUjAisnwyj325e+cxbRIC97mKnKm2xm9NU/yZ4lsSWH8gUcNfqM9nhHl6p
EoPPSy1snhaUpWSUpIeYEWFv2ApxZ7R17JGRzXcfSy5Zdc2CAeo0m2Ab5jUX
SH+8b2DztiPXe3bI+IdGHLCNt/8hiuuOVWSNGNn8HVAX5kkcEkygHLrwR2jq
lR53E/PThT35LSuz3jRio71BN3YXd+a88znP/HVD4rZ4em6wHrZuMdIevNQo
l9T4aZlfOfpveZ3P1Gtgt6OQQ9bH+0Tf0DD/vejl/DY2R3BYaBtnQR+UQ5mj
xkgty6MPWZXrM8rHtUjcZatHeLogNq78jJblo0D6i9TNH0g42NRcKhVoD7yV
0tusYnn1o1hlHVcuHcSoTc7aj4mxsFmHXBUsvwH8VOho8nfuRYhd8DH2ujqG
T7skZ3k+xj9QZnOz+2AfL/sJkoNCtJJ0Bct3EP8mJ3vsdhrAw3ZbDWL7icGl
p60KlrcSZ+vuqcO/7IWrfcAhLJ6zxSV0UwfLfwjtjQFNbcsbYZeL+QspDRf8
S8orGA8VvBRNh3zcjzA/KrS9CPZa+/YOQvmoMHJ43+HTunzmT4WQ+d+N3Z5e
xXip8c2ad/ecqqhlftXw35bk5Olezfip0ZMkjd+x6hTzr8Eny7Lj1oxUE8pT
g1VeLteC6u8RKqdBWWDTcXNoF6F8OWxV7D7WFyUnNB8OztlFKSu65YTi4fDF
3MDOtu09hOalRcamcddbNZ2E8tfC/3Jm4cYj7YTmp8XZWbNn8DUdhO6DDgFr
FsaFzZQTmqcOJzbwOWqffkL3Q4eoXu9z399REpqvHk2tPyRsWacmdF/08CiS
L0u8pCE0bz0Orqp9Vv1AQ+j+DCMvoecC56shNP9hzFOSjDA3NaH7NIyjLkWr
K2JVhPLg8VVec9GuIRWhPHhYww9kfXxYw3jw+Czqpj93WUsoDx6esauvp6j0
hPIwYK1seK5vA08oDwOKLNNqBm8aCOVhgM/x5dzmJwZCeRjhlyup/SXeQPLs
PIzI7JMhMZ9nPIyIT9p0g5/JMx4mrM1dFz+RzDMeJlQtCnLKv2xgPEwQjPL3
Ti81MR5mDHl8NJZfZmY8zKgbiaud02JhPMw4f6Xq9+5PBcbDAqmp00uWKDAe
FpirouuqvAXGw4Lbvp7HxGoL4yHA8XlhmuRrC+MhQBemy/IssDAeAlp2eTyQ
rRcYDxG6IUNl/0yR8RDh6Rz36o3fRMZDnNzT1DPhT0Uy9d8QDl407H0tkv8A
8YhD1Q==
            "]], {}}}}, 
        Annotation[#, "Charting`Private`Tag$1029839#1"]& ], 
       TagBox[{{
          Directive[
           PointSize[0.004766666666666667], 
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[1.6]], {{}, Null, 
           PointBox[CompressedData["
1:eJw9lAlMVGcUhcEUFaQGWYN1iaLBNopUa6yN5ZC2WkiLgpJIWdzaQbYWEKOo
0WLAQm1aC0VZixqUgijIgAgN+gsoRZFtGGZARpwZhuHN8t6gdbSxAmXm/+lN
Xl7edu4957t5y/Yn7hDNsrGxEU0flvNMTU5ZyoTjrlWfq45lYG1DuV/U/9e5
iIg933xk+rphyWlDSEMJQqvu5Vx6NfP8MvaV7n4rmDehsMBSFYgNjzzVLsy8
X4Ujd+yKd06aYAyx3KnBZMY2qdw4830dHKo9vnfPMsFBXpr0scMtXPf3cygb
F5heIwLjOkpmHxTwbuTZFvOqJnSFr30yGSIw/TvITsXyLb8IuDz9tbz0LqS7
KrPnKQTWrxkbT1WFZjiYsN5arbidmVLpZjfT/x5uX5nfGl0qoNW8arrDfdQd
UhyKqeXZPH8h8OuDmS9CjNhhbdgO+28W2L5t1LP5HsBn0C6gTdBBdcwi+BDz
vVYsPyzWsXkf4cj69BbHlXokW8ZL6sSZ6zmhqrt6Nn8XJHmG1IteBlAaPdC0
rLvW62Fgfnrg2eMaF71NjwBrg14MPRanbszjmL9eJIy++D0mQgtLt8izEhzV
8Vx3oIb57cOA7Zy8E1o1rHbkffDKLA9v/k3N/Euh+iDB9Yf3R7DUMs6SfjT4
pud/5qhhefTDvvLom5oCDQ5EW0qG8KkFgRVZGpaPHD9tGdK5xI/AouZaJcfK
YZ/WPR4qltcAMhqHq7OSFXhpkTMP4KNTZNPTKDnLbxBLR4s4Hycp/KyCj+G4
+oL4WVAfy/MxCirq9/o2S2Ed7/QQnJRbx6ceyFi+Cjh91x/WtGQAnY8spcAi
vXNQhlnO8n4CW//mxPTAfrhZBxyGe//CM2WN3Sz/YYTmenZk9rbAKhf5FGGJ
dqIAj2rGQ4m7waLjZ91TmR8l0rRaftbzY4TyUWLcHPTmTE0286fEgDwlZmLF
VcZLheBnsqLT7WLmV4Xiyj993TzEjJ8KN84ZXDbXFzL/aqSVH+jaOFFNKE81
3hNL6ha43idUTo38WvftCc+6CeU7Am18vJ08rI/QfEawZm+Zj/07UkLxjCD1
x+HutDIJoXlpkFM+J90hp4dQ/hoo18/b9/PuLkLz00A6N3urUNdF6D6M4ua8
q23+iySE5jmKDYsV3hWpckL3YxSrL+WW3zj8hNB8tbhTsn0wy0tF6L5oUfVh
0skD+WpC89ZiorMkxdOgJnR/xtDEvU5b+KWa0PzHUBu1zmVLtIrQfRrDBWe3
ayc6lITy4HBws//T6GEloTw4BAyt2X3LSc14cBBJ/WuEUA2hPDgov2rJ92vV
EspDhxDvseC4ixyhPHRoChsSKW7qCOWhwxcv8/IWP9cRykOPSu/iK7ITOvKr
lYcen0asnd0k4RgPPeYfci4siOIYDwP2P4x5PhHPMR4GiGVRopchOsbDgIZN
V//p+VvPeBhR+0o2as41Mh5GNM512kMaeMbDiNnm9tfdOwXGg8d5z+v721IE
xoNHta9vZfoGgfHgp3+GnKq1n2c8BBSd42V/ZPOMh4D2kfKFywp5xkOA7/lZ
u2IXC4yHCf/O+WRT0AuB8TDh29j6S+SCifEw4WSHVtLJmxiPcWxzS7ZJmDKR
/wD9/k3o
            "]], {}}}}, 
        Annotation[#, "Charting`Private`Tag$1029839#2"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesLabel -> {
       FormBox["\"\[Pi]/(UA)\"", TraditionalForm], 
       FormBox["\"<\[Sigma]x>\"", TraditionalForm]}, AxesOrigin -> {0, 0}, 
     BaseStyle -> {FontSize -> 24}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], 
       "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
         Directive[
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.528488, 0.470624, 0.701351], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.772079, 0.431554, 0.102387], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.363898, 0.618501, 0.782349], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[1, 0.75, 0], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.647624, 0.37816, 0.614037], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.571589, 0.586483, 0.], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.915, 0.3325, 0.2125], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[
          0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
          AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
       "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> 
       Scaled[0.05]}, PlotLabel -> 
     FormBox["\"Small Amp Z11+Z22, \[Mu]=\[Omega]\"", TraditionalForm], 
     PlotRange -> {{0., 1.}, {-0.9999308168513588, 1.}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
       StyleBox["\"Theory\"", 24, StripOnInput -> False], 
       StyleBox["\"Numerics\"", 24, StripOnInput -> False]}, "PointLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004766666666666667`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004766666666666667`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"None", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"None", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"False", ",", "False"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.855093305926793*^9, {3.855093409083764*^9, 3.855093445814228*^9}, 
   3.8550935245113773`*^9, 3.855093650687666*^9, {3.8550937320957127`*^9, 
   3.855093766586694*^9}, 3.85509381428094*^9, {3.855093854053914*^9, 
   3.8550939457733803`*^9}, 3.855094040894369*^9, {3.855094090762072*^9, 
   3.855094149006227*^9}, {3.85509419465453*^9, 3.855094213048518*^9}, {
   3.8550943321078053`*^9, 3.855094369491972*^9}, {3.855094426168715*^9, 
   3.855094445244377*^9}, {3.855094581171174*^9, 3.8550946186032057`*^9}, {
   3.855094720335845*^9, 3.855094739883696*^9}, 3.855094779679741*^9, {
   3.8550948523111258`*^9, 3.855094871147731*^9}, 3.855094969188517*^9, {
   3.855097480953329*^9, 3.855097493328578*^9}, {3.85509847268268*^9, 
   3.8550985029707127`*^9}, {3.855098533652273*^9, 3.85509866533366*^9}, 
   3.855098713397053*^9, 3.855098770543709*^9, {3.855099081327078*^9, 
   3.855099095301*^9}, 3.85509912666665*^9, {3.8551017894576073`*^9, 
   3.8551017925325937`*^9}, {3.855101825661315*^9, 3.855101838295185*^9}, 
   3.855102241718449*^9, 3.855102286621338*^9, {3.855102323125382*^9, 
   3.8551024035695*^9}, {3.855102484388088*^9, 3.855102538720677*^9}, {
   3.855102734498604*^9, 3.855102801034886*^9}, {3.855103106882043*^9, 
   3.855103160799621*^9}, 3.855103395335189*^9, 3.8551036041315603`*^9, {
   3.85510367230838*^9, 3.855103696062911*^9}, {3.855103810410283*^9, 
   3.855103817591765*^9}, {3.855103856006215*^9, 3.855103969116081*^9}, {
   3.8551041416084223`*^9, 3.855104176205348*^9}, 3.855134437555821*^9, 
   3.8551348194080133`*^9, 3.855134888048704*^9, 
   3.855135286121214*^9},ExpressionUUID->"c310c199-6426-4b90-9d89-\
76cad0a51e52"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Analytics", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.855093683060759*^9, 3.8550937016772537`*^9}, {
  3.855093784351832*^9, 3.855093787812784*^9}},
 CellLabel->
  "In[1493]:=",ExpressionUUID->"f8700db5-7a2e-41d7-a2a7-60487842d58b"],

Cell[BoxData[
 TemplateBox[{
  "ReplaceAll", "reps", 
   "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"NDSolve\\\", \\\"[\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\\\"\[ImaginaryI]\\\", \
\\\" \\\", RowBox[{SuperscriptBox[\\\"y\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]], \\\"[\\\", \\\"x\\\", \\\"]\\\"}]}], \\\"\
\[Equal]\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0.`\\\", \\\",\\\", \\\"0.`\\\", \
\\\",\\\", \\\"0.`\\\", \\\",\\\", \\\"0.`\\\"}], \\\"}\\\"}]}], \\\",\\\", \
RowBox[{RowBox[{\\\"y\\\", \\\"[\\\", \\\"0\\\", \\\"]\\\"}], \
\\\"\[Equal]\\\", FractionBox[\\\"1\\\", SqrtBox[\\\"2\\\"]]}]}], \
\\\"}\\\"}], \\\",\\\", \\\"y\\\", \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"x\\\", \\\",\\\", \\\"0\\\", \\\",\\\", FractionBox[\\\"1\\\", \\\
\"2\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"MaxSteps\\\", \
\\\"\[Rule]\\\", \\\"\[Infinity]\\\"}]}], \\\"]\\\"}], \\\"}\\\"}]\\) is \
neither a list of replacement rules nor a valid dispatch table, and so cannot \
be used for replacing.\"", 2, 1493, 198, 32215341757774346695, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855093702302462*^9, 3.855093788108264*^9, 
  3.8550938201160517`*^9, 3.85509385987249*^9},
 CellLabel->
  "During evaluation of \
In[1493]:=",ExpressionUUID->"01d24bb6-aea0-419c-ae61-a20ad76170d1"],

Cell[BoxData[
 TemplateBox[{
  "ReplaceAll", "reps", 
   "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"NDSolve\\\", \\\"[\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\\\"\[ImaginaryI]\\\", \
\\\" \\\", RowBox[{SuperscriptBox[\\\"y\\\", \\\"\[Prime]\\\", \
Rule[MultilineFunction, None]], \\\"[\\\", \\\"x\\\", \\\"]\\\"}]}], \\\"\
\[Equal]\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0.`\\\", \\\",\\\", \\\"0.`\\\", \
\\\",\\\", \\\"0.`\\\", \\\",\\\", \\\"0.`\\\"}], \\\"}\\\"}]}], \\\",\\\", \
RowBox[{RowBox[{\\\"y\\\", \\\"[\\\", \\\"0\\\", \\\"]\\\"}], \
\\\"\[Equal]\\\", FractionBox[\\\"1\\\", SqrtBox[\\\"2\\\"]]}]}], \
\\\"}\\\"}], \\\",\\\", \\\"y\\\", \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"x\\\", \\\",\\\", \\\"0\\\", \\\",\\\", FractionBox[\\\"1\\\", \\\
\"2\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"MaxSteps\\\", \
\\\"\[Rule]\\\", \\\"\[Infinity]\\\"}]}], \\\"]\\\"}], \\\"}\\\"}]\\) is \
neither a list of replacement rules nor a valid dispatch table, and so cannot \
be used for replacing.\"", 2, 1493, 199, 32215341757774346695, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855093702302462*^9, 3.855093788108264*^9, 
  3.8550938201160517`*^9, 3.855093859880239*^9},
 CellLabel->
  "During evaluation of \
In[1493]:=",ExpressionUUID->"e7b4a723-e46b-4b56-9fd4-487cd82959cb"],

Cell[BoxData[
 RowBox[{"2", " ", 
  RowBox[{"Re", "[", 
   RowBox[{
    RowBox[{"Conjugate", "[", 
     RowBox[{"y", "[", 
      FractionBox["1", "2"], "]"}], "]"}], " ", 
    RowBox[{"y", "[", 
     FractionBox["1", "2"], "]"}]}], "]"}]}]], "Output",
 CellChangeTimes->{{3.8550936834321127`*^9, 3.855093702370357*^9}, 
   3.85509378812537*^9, 3.855093820127451*^9, 3.855093859885683*^9},
 CellLabel->
  "Out[1493]=",ExpressionUUID->"8f9b2939-dc5f-4f2f-ac24-1642e63085e2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Analytics", "[", "sc_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "scc", "}"}], ",", " ", 
     RowBox[{
      RowBox[{"scc", "=", "sc"}], ";", "\[IndentingNewLine]", 
      RowBox[{"up", "=", 
       RowBox[{"1", "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"down", "=", 
       RowBox[{"1", "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"U", " ", "=", " ", 
       RowBox[{"2", "\[Pi]", "*", "1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"\[Omega]", " ", "=", " ", 
       RowBox[{"2", "*", "\[Pi]", "*", "18"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"a", " ", "=", " ", ".05"}], ";", "\[IndentingNewLine]", 
      RowBox[{"end", " ", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Pi]", "/", 
          RowBox[{"(", 
           RowBox[{"a", "*", "U"}], ")"}]}], ")"}], "*", "sc"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"h", "=", " ", 
       RowBox[{"U", "*", 
        RowBox[{"BesselJ", "[", 
         RowBox[{
          RowBox[{"-", "1"}], ",", 
          RowBox[{"a", "*", 
           RowBox[{
            RowBox[{"data1122", "[", 
             RowBox[{"[", "32", "]"}], "]"}], "[", 
            RowBox[{"[", "3", "]"}], "]"}]}]}], "]"}], "*", 
        RowBox[{"BesselJ", "[", 
         RowBox[{"0", ",", 
          RowBox[{"a", "*", 
           RowBox[{
            RowBox[{"data1122", "[", 
             RowBox[{"[", "32", "]"}], "]"}], "[", 
            RowBox[{"[", "4", "]"}], "]"}]}]}], "]"}]}]}], " ", ";", 
      "\[IndentingNewLine]", 
      RowBox[{"s", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"\[ImaginaryI]", "*", 
             RowBox[{
              RowBox[{"y", "'"}], "[", "x", "]"}]}], "\[Equal]", 
            RowBox[{"h", "*", 
             RowBox[{"y", "[", "x", "]"}]}]}], " ", ",", 
           RowBox[{
            RowBox[{"y", "[", "0", "]"}], "\[Equal]", "up"}]}], "}"}], ",", 
         "y", ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "end"}], "}"}], ",", " ", 
         RowBox[{"MaxSteps", "\[Rule]", "Infinity"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"up", " ", "=", " ", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"y", "[", "end", "]"}], "/.", "s"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"s", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"\[ImaginaryI]", "*", 
             RowBox[{
              RowBox[{"y", "'"}], "[", "x", "]"}]}], "\[Equal]", 
            RowBox[{
             RowBox[{"-", "h"}], "*", 
             RowBox[{"y", "[", "x", "]"}]}]}], " ", ",", 
           RowBox[{
            RowBox[{"y", "[", "0", "]"}], "\[Equal]", "down"}]}], "}"}], ",", 
         "y", ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "end"}], "}"}], ",", " ", 
         RowBox[{"MaxSteps", "\[Rule]", "Infinity"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"down", " ", "=", " ", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"y", "[", "end", "]"}], "/.", "s"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Re", "[", 
       RowBox[{
        RowBox[{"up", "*", 
         RowBox[{"Conjugate", "[", "down", "]"}]}], " ", "+", " ", 
        RowBox[{"down", "*", 
         RowBox[{"Conjugate", "[", "up", "]"}]}]}], "]"}]}]}], "]"}]}], 
  ";"}]], "Input",ExpressionUUID->"b16ba36d-0348-478b-8953-6d25f5238373"],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8550996994619427`*^9, 
  3.8550998257064247`*^9}},ExpressionUUID->"16d7d65b-cb52-4685-a89b-\
8d2b7232198b"],

Cell[BoxData[
 TemplateBox[{
  "Integrate", "ilim", 
   "\"Invalid integration variable or limit(s) in \
\\!\\(\\*RowBox[{\\\"5.`\\\", \\\" \\\", \\\"sc\\\"}]\\).\"", 2, 1987, 216, 
   32215341757774346695, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.855099812223132*^9},
 CellLabel->
  "During evaluation of \
In[1987]:=",ExpressionUUID->"41ebe9eb-ac32-417d-ab7c-1dff6735edf2"],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["\[ImaginaryI]", 
    RowBox[{"0.05`", "\[VeryThinSpace]", "+", "b"}]], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", " ", 
         RowBox[{"(", 
          RowBox[{"6.283185307179586`", "\[VeryThinSpace]", "-", 
           RowBox[{"1130.9733552923256`", " ", "sc"}]}], ")"}]}], "+", 
        RowBox[{"0.05`", " ", 
         RowBox[{"(", 
          RowBox[{"3.141592653589793`", "\[VeryThinSpace]", "-", 
           RowBox[{"565.4866776461628`", " ", "sc"}]}], ")"}]}]}], ")"}]}], 
     "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "5.`"}], " ", "sc", " ", "\[Mu]"}], "+", "\[Psi]"}], 
       ")"}]}]}]], " ", 
   RowBox[{"BesselJ", "[", 
    RowBox[{"0.05`", ",", "A"}], "]"}], " ", 
   RowBox[{"BesselJ", "[", 
    RowBox[{"b", ",", "A"}], "]"}], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"(", 
     RowBox[{"5.`", " ", "sc"}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.855099812248061*^9},
 CellLabel->
  "Out[1987]=",ExpressionUUID->"4f1ce458-afa9-41fc-847d-909d38522d30"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Omega]", " ", "=", " ", 
   RowBox[{"2", "*", "\[Pi]", "*", "18"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"U", " ", "=", " ", 
   RowBox[{"2", "\[Pi]", "*", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a", " ", "=", " ", ".05"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Pi]", "/", 
      RowBox[{"(", 
       RowBox[{"a", "*", "U", "*", "2"}], ")"}]}], ")"}], "*", "sc"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalTheta]", " ", "=", " ", 
   RowBox[{"a", "*", "2", "*", "U", "*", "t"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Phi]", "=", "\[Pi]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"correction", " ", "=", " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"4", "*", "U", "*", 
        RowBox[{"BesselJ", "[", 
         RowBox[{"n", ",", " ", 
          RowBox[{"inverseb", "[", "a", "]"}]}], "]"}], "*", 
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"1", "/", "2"}], "*", 
          RowBox[{"(", 
           RowBox[{"n", "+", "1"}], ")"}], "*", "t", "*", "\[Omega]"}], "]"}],
         "*", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"n", "*", "\[Phi]"}], " ", "+", " ", 
          RowBox[{
           RowBox[{"1", "/", "2"}], "*", 
           RowBox[{"(", 
            RowBox[{"\[Pi]", "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"n", "+", "1"}], ")"}], "*", "t", "*", "\[Omega]"}]}], 
            ")"}]}], "-", 
          RowBox[{"\[Pi]", "/", "2"}]}], "]"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], "*", "\[Omega]"}], ")"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"n", ",", "0", ",", " ", "50"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"correction", " ", "+=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"4", "*", "U", "*", 
        RowBox[{"BesselJ", "[", 
         RowBox[{"n", ",", " ", 
          RowBox[{"inverseb", "[", "a", "]"}]}], "]"}], "*", 
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"1", "/", "2"}], "*", 
          RowBox[{"(", 
           RowBox[{"n", "+", "1"}], ")"}], "*", "t", "*", "\[Omega]"}], "]"}],
         "*", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"n", "*", "\[Phi]"}], " ", "+", " ", 
          RowBox[{
           RowBox[{"1", "/", "2"}], "*", 
           RowBox[{"(", 
            RowBox[{"\[Pi]", "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"n", "+", "1"}], ")"}], "*", "t", "*", "\[Omega]"}]}], 
            ")"}]}], "-", 
          RowBox[{"\[Pi]", "/", "2"}]}], "]"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], "*", "\[Omega]"}], ")"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"n", ",", 
       RowBox[{"-", "50"}], ",", " ", 
       RowBox[{"-", "2"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",ExpressionUUID->"71ba6fc7-14e8-4b5d-\
b2b8-668075b627f3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"data1122", "[", 
  RowBox[{"[", "32", "]"}], "]"}]], "Input",
 CellLabel->
  "In[234]:=",ExpressionUUID->"780aae08-1f7a-4196-a172-6db647926455"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.141592653589793`", ",", 
   RowBox[{"-", "8.850078695056075`*^-10"}], ",", "1.0000000000746914`", ",", 
   "1.0000000004206169`"}], "}"}]], "Output",
 CellChangeTimes->{3.8551030683147287`*^9},
 CellLabel->
  "Out[234]=",ExpressionUUID->"4e8aa8aa-e667-48f0-b0e4-5f94a3535756"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.855103761929111*^9, 
  3.855103792618596*^9}},ExpressionUUID->"ad8f73f2-f86a-4670-b1b1-\
a0534b2a1faa"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"0.`", "\[VeryThinSpace]", "+", 
                  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ")"}], "+", 
                TemplateBox[{"703"},
                 "OutputSizeLimit`Skeleton"], "+", 
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"0.`", "\[VeryThinSpace]", "-", 
                    RowBox[{"66727.4279622472`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "-", "sc"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1.2732775911321873`*^-99"}], "-", 
                   RowBox[{"1.2732775911321873`*^-99", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"0.`", "\[VeryThinSpace]", "+", 
                    RowBox[{"133454.8559244944`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", "sc"}], ")"}]}]]}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"0.`", "\[VeryThinSpace]", "-", 
                    RowBox[{"66727.4279622472`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "-", "sc"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "2.0942131251844284`*^-105"}], "-", 
                   RowBox[{"2.0942131251844284`*^-105", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"0.`", "\[VeryThinSpace]", "+", 
                    RowBox[{"133454.8559244944`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", "sc"}], ")"}]}]]}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"0.`", "\[VeryThinSpace]", "-", 
                    RowBox[{"68989.37467283185`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "-", "sc"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{"2.0255503997685457`*^-105", "+", 
                   RowBox[{"2.0255503997685457`*^-105", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"0.`", "\[VeryThinSpace]", "+", 
                    RowBox[{"137978.7493456637`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", "sc"}], ")"}]}]]}]}], ")"}]}]}], ")"}], 
              " ", "\[Pi]"}], "+", 
             RowBox[{"\[Pi]", " ", 
              RowBox[{"(", 
               RowBox[{"0.`", "\[VeryThinSpace]", "-", 
                RowBox[{"0.49953142900035025`", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "-", "sc"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
          "]"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          PaneBox[
           TagBox[
            TooltipBox[
             StyleBox[
              StyleBox[
               DynamicBox[ToBoxes[
                 FEPrivate`FrontEndResource[
                 "FEStrings", "sizeBriefExplanation"], StandardForm],
                ImageSizeCache->{67., {3., 9.}}],
               StripOnInput->False,
               DynamicUpdating->True,
               LineSpacing->{1, 2},
               LineIndent->0,
               LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
              StripOnInput->False],
             StyleBox[
              DynamicBox[
               ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
                StandardForm]], DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}, StripOnInput -> False]],
            Annotation[#, 
             Style[
              Dynamic[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
              DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}], "Tooltip"]& ],
           Alignment->Center,
           BaselinePosition->Baseline,
           ImageSize->{Automatic, {25, Full}}], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{60., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 327, 32217117719563773639, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{68., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 327, 32217117719563773639, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{51., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 327, 32217117719563773639, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{92., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           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}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[32217117719563773639 === $SessionID, 
   Out[327], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{{3.8551037552645903`*^9, 3.855103770539909*^9}},
 CellLabel->
  "Out[327]=",ExpressionUUID->"532113da-86b7-4d93-8727-04a0c377bdda"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["extras"], "Input",
 CellChangeTimes->{{3.855104274382881*^9, 3.855104275328314*^9}},
 CellLabel->
  "In[493]:=",ExpressionUUID->"0fea039c-72a5-4580-9fe7-6ba10136f03d"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"0.`", "\[VeryThinSpace]", "+", 
              RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ")"}], "+", 
            TemplateBox[{"704"},
             "OutputSizeLimit`Skeleton"], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"0.`", "\[VeryThinSpace]", "-", 
                 RowBox[{"33363.7139811236`", " ", "\[ImaginaryI]"}]}], ")"}],
                " ", "sc"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2.3022005368438483`*^-93"}], "-", 
               RowBox[{"2.3022005368438483`*^-93", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"0.`", "\[VeryThinSpace]", "+", 
                    RowBox[{"66727.4279622472`", " ", "\[ImaginaryI]"}]}], 
                   ")"}], " ", "sc"}]]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"0.`", "\[VeryThinSpace]", "-", 
                 RowBox[{"34494.687336415926`", " ", "\[ImaginaryI]"}]}], 
                ")"}], " ", "sc"}]], " ", 
             RowBox[{"(", 
              RowBox[{"2.2267185520292956`*^-93", "+", 
               RowBox[{"2.2267185520292956`*^-93", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"0.`", "\[VeryThinSpace]", "+", 
                    RowBox[{"68989.37467283185`", " ", "\[ImaginaryI]"}]}], 
                   ")"}], " ", "sc"}]]}]}], ")"}]}]}], ")"}], " ", "\[Pi]"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          PaneBox[
           TagBox[
            TooltipBox[
             StyleBox[
              StyleBox[
               DynamicBox[ToBoxes[
                 FEPrivate`FrontEndResource[
                 "FEStrings", "sizeBriefExplanation"], StandardForm],
                ImageSizeCache->{67., {3., 9.}}],
               StripOnInput->False,
               DynamicUpdating->True,
               LineSpacing->{1, 2},
               LineIndent->0,
               LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
              StripOnInput->False],
             StyleBox[
              DynamicBox[
               ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
                StandardForm]], DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}, StripOnInput -> False]],
            Annotation[#, 
             Style[
              Dynamic[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
              DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}], "Tooltip"]& ],
           Alignment->Center,
           BaselinePosition->Baseline,
           ImageSize->{Automatic, {25, Full}}], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{60., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 493, 32217117719563773639, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{68., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{68., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 493, 32217117719563773639, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{51., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{51., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 493, 32217117719563773639, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{92., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{92., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           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}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[32217117719563773639 === $SessionID, 
   Out[493], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{3.855104275713149*^9},
 CellLabel->
  "Out[493]=",ExpressionUUID->"76966311-a508-4761-821c-f792afa7f0a7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\[CapitalTheta]"], "Input",
 CellChangeTimes->{{3.8551346529551086`*^9, 3.855134654234684*^9}},
 CellLabel->
  "In[505]:=",ExpressionUUID->"407935c8-1700-4c61-b881-c334911aecc2"],

Cell[BoxData[
 RowBox[{"\[Pi]", " ", 
  RowBox[{"(", 
   RowBox[{"0.`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.4981278622732744`", " ", "sc"}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.855134654675569*^9},
 CellLabel->
  "Out[505]=",ExpressionUUID->"98209bd6-8f4a-4356-a441-a76ddf3cda41"]
}, Open  ]]
},
WindowSize->{1920, 1043},
WindowMargins->{{-1920, Automatic}, {0, Automatic}},
TaggingRules->{
 "WelcomeScreenSettings" -> {"FEStarting" -> False}, "TryRealOnly" -> False},
Magnification:>1.2 Inherited,
FrontEndVersion->"12.1 for Linux x86 (64-bit) (June 9, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"9287a849-42f2-4fbd-b578-c47598fc2c15"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 10417, 224, 584, "Input",ExpressionUUID->"26f73fc6-fd0f-442c-9316-2b8884e751bc"],
Cell[CellGroupData[{
Cell[11000, 248, 1559, 39, 85, "Input",ExpressionUUID->"d6261b7f-ed67-4281-a4d7-5603231a13e5"],
Cell[12562, 289, 12631, 237, 625, "Output",ExpressionUUID->"8e6e973f-d2b5-4d63-968a-17e357f74365"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25230, 531, 5681, 145, 292, "Input",ExpressionUUID->"d9da8ba9-4286-4880-8887-c7b57daa8e4b"],
Cell[30914, 678, 31277, 596, 248, "Output",ExpressionUUID->"f2274b7b-d644-4515-82f0-b137369b1c31"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62228, 1279, 10397, 251, 865, "Input",ExpressionUUID->"fc5b528d-0394-414e-b03a-5bc4dae97daa"],
Cell[72628, 1532, 11556, 222, 585, "Output",ExpressionUUID->"4535b305-3db2-49fa-8e28-23134b140b19"],
Cell[84187, 1756, 11610, 225, 540, "Output",ExpressionUUID->"a8c45d20-4474-4df1-9e07-acf0f0d3f8bd"]
}, Open  ]],
Cell[95812, 1984, 152, 3, 36, "Input",ExpressionUUID->"07940811-5fd6-4e1f-b083-42ab760821f2"],
Cell[CellGroupData[{
Cell[95989, 1991, 2134, 53, 162, "Input",ExpressionUUID->"61d9a89b-7480-4c06-b1a1-1b571938fcca"],
Cell[98126, 2046, 7726, 164, 807, "Output",ExpressionUUID->"24a72289-2b04-4e8c-9ad4-f14d67a66741"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105889, 2215, 1024, 29, 87, "Input",ExpressionUUID->"6c451af1-6276-4d27-a5c1-e4eacf88ba33"],
Cell[106916, 2246, 258, 4, 40, "Output",ExpressionUUID->"5725ce00-6ae9-4509-a111-fffc0d6d6b53"]
}, Open  ]],
Cell[CellGroupData[{
Cell[107211, 2255, 1755, 37, 112, "Input",ExpressionUUID->"177eb2de-9aaa-47df-94d7-4581450aeab1"],
Cell[108969, 2294, 24585, 733, 593, "Output",ExpressionUUID->"99244671-907f-461c-bc38-a2e0f8690317"]
}, Open  ]],
Cell[133569, 3030, 154, 3, 36, "Input",ExpressionUUID->"b940e9bb-7975-4159-8f9b-25740ecdb320"],
Cell[CellGroupData[{
Cell[133748, 3037, 8883, 212, 659, "Input",ExpressionUUID->"b9a8b7eb-5fef-4bd3-993c-96b3e5e11958"],
Cell[142634, 3251, 11077, 216, 289, "Output",ExpressionUUID->"f0dc99a3-03ca-4342-8a5b-956083df0cb4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153748, 3472, 5647, 142, 310, "Input",ExpressionUUID->"f7f31b73-9666-48f6-8b26-d4bf5cddb1d8"],
Cell[159398, 3616, 31113, 596, 230, "Output",ExpressionUUID->"8ac97924-978c-4457-916e-48eb34a3286a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[190548, 4217, 15799, 386, 1040, "Input",ExpressionUUID->"9541caee-ad5f-4cdc-b626-bdf58cb92bb9"],
Cell[206350, 4605, 1714, 25, 40, "Output",ExpressionUUID->"4f72fc85-4a79-4885-84cd-b75c4653a381"],
Cell[208067, 4632, 32483, 612, 741, "Output",ExpressionUUID->"c310c199-6426-4b90-9d89-76cad0a51e52"]
}, Open  ]],
Cell[CellGroupData[{
Cell[240587, 5249, 263, 5, 36, "Input",ExpressionUUID->"f8700db5-7a2e-41d7-a2a7-60487842d58b"],
Cell[240853, 5256, 1329, 22, 53, "Message",ExpressionUUID->"01d24bb6-aea0-419c-ae61-a20ad76170d1"],
Cell[242185, 5280, 1330, 22, 53, "Message",ExpressionUUID->"e7b4a723-e46b-4b56-9fd4-487cd82959cb"],
Cell[243518, 5304, 472, 12, 55, "Output",ExpressionUUID->"8f9b2939-dc5f-4f2f-ac24-1642e63085e2"]
}, Open  ]],
Cell[244005, 5319, 3832, 100, 337, "Input",ExpressionUUID->"b16ba36d-0348-478b-8953-6d25f5238373"],
Cell[CellGroupData[{
Cell[247862, 5423, 156, 3, 36, "Input",ExpressionUUID->"16d7d65b-cb52-4685-a89b-8d2b7232198b"],
Cell[248021, 5428, 406, 10, 27, "Message",ExpressionUUID->"41ebe9eb-ac32-417d-ab7c-1dff6735edf2"],
Cell[248430, 5440, 1226, 34, 56, "Output",ExpressionUUID->"4f1ce458-afa9-41fc-847d-909d38522d30"]
}, Open  ]],
Cell[249671, 5477, 3260, 95, 237, "Input",ExpressionUUID->"71ba6fc7-14e8-4b5d-b2b8-668075b627f3"],
Cell[CellGroupData[{
Cell[252956, 5576, 168, 4, 36, "Input",ExpressionUUID->"780aae08-1f7a-4196-a172-6db647926455"],
Cell[253127, 5582, 318, 7, 43, "Output",ExpressionUUID->"4e8aa8aa-e667-48f0-b0e4-5f94a3535756"]
}, Open  ]],
Cell[CellGroupData[{
Cell[253482, 5594, 152, 3, 35, "Input",ExpressionUUID->"ad8f73f2-f86a-4670-b1b1-a0534b2a1faa"],
Cell[253637, 5599, 12349, 307, 134, "Output",ExpressionUUID->"532113da-86b7-4d93-8727-04a0c377bdda"]
}, Open  ]],
Cell[CellGroupData[{
Cell[266023, 5911, 181, 3, 35, "Input",ExpressionUUID->"0fea039c-72a5-4580-9fe7-6ba10136f03d"],
Cell[266207, 5916, 10589, 269, 107, "Output",ExpressionUUID->"76966311-a508-4761-821c-f792afa7f0a7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[276833, 6190, 192, 3, 35, "Input",ExpressionUUID->"407935c8-1700-4c61-b881-c334911aecc2"],
Cell[277028, 6195, 292, 7, 40, "Output",ExpressionUUID->"98209bd6-8f4a-4356-a441-a76ddf3cda41"]
}, Open  ]]
}
]
*)